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

Timestamp:

Mar 20, 2007 8:33:14 AM (17 years ago)

Author:

raasch

Message:

preliminary changes for radiation conditions

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+1
-             DO  j = nys, nyn+1
+          DO  i = nxl, nxr
+             DO  j = nys, nyn
 
                 ku = nzb_u_inner(j,i)+1