Changeset 2008
- Timestamp:
- 2010-07-13T17:44:19+02:00 (14 years ago)
- Location:
- branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbc.F
r1988 r2008 719 719 #ifdef key_mpp_mpi 720 720 C 721 #include "mpif.h" 721 INCLUDE 'mpif.h' 722 722 C 723 723 #endif -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F
r1988 r2008 658 658 #ifdef key_mpp_mpi 659 659 C 660 #include "mpif.h" 660 INCLUDE 'mpif.h' 661 661 C 662 662 #endif -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F
r1988 r2008 37 37 38 38 IMPLICIT NONE 39 #include "mpif.h" 39 INCLUDE 'mpif.h' 40 40 INTEGER :: nbdim 41 41 INTEGER,DIMENSION(nbdim,0:Agrif_NbProcs-1) :: pttruetab, … … 177 177 178 178 IMPLICIT NONE 179 #include "mpif.h" 179 INCLUDE 'mpif.h' 180 180 INTEGER :: nbdim 181 181 TYPE(Agrif_PVariable) :: tempC, tempCextend … … 345 345 TYPE(AGRIF_PVARIABLE), SAVE :: temprecv 346 346 347 #include "mpif.h" 347 INCLUDE 'mpif.h' 348 348 INTEGER :: i,k 349 349 INTEGER :: etiquette = 100 … … 682 682 LOGICAL :: res 683 683 684 #include "mpif.h" 684 INCLUDE 'mpif.h' 685 685 INTEGER :: i,k 686 686 INTEGER :: etiquette = 100 … … 798 798 TYPE(AGRIF_PVARIABLE), SAVE :: temprecv 799 799 800 #include "mpif.h" 800 INCLUDE 'mpif.h' 801 801 INTEGER :: i,k 802 802 INTEGER :: etiquette = 100 … … 1096 1096 integer :: etiquette = 100 1097 1097 integer :: datasize, code 1098 #include "mpif.h"1098 INCLUDE 'mpif.h' 1099 1099 1100 1100 datasize = SIZE(tab3D( -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F
r1988 r2008 629 629 #ifdef key_mpp_mpi 630 630 C 631 #include "mpif.h" 631 INCLUDE 'mpif.h' 632 632 C 633 633 #endif … … 819 819 #ifdef key_mpp_mpi 820 820 C 821 #include "mpif.h" 821 INCLUDE 'mpif.h' 822 822 C 823 823 #endif … … 1061 1061 #ifdef key_mpp_mpi 1062 1062 C 1063 #include "mpif.h" 1063 INCLUDE 'mpif.h' 1064 1064 C 1065 1065 #endif … … 1721 1721 C 1722 1722 #ifdef key_mpp_mpi 1723 cccccccccccccccccccccccccc #include "mpif.h"1723 cccccccccccccccccccccccccc INCLUDE 'mpif.h' 1724 1724 #endif 1725 1725 C -
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F
r1988 r2008 65 65 Logical :: mpi_was_called 66 66 Integer :: code, ierr 67 #include "mpif.h" 67 INCLUDE 'mpif.h' 68 68 C 69 69 C … … 671 671 C 672 672 #ifdef key_mpp_mpi 673 #include "mpif.h" 673 INCLUDE 'mpif.h' 674 674 Agrif_MPIPREC = MPI_DOUBLE_PRECISION 675 675 #endif
Note: See TracChangeset
for help on using the changeset viewer.