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

Timestamp:

Mar 3, 2015 2:18:16 PM (9 years ago)

Author:

maronga

Message:

land surface model released

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added interface for different radiation schemes.
 ! 
 ! Former revisions:
@@ -223 +223 @@
 
     USE radiation_model_mod,                                                   &
-        ONLY: dt_radiation, lsm_radiation, radiation, time_radiation
+        ONLY: dt_radiation, irad_scheme, radiation, radiation_clearsky,        &
+              radiation_constant, radiation_rrtm, time_radiation
 
     USE statistics,                                                            &
@@ -601 +602 @@
 
                 time_radiation = time_radiation - dt_radiation
-                CALL lsm_radiation
+                IF ( irad_scheme == 0 )  THEN
+                   CALL radiation_constant              
+                ELSEIF ( irad_scheme == 1 )  THEN
+                   CALL radiation_clearsky
+                ELSEIF ( irad_scheme == 2 )  THEN
+                   CALL radiation_rrtm
+                ENDIF
 
                 CALL cpu_log( log_point(50), 'radiation', 'stop' )