Changeset 1953 for branches/DEV_r1784_mid_year_merge_2010/NEMO/NST_SRC/agrif2model.F90

Timestamp:

2010-06-24T17:27:10+02:00 (14 years ago)

Author:

acc

Message:

ticket #684 step 3: Add in changes from the trunk between revisions 1784 and 1821. No conflicts so far

File:

• branches/DEV_r1784_mid_year_merge_2010/NEMO/NST_SRC/agrif2model.F90 (modified) (1 diff)

branches/DEV_r1784_mid_year_merge_2010/NEMO/NST_SRC/agrif2model.F90

@@ -73 +73 @@
 
    END SUBROUTINE Agrif_clustering_def
+
+   SUBROUTINE Agrif_comm_def(modelcomm)
+
+      !!---------------------------------------------
+      !!   *** ROUTINE Agrif_clustering_def ***
+      !!--------------------------------------------- 
+      Use Agrif_Types
+      Use lib_mpp
+
+      IMPLICIT NONE
+
+      INTEGER :: modelcomm
+
+#if defined key_mpp_mpi
+      modelcomm = mpi_comm_opa
+#endif
+      Return
+
+   END SUBROUTINE Agrif_comm_def
 #else
    SUBROUTINE Agrif2Model