57#ifdef BALANCE_OPERATOR
74#ifdef BALANCE_OPERATOR
81#if defined BALANCE_OPERATOR && defined ZETA_ELLIPTIC
104 logical,
intent(inout) :: first
106 integer,
intent(in),
optional :: mpiCOMM
110 logical :: allocate_vars = .true.
113 integer :: MyError, MySize
115 integer :: STDrec, Tindex
116 integer :: chunk_size, ng, thread, tile
118 integer :: my_threadnum
121 character (len=*),
parameter :: MyFile = &
122 & __FILE__//
", ROMS_initialize"
130 IF (
PRESENT(mpicomm))
THEN
180#elif defined DISTRIBUTE
197 10
FORMAT (/,
' Process Information:',/)
201 DO thread=thread_range
259#ifdef ADJUST_BOUNDARY
272#if defined ADJUST_WSTRESS || defined ADJUST_STFLUX
305#ifdef ADJUST_BOUNDARY
311#if defined ADJUST_WSTRESS || defined ADJUST_STFLUX
339 real(dp),
intent(in) :: RunInterval
343 logical :: Lweak, add
344 integer :: i, ng, tile
345#ifdef BALANCE_OPERATOR
349 character (len=*),
parameter :: MyFile = &
350 & __FILE__//
", ROMS_run"
356#ifdef BALANCE_OPERATOR
394#ifdef BALANCE_OPERATOR
410#ifdef BALANCE_OPERATOR
431#if defined ADJUST_STFLUX || defined ADJUST_WSTRESS
440#if defined ADJUST_STFLUX || defined ADJUST_WSTRESS
458 integer :: Fcount, ng, thread
460 character (len=*),
parameter :: MyFile = &
461 & __FILE__//
", ROMS_finalize"
473 10
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
500 20
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
504 DO thread=thread_range
subroutine, public ad_balance(ng, tile, lbck, linp)
subroutine, public ad_convolution(ng, tile, linp, lweak, ifac)
subroutine, public ad_def_his(ng, ldef)
subroutine, public ad_variability(ng, tile, linp, lweak)
subroutine, public ad_wrt_his(ng, tile)
subroutine ana_perturb(ng, tile, model)
subroutine, public close_out
subroutine, public close_inp(ng, model)
subroutine, public def_norm(ng, model, ifile)
subroutine, public get_state(ng, model, msg, s, inirec, tindex)
subroutine, public load_adtotl(ng, tile, linp, lout, add)
subroutine, public load_tltoad(ng, tile, linp, lout, add)
subroutine, public inp_par(model)
subroutine, public roms_initialize_arrays
subroutine, public roms_allocate_arrays(allocate_vars)
logical, dimension(:), allocatable wrtzetaref
type(t_io), dimension(:,:), allocatable std
type(t_io), dimension(:), allocatable rst
type(t_io), dimension(:), allocatable ini
subroutine, public initialize_parallel
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
integer, dimension(:), allocatable ntilex
integer, dimension(:), allocatable ntilee
logical, dimension(:,:), allocatable lwrtnrm
logical, dimension(:), allocatable ladjusted
real(dp), dimension(:), allocatable dt
logical, dimension(:), allocatable balance
logical, dimension(:), allocatable ldefadj
logical, dimension(:), allocatable lwrtadj
logical, dimension(:,:), allocatable ldefnrm
logical, dimension(:), allocatable lwrtstate2d
logical, dimension(:), allocatable lwrtrst
real(dp), dimension(:), allocatable time
logical, dimension(:), allocatable lcyclerst
integer, dimension(:), allocatable kstp
integer, dimension(:), allocatable lnew
integer, dimension(:), allocatable nstp
subroutine, public normalization(ng, tile, ifac)
subroutine, public roms_finalize
subroutine, public roms_run(runinterval)
subroutine, public roms_initialize(first, mpicomm)
integer function, public stdout_unit(mymaster)
logical, save set_stdoutunit
logical function, public founderror(flag, noerr, line, routine)
subroutine, public tl_balance(ng, tile, lbck, linp)
subroutine, public tl_convolution(ng, tile, linp, lweak, ifac)
subroutine, public tl_variability(ng, tile, linp, lweak)
subroutine, public wrt_rst(ng, tile)
subroutine, public biconj(ng, tile, model, lbck)
subroutine, public balance_ref(ng, tile, lbck)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)