70 logical,
intent(inout) :: first
72 integer,
intent(in),
optional :: mpiCOMM
76 logical :: allocate_vars = .true.
79 integer :: MyError, MySize
81 integer :: chunk_size, ng, thread
83 character (len=*),
parameter :: MyFile = &
84 & __FILE__//
", ROMS_initialize"
92 IF (
PRESENT(mpicomm))
THEN
142#elif defined DISTRIBUTE
159 10
FORMAT (/,
' Process Information:',/)
163 DO thread=thread_range
176#if defined MCT_LIB && (defined ATM_COUPLING || defined WAV_COUPLING)
184 CALL initialize_ocn2atm_coupling (ng,
myrank)
187 CALL initialize_ocn2wav_coupling (ng,
myrank)
206 real(dp),
intent(in) :: RunInterval
210 integer :: IniRec, Ipass, i, ng, status
213 real(r8) :: gp, hp, p
215 character (len=*),
parameter :: MyFile = &
216 & __FILE__//
", ROMS_run"
226 WRITE (
stdout,10)
'Nested grids are not allowed, Ngrids = ', &
331 IF (
fourdvar(ng)%CostFunOld(i).gt.0.0_r8)
THEN
426 WRITE (
his(ng)%name,70) trim(
his(ng)%base),
nrun
456 fwd(ng)%name=trim(
his(ng)%head)//
'.nc'
469 WRITE (
tlm(ng)%name,70) trim(
tlm(ng)%base),
nrun
516 &
'TLM Test - Dot Products Summary: p, g1, g2, (g1-g2)/g1'
519 p=10.0_r8**real(-
inner,r8)
522 IF ((mod(i,1+
ntimes(ng)/
ntlm(ng)).eq.0).and. &
534 20
FORMAT (/,1x,a,1x,
'ROMS : started time-stepping:', &
535 &
' (Grid: ',i2.2,
' TimeSteps: ',i8.8,
' - ',i8.8,
')',/)
536 40
FORMAT (/,
' Nonlinear Model Cost Function = ',1p,e21.14)
537 50
FORMAT (
' --------------- ',
'cost function = ',1p,e21.14,2x,a)
538 60
FORMAT (17x,
'cost function = ',1p,e21.14,2x,a)
539 70
FORMAT (a,
'_',i3.3,
'.nc')
541 90
FORMAT (i4,2x,1pe8.1,3(1x,1p,e20.12,0p))
559 integer :: Fcount, ng, thread
561 character (len=*),
parameter :: MyFile = &
562 & __FILE__//
", ROMS_finalize"
574 10
FORMAT (/,
' Blowing-up: Saving latest model state into ', &
601 20
FORMAT (/,
'Elapsed wall CPU time for each process (seconds):',/)
605 DO thread=thread_range
subroutine ad_initial(ng)
subroutine ad_main3d(runinterval)
subroutine edit_multifile(task)
subroutine main3d(runinterval)
integer function my_threadnum()
subroutine, public close_out
subroutine, public close_file(ng, model, s, ncname, lupdate)
subroutine, public close_inp(ng, model)
subroutine, public def_mod(ng)
subroutine, public ad_dotproduct(ng, tile, linp)
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)
type(t_fourdvar), dimension(:), allocatable fourdvar
real(r8), dimension(1000) g2
integer, dimension(:), allocatable nobsvar
real(r8), dimension(1000) g1
logical, dimension(:), allocatable wrttlmod
logical, dimension(:), allocatable wrtnlmod
character(len=40), dimension(:), allocatable obsname
integer, dimension(:), allocatable nstatevar
type(t_io), dimension(:), allocatable his
type(t_io), dimension(:), allocatable adm
type(t_io), dimension(:), allocatable tlm
type(t_io), dimension(:), allocatable fwd
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
integer, dimension(:), allocatable ntimes
integer, dimension(:), allocatable ntlm
logical, dimension(:), allocatable lreadfrc
integer, dimension(:), allocatable ndeftlm
logical, dimension(:), allocatable ldefhis
integer, dimension(:), allocatable ntend
logical, dimension(:), allocatable lcycletlm
logical, dimension(:), allocatable ldefmod
integer, dimension(:), allocatable nhis
logical, dimension(:), allocatable lwrthis
logical, dimension(:), allocatable lwrttlm
logical, dimension(:), allocatable lwrtrst
logical, dimension(:), allocatable ldeftlm
integer, dimension(:), allocatable ntstart
logical, dimension(:), allocatable lreadfwd
logical, dimension(:), allocatable lcyclerst
logical, dimension(:), allocatable lreadblk
integer, dimension(:), allocatable lold
integer, dimension(:), allocatable lnew
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)
recursive subroutine wclock_off(ng, model, region, line, routine)
recursive subroutine wclock_on(ng, model, region, line, routine)
subroutine tl_initial(ng)
subroutine tl_main3d(runinterval)