Changeset 9919 for NEMO/trunk/src/OCE/DIA/dia25h.F90
- Timestamp:
- 2018-07-10T17:07:05+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/dia25h.F90
r9598 r9919 139 139 ! ----------------- 140 140 ! Define frequency of summing to create 25 h mean 141 IF( MOD( 3600, INT(rdt) ) == 0 ) THEN142 i_steps = 3600/ INT(rdt)141 IF( MOD( 3600,NINT(rdt) ) == 0 ) THEN 142 i_steps = 3600/NINT(rdt) 143 143 ELSE 144 144 CALL ctl_stop('STOP', 'dia_wri_tide: timestep must give MOD(3600,rdt) = 0 otherwise no hourly values are possible')
Note: See TracChangeset
for help on using the changeset viewer.