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

Timestamp:

May 7, 2014 11:15:00 AM (10 years ago)

Author:

heinze

Message:

adjustments in case of nudging + bugfix for KIND in CMPLX function

File:

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

palm/trunk/SOURCE/boundary_conds.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Dirichlet-condition at the top for u and v changed to u_init and v_init also 
+! for large_scale_forcing
 ! 
 ! Former revisions:
@@ -162 +163 @@
         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