  @  N   k820309    M          9.1         H                                                                                                       
       dynfunc.f90 DYNFUNC          XZ_ADVSCALAR XZ_ADVKM XZA_ADVSCALAR PZ_ADVVELX XR_ADVVELZ XR_BUOY PZ_GRADPI      @                                  
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX SPCNUM                  @                       
       DAMPSOUND                                          
       XZ_POTTEMPBASICZ XZ_EFFMOLWTBASICZ CPDRY GRAV                  @                       
       XZ_AVR_PZ XZ_AVR_XR PZ_AVR_XZ PZ_AVR_PR PR_AVR_XR PR_AVR_PZ XR_AVR_PR XR_AVR_XZ                  @                       
       STOREPOTTEMPADV                  @                       
       STOREMIXRTADV                  @                       
       STOREBUOYTEMP            !                        
   (    `                      	                          
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #PZ_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              (    `                                                
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #XR_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              (    `                                                
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #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              (    `                                                
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #PR_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              (    `                                 $               
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #XR_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              (    `                                 !               
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #PZ_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              (    `                                                
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #PR_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              (    `                                                 
#SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #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              #     @                         "                  #SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #WORK #        
   @                     #            
      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              #     @                         (                  #SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #WORK )        
   @                     )            
        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 .             #     @                         /                  #SPCNUM 
   #DIMZMAX    #DIMZMIN    #DIMXMAX    #DIMXMIN    #XZ_WORK 0        
   @                     0            
      5 r 1     5 r 2   5 r 3   p    5 r 3     & 5 r 3   5 r 2     & 5 r 1   5 r 4         5 r 2   5 r 3   p        5 r 4   5 r 1   p              (    `  @                    5                           
#XZ_VAR 6   #PZ_VELX 7   #XR_VELZ 8     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                   
  @@                     6            
      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            
      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            
      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              (    `                       9           
                
#XZ_VAR :   #PZ_VELX ;   #XR_VELZ <     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              (    `  @                    =                           
#XZA_VAR >   #PZ_VELX ?   #XR_VELZ @       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 
                  
   @                     >            
        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 
                  
   @                     ?            
      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                           
#PZ_VELX B   #XR_VELZ 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            
      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                           
#XR_VELZ E   #PZ_VELX 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                   
  @@                     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                           
#XZ_POTTEMP H     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                   
   @                     H            
      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              (    `                       I                            
#XZ_EXNER J   #PZ_VELX K   #XR_VELZ 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                   
  @@                     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                   
  @@                     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                       @                     1                 @                     4                 @                     3                 @                     2              @  @                     .                 @                     +                 @                     *                 @                     -                 @                     ,                 @                     $                 @                     '                 @                     &                 @                     %                 @                                      @                                      @                                      @                                         fn#fn       X   b   uapp(DYNFUNC      [   j  GRIDSET    k  >   J  DAMPING      b   J  BASICSET         J  AVERAGE      D   J  STOREPOTTEMP      B   J  STOREMIXRT      B   J  STOREBUOY "   W  0       DAMPSOUND+DAMPING "           XZ_AVR_PZ+AVERAGE      0     SPCNUM+GRIDSET     ;  0     DIMZMAX+GRIDSET     k  0     DIMZMIN+GRIDSET       0     DIMXMAX+GRIDSET       0     DIMXMIN+GRIDSET )     ,  e   XZ_AVR_PZ%PZ_VAR+AVERAGE "   '        XZ_AVR_XR+AVERAGE )     ,  e   XZ_AVR_XR%XR_VAR+AVERAGE "   	        PZ_AVR_XZ+AVERAGE )   [  ,  e   PZ_AVR_XZ%XZ_VAR+AVERAGE "           PZ_AVR_PR+AVERAGE )     ,  e   PZ_AVR_PR%PR_VAR+AVERAGE "   7        PR_AVR_XR+AVERAGE )     ,  e   PR_AVR_XR%XR_VAR+AVERAGE "           PR_AVR_PZ+AVERAGE )   k  ,  e   PR_AVR_PZ%PZ_VAR+AVERAGE "           XR_AVR_PR+AVERAGE )     ,  e   XR_AVR_PR%PR_VAR+AVERAGE "   G        XR_AVR_XZ+AVERAGE )     ,  e   XR_AVR_XZ%XZ_VAR+AVERAGE -            STOREPOTTEMPADV+STOREPOTTEMP 2   }  ,  e   STOREPOTTEMPADV%WORK+STOREPOTTEMP )            STOREMIXRTADV+STOREMIXRT .   /    e   STOREMIXRTADV%WORK+STOREMIXRT (            STOREBUOYTEMP+STOREBUOY 0   <  ,  e   STOREBUOYTEMP%XZ_WORK+STOREBUOY    h  b      XZ_ADVSCALAR $      ,  a   XZ_ADVSCALAR%XZ_VAR %   !  ,  a   XZ_ADVSCALAR%PZ_VELX %   "#  ,  a   XZ_ADVSCALAR%XR_VELZ    N$  ^      XZ_ADVKM     %  ,  a   XZ_ADVKM%XZ_VAR !   &  ,  a   XZ_ADVKM%PZ_VELX !   (  ,  a   XZ_ADVKM%XR_VELZ    0)        XZA_ADVSCALAR &   *    a   XZA_ADVSCALAR%XZA_VAR &   p,  ,  a   XZA_ADVSCALAR%PZ_VELX &   -  ,  a   XZA_ADVSCALAR%XR_VELZ    .  R      PZ_ADVVELX #   0  ,  a   PZ_ADVVELX%PZ_VELX #   F1  ,  a   PZ_ADVVELX%XR_VELZ    r2  R      XR_ADVVELZ #   3  ,  a   XR_ADVVELZ%XR_VELZ #   4  ,  a   XR_ADVVELZ%PZ_VELX    6  L      XR_BUOY #   h7  ,  a   XR_BUOY%XZ_POTTEMP    8  `      PZ_GRADPI #   9  ,  a   PZ_GRADPI%XZ_EXNER "    ;  ,  a   PZ_GRADPI%PZ_VELX "   L<  ,  a   PZ_GRADPI%XR_VELZ (   x=  0      DIMZMIN+GRIDSET=DIMZMIN (   =  0      DIMZMAX+GRIDSET=DIMZMAX (   =  0      DIMXMIN+GRIDSET=DIMXMIN (   >  0      DIMXMAX+GRIDSET=DIMXMAX &   8>  0      SPCNUM+GRIDSET=SPCNUM (   h>  0      DIMZMIN+GRIDSET=DIMZMIN (   >  0      DIMZMAX+GRIDSET=DIMZMAX (   >  0      DIMXMIN+GRIDSET=DIMXMIN (   >  0      DIMXMAX+GRIDSET=DIMXMAX (   (?  0      DIMZMIN+GRIDSET=DIMZMIN (   X?  0      DIMZMAX+GRIDSET=DIMZMAX (   ?  0      DIMXMIN+GRIDSET=DIMXMIN (   ?  0      DIMXMAX+GRIDSET=DIMXMAX (   ?  0      DIMZMIN+GRIDSET=DIMZMIN (   @  0      DIMZMAX+GRIDSET=DIMZMAX (   H@  0      DIMXMIN+GRIDSET=DIMXMIN (   x@  0      DIMXMAX+GRIDSET=DIMXMAX 