74 logical,
intent(inout) :: first
76 integer,
intent(in),
optional :: mpiCOMM
80 logical :: allocate_vars = .true.
83 integer :: MyError, MySize
85 integer :: chunk_size, ng, thread
87 integer :: my_threadnum
90 character (len=*),
parameter :: MyFile = &
91 & __FILE__//
", ROMS_initialize"
99 IF (
PRESENT(mpicomm))
THEN
150#elif defined DISTRIBUTE
168 10
FORMAT (/,
' Process Information:',/)
173 DO thread=thread_range
189#if defined MCT_LIB && (defined ATM_COUPLING || defined WAV_COUPLING)
197 CALL initialize_ocn2atm_coupling (ng,
myrank)
200 CALL initialize_ocn2wav_coupling (ng,
myrank)
219 real(dp),
intent(in) :: RunInterval
225 character (len=*),
parameter :: MyFile = &
226 & __FILE__//
", ROMS_run"
240 WRITE (
tlm(ng)%name,10) trim(
tlm(ng)%head),
nrun
241 WRITE (
fwd(ng)%name,10) trim(
tlm(ng)%head),
nrun-1
244 WRITE (
stdout,20)
'ROMS Picard Iteration: ',
nrun, ng, &
245 & trim(
tlm(ng)%name), &
298 10
FORMAT (a,
'_',i3.3,
'.nc')
299 20
FORMAT (/,a,i3,2x,
'(Grid: ',i0,
')',/, &
300 & /,5x,
' History file: ',a, &
301 & /,5x,
' Forward file: ',a,/)
302 30
FORMAT (/,1x,a,1x,
'ROMS: started time-stepping:', &
303 &
' (Grid: ',i0,
' TimeSteps: ',i0,
' - ',i0,
')',/)
318 integer :: Fcount, ng, thread
320 character (len=*),
parameter :: MyFile = &
321 & __FILE__//
", ROMS_finalize"
333 10
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
360 20
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
365 DO thread=thread_range
subroutine, public close_out
subroutine, public close_file(ng, model, s, ncname, lupdate)
subroutine, public close_inp(ng, model)
subroutine, public inp_par(model)
subroutine, public roms_initialize_arrays
subroutine, public roms_allocate_arrays(allocate_vars)
type(t_io), dimension(:), allocatable tlm
type(t_io), dimension(:), allocatable fwd
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 iic
integer, dimension(:), allocatable ntend
logical, dimension(:), allocatable ldefrst
logical, dimension(:), allocatable lwrttlm
logical, dimension(:), allocatable lwrtrst
logical, dimension(:), allocatable ldeftlm
integer, dimension(:), allocatable ntstart
logical, dimension(:), allocatable lcyclerst
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 wrt_rst(ng, tile)
subroutine rp_initial(ng)
subroutine rp_main3d(runinterval)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)