    8   k820309    M          9.1         H                                                                                                       
       radiation.f90 RADIATION          RADIATION_INIT XZ_RADHEATCONST XZ_NEWTONCOOL                  @                       
       MESSAGENOTIFY      @                                  
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX S_Z                                          
       DAYTIME                                          
       XZ_EXNERBASICZ                  @                       
       STOREPOTTEMPRAD STOREPOTTEMPDAMP                                          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 #     @                         "                  #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              #     @                         ,                  #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              #     @                          .                   #CFGFILE /         
   @                     /            1 (    `  @                    0                           
#XZ_EXNER 1     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            
      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              (    `  @                    2                          
#XZ_NEWTONCOOL%SUM 3   #XZ_NEWTONCOOL%REAL 4   #XZ_POTTEMP 5     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                        @                    3     SUM           @                    4     REAL      
   @                     5            
      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                       @                     (                 @                     +                 @                     *                 @                     )                     fn#fn       9   b   uapp(RADIATION       B   J  DC_MESSAGE    7  X   j  GRIDSET      <   J  TIMESET      C   J  BASICSET      U   J  STOREPOTTEMP -   c  \       gen@MESSAGENOTIFY+DC_MESSAGE 9           MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4   z  1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0     8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0     8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2     8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,   S  `   e   MESSAGENOTIFYC%I+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%R+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%D+DC_MESSAGE ,   s  `   e   MESSAGENOTIFYC%L+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%N+DC_MESSAGE -   3  8   e   MESSAGENOTIFYC%C1+DC_MESSAGE -   k  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   2  0   e   MESSAGENOTIFYI%NUMBER+DC_MESSAGE 0   b  8   e   MESSAGENOTIFYI%WHERE+DC_MESSAGE 2     8   e   MESSAGENOTIFYI%MESSAGE+DC_MESSAGE ,     `   e   MESSAGENOTIFYI%I+DC_MESSAGE ,   2	  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   R
  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -   
  8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   
  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   "  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -   Z  d   e   MESSAGENOTIFYI%CA+DC_MESSAGE -     z       STOREPOTTEMPRAD+STOREPOTTEMP     8  0     DIMZMAX+GRIDSET     h  0     DIMZMIN+GRIDSET       0     DIMXMAX+GRIDSET       0     DIMXMIN+GRIDSET 2     ,  e   STOREPOTTEMPRAD%WORK+STOREPOTTEMP .   $  z       STOREPOTTEMPDAMP+STOREPOTTEMP 3     ,  e   STOREPOTTEMPDAMP%WORK+STOREPOTTEMP      I       RADIATION_INIT '     8   a   RADIATION_INIT%CFGFILE     K  J      XZ_RADHEATCONST )     ,  a   XZ_RADHEATCONST%XZ_EXNER      {      XZ_NEWTONCOOL "   <  0      XZ_NEWTONCOOL%SUM #   l  1      XZ_NEWTONCOOL%REAL )     ,  a   XZ_NEWTONCOOL%XZ_POTTEMP (     0      DIMZMIN+GRIDSET=DIMZMIN (     0      DIMZMAX+GRIDSET=DIMZMAX (   )  0      DIMXMIN+GRIDSET=DIMXMIN (   Y  0      DIMXMAX+GRIDSET=DIMXMAX 