mod_oasis_advance

Back to OASIS3-MCT home

In oasis3-mct/lib/psmile/src :

mod_oasis_advance.F90 :

CONTAINS
SUBROUTINE oasis_advance_init(kinfo)

=> CALL oasis_advance_run(OASIS_Out,varid,msec,kinfo,nff=nf, &
                                   namid=cplid,array1din=array,&
                                                   readrest=.TRUE., array2=array2,array3=array3, &
                                                   array4=array4,array5=array5)

SUBROUTINE oasis_advance_run(mop,varid,msec,kinfo,nff,namid,&
                                                         array1din,array1dout,array2dout,readrest,&
                                                         a2on,array2,a3on,array3,a4on,array4,a5on,array5)

DO nc = 1,prism_var(varid)%ncpl
cplid   = prism_var(varid)%cpl(nc)
runit = .true.
if (runit) then
cplid   = prism_var(varid)%cpl(nc)
if (mop == OASIS_Out) pcpointer => prism_coupler_put(cplid)
if (mop == OASIS_In ) pcpointer => prism_coupler_get(cplid)
mop=OASIS_Out if oasis_put is called, while mop=OASIS_In if oasis_get is called
...
ENDDO