Changeset 1976 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jul 27, 2016 1:28:04 PM (8 years ago)

Author:

maronga

Message:

further modularization of land surface model (2D/3D output and restart data). Bugfix for restart runs without land surface model

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Simplified calls to radiation model
 ! 
 ! Former revisions:
@@ -321 +321 @@
 
     USE radiation_model_mod,                                                   &
-        ONLY: dt_radiation, force_radiation_call, radiation,                   &
-              radiation_clearsky, radiation_constant, radiation_rrtmg,         &
-              radiation_scheme, skip_time_do_radiation, time_radiation
+        ONLY: dt_radiation, force_radiation_call, radiation, radiation_control,&
+              skip_time_do_radiation, time_radiation
 
     USE spectra_mod,                                                           &
@@ -900 +899 @@
                 ENDIF
 
-                IF ( radiation_scheme == 'clear-sky' )  THEN
-                   CALL radiation_clearsky
-                ELSEIF ( radiation_scheme == 'rrtmg' )  THEN
-                   CALL radiation_rrtmg
-                ELSE
-                   CALL radiation_constant
-                ENDIF
+                CALL radiation_control
 
                 CALL cpu_log( log_point(50), 'radiation', 'stop' )