#ifdef CPP_USING_OASIS MODULE icolmdz_oasis USE mod_oasis END MODULE icolmdz_oasis #else MODULE icolmdz_oasis CONTAINS SUBROUTINE oasis_init_comp ( ncomp_id, comp_id, ierr ) INTEGER :: ncomp_id CHARACTER(len=*) :: comp_id INTEGER :: comm_icosa INTEGER :: ierr END SUBROUTINE oasis_init_comp SUBROUTINE oasis_get_localcomm ( comm_icosa, ierr ) INTEGER :: comm_icosa INTEGER :: ierr END SUBROUTINE oasis_get_localcomm SUBROUTINE oasis_terminate ( ierr ) INTEGER :: ierr END SUBROUTINE oasis_terminate END MODULE icolmdz_oasis #endif