Changeset 4848 for LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90

Timestamp:

Mar 8, 2024, 1:09:51 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Modifications needed for XIOS3

File:

• LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90

@@ -43 +43 @@
 !$OMP MASTER
         IF (using_xios) THEN
-          CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
+          CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
+          CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+          CALL wxios_init("LMDZ", locom=COMM_LMDZ, outcom=COMM_LMDZ, type_ocean=type_ocean)
         ELSE
           CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)