Changeset 4454
- Timestamp:
- 2014-02-04T13:16:38+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90
r3211 r4454 100 100 DO jj = 1, jpj 101 101 DO ji = 1, jpi 102 DO jk = 1, jpkm1102 DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 103 103 ztrdt(ji,jj,jk) = ( ( tsa(ji,jj,jk,jp_tem) - tsb(ji,jj,jk,jp_tem) ) / r2dtra(jk) ) - ztrdt(ji,jj,jk) 104 104 ztrds(ji,jj,jk) = ( ( tsa(ji,jj,jk,jp_sal) - tsb(ji,jj,jk,jp_sal) ) / r2dtra(jk) ) - ztrds(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.