70 real(
dp),
intent(in) :: runinterval
83 integer :: ktmp, ntmp, lini
85 integer :: fcount, interval, inttrap
88 real(
r8) :: so_run_time
90 character (len=*),
parameter :: myfile = &
100 WRITE (
stdout,10)
' PROPAGATOR - Grid: ', ng, &
101 &
', Iteration: ',
nrun, &
102 &
', number converged RITZ values: ', &
112#ifdef STOCH_OPT_WHITE
117#ifdef STOCH_OPT_WHITE
124 WRITE (
stdout,20)
' Stochastic Optimals Time Interval = ', &
132#ifndef STOCH_OPT_WHITE
133 IF (interval.eq.1)
THEN
136 soinitial(ng)=.false.
139 IF (interval.eq.1)
THEN
171 IF ((iter.eq.1).and.(interval.eq.1))
THEN
179 adm(ng)%Nrec(fcount)=0
182 tlm(ng)%Nrec(fcount)=0
190#ifdef STOCH_OPT_WHITE
193 adm(ng)%Nrec(fcount)=0
198 adm(ng)%Nrec(fcount)=0
201 IF ((
lmultigst.or.(abs(iter).eq.1)).and. &
202 & (interval.eq.1))
THEN
204 tlm(ng)%Nrec(fcount)=0
251 IF (interval.eq.1)
THEN
258 WRITE (
stdout,30)
' PROPAGATOR - Grid: ', ng, &
259 &
', Tangent Initial Norm: ', &
343 WRITE (
stdout,30)
' PROPAGATOR - Grid: ', ng, &
344 &
', Tangent Final Norm: ', &
357#ifndef STOCH_OPT_WHITE
359 lwrtstate3d(ng)=.false.
371#ifdef STOCH_OPT_WHITE
388# ifdef STOCH_OPT_WHITE
404 & ktmp, kout, ntmp,
nstp(ng))
414#ifdef STOCH_OPT_WHITE
441# ifdef STOCH_OPT_WHITE
447# ifdef STOCH_OPT_WHITE
454#ifdef STOCH_OPT_WHITE
494# ifdef STOCH_OPT_WHITE
495 CALL ad_so_pack (ng, tile,
nstr(ng),
nend(ng), inttrap, &
498 CALL ad_so_pack_red (ng, tile,
nstr(ng),
nend(ng), &
499 & inttrap,
storage(ng)%my_state)
537 10
FORMAT (/,a,i2.2,a,i3.3,a,i3.3/)
539 30
FORMAT (/,a,i2.2,a,1p,e15.6,/)
540 40
FORMAT (/,1x,a,1x,
'ROMS: started time-stepping:', &
541 &
' (Grid: ',i2.2,
' TimeSteps: ',i8.8,
' - ',i8.8,
')')
subroutine ad_get_data(ng)
subroutine ad_get_idata(ng)
subroutine ad_main3d(runinterval)
subroutine, public close_inp(ng, model)
subroutine, public tl_statenorm(ng, tile, kinp, ninp, statenorm)
subroutine, public ad_ini_perturb(ng, tile, kinp, kout, ninp, nout)
subroutine, public tl_inner2state(ng, tile, lini, state)
subroutine, public ad_inner2state(ng, tile, lini, ad_state)
subroutine, public ini_c_norm(ng, tile, kinp, ninp, statenorm)
subroutine, public initialize_coupling(ng, tile, model)
subroutine, public initialize_forces(ng, tile, model)
type(t_io), dimension(:), allocatable adm
type(t_io), dimension(:), allocatable tlm
subroutine, public initialize_ocean(ng, tile, model)
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
integer, dimension(:), allocatable nstr
integer, dimension(:), allocatable nend
real(dp), parameter day2sec
integer, dimension(:), allocatable ntimes
integer, dimension(:), allocatable iic
real(dp), dimension(:), allocatable dt
integer, dimension(:), allocatable nconv
logical, dimension(:), allocatable synchro_flag
logical, dimension(:), allocatable predictor_2d_step
real(dp), dimension(:), allocatable tdays
logical, dimension(:), allocatable ldefadj
real(dp), parameter sec2day
integer, dimension(:), allocatable ntend
logical, dimension(:), allocatable lwrtstate2d
integer, dimension(:), allocatable indx1
integer, dimension(:), allocatable ntfirst
logical, dimension(:), allocatable lwrttlm
real(dp), dimension(:), allocatable time
logical, dimension(:), allocatable ldeftlm
integer, dimension(:), allocatable ntstart
integer, dimension(:), allocatable iif
integer, dimension(:), allocatable kstp
integer, dimension(:), allocatable knew
integer, dimension(:), allocatable nrhs
integer, dimension(:), allocatable nnew
integer, dimension(:), allocatable krhs
integer, dimension(:), allocatable nstp
type(t_storage), dimension(:), allocatable storage
subroutine, public propagator_hso(runinterval, iter, state, ad_state)
subroutine, public set_depth(ng, tile, model)
logical function, public founderror(flag, noerr, line, routine)
subroutine ad_unpack(ng, tile, mstr, mend, state)
subroutine tl_unpack(ng, tile, mstr, mend, state)
subroutine tl_get_data(ng)
subroutine tl_get_idata(ng)
subroutine tl_main3d(runinterval)