Changeset 3234 for palm/trunk/SOURCE

Timestamp:

Sep 7, 2018 1:46:58 PM (6 years ago)

Author:

schwenkel

Message:

The increase of dots_num in case of radiation or land surface model must be done before user_init is called

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! The increase of dots_num in case of radiation or land surface model must 
+! be done before user_init is called
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! Revise Inifor initialization
 ! 
@@ -2236 +2240 @@
     rmask(:,nxlg:nxl-1,:) = 0.0_wp;  rmask(:,nxr+1:nxrg,:) = 0.0_wp
     rmask(nysg:nys-1,:,:) = 0.0_wp;  rmask(nyn+1:nyng,:,:) = 0.0_wp
+
+!
+!-- 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
 !
 !-- User-defined initializing actions
@@ -2529 +2544 @@
        ENDIF
     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 quantities needed for the wind turbine model