Changeset 3395 for branches/CMIP5_IPSL
- Timestamp:
- 2012-05-16T10:41:48+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90
r1846 r3395 136 136 z3d(:,:,jpk) = 0.e0 137 137 DO jk = 1, jpkm1 138 z3d(:,:,jk) = rau0 * un(:,:,jk) * e 1u(:,:) * fse3u(:,:,jk)138 z3d(:,:,jk) = rau0 * un(:,:,jk) * e2u(:,:) * fse3u(:,:,jk) 139 139 END DO 140 140 CALL iom_put( "u_masstr", z3d ) ! mass transport in i-direction … … 151 151 CALL iom_put( "u_heattr", z2d ) ! heat transport in i-direction 152 152 DO jk = 1, jpkm1 153 z3d(:,:,jk) = rau0 * vn(:,:,jk) * e 2v(:,:) * fse3v(:,:,jk)153 z3d(:,:,jk) = rau0 * vn(:,:,jk) * e1v(:,:) * fse3v(:,:,jk) 154 154 END DO 155 155 CALL iom_put( "v_masstr", z3d ) ! mass transport in j-direction
Note: See TracChangeset
for help on using the changeset viewer.