Changeset 5583

Timestamp:

Mar 21, 2025, 3:56:04 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Necessay INCA wrapper that was forgotten

File:

• LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90

@@ -371 +371 @@
 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