  Á/  y   k820309    M          9.1         üçxH                                                                                                       
       eccm_3d.f90 ECCM_3D          ECCM_MOLFR ECCM_STAB ECCM_DRY ECCM_WET                  @                       
       DP                  @                       
       DBGMESSAGE                  @                       
       MESSAGENOTIFY                                          
       DIMZMIN DIMZMAX REGZMIN SPCNUM Z_DZ R_DZ                                          
       MOLWTDRY MOLWTWET CPDRYMOL SPCWETID TEMPSFC PRESSSFC GRAV                  @                       
       SVAPPRESS LATENTHEATPERMOL REACTHEATNH4SHPERMOL                                          
       CONDNUM IDXCG IDXCC GASNUM IDXNH3 IDXH2S                                          
       GASRUNIV                  @                  	     
       DELMOLFRNH4SH            €                               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                                  &                                         #     @                          '               
   #DBGMESSAGE%TRIM (   #DBGMESSAGE%REPEAT )   #DBGMESSAGE%LEN *   #DBGMESSAGE%MAX +   #FMT ,   #I -   #R .   #D /   #L 0   #N 1   #C1 2   #C2 3   #C3 4   #CA 5             @                    (     TRIM           @                    )     REPEAT           @                    *     LEN           @                    +     MAX       
   @                     ,            1       
  @                      -                     &                             
  @                      .           	          &                             
  @                     /           
          &                             
  @                      0                     &                             
  @                      1                     &                             
  @                     2            1       
  @                     3            1       
  @                     4            1 ,      
  @                     5                      &                       1 %     @                      6                  
   #SVAPPRESS%MIN 7   #SVAPPRESS%DLOG 8   #SVAPPRESS%DEXP 9   #ID :   #TEMP ;             @                    7     MIN           @                    8     DLOG           @                    9     DEXP       
   @                      :             
   @                     ;     
  %     @                      <                   
   #ID =   #TEMP >         
   @                      =             
   @                     >     
              !                   ?     
   %     @                      @                  
   #DELMOLFRNH4SH%DLOG A   #DELMOLFRNH4SH%SUM B   #DELMOLFRNH4SH%DSQRT C   #DELMOLFRNH4SH%DEXP D   #DELMOLFRNH4SH%MIN E   #TEMPALL F   #PRESSALL G   #MOLFRNH3 H   #MOLFRH2S I   #HUMIDITY J             @                    A     DLOG           @                    B     SUM           @                    C     DSQRT           @                    D     DEXP           @                    E     MIN       
   @                     F     
        
   @                     G     
        
   @                     H     
        
   @                     I     
        
   @                     J     
  #     @                          K                  #ECCM_MOLFR%MIN L   #ECCM_MOLFR%MAX M   #A_MOLFRINI N   #HUMIDITY P   #Z_TEMP Q   #Z_PRESS T   #ZA_MOLFR U             @                    L     MIN           @                    M     MAX      
   @                     N            
    p      & p    5 r O       5 r O                   
  @@                     P     
       
  @@                     Q            
    5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   
  @@                     T            
    5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D @@                     U            
       p      5 r S   5 r R   p    5 r R     & 5 r R   5 r S     & p    5 r O         5 r S   5 r R   p      5 r O             #     @                          V                 #ECCM_STAB%DIMXMAX W   #ECCM_STAB%DIMXMIN X   #ECCM_STAB%SPCNUM Y   #ECCM_STAB%DIMZMAX Z   #ECCM_STAB%DIMZMIN [   #ECCM_STAB%DOT_PRODUCT \   #XZ_POTTEMP ]   #XZ_EXNER ^   #XZA_MIXRT _   #XZ_STAB `   #XZ_STABTEMP a   #XZ_STABMOLWT b                                  W                                       X              @                        Y                                       Z                                       [                  @                    \     DOT_PRODUCT      
   @                     ]            
      5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z         5 r W   5 r X   p        5 r Z   5 r [   p                   
   @                     ^            
      5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z         5 r W   5 r X   p        5 r Z   5 r [   p                   
   @                     _            
        p      5 r Z   5 r [   p    5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z     5 r Y         5 r W   5 r X   p        5 r Z   5 r [   p      5 r Y                  D  @                     `            
       5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z         5 r W   5 r X   p        5 r Z   5 r [   p                   D  @                     a            
       5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z         5 r W   5 r X   p        5 r Z   5 r [   p                   D  @                     b            
       5 r [     5 r W   5 r X   p    5 r X     & 5 r X   5 r W     & 5 r [   5 r Z         5 r W   5 r X   p        5 r Z   5 r [   p              #     @                          c                  #ECCM_DRY%MAX d   #ECCM_DRY%DOT_PRODUCT e   #ECCM_DRY%SUM f   #A_MOLFRINI g   #HUMIDITY h   #Z_TEMP i   #Z_PRESS j   #Z_MOLWTMEAN k   #ZA_MOLFR l             @                    d     MAX           @                    e     DOT_PRODUCT           @                    f     SUM      
  @@                     g            
    p      & p    5 r O       5 r O                   
  @@                     h     
       D @@                     i            
     5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D @@                     j            
     5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D  @                     k            
     5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D @@                     l            
       p      5 r S   5 r R   p    5 r R     & 5 r R   5 r S     & p    5 r O         5 r S   5 r R   p      5 r O             #     @                          m                  #ECCM_WET%MAX n   #ECCM_WET%DOT_PRODUCT o   #ECCM_WET%SUM p   #A_MOLFRINI q   #HUMIDITY r   #Z_TEMP s   #Z_PRESS t   #Z_MOLWTMEAN u   #ZA_MOLFR v             @                    n     MAX           @                    o     DOT_PRODUCT           @                    p     SUM      
  @@                     q            
    p      & p    5 r O       5 r O                   
  @@                     r     
       D @@                     s            
     5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D @@                     t            
     5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D  @                     u            
 	    5 r R     & 5 r R   5 r S         5 r S   5 r R   p                   D @@                     v            
 
      p      5 r S   5 r R   p    5 r R     & 5 r R   5 r S     & p    5 r O         5 r S   5 r R   p      5 r O                   @  @                      O                 @                      R                 @                      S           œ         fn#fn    ¸   3   b   uapp(ECCM_3D    ë   7   J  DC_TYPES    "  ?   J  DC_TRACE    a  B   J  DC_MESSAGE    £  ]   j  GRIDSET_3D       n   J  BASICSET_3D    n  d   J  CHEMCALC    Ò  ]   J  MOISTSET    /  =   J  CHEMDATA    l  B   J  MOISTFUNC -   ®  \       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   f  8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,     `   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 -   ~  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   Š  ¿      MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   I	  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1   }	  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 ,   }
  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   İ
  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   =  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   ı  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   5  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   m  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   ¥  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE    	  T       DP+DC_TYPES $   ]  Ü       DBGMESSAGE+DC_TRACE .   9  1      DBGMESSAGE%TRIM+DC_TRACE=TRIM 2   j  3      DBGMESSAGE%REPEAT+DC_TRACE=REPEAT ,     0      DBGMESSAGE%LEN+DC_TRACE=LEN ,   Í  0      DBGMESSAGE%MAX+DC_TRACE=MAX (   ı  8   e   DBGMESSAGE%FMT+DC_TRACE &   5  `   e   DBGMESSAGE%I+DC_TRACE &   •  `   e   DBGMESSAGE%R+DC_TRACE &   õ  `   e   DBGMESSAGE%D+DC_TRACE &   U  `   e   DBGMESSAGE%L+DC_TRACE &   µ  `   e   DBGMESSAGE%N+DC_TRACE '     8   e   DBGMESSAGE%C1+DC_TRACE '   M  8   e   DBGMESSAGE%C2+DC_TRACE '   …  8   e   DBGMESSAGE%C3+DC_TRACE '   ½  d   e   DBGMESSAGE%CA+DC_TRACE #   !         SVAPPRESS+CHEMCALC +   ®  0      SVAPPRESS%MIN+CHEMCALC=MIN -   Ş  1      SVAPPRESS%DLOG+CHEMCALC=DLOG -     1      SVAPPRESS%DEXP+CHEMCALC=DEXP &   @  0   e   SVAPPRESS%ID+CHEMCALC (   p  0   e   SVAPPRESS%TEMP+CHEMCALC *      R       LATENTHEATPERMOL+CHEMCALC -   ò  0   e   LATENTHEATPERMOL%ID+CHEMCALC /   "  0   e   LATENTHEATPERMOL%TEMP+CHEMCALC .   R  0       REACTHEATNH4SHPERMOL+CHEMCALC (   ‚  ü       DELMOLFRNH4SH+MOISTFUNC 2   ~  1      DELMOLFRNH4SH%DLOG+MOISTFUNC=DLOG 0   ¯  0      DELMOLFRNH4SH%SUM+MOISTFUNC=SUM 4   ß  2      DELMOLFRNH4SH%DSQRT+MOISTFUNC=DSQRT 2     1      DELMOLFRNH4SH%DEXP+MOISTFUNC=DEXP 0   B  0      DELMOLFRNH4SH%MIN+MOISTFUNC=MIN 0   r  0   e   DELMOLFRNH4SH%TEMPALL+MOISTFUNC 1   ¢  0   e   DELMOLFRNH4SH%PRESSALL+MOISTFUNC 1   Ò  0   e   DELMOLFRNH4SH%MOLFRNH3+MOISTFUNC 1     0   e   DELMOLFRNH4SH%MOLFRH2S+MOISTFUNC 1   2  0   e   DELMOLFRNH4SH%HUMIDITY+MOISTFUNC    b  ©       ECCM_MOLFR      0      ECCM_MOLFR%MIN    ;  0      ECCM_MOLFR%MAX &   k  €   a   ECCM_MOLFR%A_MOLFRINI $   ë  0   a   ECCM_MOLFR%HUMIDITY "     ¤   a   ECCM_MOLFR%Z_TEMP #   ¿  ¤   a   ECCM_MOLFR%Z_PRESS $   c    a   ECCM_MOLFR%ZA_MOLFR    k  &      ECCM_STAB *   ‘  0     ECCM_STAB%DIMXMAX+GRIDSET *   Á  0     ECCM_STAB%DIMXMIN+GRIDSET )   ñ  0     ECCM_STAB%SPCNUM+GRIDSET *   !  0     ECCM_STAB%DIMZMAX+GRIDSET *   Q  0     ECCM_STAB%DIMZMIN+GRIDSET &     8      ECCM_STAB%DOT_PRODUCT %   ¹  ,  a   ECCM_STAB%XZ_POTTEMP #   å  ,  a   ECCM_STAB%XZ_EXNER $      „  a   ECCM_STAB%XZA_MIXRT "   •!  ,  a   ECCM_STAB%XZ_STAB &   Á"  ,  a   ECCM_STAB%XZ_STABTEMP '   í#  ,  a   ECCM_STAB%XZ_STABMOLWT    %  Ğ       ECCM_DRY    é%  0      ECCM_DRY%MAX %   &  8      ECCM_DRY%DOT_PRODUCT    Q&  0      ECCM_DRY%SUM $   &  €   a   ECCM_DRY%A_MOLFRINI "   '  0   a   ECCM_DRY%HUMIDITY     1'  ¤   a   ECCM_DRY%Z_TEMP !   Õ'  ¤   a   ECCM_DRY%Z_PRESS %   y(  ¤   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 $   +  €   a   ECCM_WET%A_MOLFRINI "   ,  0   a   ECCM_WET%HUMIDITY     =,  ¤   a   ECCM_WET%Z_TEMP !   á,  ¤   a   ECCM_WET%Z_PRESS %   …-  ¤   a   ECCM_WET%Z_MOLWTMEAN "   ).    a   ECCM_WET%ZA_MOLFR "   1/  0      SPCNUM+GRIDSET_3D +   a/  0      DIMZMIN+Z_BASE_MODULE=KMIN +   ‘/  0      DIMZMAX+Z_BASE_MODULE=KMAX 