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

Timestamp:

Mar 19, 2007 8:20:46 AM (18 years ago)

Author:

raasch

Message:

preliminary changes for precipitation output

File:

• palm/trunk/SOURCE/production_e.f90 (modified) (1 diff)

palm/trunk/SOURCE/production_e.f90

@@ -910 +910 @@
 !--                of the eddy diffusivity by km = u* * kappa * zp / phi_m.
           !$OMP PARALLEL DO PRIVATE( ku, kv )
-          DO  i = nxl, nxr
-             DO  j = nys, nyn
+          DO  i = nxl, nxr+1
+             DO  j = nys, nyn+1
 
                 ku = nzb_u_inner(j,i)+1