Changeset 524 for trunk/NEMO/OPA_SRC

Timestamp:

2006-10-12T15:54:56+02:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_buxfix_059: correction of isend definition for AGRIF

File:

• trunk/NEMO/OPA_SRC/lib_mpp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -312 +312 @@
             CALL mpi_init( ierr )
          CASE DEFAULT
-            WRITE(ctmp1,*) '           bad value for c_mpi_send = ', c_mpi_send
-            CALL ctl_stop( ctmp1 )
+            WRITE(numout,cform_err)
+            WRITE(numout,*) '           bad value for c_mpi_send = ', c_mpi_send
+            nstop = nstop + 1
          END SELECT
 
 #if defined key_agrif
+     ELSE
+         SELECT CASE ( c_mpi_send )
+         CASE ( 'S' )                ! Standard mpi send (blocking)
+            WRITE(numout,*) '           Standard blocking mpi send (send)'
+         CASE ( 'B' )                ! Buffer mpi send (blocking)
+            WRITE(numout,*) '           Buffer blocking mpi send (bsend)'
+         CASE ( 'I' )                ! Immediate mpi send (non-blocking send)
+            WRITE(numout,*) '           Immediate non-blocking send (isend)'
+            l_isend = .TRUE.
+         CASE DEFAULT
+            WRITE(numout,cform_err)
+            WRITE(numout,*) '           bad value for c_mpi_send = ', c_mpi_send
+            nstop = nstop + 1
+         END SELECT
       ENDIF
 #endif