72 logical,
intent(inout) :: first
74 integer,
intent(in),
optional :: mpiCOMM
78 logical :: allocate_vars = .true.
81 integer :: MyError, MySize
83 integer :: chunk_size, ng, thread
85 integer :: my_threadnum
88 character (len=*),
parameter :: MyFile = &
89 & __FILE__//
", ROMS_initialize"
97 IF (
PRESENT(mpicomm))
THEN
148#elif defined DISTRIBUTE
166 10
FORMAT (/,
' Process Information:',/)
171 DO thread=thread_range
187#if defined MCT_LIB && (defined ATM_COUPLING || defined WAV_COUPLING)
195 CALL initialize_ocn2atm_coupling (ng,
myrank)
198 CALL initialize_ocn2wav_coupling (ng,
myrank)
259 real(dp),
intent(in) :: RunInterval
264#if defined MODEL_COUPLING && !defined MCT_LIB
265 integer :: NstrStep, NendStep, extra
267 real(dp) :: ENDtime, NEXTtime
270 character (len=*),
parameter :: MyFile = &
271 & __FILE__//
", ROMS_run"
275#if defined MODEL_COUPLING && !defined MCT_LIB
286#if defined MODEL_COUPLING && !defined MCT_LIB
287 nexttime=
time(ng)+runinterval
289 IF ((nexttime.eq.endtime).and.(ng.eq.1))
THEN
297 IF (
master)
WRITE (
stdout,10)
'NL', ng, nstrstep, nendstep
314 10
FORMAT (1x,a,1x,
'ROMS: started time-stepping:', &
315 &
' (Grid: ',i2.2,
' TimeSteps: ',i12.12,
' - ',i12.12,
')')
330 integer :: Fcount, ng, thread
332 character (len=*),
parameter :: MyFile = &
333 & __FILE__//
", ROMS_finalize"
347 CALL wrt_dai (ng, -1)
377 10
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
378 &
' RESTART file',/,
' REASON: ',a,/)
404 20
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
409 DO thread=thread_range
subroutine main3d(runinterval)
subroutine, public close_out
subroutine, public close_inp(ng, model)
subroutine, public def_mod(ng)
subroutine, public inp_par(model)
subroutine, public roms_initialize_arrays
subroutine, public roms_allocate_arrays(allocate_vars)
logical, dimension(:), allocatable wrtnlmod
logical, dimension(:), allocatable wrtobsscale
type(t_io), dimension(:), allocatable rst
subroutine, public initialize_parallel
integer, dimension(:), allocatable first_tile
integer, dimension(:), allocatable last_tile
integer, dimension(:), allocatable ntilex
integer, dimension(:), allocatable ntilee
integer, dimension(:), allocatable ntimes
integer, dimension(:), allocatable iic
real(dp), dimension(:), allocatable dt
integer, dimension(:), allocatable ntend
logical, dimension(:), allocatable ldefmod
logical, dimension(:), allocatable lwrtrst
real(dp), dimension(:), allocatable time
character(len=80) blowup_string
integer, dimension(:), allocatable ntstart
integer, dimension(:), allocatable step_counter
logical, dimension(:), allocatable ldefdai
real(dp), dimension(:), allocatable initime
logical, dimension(:), allocatable lcyclerst
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_rst(ng, tile)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)