59 real(
dp),
intent(in) :: runinterval
67 logical :: firstpass = .true.
74 character (len=*),
parameter :: myfile = &
85 WRITE (
stdout,10)
' PROPAGATOR - Grid: ', ng, &
86 &
', Iteration: ',
nrun, &
87 &
', number converged RITZ values: ', &
173 WRITE (
stdout,20)
' PROPAGATOR - Grid: ', ng, &
174 &
', Tangent Initial Norm: ', statenorm(ng)
267 WRITE (
stdout,20)
' PROPAGATOR - Grid: ', ng, &
268 &
', Tangent Final Norm: ', statenorm(ng)
280 & tl_state(ng)%vector)
285 10
FORMAT (/,a,i2.2,a,i3.3,a,i3.3/)
286 20
FORMAT (/,a,i2.2,a,1p,e15.6,/)
287 30
FORMAT (/,1x,a,1x,
'ROMS: started time-stepping:', &
288 &
' (Grid: ',i2.2,
' TimeSteps: ',i8.8,
' - ',i8.8,
')')
subroutine, public close_inp(ng, model)
subroutine, public tl_statenorm(ng, tile, kinp, ninp, statenorm)
subroutine, public initialize_coupling(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
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_fte(runinterval, state, tl_state)
subroutine, public set_depth(ng, tile, model)
logical function, public founderror(flag, noerr, line, routine)
subroutine tl_pack(ng, tile, mstr, mend, tl_state)
subroutine tl_unpack(ng, tile, mstr, mend, state)
subroutine tl_get_data(ng)
subroutine tl_get_idata(ng)
subroutine tl_main3d(runinterval)