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

Timestamp:

Dec 20, 2018 1:51:36 AM (5 years ago)

Author:

knoop

Message:

M Makefile

File:

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

palm/trunk/SOURCE/swap_timelevel.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of the PALM module interface
+! 
+! 3636 2018-12-19 13:48:34Z raasch
 ! nopointer option removed
 ! 
@@ -151 +154 @@
                v, v_1, v_2, v_p, w, w_1, w_2, w_p
 
-    USE bulk_cloud_model_mod,                                                  &
-        ONLY:  bulk_cloud_model, bcm_swap_timelevel
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_swap_timelevel 
-
     USE cpulog,                                                                &
         ONLY: cpu_log, log_point
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, humidity, land_surface, neutral, ocean_mode,     &
-               passive_scalar, simulated_time, timestep_count, urban_surface,  &
-               time_since_reference_point, salsa
-
-    USE gust_mod,                                                              &
-        ONLY: gust_module_enabled, gust_swap_timelevel
-
-    USE land_surface_model_mod,                                                &
-        ONLY: lsm_swap_timelevel
-
-    USE ocean_mod,                                                             &
-        ONLY:  ocean_swap_timelevel
+        ONLY:  humidity, neutral, passive_scalar, timestep_count
+
+    USE kinds
+
+    USE module_interface,                                                      &
+        ONLY:  module_interface_swap_timelevel
 
     USE pmc_interface,                                                         &
         ONLY: nested_run, pmci_set_swaplevel
-         
-    USE salsa_mod,                                                             &
-        ONLY:  salsa_swap_timelevel, skip_time_do_salsa             
 
     USE turbulence_closure_mod,                                                &
         ONLY:  tcm_swap_timelevel
 
-    USE urban_surface_mod,                                                     &
-        ONLY:  usm_swap_timelevel
-
 
     IMPLICIT NONE
 
-    INTEGER ::  swap_level  !> swap_level for steering the pmc data transfer
+    INTEGER(iwp) ::  swap_level  !> swap_level for steering the pmc data transfer
 
 !
@@ -237 +222 @@
     END SELECT
 
-    IF ( humidity  .AND.  bulk_cloud_model )  THEN
-       CALL bcm_swap_timelevel( MOD( timestep_count, 2) )
-    ENDIF
-
-    IF ( air_chemistry )  CALL chem_swap_timelevel( MOD( timestep_count, 2) )
-
-    IF ( gust_module_enabled )  THEN
-       CALL gust_swap_timelevel( MOD( timestep_count, 2) )
-    ENDIF
-
-    IF ( land_surface )  THEN
-       CALL lsm_swap_timelevel( MOD( timestep_count, 2) )
-    ENDIF
-
-    IF ( ocean_mode )  THEN
-       CALL ocean_swap_timelevel( MOD( timestep_count, 2 ) )
-    ENDIF
-   
-    IF ( salsa  .AND.  simulated_time >= time_since_reference_point )  THEN
-       CALL salsa_swap_timelevel(  MOD( timestep_count, 2 ) )
-    ENDIF     
-
+!
+!-- Set the swap level the turbulence closure module
     CALL tcm_swap_timelevel( MOD( timestep_count, 2) )
 
-    IF ( urban_surface )  THEN
-       CALL usm_swap_timelevel( MOD( timestep_count, 2) )
-    ENDIF
+!
+!-- Set the swap level for all other modules
+    CALL module_interface_swap_timelevel( MOD( timestep_count, 2) )
 
 !