Changeset 14975 for vendors/AGRIF/dev/AGRIF_FILES/modcluster.F90

Timestamp:

2021-06-11T11:05:32+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, merge new AGRIF library into trunk

File:

• vendors/AGRIF/dev/AGRIF_FILES/modcluster.F90 (modified) (2 diffs)

vendors/AGRIF/dev/AGRIF_FILES/modcluster.F90

@@ -54 +54 @@
     TYPE(Agrif_LRectangle), pointer  :: parcours
     TYPE(Agrif_Grid)      , pointer  :: newgrid
-    REAL                             :: g_eps
+    REAL(kind=8)                     :: g_eps
     INTEGER                          :: i
 !
@@ -131 +131 @@
     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