Changeset 12489 for NEMO/trunk/src/OCE/TDE
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TDE/tide_mod.F90
r12343 r12489 171 171 IF( ln_scal_load.AND.ln_read_load ) & 172 172 & CALL ctl_stop('Choose between ln_scal_load and ln_read_load') 173 IF( ln_tide_ramp.AND.((nitend-nit000+1)*r dt/rday < rn_tide_ramp_dt) ) &173 IF( ln_tide_ramp.AND.((nitend-nit000+1)*rn_Dt/rday < rn_tide_ramp_dt) ) & 174 174 & CALL ctl_stop('rn_tide_ramp_dt must be lower than run duration') 175 175 IF( ln_tide_ramp.AND.(rn_tide_ramp_dt<0.) ) & … … 424 424 !!---------------------------------------------------------------------- 425 425 426 IF( nsec_day == NINT(0.5_wp * r dt) .OR. kt == nit000 ) THEN ! start a new day426 IF( nsec_day == NINT(0.5_wp * rn_Dt) .OR. kt == nit000 ) THEN ! start a new day 427 427 ! 428 428 CALL tide_harmo(tide_components, tide_harmonics, ndt05) ! Update oscillation parameters of tidal components for start of current day … … 441 441 IF( ln_tide_pot ) CALL tide_init_potential 442 442 ! 443 rn_tide_ramp_t = (kt - nit000)*r dt ! Elapsed time in seconds443 rn_tide_ramp_t = (kt - nit000)*rn_Dt ! Elapsed time in seconds 444 444 ENDIF 445 445 !
Note: See TracChangeset
for help on using the changeset viewer.