71#if defined PIO_LIB && defined DISTRIBUTE
117 logical,
intent(inout) :: first
119 integer,
intent(in),
optional :: mpiCOMM
123 logical :: allocate_vars = .true.
126 integer :: MyError, MySize
128 integer :: chunk_size, ng, thread
130 integer :: my_threadnum
133 character (len=*),
parameter :: MyFile = &
134 & __FILE__//
", ROMS_initialize"
142 IF (
PRESENT(mpicomm))
THEN
221#elif defined DISTRIBUTE
238 10
FORMAT (/,
' Process Information:',/)
242 DO thread=thread_range
255#if defined MCT_LIB && (defined ATM_COUPLING || defined WAV_COUPLING)
263 CALL initialize_ocn2atm_coupling (ng,
myrank)
266 CALL initialize_ocn2wav_coupling (ng,
myrank)
315 real(dp),
intent(in) :: RunInterval
319 integer :: my_outer, ng
321 character (len=*),
parameter :: MyFile = &
322 & __FILE__//
", ROMS_run"
331#if defined ADJUST_STFLUX || defined ADJUST_WSTRESS
335#ifdef ADJUST_BOUNDARY
386 CALL analysis (my_outer, runinterval)
390#if defined POSTERIOR_ERROR_I || \
391 defined posterior_error_f || \
392 defined posterior_eofs
409 10
FORMAT (
' ROMS_run - illegal 4D-Var phase: ''',a,
'''')
419#if defined POSTERIOR_ERROR_I || \
420 defined posterior_error_f || \
421 defined posterior_eofs
443 integer :: Fcount, InpRec, Nfiles, Tindex
444 integer :: ifile, lstr, ng, thread
446 character (len=10) :: suffix
448 character (len=*),
parameter :: MyFile = &
449 & __FILE__//
", ROMS_finalize"
464 10
FORMAT (a,
'_outer',i0,
'.nc')
465 lstr=len_trim(
tlm(ng)%name)
466 tlm(ng)%base=
tlm(ng)%name(1:lstr-3)
467 IF (
tlm(ng)%Nfiles.gt.1)
THEN
468 nfiles=
tlm(ng)%Nfiles
470 WRITE (suffix,
"('_',i4.4,'.nc')") ifile
471 tlm(ng)%files(ifile)=trim(
tlm(ng)%base)//trim(suffix)
473 tlm(ng)%name=trim(
tlm(ng)%files(nfiles))
475 tlm(ng)%files(1)=trim(
tlm(ng)%name)
478 SELECT CASE (
tlm(ng)%IOtype)
481 & dimname =
'ocean_time', &
484#if defined PIO_LIB && defined DISTRIBUTE
487 & dimname =
'ocean_time', &
532 20
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
559 30
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
563 DO thread=thread_range
subroutine, public close_out
subroutine, public close_inp(ng, model)
subroutine, public def_dai(ng)
subroutine, public get_state(ng, model, msg, s, inirec, tindex)
subroutine, public inp_par(model)
subroutine, public roms_initialize_arrays
subroutine, public roms_allocate_arrays(allocate_vars)
character(len=256) aparnam
type(t_io), dimension(:), allocatable tlm
type(t_io), dimension(:), allocatable fwd
type(t_io), dimension(:), allocatable rst
integer, parameter io_nf90
integer, parameter io_pio
subroutine, public netcdf_get_dim(ng, model, ncname, ncid, dimname, dimsize, dimid)
subroutine, public initialize_parallel
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
integer, dimension(:), allocatable ntilex
integer, dimension(:), allocatable ntilee
subroutine, public pio_netcdf_get_dim(ng, model, ncname, piofile, dimname, dimsize, dimid)
logical, dimension(:), allocatable lreadstd
logical, dimension(:), allocatable setgridconfig
character(len=20) phase4dvar
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 posterior_error(runinterval)
subroutine, public increment(my_outer, runinterval)
subroutine, public analysis(my_outer, runinterval)
subroutine, public prior_error(ng)
subroutine, public background(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
character(len(sinp)) function, public uppercase(sinp)
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)