  ÈF  z   k820309    M          9.1         úçxH                                                                                                       
       warmrainprm.f90 WARMRAINPRM          WARMRAINPRM_INIT XZ_RAIN2GASHEAT XZ_RAIN2GASHEATNH4SH XZA_RAIN2GAS XZA_RAIN2GASNH4SH XZA_CLOUD2RAIN XZA_FALLRAIN                  @                       
       MESSAGENOTIFY      @       €                           
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX SPCNUM                                          
       PRESSBASIS CPDRY MOLWTWET MOLWTDRY SPCWETID XZ_DENSBASICZ XZ_POTTEMPBASICZ XZ_EXNERBASICZ XZ_EFFMOLWTBASICZ XZA_MIXRTBASICZ GASRDRY                                          
       CONDNUM IDXCG IDXCC IDXCR CLOUDNUM RAINNUM IDXC IDXR IDXNH3 IDXH2S IDXNH4SHR                  @                       
       XZ_AVR_XR                  @                       
       XR_DZ_XZ                  @                       
       XZ_SVAPPRESS XZ_LATENTHEAT REACTHEATNH4SH                  @                       
       XZ_DELMIXRTNH4SH                  @                  	     
       STOREMIXRTRAIN            €                              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 (    `                      &                          
#SPCNUM '   #DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #XR_VAR ,     5 r -     5 r .   5 r /   p    5 r /     & 5 r /   5 r .     & 5 r -   5 r 0         5 r .   5 r /   p        5 r 0   5 r -   p                    @  @                     '                 @                     (                 @                     )                 @                     *                 @                     +             
   @                     ,            
      5 r -     5 r .   5 r /   p    5 r /     & 5 r /   5 r .     & 5 r -   5 r 0         5 r .   5 r /   p        5 r 0   5 r -   p              (    `                      1                          
#SPCNUM '   #DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #XZ_VAR 2     5 r 3     5 r 4   5 r 5   p    5 r 5     & 5 r 5   5 r 4     & 5 r 3   5 r 6         5 r 4   5 r 5   p        5 r 6   5 r 3   p                   
   @                     2            
      5 r 3     5 r 4   5 r 5   p    5 r 5     & 5 r 5   5 r 4     & 5 r 3   5 r 6         5 r 4   5 r 5   p        5 r 6   5 r 3   p              (    `                      7                         
#SPCNUM '   #DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #XZ_SVAPPRESS%MIN 8   #XZ_SVAPPRESS%DLOG 9   #XZ_SVAPPRESS%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                        @                    8     MIN           @                    9     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              (    `                      A           $               
#SPCNUM '   #DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #ID B   #XZ_TEMP 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                    
   @                      B            
   @                     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     
   (    `                      E                         
#DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #XZ_DELMIXRTNH4SH%DLOG F   #XZ_DELMIXRTNH4SH%SUM G   #XZ_DELMIXRTNH4SH%DSQRT H   #XZ_DELMIXRTNH4SH%DEXP I   #XZ_DELMIXRTNH4SH%MIN J   #XZ_TEMPALL K   #XZ_PRESSALL L   #XZ_MIXRTNH3 M   #XZ_MIXRTH2S N   #MOLWTNH3 O   #MOLWTH2S 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                        @                    F     DLOG           @                    G     SUM           @                    H     DSQRT           @                    I     DEXP           @                    J     MIN      
   @                     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                   
   @                     L            
      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                   
   @                     M            
      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                   
   @                     N            
 	     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                    
   @                     O     
        
   @                     P     
  #     @                         Q                  #SPCNUM '   #DIMZMAX (   #DIMZMIN )   #DIMXMAX *   #DIMXMIN +   #WORK R        
   @                     R            
        p      5 r S   5 r T   p    5 r T     5 r U   5 r V   p    5 r V     & 5 r V   5 r U     & 5 r T   5 r S     5 r W         5 r U   5 r V   p        5 r S   5 r T   p      5 r W             #     @                          X                   #CFGFILE Y         
   @                     Y            1 (    `                       Z                          
#XZ_RAIN2GASHEAT%SUM [   #XZ_POTTEMP \   #XZ_EXNER ]   #XZA_DELMIXRT ^     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                        @                    [     SUM      
   @                     \            
      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                   
   @                     ^            
        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 '             (    `                       _                           
#XZ_EXNER `   #XZA_DELMIXRT 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                   
   @                     `            
      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                   
   @                     a            
        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 '             (    `                       b           	               
#XZA_RAIN2GAS%MIN c   #XZA_RAIN2GAS%MAX d   #XZ_EXNER e   #XZ_POTTEMP f   #XZA_MIXRT g   #DELTIME h       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 '                       @                    c     MIN           @                    d     MAX      
   @                     e            
      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                   
   @                     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                   
   @                     g            
        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 '                     @                     h     
   (    `                       i                          
#XZA_RAIN2GASNH4SH%MIN j   #XZA_RAIN2GASNH4SH%MAX k   #XZ_EXNER l   #XZ_POTTEMP m   #XZA_MIXRT n   #DELTIME o       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 '                       @                    j     MIN           @                    k     MAX      
   @                     l            
      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                   
   @                     m            
 
     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                   
   @                     n            
        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 '                   
   @                     o     
  (    `                       p           %               
#XZA_CLOUD2RAIN%MIN q   #XZA_CLOUD2RAIN%MAX r   #XZA_MIXRT s   #DELTIME t       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 '                       @                    q     MIN           @                    r     MAX      
   @                     s            
         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 '                     @                     t     
   (    `  @                    u           *               
#XZA_FALLRAIN%MAX v   #XZA_MIXRT w       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 '                       @                    v     MAX      
   @                     w            
 &       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 '                   @  @                     W                 @                     T                 @                     S                 @                     V                 @                     U                 @                     =                 @                     @                 @                     ?                 @                     >                 @                     3                 @                     6                 @                     5                 @                     4                 @                     -                 @                     0                 @                     /                 @                     .           œ   $      fn#fn !   À   }   b   uapp(WARMRAINPRM    =  B   J  DC_MESSAGE      [   j  GRIDSET    Ú  ¸   J  BASICSET    ’     J  MOISTSET      >   J  AVERAGE &   Q  =   J  DIFFERENTIATE_CENTER2    Ž  ^   J  CHEMCALC    ì  E   J  MOISTFUNC    1  C   J  STOREMIXRT -   t  \       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   ,  8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,   d  `   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 -   D  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   P	  ¿      MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   
  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1   C
  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   s
  8   e   MESSAGENOTIFYI%WHERE+DC_MESSAGE 2   «
  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,   ã
  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   C  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   £  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   c  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   Ã  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   û  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   3  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   k  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE "   Ï  „      XZ_AVR_XR+AVERAGE    S  0     SPCNUM+GRIDSET     ƒ  0     DIMZMAX+GRIDSET     ³  0     DIMZMIN+GRIDSET     ã  0     DIMXMAX+GRIDSET       0     DIMXMIN+GRIDSET )   C  ,  e   XZ_AVR_XR%XR_VAR+AVERAGE /   o  „      XR_DZ_XZ+DIFFERENTIATE_CENTER2 6   ó  ,  e   XR_DZ_XZ%XZ_VAR+DIFFERENTIATE_CENTER2 &     Ñ      XZ_SVAPPRESS+CHEMCALC .   ð  0      XZ_SVAPPRESS%MIN+CHEMCALC=MIN 0      1      XZ_SVAPPRESS%DLOG+CHEMCALC=DLOG 0   Q  1      XZ_SVAPPRESS%DEXP+CHEMCALC=DEXP )   ‚  0   e   XZ_SVAPPRESS%ID+CHEMCALC .   ²  ,  e   XZ_SVAPPRESS%XZ_TEMP+CHEMCALC '   Þ        XZ_LATENTHEAT+CHEMCALC *   k  0   e   XZ_LATENTHEAT%ID+CHEMCALC /   ›  ,  e   XZ_LATENTHEAT%XZ_TEMP+CHEMCALC (   Ç  0       REACTHEATNH4SH+CHEMCALC +   ÷  Q      XZ_DELMIXRTNH4SH+MOISTFUNC 5   H  1      XZ_DELMIXRTNH4SH%DLOG+MOISTFUNC=DLOG 3   y  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   h  ,  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 *   L#  †       STOREMIXRTRAIN+STOREMIXRT /   Ò#  „  e   STOREMIXRTRAIN%WORK+STOREMIXRT !   V%  I       WARMRAINPRM_INIT )   Ÿ%  8   a   WARMRAINPRM_INIT%CFGFILE     ×%        XZ_RAIN2GASHEAT $   X'  0      XZ_RAIN2GASHEAT%SUM +   ˆ'  ,  a   XZ_RAIN2GASHEAT%XZ_POTTEMP )   ´(  ,  a   XZ_RAIN2GASHEAT%XZ_EXNER -   à)  „  a   XZ_RAIN2GASHEAT%XZA_DELMIXRT %   d+  X      XZ_RAIN2GASHEATNH4SH .   ¼,  ,  a   XZ_RAIN2GASHEATNH4SH%XZ_EXNER 2   è-  „  a   XZ_RAIN2GASHEATNH4SH%XZA_DELMIXRT    l/  ö      XZA_RAIN2GAS !   b1  0      XZA_RAIN2GAS%MIN !   ’1  0      XZA_RAIN2GAS%MAX &   Â1  ,  a   XZA_RAIN2GAS%XZ_EXNER (   î2  ,  a   XZA_RAIN2GAS%XZ_POTTEMP '   4  „  a   XZA_RAIN2GAS%XZA_MIXRT %   ž5  0   a   XZA_RAIN2GAS%DELTIME "   Î5         XZA_RAIN2GASNH4SH &   Î7  0      XZA_RAIN2GASNH4SH%MIN &   þ7  0      XZA_RAIN2GASNH4SH%MAX +   .8  ,  a   XZA_RAIN2GASNH4SH%XZ_EXNER -   Z9  ,  a   XZA_RAIN2GASNH4SH%XZ_POTTEMP ,   †:  „  a   XZA_RAIN2GASNH4SH%XZA_MIXRT *   
<  0   a   XZA_RAIN2GASNH4SH%DELTIME    :<  Ü      XZA_CLOUD2RAIN #   >  0      XZA_CLOUD2RAIN%MIN #   F>  0      XZA_CLOUD2RAIN%MAX )   v>  „  a   XZA_CLOUD2RAIN%XZA_MIXRT '   ú?  0   a   XZA_CLOUD2RAIN%DELTIME    *@  º      XZA_FALLRAIN !   äA  0      XZA_FALLRAIN%MAX '   B  „  a   XZA_FALLRAIN%XZA_MIXRT &   ˜C  0      SPCNUM+GRIDSET=SPCNUM (   ÈC  0      DIMZMIN+GRIDSET=DIMZMIN (   øC  0      DIMZMAX+GRIDSET=DIMZMAX (   (D  0      DIMXMIN+GRIDSET=DIMXMIN (   XD  0      DIMXMAX+GRIDSET=DIMXMAX (   ˆD  0      DIMZMIN+GRIDSET=DIMZMIN (   ¸D  0      DIMZMAX+GRIDSET=DIMZMAX (   èD  0      DIMXMIN+GRIDSET=DIMXMIN (   E  0      DIMXMAX+GRIDSET=DIMXMAX (   HE  0      DIMZMIN+GRIDSET=DIMZMIN (   xE  0      DIMZMAX+GRIDSET=DIMZMAX (   ¨E  0      DIMXMIN+GRIDSET=DIMXMIN (   ØE  0      DIMXMAX+GRIDSET=DIMXMAX (   F  0      DIMZMIN+GRIDSET=DIMZMIN (   8F  0      DIMZMAX+GRIDSET=DIMZMAX (   hF  0      DIMXMIN+GRIDSET=DIMXMIN (   ˜F  0      DIMXMAX+GRIDSET=DIMXMAX 