    =   k820309    M          9.1         
H                                                                                                       
       damping.f90 DAMPING          DAMPING_INIT DAMPSOUND_INIT DAMPSPONGE_INIT DAMPSPONGE_XZ DAMPSPONGE_XR DAMPSPONGE_PZ DAMPSOUND                  @                       
       MESSAGENOTIFY                                          
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX DELX DELZ S_X S_Z F_X F_Z XMAX ZMAX                                          
       DELTIMESHORT                                          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 #     @                                              #CFGFILE !         
   @                     !            1 #     @                         "                  #DAMPSOUND_INIT%MIN #   #DAMP $             @                    #     MIN       
   @                     $     
  #     @                         %                  #DAMPSPONGE_INIT%DCOS &   #TIME '   #DEPTHH (   #DEPTHV )             @                    &     DCOS       
   @                     '     
        
   @                     (     
        
   @                     )     
  #     @                          *                   #XZ_VARA +   #XZ_VARB 0   #DELTIME 1        
D  @                     +            
       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                   
   @                     0            
      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     
  #     @                          2                   #XR_VARA 3   #XR_VARB 4   #DELTIME 5        
D  @                     3            
 
      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                   
   @                     4            
      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     
  #     @                          6                   #PZ_VARA 7   #PZ_VARB 8   #DELTIME 9        
D  @                     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     
        @                       :     
            @                      ,                 @                      /                 @                      .                 @                      -                    fn#fn       l   b   uapp(DAMPING    $  B   J  DC_MESSAGE    f  x   j  GRIDSET      A   J  TIMESET -     \       gen@MESSAGENOTIFY+DC_MESSAGE 9   {        MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   6  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0   g  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 ,   o  `   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   V  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   N	  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   n
  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   
  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   
  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -     d   e   MESSAGENOTIFYI%CA+DC_MESSAGE    z  I       DAMPING_INIT %     8   a   DAMPING_INIT%CFGFILE      ^       DAMPSOUND_INIT #   Y  0      DAMPSOUND_INIT%MIN $     0   a   DAMPSOUND_INIT%DAMP       x       DAMPSPONGE_INIT %   1  1      DAMPSPONGE_INIT%DCOS %   b  0   a   DAMPSPONGE_INIT%TIME '     0   a   DAMPSPONGE_INIT%DEPTHH '     0   a   DAMPSPONGE_INIT%DEPTHV      c       DAMPSPONGE_XZ &   U  ,  a   DAMPSPONGE_XZ%XZ_VARA &     ,  a   DAMPSPONGE_XZ%XZ_VARB &     0   a   DAMPSPONGE_XZ%DELTIME      c       DAMPSPONGE_XR &   @  ,  a   DAMPSPONGE_XR%XR_VARA &   l  ,  a   DAMPSPONGE_XR%XR_VARB &     0   a   DAMPSPONGE_XR%DELTIME      c       DAMPSPONGE_PZ &   +  ,  a   DAMPSPONGE_PZ%PZ_VARA &   W  ,  a   DAMPSPONGE_PZ%PZ_VARB &     0   a   DAMPSPONGE_PZ%DELTIME      0       DAMPSOUND       0      DIMZMIN+GRIDSET       0      DIMZMAX+GRIDSET     C  0      DIMXMIN+GRIDSET     s  0      DIMXMAX+GRIDSET 