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

Timestamp:

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

Author:

maronga

Message:

land surface model released

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Allocation of land surface arrays is now done in the subroutine init_lsm_arrays,
+! which is part of land_surface_model.
 ! 
 ! Former revisions:
@@ -218 +219 @@
 
     USE land_surface_model_mod,                                                &
-        ONLY:  init_lsm, land_surface
+        ONLY:  init_lsm, init_lsm_arrays, land_surface
   
     USE ls_forcing_mod
@@ -621 +622 @@
 
 !
+!-- Allocate land surface model arrays
+    IF ( land_surface )  THEN
+       CALL init_lsm_arrays
+    ENDIF
+
+!
 !-- Allocate arrays containing the RK coefficient for calculation of 
 !-- perturbation pressure and turbulent fluxes. At this point values are