Changes between Version 19 and Version 20 of DevelopmentActivities/Xios

Timestamp:

2014-02-21T08:59:44+01:00 (10 years ago)

Author:

jgipsl

Comment:

--

DevelopmentActivities/Xios

@@ -113 +113 @@
 }}}
 
+ * Change main makefile to compile mpi_omp instead of mpi, change on 3 lignes with makeorchidee_fcm and makelmez_fcm
+
  * Compile as usuall
 {{{
@@ -121 +123 @@
 * Lance
 Use all xml files found in modipsl/modeles/LMDZ/DefLists except iodef.xml. 
+
+= LMDZOR with OpenMP =
+Do as above but :
+ * take revision 1729 of LMDZ and update some files : 
+
+{{{
+cd modipsl/modeles/LMDZ
+svn update -r 1905 libf/phylmd/mod_synchro_omp.F90
+svn update -r 1905 libf/phylmd/mod_phys_lmdz_omp_transfert.F90
+svn update -r 1986 bld.cfg 
+svn update -r 1986 makelmdz_fcm
+svn update -r 1986 arch/arch-X64_CURIE.path
+}}}
+
+ * Add initialization of XIOS in LMDZ/libf/dyn3dpar/mod_const_mpi.F90, change the subroutine Init_MPI to the following : 
+{{{
+  SUBROUTINE Init_mpi
+
+#ifdef CPP_IOIPSL
+    USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+    USE ioipsl_getincom
+#endif
+
+#ifdef CPP_XIOS
+    USE XIOS
+#endif
+  IMPLICIT NONE
+#ifdef CPP_MPI
+     INCLUDE 'mpif.h'
+#endif
+    INTEGER             :: ierr
+    INTEGER             :: thread_required
+    INTEGER             :: thread_provided
+    LOGICAL             :: xios_orchidee_ok
+    CHARACTER(len=*),PARAMETER      :: id="client"           !! Id for initialization of ORCHIDEE in XIOS
+
+
+    xios_orchidee_ok=.FALSE.
+    CALL getin('XIOS_ORCHIDEE_OK ',xios_orchidee_ok)
+    WRITE(*,*)'In LMDZ: xios_orchidee_ok=',xios_orchidee_ok
+
+#ifdef CPP_MPI
+!$OMP MASTER
+      thread_required=MPI_THREAD_SERIALIZED
+
+      CALL MPI_INIT_THREAD(thread_required,thread_provided,ierr)
+      IF (thread_provided < thread_required) THEN
+        PRINT *,'Warning : The multithreaded level of MPI librairy do not provide the requiered level',  &
+                ' in mod_const_mpi::Init_const_mpi'
+      ENDIF
+
+      IF ( xios_orchidee_ok) THEN
+#ifdef CPP_XIOS
+         PRINT*,'Before calling xios_initialize in LMDZ'
+         CALL xios_initialize(id,return_comm=COMM_LMDZ)
+#endif
+      ELSE
+         COMM_LMDZ=MPI_COMM_WORLD
+      END IF
+
+      MPI_REAL_LMDZ=MPI_REAL8
+!$OMP END MASTER
+#endif
+
+   END SUBROUTINE Init_mpi
+}}}
+
+ * before compiling, add in LMDZ/arch/arch-X64_CURIE.fcm so that
+{{{
+%PROD_FFLAGS         -O3 -fp-model precise
+%OMP_FFLAGS          -openmp -openmp-threadprivate compat
+%OMP_LD              -openmp -openmp-threadprivate compat
+}}}
+
+ * in ORCHIDEE, add openmp compiling directives in ORCHIDEE/arch/arch-X64_CURIE.fcm
+{{{
+%OMP_FFLAGS          -openmp -openmp-threadprivate compat
+%OMP_LD              -openmp -openmp-threadprivate compat
+}}}
+
 
 = Implementation =