Changeset 2019 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F

Timestamp:

2010-07-20T19:48:19+02:00 (14 years ago)

Author:

rblod

Message:

Put back the changes for Agrif on fcm branch

File:

• branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F (modified) (2 diffs)

branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F

@@ -62 +62 @@
       External :: procname
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
       Logical      :: mpi_was_called
       Integer      :: code, ierr
-#include "mpif.h"
+      INCLUDE 'mpif.h'
 C
 C
@@ -670 +670 @@
 C             definition of the probdim and modtypes variables
 C
-#ifdef AGRIF_MPI
-#include "mpif.h"
+#ifdef key_mpp_mpi
+      INCLUDE 'mpif.h'
       Agrif_MPIPREC = MPI_DOUBLE_PRECISION
 #endif