Changeset 13497 for NEMO/trunk/src/OCE/DIA/diawri.F90
- Timestamp:
- 2020-09-21T14:37:46+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diawri.F90
r13472 r13497 270 270 271 271 IF ( iom_use("sstgrad") .OR. iom_use("sstgrad2") ) THEN 272 DO_2D( 0, 0, 0, 0 ) 272 DO_2D( 0, 0, 0, 0 ) ! sst gradient 273 273 zztmp = ts(ji,jj,1,jp_tem,Kmm) 274 274 zztmpx = ( ts(ji+1,jj,1,jp_tem,Kmm) - zztmp ) * r1_e1u(ji,jj) + ( zztmp - ts(ji-1,jj ,1,jp_tem,Kmm) ) * r1_e1u(ji-1,jj)
Note: See TracChangeset
for help on using the changeset viewer.