  (  K   k820309    M          9.1         H                                                                                                       
       dynimpfunc.f90 DYNIMPFUNC          XZ_EXNER_INIT XZ_EXNER XR_GRADPI                  @                       
       MESSAGENOTIFY      @                                  
  	     DELZ DIMXMIN DIMXMAX DIMZMIN DIMZMAX REGXMIN REGXMAX REGZMIN REGZMAX                                          
       DELTIMESHORT                  @                       
       DAMPSOUND                                          
       CPDRY XZ_VELSOUNDBASICZ XZ_DENSBASICZ XZ_POTTEMPBASICZ XZ_EFFMOLWTBASICZ                  @                       
       XR_AVR_XZ                  @                       
       XR_DZ_XZ XZ_DZ_XR XZ_DX_PZ                                           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            !                   $     
   (    `                      %                          
#REGZMAX &   #REGZMIN '   #REGXMAX (   #REGXMIN )   #DIMZMAX *   #DIMZMIN +   #DIMXMAX ,   #DIMXMIN -   #XZ_VAR .     5 r /     5 r 0   5 r 1   p    5 r 1     & 5 r 1   5 r 0     & 5 r /   5 r 2         5 r 0   5 r 1   p        5 r 2   5 r /   p                       @                     &                 @                     '                 @                     (                 @                     )                 @                     *                 @                     +                 @                     ,                 @                     -             
   @                     .            
      5 r /     5 r 0   5 r 1   p    5 r 1     & 5 r 1   5 r 0     & 5 r /   5 r 2         5 r 0   5 r 1   p        5 r 2   5 r /   p              (    `                      3                          
#REGZMAX &   #REGZMIN '   #REGXMAX (   #REGXMIN )   #DIMZMAX *   #DIMZMIN +   #DIMXMAX ,   #DIMXMIN -   #XZ_VAR 4     5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p                   
   @                     4            
      5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p              (    `                      9                          
#REGZMAX &   #REGZMIN '   #REGXMAX (   #REGXMIN )   #DIMZMAX *   #DIMZMIN +   #DIMXMAX ,   #DIMXMIN -   #XR_VAR :     5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p                   
   @                     :            
      5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p              (    `                      ;                          
#REGZMAX &   #REGZMIN '   #REGXMAX (   #REGXMIN )   #DIMZMAX *   #DIMZMIN +   #DIMXMAX ,   #DIMXMIN -   #PZ_VAR <     5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p                   
   @                     <            
      5 r 5     5 r 6   5 r 7   p    5 r 7     & 5 r 7   5 r 6     & 5 r 5   5 r 8         5 r 6   5 r 7   p        5 r 8   5 r 5   p              #     @                          =                    (    `                       >                           
#XR_FZNL ?   #PZ_VELXNS @   #PZ_VELXAS A   #XR_VELZNS B   #XZ_EXNERNS 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                   
   @                     ?            
      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            
      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                           
#XZ_EXNERA E   #XZ_EXNERN F   #PZ_VELX G   #XR_VELZ 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                   
  @@                     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            
      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                       @                     5                 @                     8                 @                     7                 @                     6                 @                     /                 @                     2                 @                     1                 @                     0              "      fn#fn        -   b   uapp(DYNIMPFUNC       B   J  DC_MESSAGE    -  y   j  GRIDSET      A   J  TIMESET      >   J  DAMPING    %  }   J  BASICSET      >   J  AVERAGE &     O   J  DIFFERENTIATE_CENTER2 -   /  \       gen@MESSAGENOTIFY+DC_MESSAGE 9           MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   F  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0   w  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 ,     `   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 -   7  8   e   MESSAGENOTIFYC%C2+DC_MESSAGE -   o  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   f	  8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   ^
  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   ~  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   &  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE "     0       DAMPSOUND+DAMPING "           XR_AVR_XZ+AVERAGE     f  0     REGZMAX+GRIDSET       0     REGZMIN+GRIDSET       0     REGXMAX+GRIDSET       0     REGXMIN+GRIDSET     &  0     DIMZMAX+GRIDSET     V  0     DIMZMIN+GRIDSET       0     DIMXMAX+GRIDSET       0     DIMXMIN+GRIDSET )     ,  e   XR_AVR_XZ%XZ_VAR+AVERAGE /           XR_DZ_XZ+DIFFERENTIATE_CENTER2 6     ,  e   XR_DZ_XZ%XZ_VAR+DIFFERENTIATE_CENTER2 /           XZ_DZ_XR+DIFFERENTIATE_CENTER2 6     ,  e   XZ_DZ_XR%XR_VAR+DIFFERENTIATE_CENTER2 /           XZ_DX_PZ+DIFFERENTIATE_CENTER2 6   n  ,  e   XZ_DX_PZ%PZ_VAR+DIFFERENTIATE_CENTER2      <       XZ_EXNER_INIT            XZ_EXNER !   X  ,  a   XZ_EXNER%XR_FZNL #     ,  a   XZ_EXNER%PZ_VELXNS #     ,  a   XZ_EXNER%PZ_VELXAS #     ,  a   XZ_EXNER%XR_VELZNS $      ,  a   XZ_EXNER%XZ_EXNERNS    4!  p      XR_GRADPI $   "  ,  a   XR_GRADPI%XZ_EXNERA $   #  ,  a   XR_GRADPI%XZ_EXNERN "   $  ,  a   XR_GRADPI%PZ_VELX "   (&  ,  a   XR_GRADPI%XR_VELZ (   T'  0      DIMZMIN+GRIDSET=DIMZMIN (   '  0      DIMZMAX+GRIDSET=DIMZMAX (   '  0      DIMXMIN+GRIDSET=DIMXMIN (   '  0      DIMXMAX+GRIDSET=DIMXMAX (   (  0      DIMZMIN+GRIDSET=DIMZMIN (   D(  0      DIMZMAX+GRIDSET=DIMZMAX (   t(  0      DIMXMIN+GRIDSET=DIMXMIN (   (  0      DIMXMAX+GRIDSET=DIMXMAX 