Changeset 75 for palm/trunk/SOURCE/advec_u_up.f90
- Timestamp:
- Mar 22, 2007 9:54:05 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_u_up.f90
r4 r75 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! uxrp eliminated 7 7 ! 8 8 ! Former revisions: … … 53 53 54 54 55 DO i = nxl, nxr +uxrp55 DO i = nxl, nxr 56 56 DO j = nys, nyn 57 57 DO k = nzb_u_inner(j,i)+1, nzt
Note: See TracChangeset
for help on using the changeset viewer.