Back to OASIS3-MCT home
In
oasis3-mct/lib/psmile/src :
mod_oasis_method.F90
:
CONTAINS
SUBROUTINE oasis_init_comp(mynummod,cdnam,kinfo)
write(filename,'(a,i6.6)')
'nout.',mpi_rank_global
open(nulprt,file=filename)
write(filename,'(a,i2.2,a,i6.6)') 'pout.',compid,'.',mpi_rank_local
open(nulprt,file=filename)
=> oasis_data_zero()
=> oasis_unitsetmin(200)
=> oasis_unitget(iu)
=>
oasis_namcouple_init ()
=> oasis_unitget(iu)
=> mct_world_init
(prism_nmodels,mpi_comm_global,mpi_comm_local,compid)
=> oasis_timer_init
=> oasis_timer_start
SUBROUTINE oasis_terminate(kinfo)
=> oasis_timer_stop
=> oasis_timer_print
SUBROUTINE oasis_get_localcomm(localcomm,kinfo)
SUBROUTINE oasis_set_couplcomm(localcomm,kinfo)
SUBROUTINE oasis_create_couplcomm(icpl,allcomm,cplcomm,kinfo)
SUBROUTINE oasis_get_debug(debug,kinfo)
SUBROUTINE oasis_set_debug(debug,kinfo)
SUBROUTINE oasis_get_intercomm(new_comm, cdnam, kinfo)
SUBROUTINE
oasis_get_intracomm(new_comm,
cdnam, kinfo)
SUBROUTINE oasis_enddef(kinfo)