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

Timestamp:

Apr 19, 2018 12:13:16 PM (6 years ago)

Author:

Giersch

Message:

Bugfixes related to spinup and radiation model

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! CALL radiation_control is not necessary during initialization because 
+! calculation of radiative fluxes at model start is done in radiation_init 
+! in any case 
+! 
+! 2977 2018-04-17 10:27:57Z kanani
 ! Implement changes from branch radiation (r2948-2971) with minor modifications
 ! (moh.hefny):
@@ -514 +519 @@
     USE radiation_model_mod,                                                   &
         ONLY:  average_radiation,                                              &
-               radiation_init, radiation, radiation_control, radiation_scheme, &
+               radiation_init, radiation, radiation_scheme,                    &
                radiation_calc_svf, radiation_write_svf,                        &
                radiation_interaction, radiation_interactions,                  &
@@ -2435 +2440 @@
 !--    Adjust radiative fluxes. In case of urban and land surfaces, also 
 !--    call an initial interaction.
-       CALL radiation_control 
        IF ( radiation_interactions )  THEN
           CALL radiation_interaction
        ENDIF
     ENDIF
-    
+
 !
 !-- Temporary solution to add LSM and radiation time series to the default