Changeset 14215 for NEMO/trunk/src/OCE/DIA/diaptr.F90
- Timestamp:
- 2020-12-18T14:49:22+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diaptr.F90
r14090 r14215 382 382 zts(:,:,:,:) = 0._wp 383 383 384 DO_3D( 1, 0, 1, 1, 1, jpkm1 )384 DO_3D( 1, 1, 1, 0, 1, jpkm1 ) 385 385 zvfc = e1v(ji,jj) * e3v(ji,jj,jk,Kmm) 386 386 zmask(ji,jj,jk) = vmask(ji,jj,jk) * zvfc … … 437 437 zts(:,:,:,:) = 0._wp 438 438 439 DO_3D( 1, 0, 1, 1, 1, jpkm1 )439 DO_3D( 1, 1, 1, 0, 1, jpkm1 ) 440 440 zvfc = e1v(ji,jj) * e3v(ji,jj,jk,Kmm) 441 441 zts(ji,jj,jk,jp_tem) = (ts(ji,jj,jk,jp_tem,Kmm)+ts(ji,jj+1,jk,jp_tem,Kmm)) * 0.5 * zvfc !Tracers averaged onto V grid
Note: See TracChangeset
for help on using the changeset viewer.