Ignore:
Timestamp:
2018-09-05T15:33:44+02:00 (2 years ago)
Author:
rblod
Message:

update AGRIF library

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modcluster.F90

    r5656 r10087  
    2929module Agrif_Clustering 
    3030! 
    31     use Agrif_CurgridFunctions 
     31    !use Agrif_CurgridFunctions 
     32    !use Agrif_Init_Vars 
     33    !use Agrif_Save 
    3234    use Agrif_Init_Vars 
    3335    use Agrif_Save 
     36    use Agrif_Init 
    3437! 
    3538    implicit none 
     
    5457    TYPE(Agrif_LRectangle), pointer  :: parcours 
    5558    TYPE(Agrif_Grid)      , pointer  :: newgrid 
    56     REAL                             :: g_eps 
     59    REAL(kind=8)                     :: g_eps 
    5760    INTEGER                          :: i 
    5861! 
     
    131134    TYPE(Agrif_PGrid), pointer  :: parcours 
    132135! 
    133     REAL                  :: g_eps, newgrid_eps, eps 
    134     REAL   , DIMENSION(3) :: newmin, newmax 
    135     REAL   , DIMENSION(3) :: gmin, gmax 
    136     REAL   , DIMENSION(3) :: xmin 
     136    REAL(kind=8)                  :: g_eps, newgrid_eps, eps 
     137    REAL(kind=8)   , DIMENSION(3) :: newmin, newmax 
     138    REAL(kind=8)   , DIMENSION(3) :: gmin, gmax 
     139    REAL(kind=8)   , DIMENSION(3) :: xmin 
    137140    INTEGER, DIMENSION(3) :: igmin, inewmin 
    138141    INTEGER, DIMENSION(3) :: inewmax 
Note: See TracChangeset for help on using the changeset viewer.