Index: ICOSA_LMDZ/src/wrapper.f90
===================================================================
--- ICOSA_LMDZ/src/wrapper.f90	(revision 5498)
+++ ICOSA_LMDZ/src/wrapper.f90	(revision 5540)
@@ -23,2 +23,26 @@
 
 END SUBROUTINE external_physics
+
+SUBROUTINE initialize_third_party_coupler( comp_id, comm_icosa, ierr )
+ USE mod_oasis
+ IMPLICIT NONE
+ CHARACTER(len=*), INTENT(IN) :: comp_id
+ INTEGER, INTENT(OUT) :: comm_icosa
+ INTEGER, INTENT(OUT) :: ierr
+
+ INTEGER :: ncomp_id
+ CALL oasis_init_comp ( ncomp_id, comp_id, ierr )
+ CALL oasis_get_localcomm ( comm_icosa, ierr )
+
+END SUBROUTINE initialize_third_party_coupler
+
+
+SUBROUTINE finalize_third_party_coupler( ierr )
+ USE mod_oasis
+ IMPLICIT NONE
+ INTEGER, INTENT(OUT) :: ierr
+
+ PRINT*, "FINALIZING THROUGH WRAPPER"
+ CALL oasis_terminate( ierr )
+
+END SUBROUTINE finalize_third_party_coupler