Changeset 2019 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.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/modarrays.F (modified) (6 diffs)

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

@@ -55 +55 @@
       INTEGER :: i,lbglob,ubglob
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
       INTEGER :: indglob1,indglob2
 #endif
@@ -65 +65 @@
         ubglob = uboundloc(i)
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
 C
         Call AGRIF_InvLoc(lbglob,Agrif_ProcRank,i,indglob1)
@@ -335 +335 @@
 C
 C
-#if !defined AGRIF_MPI
+#if !defined key_mpp_mpi
 C     **************************************************************************
 CCC   Subroutine Agrif_nbdim_VarEQreal
@@ -754 +754 @@
 C
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
 C     **************************************************************************
 CCC   Subroutine Where_ValTabToTab_mpi
@@ -1029 +1029 @@
       End Subroutine PreProcessToInterpOrUpdate     
 
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
 C
 C     **************************************************************************
@@ -1091 +1091 @@
 C
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
 C
 C