    9   k820309    M          9.1         H                                                                                                       
       heatflux_3d.f90 HEATFLUX_3D          XYZ_HEATFLUXBULK gen@PYZ_MOMFLUXBULK gen@XQZ_MOMFLUXBULK                                          
       DIMXMIN DIMXMAX DIMYMIN DIMYMAX DIMZMIN DIMZMAX REGZMIN Z_DZ                                          
       XYZ_EXNERBASICZ XYZ_POTTEMPBASICZ TEMPSFC PRESSSFC CPDRY GASRDRY                                          
       XYZ_AVR_PYZ XYZ_AVR_XQZ                  @                       
       SVAPPRESS                  @                       
       STOREPOTTEMPFLUX                                            u #AAZ_MOMFLUXBULK    (    `   @X                                             
#AAZ_MOMFLUXBULK%ABS    #AAZ_MOMFLUXBULK%MAX    #VEL 	       5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                        @                         ABS           @                         MAX      
   @                     	            
        5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                                                         u #AAZ_MOMFLUXBULK                                              u #XAA_AVR_PAA    (    `   @                                            
#PAA_VAR        5 r      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    5 r    p        5 r    5 r    p        5 r    5 r    p                   
   @                                 
 
       5 r      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    5 r    p        5 r    5 r    p        5 r    5 r    p                                                        u #AYA_AVR_AQA    (    `   @                                            
#AQA_VAR        5 r      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    5 r    p        5 r    5 r    p        5 r    5 r    p                   
   @                                 
        5 r      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    5 r    p        5 r    5 r    p        5 r    5 r    p              %     @                                          
   #SVAPPRESS%MIN !   #SVAPPRESS%DLOG "   #SVAPPRESS%DEXP #   #ID $   #TEMP %             @                    !     MIN           @                    "     DLOG           @                    #     DEXP       
   @                      $             
   @                     %     
  #     @                         &                  #DIMZMAX    #DIMZMIN 
   #DIMYMAX    #DIMYMIN    #DIMXMAX    #DIMXMIN    #WORK '            @                                      @                     
                 @                                      @                                      @                                      @                                  
   @                     '            
        5 r (     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 +   5 r ,   p        5 r )   5 r *   p        5 r -   5 r (   p              (    `  @                    .           
               
#XYZ_HEATFLUXBULK%SQRT /   #XYZ_HEATFLUXBULK%MAX 0   #XYZ_POTTEMP 1   #PYZ_VELX 2   #XQZ_VELY 3       5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                        @                    /     SQRT           @                    0     MAX      
   @                     1            
        5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                   
@ @@                     2            
        5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                   
@ @@                     3            
        5 r 
     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    5 r    p        5 r    5 r    p        5 r    5 r 
   p                       @                     (                 @                     -                 @                     *                 @                     )                 @                     ,                 @                     +                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  $      fn#fn !      E   b   uapp(HEATFLUX_3D      q   J  GRIDSET_3D    v  u   J  BASICSET_3D      L   J  XYZ_MODULE    7  >   J  CHEMCALC     u  E   J  STOREPOTTEMP_3D $     I       gen@PYZ_MOMFLUXBULK            AAZ_MOMFLUXBULK $     0      AAZ_MOMFLUXBULK%ABS $   .  0      AAZ_MOMFLUXBULK%MAX $   ^    a   AAZ_MOMFLUXBULK%VEL $     I       gen@XQZ_MOMFLUXBULK +   [  E       gen@XYZ_AVR_PYZ+XYZ_MODULE 8          XAA_AVR_PAA+XYZ_BASE_MODULE=XAA_AVR_PAA 4   m	    e   XAA_AVR_PAA%PAA_VAR+XYZ_BASE_MODULE +   !  E       gen@XYZ_AVR_XQZ+XYZ_MODULE 8   f       AYA_AVR_AQA+XYZ_BASE_MODULE=AYA_AVR_AQA 4   3    e   AYA_AVR_AQA%AQA_VAR+XYZ_BASE_MODULE #            SVAPPRESS+CHEMCALC +   t  0      SVAPPRESS%MIN+CHEMCALC=MIN -     1      SVAPPRESS%DLOG+CHEMCALC=DLOG -     1      SVAPPRESS%DEXP+CHEMCALC=DEXP &     0   e   SVAPPRESS%ID+CHEMCALC (   6  0   e   SVAPPRESS%TEMP+CHEMCALC 1   f         STOREPOTTEMPFLUX+STOREPOTTEMP_3D +     0     DIMZMAX+Z_BASE_MODULE=KMAX +   *  0     DIMZMIN+Z_BASE_MODULE=KMIN +   Z  0     DIMYMAX+Y_BASE_MODULE=JMAX +     0     DIMYMIN+Y_BASE_MODULE=JMIN +     0     DIMXMAX+X_BASE_MODULE=IMAX +     0     DIMXMIN+X_BASE_MODULE=IMIN 6       e   STOREPOTTEMPFLUX%WORK+STOREPOTTEMP_3D !     (      XYZ_HEATFLUXBULK &     1      XYZ_HEATFLUXBULK%SQRT %   '  0      XYZ_HEATFLUXBULK%MAX -   W    a   XYZ_HEATFLUXBULK%XYZ_POTTEMP *       a   XYZ_HEATFLUXBULK%PYZ_VELX *       a   XYZ_HEATFLUXBULK%XQZ_VELY +   s  0      DIMZMIN+Z_BASE_MODULE=KMIN +     0      DIMZMAX+Z_BASE_MODULE=KMAX +     0      DIMYMIN+Y_BASE_MODULE=JMIN +     0      DIMYMAX+Y_BASE_MODULE=JMAX +   3  0      DIMXMIN+X_BASE_MODULE=IMIN +   c  0      DIMXMAX+X_BASE_MODULE=IMAX /     0     AYA_AVR_AQA%KMIN+Z_BASE_MODULE /     0     AYA_AVR_AQA%KMAX+Z_BASE_MODULE /     0     AYA_AVR_AQA%JMIN+Y_BASE_MODULE /   #  0     AYA_AVR_AQA%JMAX+Y_BASE_MODULE /   S  0     AYA_AVR_AQA%IMIN+X_BASE_MODULE /     0     AYA_AVR_AQA%IMAX+X_BASE_MODULE /     0     XAA_AVR_PAA%KMIN+Z_BASE_MODULE /     0     XAA_AVR_PAA%KMAX+Z_BASE_MODULE /     0     XAA_AVR_PAA%JMIN+Y_BASE_MODULE /   C  0     XAA_AVR_PAA%JMAX+Y_BASE_MODULE /   s  0     XAA_AVR_PAA%IMIN+X_BASE_MODULE /     0     XAA_AVR_PAA%IMAX+X_BASE_MODULE 