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

Timestamp:

Jun 9, 2017 12:18:47 PM (7 years ago)

Author:

maronga

Message:

major revisions in land surface model

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dots_num must be increased when LSM and/or radiation is used
+! 
+! 2259 2017-06-08 09:09:11Z gronemeier
 ! Implemented synthetic turbulence generator
 !
@@ -381 +384 @@
 
     USE radiation_model_mod,                                                   &
-        ONLY:  radiation_init, radiation
+        ONLY:  radiation_init, radiation, radiation_scheme
     
     USE random_function_mod 
@@ -1863 +1866 @@
     ENDIF
 
+    
+!
+!-- Temporary solution to add LSM and radiation time series to the default
+!-- output
+    IF ( land_surface  .OR.  radiation )  THEN
+       IF ( TRIM( radiation_scheme ) == 'rrtmg' )  THEN
+          dots_num = dots_num + 15
+       ELSE
+          dots_num = dots_num + 11
+       ENDIF
+    ENDIF
+    
 !
 !-- If required, initialize urban surface model