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

Timestamp:

2006-03-10T11:55:45+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• add agrif to dynspg_flt_jki.F90
• cosmetic change of key_AGRIF in key_agrif

File:

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

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -288 +288 @@
       CASE ( 'S' )                ! Standard mpi send (blocking)
          WRITE(numout,*) '           Standard blocking mpi send (send)'
-#if defined key_AGRIF
+#if defined key_agrif
          IF ( Agrif_Root() ) THEN
 #endif      
          CALL mpi_init( ierr )
-#if defined key_AGRIF
+#if defined key_agrif
          ENDIF
 #endif    
       CASE ( 'B' )                ! Buffer mpi send (blocking)
          WRITE(numout,*) '           Buffer blocking mpi send (bsend)'
-#if defined key_AGRIF
+#if defined key_agrif
          IF ( Agrif_Root() ) THEN
 #endif      
          CALL mpi_init_opa( ierr )
-#if defined key_AGRIF
+#if defined key_agrif
          ENDIF
 #endif    
@@ -307 +307 @@
          WRITE(numout,*) '           Immediate non-blocking send (isend)'
          l_isend = .TRUE.
-#if defined key_AGRIF
+#if defined key_agrif
          IF ( Agrif_Root() ) THEN
 #endif      
          CALL mpi_init( ierr )
-#if defined key_AGRIF
+#if defined key_agrif
          ENDIF
 #endif