Changeset 1972 for palm/trunk/SOURCE/palm.f90

Timestamp:

Jul 26, 2016 7:52:02 AM (8 years ago)

Author:

maronga

Message:

further modularization of land surface model (2D/3D output and restart data)

File:

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

palm/trunk/SOURCE/palm.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added call to lsm_last_actions for binary output of land surface model data
 ! 
 ! Former revisions:
@@ -161 +161 @@
 
     USE kinds
+
+    USE land_surface_model_mod,                                                &
+        ONLY:  land_surface, lsm_last_actions
 
     USE ls_forcing_mod,                                                        &
@@ -442 +445 @@
     IF ( myid == 0 )  CALL header
 !
-!-- If required, final user-defined actions, and
+!-- If required, final land surface and user-defined actions, and
 !-- last actions on the open files and close files. Unit 14 was opened
 !-- in write_3d_binary but it is closed here, to allow writing on this
@@ -449 +452 @@
     DO  i = 0, io_blocks-1
        IF ( i == io_group )  THEN
+          IF ( land_surface )  THEN
+             CALL lsm_last_actions
+          ENDIF
           CALL user_last_actions
           IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )