  6  V   k820309    M          9.1         
H                                                                                                       
       damping_3d.f90 DAMPING_3D          DAMPING_INIT DAMPSOUND_INIT DAMPSPONGE_INIT XYZ_DAMPSPONGE_XYZ XYR_DAMPSPONGE_XYR PYZ_DAMPSPONGE_PYZ XQZ_DAMPSPONGE_XQZ XYZ_DAMPSPONGE XYR_DAMPSPONGE PYZ_DAMPSPONGE XQZ_DAMPSPONGE DAMPSOUND                  @                       
       DP                  @                       
       FILEOPEN                  @                       
       MESSAGENOTIFY                                          
       DIMXMIN DIMXMAX DIMYMIN DIMYMAX DIMZMIN DIMZMAX REGXMIN REGXMAX REGYMIN REGYMAX REGZMIN REGZMAX X_X Y_Y Z_Z P_X Q_Y R_Z X_DX Y_DY Z_DZ XMAX YMAX ZMAX                                          
       DELTIMESHORT      @  "                              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                                  #                                         #     @  "                                        #FILEOPEN%TRIM $   #UNIT %   #FILE &   #MODE '   #ERR (             @                    $     TRIM         @                      %              
   @                     &            1       
  @                     '            1         @                      (        #     @                          )                   #CFGFILE *         
@ @@                     *            1 #     @                         +                  #DAMPSOUND_INIT%MIN ,   #DAMPSOUND_INIT%MINVAL -   #DAMP .             @                    ,     MIN           @                    -     MINVAL       
   @                     .     
  #     @                         /                  #DAMPSPONGE_INIT%DCOS 0   #TIME 1   #DEPTHH 2   #DEPTHV 3             @                    0     DCOS       
   @                     1     
        
   @                     2     
        
   @                     3     
  (    `                       4                           
#XYZ_VAR 5       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     5            
 	       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p              (    `                       <                           
#XYR_VAR =       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     =            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p              (    `                       >                           
#PYZ_VAR ?       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     ?            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p              (    `                       @                            
#XQZ_VAR A       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     A            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p              (    `                       B                           
#XYZ_VARA C   #XYZ_VARB D   #DELTIME E       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     C            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     D            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                    
   @                     E     
  (    `                       F                           
#XYR_VARA G   #XYR_VARB H   #DELTIME I       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     G            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     H            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                    
   @                     I     
  (    `                       J                           
#PYZ_VARA K   #PYZ_VARB L   #DELTIME M       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     K            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     L            
        5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                    
   @                     M     
  (    `                       N           $                
#XQZ_VARA O   #XQZ_VARB P   #DELTIME Q       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     O            
 !       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                   
   @                     P            
 "       5 r 6     5 r 7   5 r 8   p    5 r 8     5 r 9   5 r :   p    5 r :     & 5 r :   5 r 9     & 5 r 8   5 r 7     & 5 r 6   5 r ;         5 r 9   5 r :   p        5 r 7   5 r 8   p        5 r ;   5 r 6   p                    
   @                     Q     
        @                       R     
            @                      6                 @                      ;                 @                      8                 @                      7                 @                      :                 @                      9              "      fn#fn           b   uapp(DAMPING_3D      7   J  DC_TYPES      =   J  DC_IOUNIT      B   J  DC_MESSAGE    >     J  GRIDSET_3D      A   J  TIMESET '   I  B       gen@FILEOPEN+DC_IOUNIT -     \       gen@MESSAGENOTIFY+DC_MESSAGE 9           MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4     1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0     8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0     8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2   C  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 ,     `   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   g        MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   &	  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1   Z	  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   	  8   e   MESSAGENOTIFYI%WHERE+DC_MESSAGE 2   	  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   Z
  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   z  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   J  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -     d   e   MESSAGENOTIFYI%CA+DC_MESSAGE      T       DP+DC_TYPES #   :  v       FILEOPEN+DC_IOUNIT -     1      FILEOPEN%TRIM+DC_IOUNIT=TRIM (     0   e   FILEOPEN%UNIT+DC_IOUNIT (     8   e   FILEOPEN%FILE+DC_IOUNIT (   I  8   e   FILEOPEN%MODE+DC_IOUNIT '     0   e   FILEOPEN%ERR+DC_IOUNIT      I       DAMPING_INIT %     8   a   DAMPING_INIT%CFGFILE    2  y       DAMPSOUND_INIT #     0      DAMPSOUND_INIT%MIN &     3      DAMPSOUND_INIT%MINVAL $     0   a   DAMPSOUND_INIT%DAMP     >  x       DAMPSPONGE_INIT %     1      DAMPSPONGE_INIT%DCOS %     0   a   DAMPSPONGE_INIT%TIME '     0   a   DAMPSPONGE_INIT%DEPTHH '   G  0   a   DAMPSPONGE_INIT%DEPTHV #   w        XYZ_DAMPSPONGE_XYZ +   D    a   XYZ_DAMPSPONGE_XYZ%XYZ_VAR #           XYR_DAMPSPONGE_XYR +       a   XYR_DAMPSPONGE_XYR%XYR_VAR #   y        PYZ_DAMPSPONGE_PYZ +   F    a   PYZ_DAMPSPONGE_PYZ%PYZ_VAR #           XQZ_DAMPSPONGE_XQZ +       a   XQZ_DAMPSPONGE_XQZ%XQZ_VAR    {        XYZ_DAMPSPONGE (   d!    a   XYZ_DAMPSPONGE%XYZ_VARA (   #    a   XYZ_DAMPSPONGE%XYZ_VARB '   $  0   a   XYZ_DAMPSPONGE%DELTIME    $        XYR_DAMPSPONGE (   &    a   XYR_DAMPSPONGE%XYR_VARA (   (    a   XYR_DAMPSPONGE%XYR_VARB '   M*  0   a   XYR_DAMPSPONGE%DELTIME    }*        PYZ_DAMPSPONGE (   f,    a   PYZ_DAMPSPONGE%PYZ_VARA (   .    a   PYZ_DAMPSPONGE%PYZ_VARB '   /  0   a   PYZ_DAMPSPONGE%DELTIME    /        XQZ_DAMPSPONGE (   1    a   XQZ_DAMPSPONGE%XQZ_VARA (   3    a   XQZ_DAMPSPONGE%XQZ_VARB '   O5  0   a   XQZ_DAMPSPONGE%DELTIME    5  0       DAMPSOUND +   5  0      DIMZMIN+Z_BASE_MODULE=KMIN +   5  0      DIMZMAX+Z_BASE_MODULE=KMAX +   6  0      DIMYMIN+Y_BASE_MODULE=JMIN +   ?6  0      DIMYMAX+Y_BASE_MODULE=JMAX +   o6  0      DIMXMIN+X_BASE_MODULE=IMIN +   6  0      DIMXMAX+X_BASE_MODULE=IMAX 