  =-  [   k820309    M          9.1         üçxH                                                                                                       
       moistbuoyancy.f90 MOISTBUOYANCY          MOISTBUOY_INIT XZ_BUOYMOISTKM XR_BUOYMOLWT XR_BUOYDRAG                  @                       
       MESSAGENOTIFY      @       €                           
       SPCNUM DIMXMIN DIMXMAX DIMZMIN DIMZMAX DELX DELZ                                          
  	     MOLWTDRY GRAV SPCWETID MOLWTWET CPDRY XZ_POTTEMPBASICZ XZ_EFFMOLWTBASICZ XZ_EXNERBASICZ XZA_MIXRTBASICZ                                          
       CONDNUM IDXCG IDXCC GASNUM IDXG IDXNH3 IDXH2S                  @                       
       XZ_LATENTHEAT REACTHEATNH4SH                  @                       
       XR_AVR_XZ XZ_AVR_XR                  @                       
       XR_DZ_XZ                  @                       
       STOREBUOYMOLWT STOREBUOYDRAG            €                              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 (    `                      %           $               
#GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #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                      @                     &                 @                     '                 @                     (                 @                     )                 @                     *              @  @                     +              
   @                      ,            
   @                     -            
 "     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     
   (    `                      3                          
#GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #XZ_VAR 4     5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p                   
   @                     4            
      5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p              (    `                      9                          
#GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #XR_VAR :     5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p                   
   @                     :            
      5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p              (    `                      ;                          
#GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #XZ_VAR <     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                  #GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #XZ_WORK B        
   @                     B            
 	     5 r C     5 r D   5 r E   p    5 r E     & 5 r E   5 r D     & 5 r C   5 r F         5 r D   5 r E   p        5 r F   5 r C   p              #     @                         G                  #GASNUM &   #DIMZMAX '   #DIMZMIN (   #DIMXMAX )   #DIMXMIN *   #SPCNUM +   #XZ_WORK H        
   @                     H            
      5 r C     5 r D   5 r E   p    5 r E     & 5 r E   5 r D     & 5 r C   5 r F         5 r D   5 r E   p        5 r F   5 r C   p              #     @                          I                   #MOISTBUOY_INIT%SUM J   #MOISTBUOY_INIT%SQRT K   #MOISTBUOY_INIT%PACK L             @                    J     SUM           @                    K     SQRT           @                    L     PACK (    `                       M                          
#XZ_BUOYMOISTKM%SIGN N   #XZ_BUOYMOISTKM%SUM O   #XZ_POTTEMP P   #XZ_EXNER Q   #XZA_MIXRT R     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     SIGN           @                    O     SUM      
   @                     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                   
   @                     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                   
  @@                     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 +             (    `  @                    S                          
#XR_BUOYMOLWT%SUM T   #XZA_MIXRT U     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                        @                    T     SUM      
   @                     U            
        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                          
#XR_BUOYDRAG%SUM W   #XZA_MIXRT X     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                        @                    W     SUM      
   @                     X            
        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                 @                     F                 @                     E                 @                     D                 @                     =                 @                     @                 @                     ?                 @                     >                 @                     5                 @                     8                 @                     7                 @                     6                 @                     .                 @                     1                 @                     0                 @                     /           œ   (      fn#fn #   Ä   C   b   uapp(MOISTBUOYANCY      B   J  DC_MESSAGE    I  e   j  GRIDSET    ®  œ   J  BASICSET    J  b   j  MOISTSET    ¬  Q   J  CHEMCALC    ı  H   J  AVERAGE &   E  =   J  DIFFERENTIATE_CENTER2    ‚  Q   J  STOREBUOY -   Ó  \       gen@MESSAGENOTIFY+DC_MESSAGE 9   /  »      MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   ê  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0     8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0   S  8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2   ‹  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 ,   C  `   e   MESSAGENOTIFYC%N+DC_MESSAGE -   £  8   e   MESSAGENOTIFYC%C1+DC_MESSAGE -   Û  8   e   MESSAGENOTIFYC%C2+DC_MESSAGE -     8   e   MESSAGENOTIFYC%C3+DC_MESSAGE -   K  d   e   MESSAGENOTIFYC%CA+DC_MESSAGE 9   ¯  ¿      MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   n	  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 ,   B
  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   ¢
  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   b  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   Â  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   "  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   Z  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   ’  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   Ê  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE '   .  ™      XZ_LATENTHEAT+CHEMCALC     Ç  0     GASNUM+MOISTSET     ÷  0     DIMZMAX+GRIDSET     '  0     DIMZMIN+GRIDSET     W  0     DIMXMAX+GRIDSET     ‡  0     DIMXMIN+GRIDSET    ·  0     SPCNUM+GRIDSET *   ç  0   e   XZ_LATENTHEAT%ID+CHEMCALC /     ,  e   XZ_LATENTHEAT%XZ_TEMP+CHEMCALC (   C  0       REACTHEATNH4SH+CHEMCALC "   s        XR_AVR_XZ+AVERAGE )     ,  e   XR_AVR_XZ%XZ_VAR+AVERAGE "   /        XZ_AVR_XR+AVERAGE )   ¿  ,  e   XZ_AVR_XR%XR_VAR+AVERAGE /   ë        XR_DZ_XZ+DIFFERENTIATE_CENTER2 6   {  ,  e   XR_DZ_XZ%XZ_VAR+DIFFERENTIATE_CENTER2 )   §  •       STOREBUOYMOLWT+STOREBUOY 1   <  ,  e   STOREBUOYMOLWT%XZ_WORK+STOREBUOY (   h  •       STOREBUOYDRAG+STOREBUOY 0   ı  ,  e   STOREBUOYDRAG%XZ_WORK+STOREBUOY    )  †       MOISTBUOY_INIT #   ¯  0      MOISTBUOY_INIT%SUM $   ß  1      MOISTBUOY_INIT%SQRT $     1      MOISTBUOY_INIT%PACK    A  –      XZ_BUOYMOISTKM $   ×  1      XZ_BUOYMOISTKM%SIGN #      0      XZ_BUOYMOISTKM%SUM *   8   ,  a   XZ_BUOYMOISTKM%XZ_POTTEMP (   d!  ,  a   XZ_BUOYMOISTKM%XZ_EXNER )   "  „  a   XZ_BUOYMOISTKM%XZA_MIXRT    $  a      XR_BUOYMOLWT !   u%  0      XR_BUOYMOLWT%SUM '   ¥%  „  a   XR_BUOYMOLWT%XZA_MIXRT    )'  `      XR_BUOYDRAG     ‰(  0      XR_BUOYDRAG%SUM &   ¹(  „  a   XR_BUOYDRAG%XZA_MIXRT (   =*  0      DIMZMIN+GRIDSET=DIMZMIN (   m*  0      DIMZMAX+GRIDSET=DIMZMAX (   *  0      DIMXMIN+GRIDSET=DIMXMIN (   Í*  0      DIMXMAX+GRIDSET=DIMXMAX (   ı*  0      DIMZMIN+GRIDSET=DIMZMIN (   -+  0      DIMZMAX+GRIDSET=DIMZMAX (   ]+  0      DIMXMIN+GRIDSET=DIMXMIN (   +  0      DIMXMAX+GRIDSET=DIMXMAX (   ½+  0      DIMZMIN+GRIDSET=DIMZMIN (   í+  0      DIMZMAX+GRIDSET=DIMZMAX (   ,  0      DIMXMIN+GRIDSET=DIMXMIN (   M,  0      DIMXMAX+GRIDSET=DIMXMAX (   },  0      DIMZMIN+GRIDSET=DIMZMIN (   ­,  0      DIMZMAX+GRIDSET=DIMZMAX (   İ,  0      DIMXMIN+GRIDSET=DIMXMIN (   -  0      DIMXMAX+GRIDSET=DIMXMAX 