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

Timestamp:

Jul 21, 2017 12:47:43 PM (7 years ago)

Author:

suehring

Message:

large-scale forcing and nudging modularized

File:

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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularize large-scale forcing and nudging
+! 
+! 2298 2017-06-29 09:28:18Z raasch
 ! type of write_binary changed from CHARACTER to LOGICAL,
 ! user interface required revision updated, MPI2 related part removed
@@ -207 +210 @@
         ONLY:  lsm_last_actions
 
-    USE ls_forcing_mod,                                                        &
-        ONLY:  init_ls_forcing
-
-    USE nudge_mod,                                                             &
-        ONLY:  init_nudge
-
     USE particle_attributes,                                                   &
         ONLY:  particle_advection
@@ -330 +327 @@
 !-- Generate grid parameters
     CALL init_grid
-
-!
-!-- Initialize nudging if required
-    IF ( nudging )  THEN
-       CALL init_nudge
-    ENDIF
-
-!
-!-- Initialize reading of large scale forcing from external file - if required
-    IF ( large_scale_forcing )  THEN
-       CALL init_ls_forcing
-    ENDIF
 
 !