    D   k820309    M          9.1         H                                                                                                       
       radiation_3d.f90 RADIATION_3D          RADIATION_INIT XYZ_RADHEATCONST XYZ_NEWTONCOOL                  @                       
       MESSAGENOTIFY                  @                       
       FILEOPEN                                          
       DIMXMIN DIMXMAX DIMYMIN DIMYMAX DIMZMIN DIMZMAX Z_Z                                          
       DAYTIME                                          
       XYZ_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      @  "                              u #FILEOPEN #   #     @  "                      #                  #FILEOPEN%TRIM $   #UNIT %   #FILE &   #MODE '   #ERR (             @                    $     TRIM         @                      %              
   @                     &            1       
  @                     '            1         @                      (        #     @                         )                  #DIMZMAX *   #DIMZMIN +   #DIMYMAX ,   #DIMYMIN -   #DIMXMAX .   #DIMXMIN /   #WORK 0            @                     *                 @                     +                 @                     ,                 @                     -                 @                     .                 @                     /             
   @                     0            
        5 r 1     5 r 2   5 r 3   p    5 r 3     5 r 4   5 r 5   p    5 r 5     & 5 r 5   5 r 4     & 5 r 3   5 r 2     & 5 r 1   5 r 6         5 r 4   5 r 5   p        5 r 2   5 r 3   p        5 r 6   5 r 1   p              #     @                         7                  #DIMZMAX *   #DIMZMIN +   #DIMYMAX ,   #DIMYMIN -   #DIMXMAX .   #DIMXMIN /   #WORK 8        
   @                     8            
        5 r 1     5 r 2   5 r 3   p    5 r 3     5 r 4   5 r 5   p    5 r 5     & 5 r 5   5 r 4     & 5 r 3   5 r 2     & 5 r 1   5 r 6         5 r 4   5 r 5   p        5 r 2   5 r 3   p        5 r 6   5 r 1   p              #     @                          9                   #CFGFILE :         
@ @@                     :            1 (    `  @                    ;                           
#XYZ_EXNER <       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              (    `  @                    =                          
#XYZ_NEWTONCOOL%SUM >   #XYZ_NEWTONCOOL%REAL ?   #XYZ_POTTEMP @       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                        @                    >     SUM           @                    ?     REAL      
   @                     @            
        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                       @                     1                 @                     6                 @                     3                 @                     2                 @                     5                 @                     4              &      fn#fn "      ;   b   uapp(RADIATION_3D       B   J  DC_MESSAGE    ?  =   J  DC_IOUNIT    |  h   J  GRIDSET_3D      <   J  TIMESET       D   J  BASICSET_3D     d  U   J  STOREPOTTEMP_3D -     \       gen@MESSAGENOTIFY+DC_MESSAGE 9           MESSAGENOTIFYC+DC_MESSAGE=MESSAGENOTIFYC 4     1      MESSAGENOTIFYC%TRIM+DC_MESSAGE=TRIM 0     8   e   MESSAGENOTIFYC%LEVEL+DC_MESSAGE 0   9  8   e   MESSAGENOTIFYC%WHERE+DC_MESSAGE 2   q  8   e   MESSAGENOTIFYC%MESSAGE+DC_MESSAGE ,     `   e   MESSAGENOTIFYC%I+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYC%R+DC_MESSAGE ,   i  `   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 -   1  d   e   MESSAGENOTIFYC%CA+DC_MESSAGE 9           MESSAGENOTIFYI+DC_MESSAGE=MESSAGENOTIFYI :   T  4      MESSAGENOTIFYI%PRESENT+DC_MESSAGE=PRESENT 1     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 ,   	  `   e   MESSAGENOTIFYI%R+DC_MESSAGE ,   	  `   e   MESSAGENOTIFYI%D+DC_MESSAGE ,   H
  `   e   MESSAGENOTIFYI%L+DC_MESSAGE ,   
  `   e   MESSAGENOTIFYI%N+DC_MESSAGE -     8   e   MESSAGENOTIFYI%C1+DC_MESSAGE -   @  8   e   MESSAGENOTIFYI%C2+DC_MESSAGE -   x  8   e   MESSAGENOTIFYI%C3+DC_MESSAGE -     d   e   MESSAGENOTIFYI%CA+DC_MESSAGE '     B       gen@FILEOPEN+DC_IOUNIT #   V  v       FILEOPEN+DC_IOUNIT -     1      FILEOPEN%TRIM+DC_IOUNIT=TRIM (     0   e   FILEOPEN%UNIT+DC_IOUNIT (   -  8   e   FILEOPEN%FILE+DC_IOUNIT (   e  8   e   FILEOPEN%MODE+DC_IOUNIT '     0   e   FILEOPEN%ERR+DC_IOUNIT 0            STOREPOTTEMPRAD+STOREPOTTEMP_3D +   a  0     DIMZMAX+Z_BASE_MODULE=KMAX +     0     DIMZMIN+Z_BASE_MODULE=KMIN +     0     DIMYMAX+Y_BASE_MODULE=JMAX +     0     DIMYMIN+Y_BASE_MODULE=JMIN +   !  0     DIMXMAX+X_BASE_MODULE=IMAX +   Q  0     DIMXMIN+X_BASE_MODULE=IMIN 5       e   STOREPOTTEMPRAD%WORK+STOREPOTTEMP_3D 1   5         STOREPOTTEMPDAMP+STOREPOTTEMP_3D 6       e   STOREPOTTEMPDAMP%WORK+STOREPOTTEMP_3D    }  I       RADIATION_INIT '     8   a   RADIATION_INIT%CFGFILE !           XYZ_RADHEATCONST +       a   XYZ_RADHEATCONST%XYZ_EXNER            XYZ_NEWTONCOOL #     0      XYZ_NEWTONCOOL%SUM $     1      XYZ_NEWTONCOOL%REAL +       a   XYZ_NEWTONCOOL%XYZ_POTTEMP +     0      DIMZMIN+Z_BASE_MODULE=KMIN +     0      DIMZMAX+Z_BASE_MODULE=KMAX +     0      DIMYMIN+Y_BASE_MODULE=JMIN +   4  0      DIMYMAX+Y_BASE_MODULE=JMAX +   d  0      DIMXMIN+X_BASE_MODULE=IMIN +     0      DIMXMAX+X_BASE_MODULE=IMAX 