Changeset 2817 for palm/trunk/SOURCE/swap_timelevel.f90

Timestamp:

Feb 19, 2018 4:32:21 PM (6 years ago)

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

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

palm/trunk/SOURCE/swap_timelevel.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -148 +151 @@
                passive_scalar, timestep_count, urban_surface
 
+    USE gust_mod,                                                              &
+        ONLY: gust_module_enabled, gust_swap_timelevel
+
     USE indices,                                                               &
         ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzt
@@ -214 +220 @@
     ENDIF
 
+    IF ( gust_module_enabled )  THEN
+       CALL gust_swap_timelevel ( 0 )
+    ENDIF
+
 
     CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'stop' )
@@ -293 +303 @@
     ENDIF
 
+    IF ( gust_module_enabled )  THEN
+       CALL gust_swap_timelevel ( MOD( timestep_count, 2) )
+    ENDIF
+
 !
 !-- Set the swap level for steering the pmc data transfer