Changeset 2906 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Mar 19, 2018 8:56:40 AM (6 years ago)

Author:

Giersch

Message:

new procedure for reading/writing svf data, initialization of local variable ids

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (6 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! The variables read/write_svf_on_init have been removed. Instead ENVIRONMENT
+! variables read/write_svf have been introduced. Location_message has been 
+! added.
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! Renamed routines with respect to reading restart data, file 13 is closed in
 ! rrd_read_parts_of_global now
@@ -474 +479 @@
         ONLY:  dots_max, dots_num, dots_unit, dots_label
 
-    USE netcdf_data_input_mod,                                                  &
+    USE netcdf_data_input_mod,                                                 &
         ONLY:  init_3d, netcdf_data_input_interpolate, netcdf_data_input_init_3d
     
@@ -487 +492 @@
     USE radiation_model_mod,                                                   &
         ONLY:  radiation_init, radiation, radiation_control, radiation_scheme, &
-               read_svf_on_init,                                               &
-               write_svf_on_init, radiation_calc_svf, radiation_write_svf,     &
+               radiation_calc_svf, radiation_write_svf,                        &
                radiation_interaction, radiation_interactions,                  &
                radiation_interaction_init, radiation_read_svf
@@ -2356 +2360 @@
 !
 !--    If required, read or calculate and write out the SVF 
-       IF ( radiation_interactions  .AND.  read_svf_on_init )  THEN
+       IF ( radiation_interactions .AND. read_svf)  THEN
 !
 !--       Read sky-view factors and further required data from file
@@ -2363 +2367 @@
           CALL location_message( '    Reading SVF from file has finished', .TRUE. )
 
-       ELSEIF ( radiation_interactions )  THEN
+       ELSEIF ( radiation_interactions .AND. .NOT. read_svf)  THEN
 !
 !--       calculate SFV and CSF
@@ -2371 +2375 @@
        ENDIF
 
-       IF ( radiation_interactions  .AND.  write_svf_on_init )  THEN
+       IF ( radiation_interactions .AND. write_svf)  THEN
 !
 !--       Write svf, csf svfsurf and csfsurf data to file
+          CALL location_message( '    Start writing SVF in file', .FALSE. )
           CALL radiation_write_svf()
+          CALL location_message( '    Writing SVF in file has finished', .TRUE. )
        ENDIF