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

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

@@ -717 +717 @@
       
 C
-#ifdef AGRIF_MPI
-C
-#include "mpif.h"
+#ifdef key_mpp_mpi
+C
+      INCLUDE 'mpif.h'
 C
 #endif
@@ -772 +772 @@
                                        !    (c2t=1-c1t) 
 C
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
 C
       INTEGER,DIMENSION(nbdim)   :: lower,upper
@@ -796 +796 @@
       
 
-#if !defined AGRIF_MPI
+#if !defined key_mpp_mpi
       Call Agrif_nbdim_Get_bound_dimension(child%var,lubglob(:,1),
      &              lubglob(:,2),nbdim)
@@ -886 +886 @@
       
 C
-#if defined AGRIF_MPI
+#if defined key_mpp_mpi
                  Call Agrif_nbdim_Get_bound_dimension
      &                    (child%var,lower,upper,nbdim)