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

Timestamp:

Apr 11, 2016 9:00:35 AM (9 years ago)

Author:

maronga

Message:

bugfix: radiation_scheme = constant caused model crash when used in combination with land surface model

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Adjusted for use with radiation_scheme = constant
 !
 ! Former revisions:
@@ -295 +295 @@
     USE radiation_model_mod,                                                   &
         ONLY: dt_radiation, force_radiation_call, radiation,                   &
-              radiation_clearsky, radiation_rrtmg, radiation_scheme,           &
-              skip_time_do_radiation, time_radiation
+              radiation_clearsky, radiation_constant, radiation_rrtmg,         &
+              radiation_scheme, skip_time_do_radiation, time_radiation
 
     USE spectra_mod,                                                           &
@@ -863 +863 @@
                 ELSEIF ( radiation_scheme == 'rrtmg' )  THEN
                    CALL radiation_rrtmg
+                ELSE
+                   CALL radiation_constant
                 ENDIF