Changeset 4785 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif2model.F90

Timestamp:

2014-09-24T14:03:02+02:00 (10 years ago)

Author:

rblod

Message:

dev_r4765_CNRS_agrif: First update of AGRIF for dynamic only (_flt and _ts), see ticket #1380 and associated wiki page

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif2model.F90 (modified) (5 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif2model.F90

@@ -15 +15 @@
       !!   *** ROUTINE Agrif_Set_numberofcells ***
       !!--------------------------------------------- 
-      USE Agrif_Types
+      USE Agrif_Grids
       IMPLICIT NONE
 
@@ -30 +30 @@
       !!   *** ROUTINE Agrif_Get_numberofcells ***
       !!--------------------------------------------- 
-      USE Agrif_Types
+      USE Agrif_Grids
       IMPLICIT NONE
 
       Type(Agrif_Grid), Pointer :: Agrif_Gr
 
+    if ( associated(Agrif_Curgrid) ) then
 #include "GetNumberofcells.h"
+    endif
 
    END SUBROUTINE Agrif_Get_numberofcells
@@ -43 +45 @@
       !!   *** ROUTINE Agrif_Allocationscalls ***
       !!--------------------------------------------- 
-      USE Agrif_Types 
+      USE Agrif_Grids 
 #include "include_use_Alloc_agrif.h"
       IMPLICIT NONE
@@ -72 +74 @@
       !!   *** ROUTINE Agrif_clustering_def ***
       !!--------------------------------------------- 
-      Use Agrif_Types
       IMPLICIT NONE
 
@@ -79 +80 @@
    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