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

preliminary changes for precipitation output

File:
1 edited

Legend:

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

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