Changeset 5849 for ICOSA_LMDZ/src/phylmd/icolmdz_mpipara.F90

Timestamp:

Oct 6, 2025, 4:02:46 PM (6 weeks ago)

Author:

quepas

Message:

fix(gnu): initialize procedure pointers in a proper way, so that GNU/gfortran can compile ICOSA_LMDZ without an error.

File:

• ICOSA_LMDZ/src/phylmd/icolmdz_mpipara.F90 (modified) (1 diff)

ICOSA_LMDZ/src/phylmd/icolmdz_mpipara.F90

@@ -6 +6 @@
   
   SUBROUTINE set_wrapper
-  USE mpipara, ONLY : set_plugin_wrapper, set_default_mpi_initialization
+  USE mpipara, ONLY : set_plugin_wrapper, set_default_mpi_initialization, get_mpi_comm_generic, finalize_mpi_generic 
   IMPLICIT NONE
     
+    PROCEDURE(get_mpi_comm_generic), POINTER :: get_mpi_comm_ 
+    PROCEDURE(finalize_mpi_generic), POINTER :: finalize_mpi_ 
+
+    get_mpi_comm_ => get_mpi_comm
+    finalize_mpi_ => finalize_mpi
+
     CALL set_default_mpi_initialization('plugin')
-    CALL set_plugin_wrapper(get_mpi_comm, finalize_mpi)
+    CALL set_plugin_wrapper(get_mpi_comm_, finalize_mpi_)
 
   END SUBROUTINE set_wrapper