Changeset 44 for codes/icosagcm/trunk/src/transfert_mpi.f90

Timestamp:

07/28/12 02:23:44 (12 years ago)

Author:

dubos

Message:

Small fixes to enable compilation on MacOSX
Introduced key CPP_NETCDF4 (netcdf_mod.F90) to enable NetCDF4 with sequential version.

Tested : test case 3 with nbp=20 on MacOSX, sequential, gfortran 4.5.4, NetCDF4.2

File:

• codes/icosagcm/trunk/src/transfert_mpi.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/transfert_mpi.f90

@@ -446 +446 @@
      DO irecv=1,req%nrecv
        ireq=ireq+1
-       CALL MPI_ISEND(req%recv(irecv)%value,req%recv(irecv)%size,MPI_INTEGER,req%recv(irecv)%rank,req%recv(irecv)%domain,comm_icosa, mpi_req(ireq),ierr)
+       CALL MPI_ISEND(req%recv(irecv)%value,req%recv(irecv)%size,MPI_INTEGER,&
+            req%recv(irecv)%rank,req%recv(irecv)%domain,comm_icosa, mpi_req(ireq),ierr)
      ENDDO
      
@@ -452 +453 @@
        ireq=ireq+1
        ALLOCATE(req%send(isend)%value(req%send(isend)%size))
-       CALL MPI_IRECV(req%send(isend)%value,req%send(isend)%size,MPI_INTEGER,req%send(isend)%rank,ind_loc,comm_icosa, mpi_req(ireq),ierr)
+       CALL MPI_IRECV(req%send(isend)%value,req%send(isend)%size,MPI_INTEGER,&
+            req%send(isend)%rank,ind_loc,comm_icosa, mpi_req(ireq),ierr)
      ENDDO
    ENDDO