Changeset 171 for codes/icosagcm/trunk/src/mpipara.F90

Timestamp:

09/23/13 18:06:31 (11 years ago)

Author:

ymipsl

Message:

• XIOS integration -

Compiling with "-with_xios" option. Adapt path to find XIOS library (arch.path)
Retro-compatible with the old output. If xios is not present, dynamico will use the standard writefield function.
Need to have the iodef.xml configuration file in the exec directory

YM

File:

• codes/icosagcm/trunk/src/mpipara.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/mpipara.F90

@@ -17 +17 @@
   SUBROUTINE init_mpipara
   USE mpi_mod
+#ifdef CPP_USING_XIOS
+  USE xios
+#endif
   IMPLICIT NONE
 
@@ -26 +29 @@
     IF (using_mpi) THEN
       CALL MPI_INIT(ierr)
-      comm_icosa=MPI_COMM_WORLD
+
+#ifdef CPP_USING_XIOS
+      CALL xios_initialize("icosagcm",return_comm=comm_icosa)
+#else
+     comm_icosa=MPI_COMM_WORLD
+#endif
       CALL MPI_COMM_SIZE(comm_icosa,mpi_size,ierr)
       CALL MPI_COMM_RANK(comm_icosa,mpi_rank,ierr)