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

Timestamp:

Apr 6, 2016 3:44:20 PM (8 years ago)

Author:

maronga

Message:

further modularization of land surface model

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Renamed lsm calls.
 !
 ! Former revisions:
@@ -69 +69 @@
 !
 ! 1551 2015-03-03 14:18:16Z maronga
-! Allocation of land surface arrays is now done in the subroutine init_lsm_arrays,
+! Allocation of land surface arrays is now done in the subroutine lsm_init_arrays,
 ! which is part of land_surface_model.
 ! 
@@ -266 +266 @@
 
     USE land_surface_model_mod,                                                &
-        ONLY:  init_lsm, init_lsm_arrays, land_surface
+        ONLY:  lsm_init, lsm_init_arrays, land_surface
   
     USE ls_forcing_mod
@@ -678 +678 @@
 !-- Allocate land surface model arrays
     IF ( land_surface )  THEN
-       CALL init_lsm_arrays
+       CALL lsm_init_arrays
     ENDIF
 
@@ -1665 +1665 @@
     IF ( land_surface )  THEN
        CALL location_message( 'initializing land surface model', .FALSE. )
-       CALL init_lsm
+       CALL lsm_init
        CALL location_message( 'finished', .TRUE. )
     ENDIF