IF ( useOASIS ) CALL OASIS_ABORT
IF ( useOASIS ) THEN
IF (useOASIS) CALL OASIS_CHECK( myThid )
IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
IF (useOASIS) THEN
IF (useOASIS) CALL OASIS_READPARMS ( myThid )
IF ( useOASIS ) CALL OASIS_INIT(MPI_COMM_MODEL)
IF ( useOASIS ) CALL OASIS_FINALIZE
useOASIS = .FALSE.
& useCoupler, useNEST_PARENT, useNEST_CHILD, useOASIS,
& useNEST_PARENT, useNEST_CHILD, useOASIS,
LOGICAL useOASIS