Changeset 19 for palm/trunk/SOURCE/init_pt_anomaly.f90

Timestamp:

Feb 23, 2007 4:53:48 AM (18 years ago)

Author:

raasch

Message:

preliminary version of modified boundary conditions at top

File:

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

palm/trunk/SOURCE/init_pt_anomaly.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Calculation extended for gridpoint nzt
 !
 ! Former revisions:
@@ -47 +47 @@
     DO  i = nxl, nxr
        DO  j = nys, nyn
-          DO  k = nzb+1, nzt-1
+          DO  k = nzb+1, nzt
              x = ( i - ic ) * dx
              y = ( j - jc ) * dy