Ignore:
Timestamp:
Mar 20, 2007 8:33:14 AM (15 years ago)
Author:
raasch
Message:

preliminary changes for radiation conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/production_e.f90

    r72 r73  
    910910!--                of the eddy diffusivity by km = u* * kappa * zp / phi_m.
    911911          !$OMP PARALLEL DO PRIVATE( ku, kv )
    912           DO  i = nxl, nxr+1
    913              DO  j = nys, nyn+1
     912          DO  i = nxl, nxr
     913             DO  j = nys, nyn
    914914
    915915                ku = nzb_u_inner(j,i)+1
Note: See TracChangeset for help on using the changeset viewer.