Changeset 4433 for branches/2011
- Timestamp:
- 2014-02-04T13:14:33+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r4430 r4433 209 209 DO jj = 1, jpj 210 210 DO ji = 1, jpi 211 DO jk = 1, jpkm1211 DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 212 212 #else 213 213 DO jk = 1, jpkm1 … … 242 242 DO jj = 2, jpjm1 243 243 DO ji = 2, jpim1 244 DO jk = 1, jpkm1244 DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 245 245 #else 246 246 DO jk = 1, jpkm1 ! -------------------------- … … 691 691 zu_asp = ( zu_sum(ji,jj) - ub_b(ji,jj) ) / z2dt_b 692 692 zv_asp = ( zv_sum(ji,jj) - vb_b(ji,jj) ) / z2dt_b 693 DO jk=1, jpkm1693 DO jk=1,mbkmax(ji,jj)-1 ! jpkm1 694 694 ua(ji,jj,jk) = ua(ji,jj,jk) + zu_asp 695 695 va(ji,jj,jk) = va(ji,jj,jk) + zv_asp
Note: See TracChangeset
for help on using the changeset viewer.