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)