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

Timestamp:

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

Author:

raasch

Message:

preliminary version of modified boundary conditions at top

File:

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

palm/trunk/SOURCE/advec_s_pw.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Calculation extended for gridpoint nzt
 !
 ! Former revisions:
@@ -58 +58 @@
        DO  i = nxl, nxr
           DO  j = nys, nyn
-             DO  k = nzb_s_inner(j,i)+1, nzt-1
+             DO  k = nzb_s_inner(j,i)+1, nzt
                 tend(k,j,i) = tend(k,j,i)                                      &
               -0.5 * ( ( u(k,j,i+1) - u_gtrans ) * ( sk(k,j,i+1) - sk(k,j,i) ) &
@@ -93 +93 @@
 
 
-       DO  k = nzb_s_inner(j,i)+1, nzt-1
+       DO  k = nzb_s_inner(j,i)+1, nzt
           tend(k,j,i) = tend(k,j,i)                                            &
               -0.5 * ( ( u(k,j,i+1) - u_gtrans ) * ( sk(k,j,i+1) - sk(k,j,i) ) &