  @  b   k820309    M          9.1         H                                                                                                       
       dynimpfunc_3d.f90 DYNIMPFUNC_3D          XYZ_EXNER_INIT XYZ_EXNER XYR_GRADPI                  @                       
       DP                  @                       
       FILEOPEN                  @                       
       MESSAGENOTIFY                                          
       DIMXMIN DIMXMAX DIMYMIN DIMYMAX DIMZMIN DIMZMAX REGXMIN REGXMAX REGYMIN REGYMAX REGZMIN REGZMAX Z_DZ R_DZ XYZ_DX                                          
       DELTIMESHORT                  @                       
       DAMPSOUND                                          
       CPDRY XYZ_VELSOUNDBASICZ XYZ_DENSBASICZ XYZ_POTTEMPBASICZ                                          
       XYR_AVR_XYZ                  @                  	     
       XYR_DZ_XYZ XYZ_DZ_XYR XYZ_DX_PYZ XYZ_DY_XQZ      @  "                               u #FILEOPEN 
                                             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                                           u #AAR_AVR_AAZ '   (    `   @                 '                           
#AAZ_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                                               /                                         #     @  "                       
                  #FILEOPEN%TRIM 0   #UNIT 1   #FILE 2   #MODE 3   #ERR 4             @                    0     TRIM         @                      1              
   @                     2            1       
  @                     3            1         @                      4                   !                   5           
        &           &           &                                  !                   6     
   (    `                      7           * 
              
#REGZMAX 8   #REGZMIN 9   #REGXMAX :   #REGXMIN ;   #DIMZMAX <   #DIMZMIN =   #DIMYMAX >   #DIMYMIN ?   #DIMXMAX @   #DIMXMIN A   #XYZ_VAR B       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p                       @                     8                 @                     9                 @                     :                 @                     ;                 @                     <                 @                     =                 @                     >                 @                     ?                 @                     @                 @                     A             
   @                     B            
 (       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p              (    `                      I           ' 
              
#REGZMAX 8   #REGZMIN 9   #REGXMAX :   #REGXMIN ;   #DIMZMAX <   #DIMZMIN =   #DIMYMAX >   #DIMYMIN ?   #DIMXMAX @   #DIMXMIN A   #XYR_VAR J       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p                   
   @                     J            
 %       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p              (    `                      K            
              
#REGZMAX 8   #REGZMIN 9   #REGXMAX :   #REGXMIN ;   #DIMZMAX <   #DIMZMIN =   #DIMYMAX >   #DIMYMIN ?   #DIMXMAX @   #DIMXMIN A   #PYZ_VAR L       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p                   
   @                     L            
        5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p              (    `                      M            
              
#REGZMAX 8   #REGZMIN 9   #REGXMAX :   #REGXMIN ;   #DIMZMAX <   #DIMZMIN =   #DIMYMAX >   #DIMYMIN ?   #DIMXMAX @   #DIMXMIN A   #XQZ_VAR N       5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p                   
   @                     N            
        5 r C     5 r D   5 r E   p    5 r E     5 r F   5 r G   p    5 r G     & 5 r G   5 r F     & 5 r E   5 r D     & 5 r C   5 r H         5 r F   5 r G   p        5 r D   5 r E   p        5 r H   5 r C   p              #     @                          O                    (    `                       P                           
#XYR_FZNL Q   #PYZ_VELXNS R   #PYZ_VELXAS S   #XQZ_VELYNS T   #XQZ_VELYAS U   #XYR_VELZNS V   #XYZ_EXNERNS W       5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
   @                     Q            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     R            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     S            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     T            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     U            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     V            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     W            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p              (    `                       X           !                
#XYZ_EXNERA Y   #XYZ_EXNERN Z   #PYZ_VELX [   #XQZ_VELY \   #XYR_VELZ ]       5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     Y            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     Z            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     [            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     \            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                   
  @@                     ]            
        5 r =     5 r >   5 r ?   p    5 r ?     5 r @   5 r A   p    5 r A     & 5 r A   5 r @     & 5 r ?   5 r >     & 5 r =   5 r <         5 r @   5 r A   p        5 r >   5 r ?   p        5 r <   5 r =   p                       @  !                   C                 @  !                   H                 @  !                   E                 @  !                   D                 @  !                   G                 @  !                   F                                       )                                       .                                       +                                       *                                       -                                       ,              (      fn#fn #      0   b   uapp(DYNIMPFUNC_3D       7   J  DC_TYPES    +  =   J  DC_IOUNIT    h  B   J  DC_MESSAGE         j  GRIDSET_3D    O  A   J  TIMESET      >   J  DAMPING_3D      n   J  BASICSET_3D    <  @   J  XYZ_MODULE !   |  `   J  XYZ_DERIV_MODULE '     B       gen@FILEOPEN+DC_IOUNIT -     \       gen@MESSAGENOTIFY+DC_MESSAGE 9   z        MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   5  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0   f  8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0     8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2     8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%I+DC_MESSAGE ,   n  `   e   MESSAGENOTIFYC%R+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%D+DC_MESSAGE ,   .  `   e   MESSAGENOTIFYC%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%N+DC_MESSAGE -     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           MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   	  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1   	  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   
  8   e   MESSAGENOTIFYI%WHERE+DC_MESSAGE 2   U
  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   M  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   m  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -     d   e   MESSAGENOTIFYI%CA+DC_MESSAGE +   y  E       gen@XYR_AVR_XYZ+XYZ_MODULE 8          AAR_AVR_AAZ+XYZ_BASE_MODULE=AAR_AVR_AAZ 4       e   AAR_AVR_AAZ%AAZ_VAR+XYZ_BASE_MODULE    ?  T       DP+DC_TYPES #     v       FILEOPEN+DC_IOUNIT -   	  1      FILEOPEN%TRIM+DC_IOUNIT=TRIM (   :  0   e   FILEOPEN%UNIT+DC_IOUNIT (   j  8   e   FILEOPEN%FILE+DC_IOUNIT (     8   e   FILEOPEN%MODE+DC_IOUNIT '     0   e   FILEOPEN%ERR+DC_IOUNIT '   
  |       XYZ_DX+XYZ_BASE_MODULE %     0       DAMPSOUND+DAMPING_3D ,     O      XYR_DZ_XYZ+XYZ_DERIV_MODULE #     0     REGZMAX+GRIDSET_3D #   5  0     REGZMIN+GRIDSET_3D #   e  0     REGXMAX+GRIDSET_3D #     0     REGXMIN+GRIDSET_3D +     0     DIMZMAX+Z_BASE_MODULE=KMAX +     0     DIMZMIN+Z_BASE_MODULE=KMIN +   %  0     DIMYMAX+Y_BASE_MODULE=JMAX +   U  0     DIMYMIN+Y_BASE_MODULE=JMIN +     0     DIMXMAX+X_BASE_MODULE=IMAX +     0     DIMXMIN+X_BASE_MODULE=IMIN 4       e   XYR_DZ_XYZ%XYZ_VAR+XYZ_DERIV_MODULE ,     O      XYZ_DZ_XYR+XYZ_DERIV_MODULE 4       e   XYZ_DZ_XYR%XYR_VAR+XYZ_DERIV_MODULE ,     O      XYZ_DX_PYZ+XYZ_DERIV_MODULE 4       e   XYZ_DX_PYZ%PYZ_VAR+XYZ_DERIV_MODULE ,   !  O      XYZ_DY_XQZ+XYZ_DERIV_MODULE 4   #    e   XYZ_DY_XQZ%XQZ_VAR+XYZ_DERIV_MODULE    %  <       XYZ_EXNER_INIT    %  /      XYZ_EXNER #   (    a   XYZ_EXNER%XYR_FZNL %   )    a   XYZ_EXNER%PYZ_VELXNS %   u+    a   XYZ_EXNER%PYZ_VELXAS %   )-    a   XYZ_EXNER%XQZ_VELYNS %   .    a   XYZ_EXNER%XQZ_VELYAS %   0    a   XYZ_EXNER%XYR_VELZNS &   E2    a   XYZ_EXNER%XYZ_EXNERNS    3  
      XYR_GRADPI &   6    a   XYR_GRADPI%XYZ_EXNERA &   7    a   XYR_GRADPI%XYZ_EXNERN $   k9    a   XYR_GRADPI%PYZ_VELX $   ;    a   XYR_GRADPI%XQZ_VELY $   <    a   XYR_GRADPI%XYR_VELZ (   >  0      KMIN+Z_BASE_MODULE=KMIN (   >  0      KMAX+Z_BASE_MODULE=KMAX (   >  0      JMIN+Y_BASE_MODULE=JMIN (   ?  0      JMAX+Y_BASE_MODULE=JMAX (   G?  0      IMIN+X_BASE_MODULE=IMIN (   w?  0      IMAX+X_BASE_MODULE=IMAX /   ?  0     AAR_AVR_AAZ%KMIN+Z_BASE_MODULE /   ?  0     AAR_AVR_AAZ%KMAX+Z_BASE_MODULE /   @  0     AAR_AVR_AAZ%JMIN+Y_BASE_MODULE /   7@  0     AAR_AVR_AAZ%JMAX+Y_BASE_MODULE /   g@  0     AAR_AVR_AAZ%IMIN+X_BASE_MODULE /   @  0     AAR_AVR_AAZ%IMAX+X_BASE_MODULE 