Changeset 4429 for branches/2011/DEV_r2739_STFC_dCSE
- Timestamp:
- 2014-02-04T13:14:13+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r4428 r4429 204 204 DO jj = 2, jpjm1 205 205 DO ji = 2, jpim1 206 DO jk = 1, mbkmax(ji,jj) ! jpkm1206 DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 207 207 ! after scale factor at T-point 208 208 ze3ta = ( 1. - r_vvl ) + r_vvl * fse3t_a(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.