New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2249 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90 – NEMO

Ignore:
Timestamp:
2010-10-13T12:28:29+02:00 (14 years ago)
Author:
rblod
Message:

Fix mpi compilation bug on 3.3beta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90

    r2128 r2249  
    7777      !! * Local declarations 
    7878      INTEGER :: ierr 
    79 #     include <mpif.h> 
     79INCLUDE 'mpif.h' 
    8080 
    8181      !----------------------------------------------------------------------- 
    … …  
    119119      INTEGER, DIMENSION(kno) :: & 
    120120         & ivals 
    121 #     include <mpif.h> 
     121INCLUDE 'mpif.h' 
    122122 
    123123      !----------------------------------------------------------------------- 
    … …  
    177177         & iobsp, iobsi, iobsj 
    178178 
    179 #     include <mpif.h> 
     179INCLUDE 'mpif.h' 
    180180 
    181181      !----------------------------------------------------------------------- 
    … …  
    285285      !! * Local declarations 
    286286      INTEGER :: ierr 
    287 #     include <mpif.h> 
     287INCLUDE 'mpif.h' 
    288288  
    289289      !----------------------------------------------------------------------- 
    … …  
    328328      !! * Local declarations 
    329329      INTEGER :: ierr 
    330 #     include <mpif.h> 
     330INCLUDE 'mpif.h' 
    331331 
    332332      !----------------------------------------------------------------------- 
    … …  
    370370      INTEGER :: ierr 
    371371#if defined key_mpp_mpi 
    372 #include <mpif.h> 
     372INCLUDE 'mpif.h' 
    373373      REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE :: & 
    374374         & zcp 
    … …  
    422422      INTEGER :: ierr 
    423423#if defined key_mpp_mpi 
    424 #include <mpif.h> 
     424INCLUDE 'mpif.h' 
    425425      !----------------------------------------------------------------------- 
    426426      ! Call the MPI library to do the all to all operation of the data 
    … …  
    472472      INTEGER :: jproc 
    473473#if defined key_mpp_mpi 
    474 #include <mpif.h> 
     474INCLUDE 'mpif.h' 
    475475      INTEGER, DIMENSION(jpnij) :: & 
    476476         & irdsp, & 
    … …  
    534534      INTEGER :: jproc 
    535535#if defined key_mpp_mpi 
    536 #include <mpif.h> 
     536INCLUDE 'mpif.h' 
    537537      INTEGER, DIMENSION(jpnij) :: & 
    538538         & irdsp, & 
Note: See TracChangeset for help on using the changeset viewer.