Changeset 5861
- Timestamp:
- 2015-11-05T12:59:33+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r5860 r5861 93 93 & - e1u(ji-1,jj ) * pub(ji-1,jj ,jk) + e1u(ji-1,jj-1) * pub(ji-1,jj-1,jk) ) 94 94 ! ! ahm * div (computed from 2 to jpi/jpj) 95 zdiv(ji,jj) = ahmt(ji,jj,jk) * r1_e1e2t(ji,jj) / fse3t (ji,jj,jk) * tmask(ji,jj,jk) &95 zdiv(ji,jj) = ahmt(ji,jj,jk) * r1_e1e2t(ji,jj) / fse3t_b(ji,jj,jk) * tmask(ji,jj,jk) & 96 96 & * ( e2u(ji,jj)*fse3u_b(ji,jj,jk) * pub(ji,jj,jk) - e2u(ji-1,jj)*fse3u_b(ji-1,jj,jk) * pub(ji-1,jj,jk) & 97 97 & + e1v(ji,jj)*fse3v_b(ji,jj,jk) * pvb(ji,jj,jk) - e1v(ji,jj-1)*fse3v_b(ji,jj-1,jk) * pvb(ji,jj-1,jk) )
Note: See TracChangeset
for help on using the changeset viewer.