2#if defined TL_IOMS && !defined SOLVE3D
22# if defined MODEL_COUPLING && defined MCT_LIB
30# ifdef TIDE_GENERATING_FORCES
33# if defined ATM_COUPLING_NOT_YET && defined MCT_LIB
36# if defined WAV_COUPLING_NOT_YET && defined MCT_LIB
41# ifdef defined ADJUST_WSTRESS
45# ifdef ADJUST_BOUNDARY
48# ifdef NEARSHORE_MELLOR_NOT_YET
51# if defined SSH_TIDES_NOT_YET || defined UV_TIDES_NOT_YET
59# ifdef WEAK_CONSTRAINT
63 USE rp_set_avg_mod,
ONLY : tl_set_avg
65# if defined PROPAGATOR || \
66 (defined masking && (defined read_water || defined write_water))
74 real(dp),
intent(in) :: RunInterval
81 integer :: Lend, Lstr, chunk_size
84 real(r8) :: MaxDT, my_StepTime
86 character (len=*),
parameter :: MyFile = &
96 step_loop :
DO WHILE (my_steptime.le.(runinterval+0.5_r8*maxdt))
98 my_steptime=my_steptime+maxdt
137# ifdef WEAK_CONSTRAINT
190 CALL tl_set_avg (ng, tile)
195# ifdef TIDE_GENERATING_FORCES
196 CALL equilibrium_tide (ng, tile,
irpm)
203# if defined ATM_COUPLING_NOT_YET && defined MCT_LIB
214 CALL ocn2atm_coupling (ng, tile)
221# if defined WAV_COUPLING_NOT_YET && defined MCT_LIB
232 CALL ocn2wav_coupling (ng, tile)
239# ifdef NEARSHORE_MELLOR_NOT_YET
247 CALL rp_radiation_stress (ng, tile)
260# if defined SSH_TIDES_NOT_YET || defined UV_TIDES_NOT_YET
261 CALL rp_set_tides (ng, tile)
267# ifdef ADJUST_BOUNDARY
284# ifdef ADJUST_WSTRESS
327 next_indx1=3-
indx1(ng)
330 IF (first_2d_step)
THEN
371# ifdef FLOATS_NOT_YET
386 lend=min(
nfloats(ng),lstr+chunk_size-1)
391 CALL rp_step_floats (ng, lstr, lend)
subroutine, public time_string(mytime, date_string)
integer, dimension(:,:), allocatable couplesteps
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
integer, dimension(:), allocatable nfloats
logical, dimension(:), allocatable lfloats
integer, dimension(:), allocatable iic
real(dp), dimension(:), allocatable dt
logical, dimension(:), allocatable predictor_2d_step
real(dp), dimension(:), allocatable tdays
logical, dimension(:), allocatable frequentimpulse
integer, dimension(:), allocatable nfast
real(dp), parameter sec2day
integer, dimension(:), allocatable ntend
character(len=22), dimension(:), allocatable time_code
integer, dimension(:), allocatable indx1
real(dp), dimension(:), allocatable time
integer, dimension(:), allocatable ntstart
integer, dimension(:), allocatable iif
integer, dimension(:), allocatable nfm2
integer, dimension(:), allocatable kstp
integer, dimension(:), allocatable knew
integer, dimension(:), allocatable nfm1
integer, dimension(:), allocatable lfinp
integer, dimension(:), allocatable lbinp
integer, dimension(:), allocatable nf
integer, dimension(:), allocatable nfm3
integer, dimension(:), allocatable nfp1
integer, dimension(:), allocatable krhs
integer, dimension(:), allocatable nstp
subroutine, public rp_diag(ng, tile)
subroutine, public rp_frc_adjust(ng, tile, linp)
subroutine, public rp_ini_fields(ng, tile, model)
subroutine, public rp_ini_zeta(ng, tile, model)
subroutine, public rp_obc_adjust(ng, tile, linp)
subroutine, public rp_set_vbc(ng, tile)
subroutine, public rp_step2d(ng, tile)
logical function, public founderror(flag, noerr, line, routine)
subroutine, public tl_forcing(ng, tile, kfrc, nfrc)
subroutine rp_get_data(ng)
subroutine rp_set_data(ng, tile)
subroutine wpoints(ng, tile, model)