Ignore:
Timestamp:
2019-02-27T14:55:54+01:00 (19 months ago)
Author:
rblod
Message:

Update agrif library and conv see ticket #2129

File:
1 edited

Legend:

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

    r10087 r10725  
    2929module Agrif_Clustering 
    3030! 
    31     !use Agrif_CurgridFunctions 
    32     !use Agrif_Init_Vars 
    33     !use Agrif_Save 
     31    use Agrif_CurgridFunctions 
    3432    use Agrif_Init_Vars 
    3533    use Agrif_Save 
    36     use Agrif_Init 
    3734! 
    3835    implicit none 
     
    5754    TYPE(Agrif_LRectangle), pointer  :: parcours 
    5855    TYPE(Agrif_Grid)      , pointer  :: newgrid 
    59     REAL(kind=8)                     :: g_eps 
     56    REAL                             :: g_eps 
    6057    INTEGER                          :: i 
    6158! 
     
    134131    TYPE(Agrif_PGrid), pointer  :: parcours 
    135132! 
    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 
     133    REAL                  :: g_eps, newgrid_eps, eps 
     134    REAL   , DIMENSION(3) :: newmin, newmax 
     135    REAL   , DIMENSION(3) :: gmin, gmax 
     136    REAL   , DIMENSION(3) :: xmin 
    140137    INTEGER, DIMENSION(3) :: igmin, inewmin 
    141138    INTEGER, DIMENSION(3) :: inewmax 
Note: See TracChangeset for help on using the changeset viewer.