Changeset 12127 for NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2019-12-09T18:42:54+01:00 (4 years ago)

Author:

smasson

Message:

dev_r12114_ticket_2263: replace integer kt_offset by real pt_offset, see #2263

File:

• NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/DYN/dynspg_ts.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/DYN/dynspg_ts.F90

@@ -423 +423 @@
          !                    !==  Update the forcing ==! (BDY and tides)
          !
-         IF( ln_bdy      .AND. ln_tide )   CALL bdy_dta_tides( kt, kit=jn, kt_offset= noffset+1 )
-         IF( ln_tide_pot .AND. ln_tide )   CALL upd_tide     ( kt, kit=jn, kt_offset= noffset   )
+         IF( ln_bdy      .AND. ln_tide )   CALL bdy_dta_tides( kt, kit=jn, pt_offset= REAL(noffset,wp) + 1._wp )
+         IF( ln_tide_pot .AND. ln_tide )   CALL upd_tide     ( kt, kit=jn, pt_offset= REAL(noffset,wp)         )
          !
          !                    !==  extrapolation at mid-step  ==!   (jn+1/2)