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

Timestamp:

Apr 7, 2016 12:01:39 PM (8 years ago)

Author:

maronga

Message:

further modularization of radiation model and plant canopy model

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Renamed radiation calls.
+! Renamed canopy model calls.
 ! 
 ! Former revisions:
@@ -288 +289 @@
     
     USE plant_canopy_model_mod,                                                &
-        ONLY:  init_plant_canopy, plant_canopy
+        ONLY:  pcm_init, plant_canopy
 
     USE radiation_model_mod,                                                   &
-        ONLY:  init_radiation, radiation
+        ONLY:  radiation_init, radiation
     
     USE random_function_mod 
@@ -1631 +1632 @@
 !
 !-- If required, initialize quantities needed for the plant canopy model
-    IF ( plant_canopy )  CALL init_plant_canopy
+    CALL location_message( 'initializing plant canopy model', .FALSE. )
+    IF ( plant_canopy )  CALL pcm_init
+    CALL location_message( 'finished', .TRUE. )
 
 !
@@ -1676 +1679 @@
     IF ( radiation )  THEN
        CALL location_message( 'initializing radiation model', .FALSE. )
-       CALL init_radiation
+       CALL radiation_init
        CALL location_message( 'finished', .TRUE. )
     ENDIF