Changeset 11692 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/SBC/updtide.F90
- Timestamp:
- 2019-10-12T16:08:18+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/SBC/updtide.F90
r10068 r11692 27 27 CONTAINS 28 28 29 SUBROUTINE upd_tide( kt, kit, time_offset )29 SUBROUTINE upd_tide( kt, kit, kt_offset ) 30 30 !!---------------------------------------------------------------------- 31 31 !! *** ROUTINE upd_tide *** … … 39 39 INTEGER, INTENT(in) :: kt ! ocean time-step index 40 40 INTEGER, INTENT(in), OPTIONAL :: kit ! external mode sub-time-step index (lk_dynspg_ts=T) 41 INTEGER, INTENT(in), OPTIONAL :: time_offset ! time offset in number41 INTEGER, INTENT(in), OPTIONAL :: kt_offset ! time offset in number 42 42 ! of internal steps (lk_dynspg_ts=F) 43 43 ! of external steps (lk_dynspg_ts=T) 44 44 ! 45 INTEGER :: joffset ! local integer45 INTEGER :: ioffset ! local integer 46 46 INTEGER :: ji, jj, jk ! dummy loop indices 47 47 REAL(wp) :: zt, zramp ! local scalar … … 52 52 zt = ( kt - kt_tide ) * rdt 53 53 ! 54 joffset = 055 IF( PRESENT( time_offset ) ) joffset = time_offset54 ioffset = 0 55 IF( PRESENT( kt_offset ) ) ioffset = kt_offset 56 56 ! 57 57 IF( PRESENT( kit ) ) THEN 58 zt = zt + ( kit + joffset - 1 ) * rdt / REAL( nn_baro, wp )58 zt = zt + ( kit + ioffset - 1 ) * rdt / REAL( nn_baro, wp ) 59 59 ELSE 60 zt = zt + joffset * rdt60 zt = zt + ioffset * rdt 61 61 ENDIF 62 62 ! … … 70 70 IF( ln_tide_ramp ) THEN ! linear increase if asked 71 71 zt = ( kt - nit000 ) * rdt 72 IF( PRESENT( kit ) ) zt = zt + ( kit + joffset -1) * rdt / REAL( nn_baro, wp )72 IF( PRESENT( kit ) ) zt = zt + ( kit + ioffset -1) * rdt / REAL( nn_baro, wp ) 73 73 zramp = MIN( MAX( zt / (rdttideramp*rday) , 0._wp ) , 1._wp ) 74 74 pot_astro(:,:) = zramp * pot_astro(:,:)
Note: See TracChangeset
for help on using the changeset viewer.