Changeset 15033 for NEMO/trunk/src/OCE/DYN/dynldf_lap_blp.F90
- Timestamp:
- 2021-06-21T12:24:45+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynldf_lap_blp.F90
r14834 r15033 114 114 ! 115 115 DO_2D( iij-1, iij, iij-1, iij ) 116 ! ! ahm * e3 * curl ( computed from 1 to jpim1/jpjm1)116 ! ! ahm * e3 * curl (warning: computed for ji-1,jj-1) 117 117 zcur(ji-1,jj-1) = ahmf(ji-1,jj-1,jk) * e3f(ji-1,jj-1,jk) * r1_e1e2f(ji-1,jj-1) & ! ahmf already * by fmask 118 118 & * ( e2v(ji ,jj-1) * pv(ji ,jj-1,jk) - e2v(ji-1,jj-1) * pv(ji-1,jj-1,jk) & 119 119 & - e1u(ji-1,jj ) * pu(ji-1,jj ,jk) + e1u(ji-1,jj-1) * pu(ji-1,jj-1,jk) ) 120 ! ! ahm * div ( computed from 2 to jpi/jpj)120 ! ! ahm * div (warning: computed for ji,jj) 121 121 zdiv(ji,jj) = ahmt(ji,jj,jk) * r1_e1e2t(ji,jj) / e3t(ji,jj,jk,Kbb) & ! ahmt already * by tmask 122 122 & * ( e2u(ji,jj)*e3u(ji,jj,jk,Kbb) * pu(ji,jj,jk) - e2u(ji-1,jj)*e3u(ji-1,jj,jk,Kbb) * pu(ji-1,jj,jk) &
Note: See TracChangeset
for help on using the changeset viewer.