- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/dia25h.F90
- Property svn:keywords set to Id
r9598 r10288 33 33 !!---------------------------------------------------------------------- 34 34 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 35 !! $Id :$36 !! Software governed by the CeCILL licen ce (./LICENSE)35 !! $Id$ 36 !! Software governed by the CeCILL license (see ./LICENSE) 37 37 !!---------------------------------------------------------------------- 38 38 CONTAINS … … 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.