- Timestamp:
- 2021-09-14T13:46:08+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90
r15254 r15255 47 47 INTEGER, INTENT( in ) :: kt ! ocean time-step 48 48 INTEGER :: jk ! dummy loop index 49 INTEGER :: nsec_day_orig ! Temporary variable50 49 !!---------------------------------------------------------------------- 51 50 52 IF( nsec_day == NINT(0.5_wp * rdttra(1)) .OR. kt == nit000 ) THEN! start a new day51 IF( nsec_day == NINT(0.5_wp * rdttra(1)) ) THEN ! start a new day 53 52 ! 54 53 IF( kt == nit000 ) THEN … … 61 60 pot_astro(:,:) = 0._wp 62 61 ! 63 ! If the run does not start from midnight then need to initialise tides 64 ! at the start of the current day (only occurs when kt==nit000) 65 ! Temporarily set nsec_day to beginning of day. 66 nsec_day_orig = nsec_day 67 IF ( nsec_day /= NINT(0.5_wp * rdttra(1)) ) THEN 68 kt_tide = kt - (nsec_day - 0.5_wp * rdttra(1))/rdttra(1) 69 nsec_day = NINT(0.5_wp * rdttra(1)) 70 ELSE 71 kt_tide = kt 72 ENDIF 62 CALL tide_harmo( omega_tide, v0tide, utide, ftide, ntide, nb_harmo ) 73 63 ! 74 CALL tide_harmo( omega_tide, v0tide, utide, ftide, ntide, nb_harmo )64 kt_tide = kt 75 65 ! 76 66 IF(lwp) THEN … … 84 74 ! 85 75 IF( ln_tide_pot ) CALL tide_init_potential 86 !87 ! Reset nsec_day88 nsec_day = nsec_day_orig89 76 ! 90 77 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.