Changeset 2007 for palm/trunk/SOURCE/swap_timelevel.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/swap_timelevel.f90 (modified) (5 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added swapping of urban surface model quantities,
+! removed redundance for land surface model
 ! 
 ! Former revisions:
@@ -116 +117 @@
     USE pmc_interface,                                                         &
         ONLY: nested_run, pmci_set_swaplevel
+
+    USE urban_surface_mod,                                                     &
+        ONLY:  urban_surface, usm_swap_timelevel
 
 
@@ -182 +186 @@
     ENDIF
 
+    IF ( urban_surface )  THEN
+       CALL usm_swap_timelevel ( 0 )
+    ENDIF
+
 
     CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'stop' )
@@ -214 +222 @@
           ENDIF
 
-          IF ( land_surface )  THEN
-             CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
-          ENDIF
-
           swap_level = 1
 
@@ -245 +249 @@
           ENDIF
 
-          IF ( land_surface )  THEN
-             CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
-          ENDIF
-
           swap_level = 2
 
     END SELECT
+
+    IF ( land_surface )  THEN
+       CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
+    ENDIF
+
+    IF ( urban_surface )  THEN
+       CALL usm_swap_timelevel ( MOD( timestep_count, 2) )
+    ENDIF
 
 !