95 logical,
intent(inout) :: first
97 integer,
intent(in),
optional :: mpiCOMM
101 logical :: allocate_vars = .true.
104 integer :: MyError, MySize
106 integer :: chunk_size, ng, thread, tile
108 integer :: my_threadnum
111 character (len=*),
parameter :: MyFile = &
112 & __FILE__//
", ROMS_initialize"
120 IF (
PRESENT(mpicomm))
THEN
177#elif defined DISTRIBUTE
194 10
FORMAT (/,
' Process Information:',/)
198 DO thread=thread_range
211#if defined MCT_LIB && (defined ATM_COUPLING || defined WAV_COUPLING)
219 CALL initialize_ocn2atm_coupling (ng,
myrank)
222 CALL initialize_ocn2wav_coupling (ng,
myrank)
265 real(dp),
intent(in) :: RunInterval
269 integer :: my_outer, ng
271 character (len=*),
parameter :: MyFile = &
272 & __FILE__//
", ROMS_run"
283#if defined ADJUST_STFLUX || defined ADJUST_WSTRESS
287#ifdef ADJUST_BOUNDARY
308 outer_loop :
DO my_outer=1,
nouter
322 CALL analysis (my_outer, runinterval)
327#if defined POSTERIOR_ERROR_I || defined POSTERIOR_ERROR_F || \
328 defined posterior_eofs
350 integer :: Fcount, ng, thread
352 character (len=*),
parameter :: MyFile = &
353 & __FILE__//
", ROMS_finalize"
397 10
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
424 20
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
428 DO thread=thread_range
subroutine, public close_out
subroutine, public close_inp(ng, model)
subroutine, public def_dai(ng)
subroutine, public inp_par(model)
subroutine, public roms_initialize_arrays
subroutine, public roms_allocate_arrays(allocate_vars)
type(t_io), dimension(:), allocatable rst
character(len=256) sourcefile
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 lreadstd
logical, dimension(:), allocatable setgridconfig
logical, dimension(:), allocatable lwrtrst
logical, dimension(:), allocatable ldefdai
logical, dimension(:), allocatable lcyclerst
integer, dimension(:), allocatable lold
integer, dimension(:), allocatable lbout
integer, dimension(:), allocatable lfinp
integer, dimension(:), allocatable lbinp
integer, dimension(:), allocatable lnew
integer, dimension(:), allocatable lfout
subroutine, public increment(my_outer, runinterval)
subroutine, public background(my_outer, runinterval)
subroutine, public posterior_error(runinterval)
subroutine, public prior_error(ng)
subroutine, public analysis(my_outer, runinterval)
subroutine, public roms_finalize
subroutine, public roms_run(runinterval)
subroutine, public roms_initialize(first, mpicomm)
subroutine, public stats_modobs(ng, tile)
integer function, public stdout_unit(mymaster)
logical, save set_stdoutunit
logical function, public founderror(flag, noerr, line, routine)
subroutine, public wrt_dai(ng, tile)
subroutine, public wrt_rst(ng, tile)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)