Changeset 12255 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY
- Timestamp:
- 2019-12-16T13:52:25+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdydta.F90
r12250 r12255 75 75 CONTAINS 76 76 77 SUBROUTINE bdy_dta( kt, Kmm , pt_offset)77 SUBROUTINE bdy_dta( kt, Kmm ) 78 78 !!---------------------------------------------------------------------- 79 79 !! *** SUBROUTINE bdy_dta *** … … 86 86 INTEGER, INTENT(in) :: kt ! ocean time-step index 87 87 INTEGER, INTENT(in) :: Kmm ! ocean time level index 88 REAL(wp),INTENT(in), OPTIONAL :: pt_offset ! time offset in units of timesteps89 88 ! 90 89 INTEGER :: jbdy, jfld, jstart, jend, ib, jl ! dummy loop indices … … 211 210 ! read/update all bdy data 212 211 ! ------------------------ 213 CALL fld_read( kt, 1, bf_alias, pt_offset = pt_offset, Kmm = Kmm ) 212 ! BDY: use pt_offset=0.5 as applied at the end of the step and fldread is referenced at the middle of the step 213 CALL fld_read( kt, 1, bf_alias, pt_offset = 0.5_wp, Kmm = Kmm ) 214 214 ! apply some corrections in some specific cases... 215 215 ! -------------------------------------------------- … … 341 341 ELSE ! Add tides if not split-explicit free surface else this is done in ts loop 342 342 ! 343 CALL bdy_dta_tides( kt=kt, pt_offset=pt_offset ) 343 ! BDY: use pt_offset=1.0 as applied at the end of the step and bdy_dta_tides is referenced at the middle of the step 344 CALL bdy_dta_tides( kt=kt, pt_offset = 1._wp ) 344 345 ENDIF 345 346 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.