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

Timestamp:

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

Author:

knoop

Message:

M Makefile

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Implementation of the PALM module interface
+! 
+! 3636 2018-12-19 13:48:34Z raasch
 ! nopointer option removed
 ! 
@@ -91 +94 @@
 
     USE control_parameters
-        
+
     USE indices,                                                               &
         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
@@ -1956 +1959 @@
     INTEGER(iwp) ::  g  !<
 
+    IF ( simulated_time >= time_since_reference_point )  THEN
 
     SELECT CASE ( mod_count )
@@ -2010 +2014 @@
 
     END SELECT
+
+    ENDIF
 
  END SUBROUTINE salsa_swap_timelevel