Changeset 5803 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2015-10-19T09:54:39+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r5798 r5803 348 348 z3du(ji,jj,jk) = 0.5 * ( avm(ji,jj,jk ) + avm(ji+1,jj,jk) ) & 349 349 & * ( un(ji,jj,jk-1) - un(ji ,jj,jk) ) & 350 & * ( ub(ji,jj,jk-1) - ub(ji ,jj,jk) ) * umask(ji,jj,jk) &350 & * ( ub(ji,jj,jk-1) - ub(ji ,jj,jk) ) * wumask(ji,jj,jk) & 351 351 & / ( fse3uw_n(ji,jj,jk) * fse3uw_b(ji,jj,jk) ) 352 352 z3dv(ji,jj,jk) = 0.5 * ( avm(ji,jj,jk ) + avm(ji,jj+1,jk) ) & 353 353 & * ( vn(ji,jj,jk-1) - vn(ji,jj ,jk) ) & 354 & * ( vb(ji,jj,jk-1) - vb(ji,jj ,jk) ) * vmask(ji,jj,jk) &354 & * ( vb(ji,jj,jk-1) - vb(ji,jj ,jk) ) * wvmask(ji,jj,jk) & 355 355 & / ( fse3vw_n(ji,jj,jk) * fse3vw_b(ji,jj,jk) ) 356 356 END DO
Note: See TracChangeset
for help on using the changeset viewer.