  ¨@  N   k820309    M          9.1         şçxH                                                                                                       
       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 