  Z  /   k820309    M          9.1         xH                                                                                                       
       moistfunc.f90 MOISTFUNC          XZ_DMIXRTSATDPOTTEMP XZ_DELMIXRTNH4SH DELMOLFRNH4SH      @                                  
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX                                          
       PRESSBASIS CPDRY MOLWTDRY GASRDRY                  @                       
       XZ_DSVAPPRESSDTEMP (    `                                                
#DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #XZ_DSVAPPRESSDTEMP%MIN 	   #XZ_DSVAPPRESSDTEMP%DLOG 
   #XZ_DSVAPPRESSDTEMP%DEXP    #ID    #XZ_TEMP      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                       @                                      @                                      @                                      @                                       @                    	     MIN           @                    
     DLOG           @                         DEXP       
   @                                  
   @                                 
      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              (    `                                                  
#SPCID    #MOLWT    #XZ_TEMPALL    #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                    
  @@                                   
   @                          
       
  @@                                 
      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              (    `                                                 
#XZ_DELMIXRTNH4SH%MIN    #XZ_DELMIXRTNH4SH%DEXP    #XZ_DELMIXRTNH4SH%DSQRT    #XZ_DELMIXRTNH4SH%SUM    #XZ_DELMIXRTNH4SH%DLOG    #XZ_TEMPALL    #XZ_PRESSALL    #XZ_MIXRTNH3    #XZ_MIXRTH2S     #MOLWTNH3 !   #MOLWTH2S "     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                        @                         MIN           @                         DEXP           @                         DSQRT           @                         SUM           @                         DLOG      
   @                                 
      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                   
   @                                 
      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                    
   @                     !     
        
   @                     "     
  %     @                       #                  
   #DELMOLFRNH4SH%MIN $   #DELMOLFRNH4SH%DEXP %   #DELMOLFRNH4SH%DSQRT &   #DELMOLFRNH4SH%SUM '   #DELMOLFRNH4SH%DLOG (   #TEMPALL )   #PRESSALL *   #MOLFRNH3 +   #MOLFRH2S ,   #HUMIDITY -             @                    $     MIN           @                    %     DEXP           @                    &     DSQRT           @                    '     SUM           @                    (     DLOG       
   @                     )     
        
   @                     *     
        
   @                     +     
        
   @                     ,     
        
  @@                     -     
           @                                      @                                      @                                      @                                          fn#fn       @   b   uapp(MOISTFUNC       T   j  GRIDSET    P  V   J  BASICSET      G   J  CHEMCALC ,           XZ_DSVAPPRESSDTEMP+CHEMCALC       0     DIMZMAX+GRIDSET       0     DIMZMIN+GRIDSET     $  0     DIMXMAX+GRIDSET     T  0     DIMXMIN+GRIDSET 4     0      XZ_DSVAPPRESSDTEMP%MIN+CHEMCALC=MIN 6     1      XZ_DSVAPPRESSDTEMP%DLOG+CHEMCALC=DLOG 6     1      XZ_DSVAPPRESSDTEMP%DEXP+CHEMCALC=DEXP /     0   e   XZ_DSVAPPRESSDTEMP%ID+CHEMCALC 4   F  ,  e   XZ_DSVAPPRESSDTEMP%XZ_TEMP+CHEMCALC %   r  o      XZ_DMIXRTSATDPOTTEMP +     0   a   XZ_DMIXRTSATDPOTTEMP%SPCID +     0   a   XZ_DMIXRTSATDPOTTEMP%MOLWT 0   A  ,  a   XZ_DMIXRTSATDPOTTEMP%XZ_TEMPALL 1   m	  ,  a   XZ_DMIXRTSATDPOTTEMP%XZ_EXNERALL !   
        XZ_DELMIXRTNH4SH %     0      XZ_DELMIXRTNH4SH%MIN &     1      XZ_DELMIXRTNH4SH%DEXP '     2      XZ_DELMIXRTNH4SH%DSQRT %   I  0      XZ_DELMIXRTNH4SH%SUM &   y  1      XZ_DELMIXRTNH4SH%DLOG ,     ,  a   XZ_DELMIXRTNH4SH%XZ_TEMPALL -     ,  a   XZ_DELMIXRTNH4SH%XZ_PRESSALL -     ,  a   XZ_DELMIXRTNH4SH%XZ_MIXRTNH3 -   .  ,  a   XZ_DELMIXRTNH4SH%XZ_MIXRTH2S *   Z  0   a   XZ_DELMIXRTNH4SH%MOLWTNH3 *     0   a   XZ_DELMIXRTNH4SH%MOLWTH2S             DELMOLFRNH4SH "     0      DELMOLFRNH4SH%MIN #     1      DELMOLFRNH4SH%DEXP $     2      DELMOLFRNH4SH%DSQRT "   I  0      DELMOLFRNH4SH%SUM #   y  1      DELMOLFRNH4SH%DLOG &     0   a   DELMOLFRNH4SH%TEMPALL '     0   a   DELMOLFRNH4SH%PRESSALL '   
  0   a   DELMOLFRNH4SH%MOLFRNH3 '   :  0   a   DELMOLFRNH4SH%MOLFRH2S '   j  0   a   DELMOLFRNH4SH%HUMIDITY (     0      DIMZMIN+GRIDSET=DIMZMIN (     0      DIMZMAX+GRIDSET=DIMZMAX (     0      DIMXMIN+GRIDSET=DIMXMIN (   *  0      DIMXMAX+GRIDSET=DIMXMAX 