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

Timestamp:

Oct 29, 2013 10:11:53 AM (11 years ago)

Author:

heinze

Message:

routines for nudging and large scale forcing from external file added

File:

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

palm/trunk/SOURCE/palm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! initialization of nudging and large scale forcing from external file
 !
 ! Former revisions:
@@ -110 +110 @@
     USE indices
     USE interfaces
+    USE ls_forcing_mod
     USE model_1d
+    USE nudge_mod
     USE particle_attributes
     USE pegrid
@@ -217 +219 @@
 
 !
+!-- 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
+
+!
 !-- Check control parameters and deduce further quantities
     CALL check_parameters
-
 
 !