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

Timestamp:

Aug 24, 2016 3:47:17 PM (8 years ago)

Author:

kanani

Message:

changes in the course of urban surface model implementation

File:

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

palm/trunk/SOURCE/palm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Temporarily added CALL for writing of restart data for urban surface model
 ! 
 ! Former revisions:
@@ -144 +144 @@
 !>
 !> @todo create routine last_actions instead of calling lsm_last_actions etc.
+!> @todo eventually move CALL usm_write_restart_data to suitable location
 !------------------------------------------------------------------------------!
  PROGRAM palm
@@ -201 +202 @@
     USE surface_layer_fluxes_mod,                                              &
         ONLY:  pt1, qv1, uv_total
+        
+    USE urban_surface_mod,                                                     &
+        ONLY:  urban_surface, usm_write_restart_data        
 
 #if defined( __openacc )
@@ -455 +459 @@
 !--    If required, write particle data
        IF ( particle_advection )  CALL lpm_write_restart_file
+!
+!--    If required, write urban surface data
+       IF (urban_surface)  CALL usm_write_restart_data
+       
     ENDIF