Changeset 15589
- Timestamp:
- 2021-12-10T09:34:00+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90
r15576 r15589 163 163 ENDIF 164 164 165 !IF( iom_use('diaharm_fast_eg_ssh_ts') ) THEN 166 ! IF (lwp) CALL iom_put( 'diaharm_fast_eg_ssh_ts', sshn(5,5) ) 167 !ENDIF 168 165 169 IF ( ln_diaharm_fast .and. ln_diaharm_store .and. ( lk_diaharm_2D .or. lk_diaharm_3D) ) THEN 166 170 … … 178 182 179 183 IF( iom_use('tide_t') ) CALL iom_put( 'tide_t', sec2start ) 184 180 185 181 186
Note: See TracChangeset
for help on using the changeset viewer.