62 real(
dp),
intent(in) :: runinterval
74 character (len=*),
parameter :: myfile = &
84 WRITE (
stdout,10)
' PROPAGATOR - Grid: ', ng, &
85 &
', Iteration: ',
nrun, &
86 &
', number converged RITZ values: ', &
162 WRITE (
stdout,20)
' PROPAGATOR - Grid: ', ng, &
163 &
', Tangent Initial Norm: ', statenorm(ng)
242 WRITE (
stdout,20)
' PROPAGATOR - Grid: ', ng, &
243 &
', Tangent Final Norm: ', statenorm(ng)
361 & ad_state(ng)%vector)
377 10
FORMAT (/,a,i2.2,a,i3.3,a,i3.3/)
378 20
FORMAT (/,a,i2.2,a,1p,e15.6,/)
379 30
FORMAT (/,1x,a,1x,
'ROMS: started time-stepping:', &
380 &
' (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 initialize_coupling(ng, tile, model)
subroutine, public initialize_forces(ng, tile, model)
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
real(dp), parameter sec2day
integer, dimension(:), allocatable ntend
integer, dimension(:), allocatable indx1
integer, dimension(:), allocatable ntfirst
real(dp), dimension(:), allocatable time
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
subroutine, public propagator_fsv(runinterval, state, ad_state)
subroutine, public set_depth(ng, tile, model)
logical function, public founderror(flag, noerr, line, routine)
subroutine tl_unpack(ng, tile, mstr, mend, state)
subroutine ad_pack(ng, tile, mstr, mend, ad_state)
subroutine tl_get_data(ng)
subroutine tl_get_idata(ng)
subroutine tl_main3d(runinterval)