Changeset 2008 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F

Timestamp:

2010-07-13T17:44:19+02:00 (14 years ago)

Author:

smasson

Message:

replace #include by INCLUDE in AGRIF of DEV_r1879_FCM

File:

• branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F (modified) (6 diffs)

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

@@ -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(