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

Timestamp:

Oct 29, 2013 1:21:31 PM (10 years ago)

Author:

heinze

Message:

Undoing commit 1239

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