Changeset 2731 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F
- Timestamp:
- 2011-04-08T14:05:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F
r2715 r2731 63 63 C 64 64 #ifdef key_mpp_mpi 65 Integer :: code66 65 INCLUDE 'mpif.h' 67 C 68 C 66 Integer :: code, ierr 67 Logical :: mpi_was_called 68 C 69 C 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 69 86 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) 73 90 endif 74 91 #endif
Note: See TracChangeset
for help on using the changeset viewer.