  »*  m   k820309    M          9.1         ûçxH                                                                                                       
       eccm.f90 ECCM          ECCM_MOLFR ECCM_STAB ECCM_DRY ECCM_WET                  @                       
       MESSAGENOTIFY      @       €                           
       DIMZMIN DIMZMAX REGZMIN SPCNUM DELZ                                          
       MOLWTDRY MOLWTWET CPDRYMOL SPCWETID TEMPSFC PRESSSFC GRAV                  @                       
       SVAPPRESS LATENTHEATPERMOL REACTHEATNH4SHPERMOL                                          
       CONDNUM IDXCG IDXCC GASNUM IDXNH3 IDXH2S                                          
       GASRUNIV                  @                       
       DELMOLFRNH4SH                  @                       
       STORESTABTEMP STORESTABMOLWT            €                               u #MESSAGENOTIFYC 	   #MESSAGENOTIFYI    #     @     @                   	                  #MESSAGENOTIFYC%TRIM 
   #LEVEL    #WHERE    #MESSAGE    #I    #R    #D    #L    #N    #C1    #C2    #C3    #CA              @                    
     TRIM       
   @                                 1       
   @                                 1       
   @                                 1       
  @                                           &                             
  @                                 	          &                             
  @                                
          &                             
  @                                           &                             
  @                                           &                             
  @                                 1       
  @                                 1       
  @                                 1 ,      
  @                                           &                       1 #     @     @                                     #MESSAGENOTIFYI%PRESENT    #NUMBER    #WHERE    #MESSAGE    #I    #R    #D    #L    #N     #C1 !   #C2 "   #C3 #   #CA $             @                         PRESENT       
   @                                   
   @                                 1       
  @                                 1       
  @                                           &                             
  @                                 	 	         &                             
  @                                
 
         &                             
  @                                           &                             
  @                                            &                             
  @                     !            1       
  @                     "            1       
  @                     #            1 ,      
  @                     $                      &                       1 %     @                      %                  
   #SVAPPRESS%MIN &   #SVAPPRESS%DLOG '   #SVAPPRESS%DEXP (   #ID )   #TEMP *             @                    &     MIN           @                    '     DLOG           @                    (     DEXP       
   @                      )             
   @                     *     
  %     @                      +                   
   #ID ,   #TEMP -         
   @                      ,             
   @                     -     
              !                   .     
   %     @                      /                  
   #DELMOLFRNH4SH%DLOG 0   #DELMOLFRNH4SH%SUM 1   #DELMOLFRNH4SH%DSQRT 2   #DELMOLFRNH4SH%DEXP 3   #DELMOLFRNH4SH%MIN 4   #TEMPALL 5   #PRESSALL 6   #MOLFRNH3 7   #MOLFRH2S 8   #HUMIDITY 9             @                    0     DLOG           @                    1     SUM           @                    2     DSQRT           @                    3     DEXP           @                    4     MIN       
   @                     5     
        
   @                     6     
        
   @                     7     
        
   @                     8     
        
   @                     9     
  #     @                         :                  #SPCNUM ;   #DIMZMAX <   #DIMZMIN =   #XZ_WORK >         @  @                     ;                 @                     <                 @                     =             
   @                     >            
      5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r B         5 r @   5 r A   p        5 r B   5 r ?   p              #     @                         C                  #SPCNUM ;   #DIMZMAX <   #DIMZMIN =   #XZ_WORK D        
   @                     D            
      5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r B         5 r @   5 r A   p        5 r B   5 r ?   p              #     @                          E                  #ECCM_MOLFR%MIN F   #ECCM_MOLFR%MAX G   #A_MOLFRINI H   #HUMIDITY I   #Z_TEMP J   #Z_PRESS K   #ZA_MOLFR L             @                    F     MIN           @                    G     MAX      
   @                     H            
    p      & p    5 r ;       5 r ;                   
  @@                     I     
       
  @@                     J            
    5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   
  @@                     K            
    5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D @@                     L            
       p      5 r <   5 r =   p    5 r =     & 5 r =   5 r <     & p    5 r ;         5 r <   5 r =   p      5 r ;             #     @                          M                 #ECCM_STAB%DIMXMAX N   #ECCM_STAB%DIMXMIN O   #ECCM_STAB%SPCNUM P   #ECCM_STAB%DIMZMAX Q   #ECCM_STAB%DIMZMIN R   #ECCM_STAB%DOT_PRODUCT S   #XZ_POTTEMP T   #XZ_EXNER U   #XZA_MIXRT V                                  N                                       O              @                        P                                       Q                                       R                  @                    S     DOT_PRODUCT      
   @                     T            
      5 r R     5 r N   5 r O   p    5 r O     & 5 r O   5 r N     & 5 r R   5 r Q         5 r N   5 r O   p        5 r Q   5 r R   p                   
   @                     U            
      5 r R     5 r N   5 r O   p    5 r O     & 5 r O   5 r N     & 5 r R   5 r Q         5 r N   5 r O   p        5 r Q   5 r R   p                   
   @                     V            
        p      5 r Q   5 r R   p    5 r R     5 r N   5 r O   p    5 r O     & 5 r O   5 r N     & 5 r R   5 r Q     5 r P         5 r N   5 r O   p        5 r Q   5 r R   p      5 r P             #     @                          W                  #ECCM_DRY%MAX X   #ECCM_DRY%DOT_PRODUCT Y   #ECCM_DRY%SUM Z   #A_MOLFRINI [   #HUMIDITY \   #Z_TEMP ]   #Z_PRESS ^   #Z_MOLWTMEAN _   #ZA_MOLFR `             @                    X     MAX           @                    Y     DOT_PRODUCT           @                    Z     SUM      
  @@                     [            
    p      & p    5 r ;       5 r ;                   
  @@                     \     
       D @@                     ]            
     5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D @@                     ^            
     5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D  @                     _            
     5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D @@                     `            
       p      5 r <   5 r =   p    5 r =     & 5 r =   5 r <     & p    5 r ;         5 r <   5 r =   p      5 r ;             #     @                          a                  #ECCM_WET%MAX b   #ECCM_WET%DOT_PRODUCT c   #ECCM_WET%SUM d   #A_MOLFRINI e   #HUMIDITY f   #Z_TEMP g   #Z_PRESS h   #Z_MOLWTMEAN i   #ZA_MOLFR j             @                    b     MAX           @                    c     DOT_PRODUCT           @                    d     SUM      
  @@                     e            
    p      & p    5 r ;       5 r ;                   
  @@                     f     
       D @@                     g            
     5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D @@                     h            
     5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D  @                     i            
 	    5 r =     & 5 r =   5 r <         5 r <   5 r =   p                   D @@                     j            
 
      p      5 r <   5 r =   p    5 r =     & 5 r =   5 r <     & p    5 r ;         5 r <   5 r =   p      5 r ;                      @                     ?                 @                     B                 @                     A                 @                     @           œ         fn#fn    ²   3   b   uapp(ECCM    å   B   J  DC_MESSAGE    '  X   j  GRIDSET      n   J  BASICSET    í  d   J  CHEMCALC    Q  ]   J  MOISTSET    ®  =   J  CHEMDATA    ë  B   J  MOISTFUNC    -  Q   J  STORESTAB -   ~  \       gen@MESSAGENOTIFY+DC_MESSAGE 9   Ú  »      MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   •  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0   Æ  8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0   þ  8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2   6  8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,   n  `   e   MESSAGENOTIFYC%I+DC_MESSAGE ,   Î  `   e   MESSAGENOTIFYC%R+DC_MESSAGE ,   .  `   e   MESSAGENOTIFYC%D+DC_MESSAGE ,   Ž  `   e   MESSAGENOTIFYC%L+DC_MESSAGE ,   î  `   e   MESSAGENOTIFYC%N+DC_MESSAGE -   N  8   e   MESSAGENOTIFYC%C1+DC_MESSAGE -   †  8   e   MESSAGENOTIFYC%C2+DC_MESSAGE -   ¾  8   e   MESSAGENOTIFYC%C3+DC_MESSAGE -   ö  d   e   MESSAGENOTIFYC%CA+DC_MESSAGE 9   Z  ¿      MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   	  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1   M	  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   }	  8   e   MESSAGENOTIFYI%WHERE+DC_MESSAGE 2   µ	  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,   í	  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   M
  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   ­
  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   m  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   Í  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   =  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   u  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE #   Ù         SVAPPRESS+CHEMCALC +   f  0      SVAPPRESS%MIN+CHEMCALC=MIN -   –  1      SVAPPRESS%DLOG+CHEMCALC=DLOG -   Ç  1      SVAPPRESS%DEXP+CHEMCALC=DEXP &   ø  0   e   SVAPPRESS%ID+CHEMCALC (   (  0   e   SVAPPRESS%TEMP+CHEMCALC *   X  R       LATENTHEATPERMOL+CHEMCALC -   ª  0   e   LATENTHEATPERMOL%ID+CHEMCALC /   Ú  0   e   LATENTHEATPERMOL%TEMP+CHEMCALC .   
  0       REACTHEATNH4SHPERMOL+CHEMCALC (   :  ü       DELMOLFRNH4SH+MOISTFUNC 2   6  1      DELMOLFRNH4SH%DLOG+MOISTFUNC=DLOG 0   g  0      DELMOLFRNH4SH%SUM+MOISTFUNC=SUM 4   —  2      DELMOLFRNH4SH%DSQRT+MOISTFUNC=DSQRT 2   É  1      DELMOLFRNH4SH%DEXP+MOISTFUNC=DEXP 0   ú  0      DELMOLFRNH4SH%MIN+MOISTFUNC=MIN 0   *  0   e   DELMOLFRNH4SH%TEMPALL+MOISTFUNC 1   Z  0   e   DELMOLFRNH4SH%PRESSALL+MOISTFUNC 1   Š  0   e   DELMOLFRNH4SH%MOLFRNH3+MOISTFUNC 1   º  0   e   DELMOLFRNH4SH%MOLFRH2S+MOISTFUNC 1   ê  0   e   DELMOLFRNH4SH%HUMIDITY+MOISTFUNC (     o       STORESTABTEMP+STORESTAB    ‰  0     SPCNUM+GRIDSET     ¹  0     DIMZMAX+GRIDSET     é  0     DIMZMIN+GRIDSET 0     ,  e   STORESTABTEMP%XZ_WORK+STORESTAB )   E  o       STORESTABMOLWT+STORESTAB 1   ´  ,  e   STORESTABMOLWT%XZ_WORK+STORESTAB    à  ©       ECCM_MOLFR    ‰  0      ECCM_MOLFR%MIN    ¹  0      ECCM_MOLFR%MAX &   é  €   a   ECCM_MOLFR%A_MOLFRINI $   i  0   a   ECCM_MOLFR%HUMIDITY "   ™  ¤   a   ECCM_MOLFR%Z_TEMP #   =  ¤   a   ECCM_MOLFR%Z_PRESS $   á    a   ECCM_MOLFR%ZA_MOLFR    é  ö       ECCM_STAB *   ß  0     ECCM_STAB%DIMXMAX+GRIDSET *     0     ECCM_STAB%DIMXMIN+GRIDSET )   ?  0     ECCM_STAB%SPCNUM+GRIDSET *   o  0     ECCM_STAB%DIMZMAX+GRIDSET *   Ÿ  0     ECCM_STAB%DIMZMIN+GRIDSET &   Ï  8      ECCM_STAB%DOT_PRODUCT %     ,  a   ECCM_STAB%XZ_POTTEMP #   3  ,  a   ECCM_STAB%XZ_EXNER $   _  „  a   ECCM_STAB%XZA_MIXRT    ã  Ð       ECCM_DRY    ³   0      ECCM_DRY%MAX %   ã   8      ECCM_DRY%DOT_PRODUCT    !  0      ECCM_DRY%SUM $   K!  €   a   ECCM_DRY%A_MOLFRINI "   Ë!  0   a   ECCM_DRY%HUMIDITY     û!  ¤   a   ECCM_DRY%Z_TEMP !   Ÿ"  ¤   a   ECCM_DRY%Z_PRESS %   C#  ¤   a   ECCM_DRY%Z_MOLWTMEAN "   ç#    a   ECCM_DRY%ZA_MOLFR    ï$  Ð       ECCM_WET    ¿%  0      ECCM_WET%MAX %   ï%  8      ECCM_WET%DOT_PRODUCT    '&  0      ECCM_WET%SUM $   W&  €   a   ECCM_WET%A_MOLFRINI "   ×&  0   a   ECCM_WET%HUMIDITY     '  ¤   a   ECCM_WET%Z_TEMP !   «'  ¤   a   ECCM_WET%Z_PRESS %   O(  ¤   a   ECCM_WET%Z_MOLWTMEAN "   ó(    a   ECCM_WET%ZA_MOLFR (   û)  0      DIMZMIN+GRIDSET=DIMZMIN (   +*  0      DIMZMAX+GRIDSET=DIMZMAX (   [*  0      DIMXMIN+GRIDSET=DIMXMIN (   ‹*  0      DIMXMAX+GRIDSET=DIMXMAX 