Ignore:
Timestamp:
2011-04-08T14:05:35+02:00 (10 years ago)
Author:
rblod
Message:

Changes for Agrif in MPI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F

    r2715 r2731  
    6363C 
    6464#ifdef key_mpp_mpi 
    65       Integer      :: code 
    6665      INCLUDE 'mpif.h' 
    67 C 
    68 C 
     66      Integer      :: code, ierr 
     67      Logical      :: mpi_was_called 
     68C 
     69C 
     70      Call Agrif_comm_def(MPI_COMM_AGRIF) 
     71 
     72      CALL mpi_initialized ( mpi_was_called, code ) 
     73      IF( code /= MPI_SUCCESS ) THEN 
     74         WRITE(*, *) ': Error in routine mpi_initialized' 
     75         CALL mpi_abort( mpi_comm_world, code, ierr ) 
     76      ENDIF 
     77 
     78      IF( .NOT. mpi_was_called ) THEN 
     79         CALL mpi_comm_dup( mpi_comm_world, MPI_COMM_AGRIF, code) 
     80         IF( code /= MPI_SUCCESS ) THEN 
     81            WRITE(*, *) ' Agrif_Step: Error in routine mpi_comm_dup' 
     82            CALL mpi_abort( mpi_comm_world, code, ierr ) 
     83         ENDIF 
     84      ENDIF 
     85 
    6986      If (Agrif_Mygrid % ngridstep == 0) Then 
    70           Call MPI_COMM_SIZE(MPI_COMM_WORLD,Agrif_Nbprocs,code) 
    71           Call MPI_COMM_RANK(MPI_COMM_WORLD,Agrif_ProcRank,code) 
    72           Call MPI_COMM_GROUP(MPI_COMM_WORLD,Agrif_Group,code) 
     87          Call MPI_COMM_SIZE(MPI_COMM_AGRIF,Agrif_Nbprocs,code) 
     88          Call MPI_COMM_RANK(MPI_COMM_AGRIF,Agrif_ProcRank,code) 
     89          Call MPI_COMM_GROUP(MPI_COMM_AGRIF,Agrif_Group,code) 
    7390      endif 
    7491#endif 
Note: See TracChangeset for help on using the changeset viewer.