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

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

@@ -30 +30 @@
 
       Contains
-#ifdef AGRIF_MPI
+#ifdef key_mpp_mpi
       Subroutine Get_External_Data_first(pttruetab,
      &   cetruetab,pttruetabwhole,cetruetabwhole,nbdim,memberin,
@@ -37 +37 @@
 
       IMPLICIT NONE
-#include "mpif.h"
+      INCLUDE 'mpif.h'
       INTEGER :: nbdim
       INTEGER,DIMENSION(nbdim,0:Agrif_NbProcs-1)    :: pttruetab,
@@ -177 +177 @@
 
       IMPLICIT NONE
-#include "mpif.h"
+      INCLUDE 'mpif.h'
       INTEGER :: nbdim
       TYPE(Agrif_PVariable) :: tempC, tempCextend
@@ -345 +345 @@
       TYPE(AGRIF_PVARIABLE), SAVE                      :: temprecv
 
-#include "mpif.h"
+      INCLUDE 'mpif.h'
           INTEGER :: i,k
           INTEGER :: etiquette = 100
@@ -682 +682 @@
       LOGICAL                                    :: res
 
-#include "mpif.h"
+      INCLUDE 'mpif.h'
           INTEGER :: i,k
           INTEGER :: etiquette = 100
@@ -798 +798 @@
       TYPE(AGRIF_PVARIABLE), SAVE                      :: temprecv
 
-#include "mpif.h"
+      INCLUDE 'mpif.h'
           INTEGER :: i,k
           INTEGER :: etiquette = 100
@@ -1096 +1096 @@
           integer :: etiquette = 100
           integer :: datasize, code
-#include "mpif.h"   
+        INCLUDE 'mpif.h'
 
           datasize = SIZE(tab3D(