updated mpi call

Author: brankart

src/EnsAugm/ensaugm.F90

@@ -26,6 +26,9 @@
 ! getproduct : compute specified multiple Schur product
 ! ----------------------------------------------------------------------
 MODULE ensdam_ensaugm
+#if defined MPI
+      use mpi
+#endif
       use ensdam_schurprod
       use ensdam_storng
       IMPLICIT NONE
@@ -39,7 +42,6 @@ MODULE ensdam_ensaugm
 
       ! Definition for MPI
 #if defined MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_ensaugm=mpi_comm_world   ! definition of module global communicator
       INTEGER, save :: mpi_code
 #endif

src/EnsScores/score_crps.F90

@@ -26,6 +26,9 @@
 ! crps_final : compute final score from accumulated data
 ! ----------------------------------------------------------------------
 MODULE ensdam_score_crps
+#if defined MPI
+      use mpi
+#endif
       IMPLICIT NONE
       PRIVATE
 
@@ -42,7 +45,6 @@ MODULE ensdam_score_crps
 
       ! Definition for MPI
 #if defined MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_score_crps=mpi_comm_world   ! definition of module global communicator
       INTEGER, SAVE :: mpi_code
 #endif

src/EnsScores/score_optimality.F90

@@ -25,6 +25,9 @@
 ! optimality_cumul : accumulate data to prepare the final computation of the score
 ! ----------------------------------------------------------------------
 MODULE ensdam_score_optimality
+#if defined MPI
+      use mpi
+#endif
       IMPLICIT NONE
       PRIVATE
 
@@ -43,7 +46,6 @@ MODULE ensdam_score_optimality
 
       ! Definition for MPI
 #if defined MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_score_optimality=mpi_comm_world   ! definition of module global communicator
       INTEGER, SAVE :: mpi_code
 #endif

src/EnsScores/score_ranks.F90

@@ -25,6 +25,9 @@
 ! compute_ranks : compute ranks of verification data in ensemble simulation
 ! ----------------------------------------------------------------------
 MODULE ensdam_score_ranks
+#if defined MPI
+      use mpi
+#endif
       use ensdam_anaqua
       use ensdam_storng
       IMPLICIT NONE
@@ -34,7 +37,6 @@ MODULE ensdam_score_ranks
 
       ! Definition for MPI
 #if defined MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_score_ranks=mpi_comm_world  ! definition of module global communicator
       INTEGER, SAVE :: mpi_code
 #endif

src/EnsScores/score_rcrv.F90

@@ -25,6 +25,9 @@
 ! rcrv_cumul : accumulate data to prepare the final computation of the score
 ! ----------------------------------------------------------------------
 MODULE ensdam_score_rcrv
+#if defined MPI
+      use mpi
+#endif
       IMPLICIT NONE
       PRIVATE
 
@@ -46,7 +49,6 @@ MODULE ensdam_score_rcrv
 
       ! Definition for MPI
 #if defined MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_score_rcrv=mpi_comm_world   ! definition of module global communicator
       INTEGER, SAVE :: mpi_code
 #endif

src/EnsUpdate/mcmc_update.F90

@@ -24,6 +24,9 @@
 ! mcmc_iteration : iterate to sample the posterior probability distribution
 ! ----------------------------------------------------------------------
 MODULE ensdam_mcmc_update
+#if defined MPI
+      use mpi
+#endif
       use ensdam_ensaugm
       use ensdam_storng
       IMPLICIT NONE
@@ -44,7 +47,6 @@ MODULE ensdam_mcmc_update
 
 #if defined MPI
       ! Public definitions for MPI
-      include "mpif.h"
       INTEGER, PUBLIC, SAVE  :: mpi_comm_mcmc_update=mpi_comm_world   ! definition of module global communicator
       INTEGER, save :: mpi_code
 #endif