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

Timestamp:

Apr 30, 2015 7:05:52 AM (9 years ago)

Author:

maronga

Message:

Added support for RRTMG radiation code

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Initialization of radiation code is now done after LSM initializtion
 !
 ! Former revisions:
@@ -1606 +1606 @@
     IF ( particle_advection )  CALL lpm_init
 
+!
+!-- If required, initialize quantities needed for the LSM
+    IF ( land_surface )  THEN
+       CALL location_message( 'initializing land surface model', .FALSE. )
+       CALL init_lsm
+       CALL location_message( 'finished', .TRUE. )
+    ENDIF
 
 !
 !-- If required, initialize radiation model
     IF ( radiation )  THEN
+       CALL location_message( 'initializing radiation model', .FALSE. )
        CALL init_radiation
-    ENDIF
-
-!
-!-- If required, initialize quantities needed for the LSM
-    IF ( land_surface )  THEN
-       CALL init_lsm
+       CALL location_message( 'finished', .TRUE. )
     ENDIF