Index: LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90
===================================================================
--- LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90	(revision 5582)
+++ LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90	(revision 5583)
@@ -371,3 +371,15 @@
 END SUBROUTINE chemmain
 
+SUBROUTINE init_inca_oasis(inforecv_lmdz)
+  INTEGER, PARAMETER    :: maxrecv = 2
+  TYPE                  ::   FLD_CPL            ! Type for coupling field information
+     CHARACTER(len = 8) ::   name      ! Name of the coupling field   
+     LOGICAL            ::   action    ! To be exchanged or not
+     INTEGER            ::   nid       ! Id of the field
+  END TYPE FLD_CPL
+  TYPE(FLD_CPL), DIMENSION(maxrecv), INTENT(in) :: inforecv_lmdz
+
+  CALL lmdz_inca_wrapper_abort
+END SUBROUTINE init_inca_oasis
+
 #endif