  +  U   k820309    M          9.1         H                                                                                                       
       moistadjust.f90 MOISTADJUST          MOISTADJUSTSVAPPRESS MOISTADJUSTNH4SH                  @                       
       MESSAGENOTIFY      @                                  
       SPCNUM DIMXMIN DIMXMAX DIMZMIN DIMZMAX                                          
  
     MOLWTWET SPCWETID XZ_EXNERBASICZ XZ_POTTEMPBASICZ XZ_EFFMOLWTBASICZ XZA_MIXRTBASICZ PRESSBASIS CPDRY MOLWTDRY GASRDRY                                          
       CONDNUM IDXCG IDXCC IDXNH3 IDXH2S IDXNH4SHC                  @                       
       XZ_SVAPPRESS XZ_LATENTHEAT REACTHEATNH4SH                  @                       
       XZ_DMIXRTSATDPOTTEMP XZ_DELMIXRTNH4SH                                           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 (    `                      #                         
#DIMZMAX $   #DIMZMIN %   #DIMXMAX &   #DIMXMIN '   #SPCNUM (   #XZ_SVAPPRESS%MIN )   #XZ_SVAPPRESS%DLOG *   #XZ_SVAPPRESS%DEXP +   #ID ,   #XZ_TEMP -     5 r .     5 r /   5 r 0   p    5 r 0     & 5 r 0   5 r /     & 5 r .   5 r 1         5 r /   5 r 0   p        5 r 1   5 r .   p                       @                     $                 @                     %                 @                     &                 @                     '              @  @                     (                  @                    )     MIN           @                    *     DLOG           @                    +     DEXP       
   @                      ,            
   @                     -            
      5 r .     5 r /   5 r 0   p    5 r 0     & 5 r 0   5 r /     & 5 r .   5 r 1         5 r /   5 r 0   p        5 r 1   5 r .   p              (    `                      2           $               
#DIMZMAX $   #DIMZMIN %   #DIMXMAX &   #DIMXMIN '   #SPCNUM (   #ID 3   #XZ_TEMP 4     5 r .     5 r /   5 r 0   p    5 r 0     & 5 r 0   5 r /     & 5 r .   5 r 1         5 r /   5 r 0   p        5 r 1   5 r .   p                    
   @                      3            
   @                     4            
 "     5 r .     5 r /   5 r 0   p    5 r 0     & 5 r 0   5 r /     & 5 r .   5 r 1         5 r /   5 r 0   p        5 r 1   5 r .   p                          !                   5     
   (    `                      6                          
#DIMZMAX $   #DIMZMIN %   #DIMXMAX &   #DIMXMIN '   #SPCNUM (   #SPCID 7   #MOLWT 8   #XZ_TEMPALL 9   #XZ_EXNERALL :     5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                    
   @                      7             
   @                     8     
       
   @                     9            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
   @                     :            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p              (    `                      ;                         
#DIMZMAX $   #DIMZMIN %   #DIMXMAX &   #DIMXMIN '   #SPCNUM (   #XZ_DELMIXRTNH4SH%DLOG <   #XZ_DELMIXRTNH4SH%SUM =   #XZ_DELMIXRTNH4SH%DSQRT >   #XZ_DELMIXRTNH4SH%DEXP ?   #XZ_DELMIXRTNH4SH%MIN @   #XZ_TEMPALL A   #XZ_PRESSALL B   #XZ_MIXRTNH3 C   #XZ_MIXRTH2S D   #MOLWTNH3 E   #MOLWTH2S F     5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                        @                    <     DLOG           @                    =     SUM           @                    >     DSQRT           @                    ?     DEXP           @                    @     MIN      
   @                     A            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
   @                     B            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
   @                     C            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
   @                     D            
 	     5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                    
   @                     E     
        
   @                     F     
  #     @                          G                  #MOISTADJUSTSVAPPRESS%MIN H   #MOISTADJUSTSVAPPRESS%MAX I   #XZ_EXNER J   #XZ_POTTEMP K   #XZA_MIXRT L             @                    H     MIN           @                    I     MAX      
   @                     J            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
D  @                     K            
       5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        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 &     & 5 r %   5 r $     5 r (         5 r &   5 r '   p        5 r $   5 r %   p      5 r (             #     @                          M                  #MOISTADJUSTNH4SH%MIN N   #MOISTADJUSTNH4SH%MAX O   #XZ_EXNER P   #XZ_POTTEMP Q   #XZA_MIXRT R             @                    N     MIN           @                    O     MAX      
   @                     P            
      5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
D  @                     Q            
       5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $         5 r &   5 r '   p        5 r $   5 r %   p                   
D  @                     R            
         p      5 r $   5 r %   p    5 r %     5 r &   5 r '   p    5 r '     & 5 r '   5 r &     & 5 r %   5 r $     5 r (         5 r &   5 r '   p        5 r $   5 r %   p      5 r (                      @                     .                 @                     1                 @                     0                 @                     /              $      fn#fn !      2   b   uapp(MOISTADJUST       B   J  DC_MESSAGE    4  [   j  GRIDSET         J  BASICSET    9  `   J  MOISTSET      ^   J  CHEMCALC      Z   J  MOISTFUNC -   Q  \       gen@MESSAGENOTIFY+DC_MESSAGE 9           MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   h  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0     8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0     8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2   	  8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,   A  `   e   MESSAGENOTIFYC%I+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%R+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%D+DC_MESSAGE ,   a  `   e   MESSAGENOTIFYC%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%N+DC_MESSAGE -   !  8   e   MESSAGENOTIFYC%C1+DC_MESSAGE -   Y  8   e   MESSAGENOTIFYC%C2+DC_MESSAGE -     8   e   MESSAGENOTIFYC%C3+DC_MESSAGE -     d   e   MESSAGENOTIFYC%CA+DC_MESSAGE 9   -        MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :     4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1    	  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   P	  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 -     8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   H  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE &           XZ_SVAPPRESS+CHEMCALC     }  0     DIMZMAX+GRIDSET       0     DIMZMIN+GRIDSET       0     DIMXMAX+GRIDSET       0     DIMXMIN+GRIDSET    =  0     SPCNUM+GRIDSET .   m  0      XZ_SVAPPRESS%MIN+CHEMCALC=MIN 0     1      XZ_SVAPPRESS%DLOG+CHEMCALC=DLOG 0     1      XZ_SVAPPRESS%DEXP+CHEMCALC=DEXP )     0   e   XZ_SVAPPRESS%ID+CHEMCALC .   /  ,  e   XZ_SVAPPRESS%XZ_TEMP+CHEMCALC '   [        XZ_LATENTHEAT+CHEMCALC *     0   e   XZ_LATENTHEAT%ID+CHEMCALC /     ,  e   XZ_LATENTHEAT%XZ_TEMP+CHEMCALC (   D  0       REACTHEATNH4SH+CHEMCALC /   t        XZ_DMIXRTSATDPOTTEMP+MOISTFUNC 5   #  0   e   XZ_DMIXRTSATDPOTTEMP%SPCID+MOISTFUNC 5   S  0   e   XZ_DMIXRTSATDPOTTEMP%MOLWT+MOISTFUNC :     ,  e   XZ_DMIXRTSATDPOTTEMP%XZ_TEMPALL+MOISTFUNC ;     ,  e   XZ_DMIXRTSATDPOTTEMP%XZ_EXNERALL+MOISTFUNC +     ]      XZ_DELMIXRTNH4SH+MOISTFUNC 5   8  1      XZ_DELMIXRTNH4SH%DLOG+MOISTFUNC=DLOG 3   i  0      XZ_DELMIXRTNH4SH%SUM+MOISTFUNC=SUM 7     2      XZ_DELMIXRTNH4SH%DSQRT+MOISTFUNC=DSQRT 5     1      XZ_DELMIXRTNH4SH%DEXP+MOISTFUNC=DEXP 3     0      XZ_DELMIXRTNH4SH%MIN+MOISTFUNC=MIN 6   ,  ,  e   XZ_DELMIXRTNH4SH%XZ_TEMPALL+MOISTFUNC 7   X  ,  e   XZ_DELMIXRTNH4SH%XZ_PRESSALL+MOISTFUNC 7     ,  e   XZ_DELMIXRTNH4SH%XZ_MIXRTNH3+MOISTFUNC 7     ,  e   XZ_DELMIXRTNH4SH%XZ_MIXRTH2S+MOISTFUNC 4      0   e   XZ_DELMIXRTNH4SH%MOLWTNH3+MOISTFUNC 4   !  0   e   XZ_DELMIXRTNH4SH%MOLWTH2S+MOISTFUNC %   <!         MOISTADJUSTSVAPPRESS )   !  0      MOISTADJUSTSVAPPRESS%MIN )   "  0      MOISTADJUSTSVAPPRESS%MAX .   A"  ,  a   MOISTADJUSTSVAPPRESS%XZ_EXNER 0   m#  ,  a   MOISTADJUSTSVAPPRESS%XZ_POTTEMP /   $    a   MOISTADJUSTSVAPPRESS%XZA_MIXRT !   &         MOISTADJUSTNH4SH %   &  0      MOISTADJUSTNH4SH%MIN %   &  0      MOISTADJUSTNH4SH%MAX *   '  ,  a   MOISTADJUSTNH4SH%XZ_EXNER ,   F(  ,  a   MOISTADJUSTNH4SH%XZ_POTTEMP +   r)    a   MOISTADJUSTNH4SH%XZA_MIXRT (   *  0      DIMZMIN+GRIDSET=DIMZMIN (   &+  0      DIMZMAX+GRIDSET=DIMZMAX (   V+  0      DIMXMIN+GRIDSET=DIMXMIN (   +  0      DIMXMAX+GRIDSET=DIMXMAX 