Changeset 389 for trunk/NEMO/OPA_SRC/lib_mpp.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/lib_mpp.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -95 +95 @@
    !!  MPI  variable definition !!
    !! ========================= !!
+!$AGRIF_DO_NOT_TREAT
 #  include <mpif.h>
+!$AGRIF_END_DO_NOT_TREAT
 
    INTEGER ::   &
@@ -286 +288 @@
       CASE ( 'S' )                ! Standard mpi send (blocking)
          WRITE(numout,*) '           Standard blocking mpi send (send)'
+#if defined key_AGRIF
+         IF ( Agrif_Root() ) THEN
+#endif      
          CALL mpi_init( ierr )
+#if defined key_AGRIF
+         ENDIF
+#endif    
       CASE ( 'B' )                ! Buffer mpi send (blocking)
          WRITE(numout,*) '           Buffer blocking mpi send (bsend)'
+#if defined key_AGRIF
+         IF ( Agrif_Root() ) THEN
+#endif      
          CALL mpi_init_opa( ierr )
+#if defined key_AGRIF
+         ENDIF
+#endif    
       CASE ( 'I' )                ! Immediate mpi send (non-blocking send)
          WRITE(numout,*) '           Immediate non-blocking send (isend)'
          l_isend = .TRUE.
+#if defined key_AGRIF
+         IF ( Agrif_Root() ) THEN
+#endif      
          CALL mpi_init( ierr )
+#if defined key_AGRIF
+         ENDIF
+#endif    
       CASE DEFAULT
          WRITE(numout,cform_err)
@@ -4398 +4418 @@
    SUBROUTINE mpi_init_opa(code)
       IMPLICIT NONE
+
+!$AGRIF_DO_NOT_TREAT
 #     include <mpif.h>
+!$AGRIF_END_DO_NOT_TREAT
 
       INTEGER                                 :: code,rang