Changeset 15053 for NEMO/trunk/src/OCE/ISF/isfcpl.F90
- Timestamp:
- 2021-06-24T17:39:38+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ISF/isfcpl.F90
r15004 r15053 374 374 ! ----------------------------------------------------------------------------------------- 375 375 ! case we open a cell but no neigbour cells available to get an estimate of T and S 376 DO_3D( 1, 1, 1, 1, 1,jpk-1 )376 DO_3D( 0, 0, 0, 0, 1,jpk-1 ) 377 377 IF (tmask(ji,jj,jk) == 1._wp .AND. ts(ji,jj,jk,2,Kmm) == 0._wp) & 378 378 & CALL ctl_stop('STOP', 'failing to fill all new weet cell, &
Note: See TracChangeset
for help on using the changeset viewer.