Changeset 10087 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modcluster.F90

Timestamp:

2018-09-05T15:33:44+02:00 (6 years ago)

Author:

rblod

Message:

update AGRIF library

File:

• vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modcluster.F90 (modified) (3 diffs)

vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modcluster.F90

@@ -29 +29 @@
 module Agrif_Clustering
 !
-    use Agrif_CurgridFunctions
+    !use Agrif_CurgridFunctions
+    !use Agrif_Init_Vars
+    !use Agrif_Save
     use Agrif_Init_Vars
     use Agrif_Save
+    use Agrif_Init
 !
     implicit none
@@ -54 +57 @@
     TYPE(Agrif_LRectangle), pointer  :: parcours
     TYPE(Agrif_Grid)      , pointer  :: newgrid
-    REAL                             :: g_eps
+    REAL(kind=8)                     :: g_eps
     INTEGER                          :: i
 !
@@ -131 +134 @@
     TYPE(Agrif_PGrid), pointer  :: parcours
 !
-    REAL                  :: g_eps, newgrid_eps, eps
-    REAL   , DIMENSION(3) :: newmin, newmax
-    REAL   , DIMENSION(3) :: gmin, gmax
-    REAL   , DIMENSION(3) :: xmin
+    REAL(kind=8)                  :: g_eps, newgrid_eps, eps
+    REAL(kind=8)   , DIMENSION(3) :: newmin, newmax
+    REAL(kind=8)   , DIMENSION(3) :: gmin, gmax
+    REAL(kind=8)   , DIMENSION(3) :: xmin
     INTEGER, DIMENSION(3) :: igmin, inewmin
     INTEGER, DIMENSION(3) :: inewmax