Changeset 8091
- Timestamp:
- 2017-05-30T10:07:16+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_crs.F90
r7806 r8091 264 264 & + vmask_crs(ji,jj-1,jk-1) + vmask_crs(ji,jj ,jk), 1. ) 265 265 ! 266 zcoef3 = zcoef0 * e1e2w_ crs(ji,jj,jk) * zmsku * wslpi_crs(ji,jj,jk) / e1t_crs(ji,jj)267 zcoef4 = zcoef0 * e1e2w_ crs(ji,jj,jk) * zmskv * wslpj_crs(ji,jj,jk) / e2t_crs(ji,jj)266 zcoef3 = zcoef0 * e1e2w_msk(ji,jj,jk) * zmsku * wslpi_crs(ji,jj,jk) / e1t_crs(ji,jj) 267 zcoef4 = zcoef0 * e1e2w_msk(ji,jj,jk) * zmskv * wslpj_crs(ji,jj,jk) / e2t_crs(ji,jj) 268 268 ztfw(ji,jj,jk) = zcoef3 * ( zdit(ji ,jj ,jk-1) + zdit(ji-1,jj ,jk) & 269 269 & + zdit(ji-1,jj ,jk-1) + zdit(ji ,jj ,jk) ) &
Note: See TracChangeset
for help on using the changeset viewer.