Changeset 7330 for branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2016-11-24T17:10:48+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r7240 r7330 306 306 z2d(:,:) = 0.e0 307 307 DO jk = 1, jpkm1 308 z3d(:,:,jk) = rau0 * un(:,:,jk) * e2u(:,:) * fse3u(:,:,jk) * umask(:,:,jk)308 z3d(:,:,jk) = rau0 * un(:,:,jk) * e2u(:,:) * e3u_n(:,:,jk) * umask(:,:,jk) 309 309 z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 310 310 END DO
Note: See TracChangeset
for help on using the changeset viewer.