Changeset 2731 for trunk/NEMOGCM/NEMO

Timestamp:

2011-04-08T14:05:35+02:00 (13 years ago)

Author:

rblod

Message:

Changes for Agrif in MPI

File:

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

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -248 +248 @@
       WRITE(ldtxt(ii),*) '      size in bytes of exported buffer   nn_buffer   = ', nn_buffer     ;   ii = ii + 1
 
+#if defined key_agrif
+      IF( .NOT. Agrif_Root() ) THEN
+         jpni  = Agrif_Parent(jpni ) 
+         jpnj  = Agrif_Parent(jpnj )
+         jpnij = Agrif_Parent(jpnij)
+      ENDIF
+#endif
+
       IF(jpnij < 1)THEN
          ! If jpnij is not specified in namelist then we calculate it - this