Changeset 13295 for NEMO/trunk/src/OCE/TRD/trdtra.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trdtra.F90
r13237 r13295 221 221 ptrd(:,:,jpk) = 0._wp 222 222 ! 223 DO_3D _00_00(1, jpkm1 )223 DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 224 224 ptrd(ji,jj,jk) = - ( pf (ji,jj,jk) - pf (ji-ii,jj-ij,jk-ik) & 225 225 & - ( pu(ji,jj,jk) - pu(ji-ii,jj-ij,jk-ik) ) * pt(ji,jj,jk) ) &
Note: See TracChangeset
for help on using the changeset viewer.