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

Timestamp:

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

Author:

heinze

Message:

routines for nudging and large scale forcing from external file added

File:

• palm/trunk/SOURCE/boundary_conds.f90 (modified) (2 diffs)

palm/trunk/SOURCE/boundary_conds.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Adjust ug and vg at each timestep in case of large_scale_forcing
 !  
 ! Former revisions:
@@ -147 +147 @@
         u_p(nzt+1,:,:) = u_init(nzt+1)
         v_p(nzt+1,:,:) = v_init(nzt+1)
+        IF ( large_scale_forcing) THEN
+           u_p(nzt+1,:,:) = ug(nzt+1)
+           v_p(nzt+1,:,:) = vg(nzt+1)
+        END IF
        !$acc end kernels
     ELSE