Changeset 19 for palm/trunk/SOURCE/calc_precipitation.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/calc_precipitation.f90 (modified) (3 diffs)

palm/trunk/SOURCE/calc_precipitation.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Calculation extended for gridpoint nzt
 !
 ! Former revisions:
@@ -54 +54 @@
        DO  i = nxl, nxr
           DO  j = nys, nyn
-             DO  k = nzb_2d(j,i)+1, nzt-1    
+             DO  k = nzb_2d(j,i)+1, nzt
 
                 IF ( ql(k,j,i) > ql_crit )  THEN
@@ -87 +87 @@
 
 
-       DO  k = nzb_2d(j,i)+1, nzt-1    
+       DO  k = nzb_2d(j,i)+1, nzt
 
           IF ( ql(k,j,i) > ql_crit )  THEN