Changeset 449 for palm/trunk/SOURCE/production_e.f90

Timestamp:

Feb 2, 2010 11:23:59 AM (14 years ago)

Author:

raasch

Message:

branch revision comments from Marcus (rev 410) replaced by normal revision comments

File:

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

palm/trunk/SOURCE/production_e.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! test output from rev 410 removed
 !
 ! Former revisions:
@@ -635 +635 @@
        USE indices
        USE statistics
-USE pegrid
+
        IMPLICIT NONE
 
@@ -988 +988 @@
 
                 DO  k = nzb_diff_s_inner(j,i), nzt_diff
-IF ( pt(k,j,i) == 0.0 .OR. dd2zu(k) == 0.0 )  &
-WRITE (*,'(6(I4,1X),F6.2,1X,F6.2)')  &
-myid, i, j, nzb_diff_s_inner(j,i), nzt_diff, k, pt(k,j,i), dd2zu(k)
                    tend(k,j,i) = tend(k,j,i) - kh(k,j,i) * g / pt(k,j,i) * &
                                        ( pt(k+1,j,i) - pt(k-1,j,i) ) * dd2zu(k)