Changeset 13027 for vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modtypes.F90

Timestamp:

2020-06-03T16:36:09+02:00 (4 years ago)

Author:

rblod

Message:

New AGRIF library, see ticket #2129

File:

• vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modtypes.F90 (modified) (11 diffs)

vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modtypes.F90

@@ -20 +20 @@
 !
 !
-!
+! 
 !> Definition of data types used in AGRIF, of several variables and parameters
 !
@@ -109 +109 @@
     real(4), dimension(:,:,:,:,:,:), allocatable :: sarray6
 !> @}
+!> \name Arrays containing the values of the grid variables (real)
+!> @{
+    real,    dimension(:)          , pointer :: parray1
+    real,    dimension(:,:)        , pointer :: parray2
+    real,    dimension(:,:,:)      , pointer :: parray3
+    real,    dimension(:,:,:,:)    , pointer :: parray4
+    real,    dimension(:,:,:,:,:)  , pointer :: parray5
+    real,    dimension(:,:,:,:,:,:), pointer :: parray6
+!> @}
+!> \name Arrays containing the values of the grid variables (real*8)
+!> @{
+    real(8), dimension(:)          , pointer :: pdarray1
+    real(8), dimension(:,:)        , pointer :: pdarray2
+    real(8), dimension(:,:,:)      , pointer :: pdarray3
+    real(8), dimension(:,:,:,:)    , pointer :: pdarray4
+    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5
+    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6
+!> @}
+!> \name Arrays containing the values of the grid variables (real*4)
+!> @{
+    real(4), dimension(:)          , pointer :: psarray1
+    real(4), dimension(:,:)        , pointer :: psarray2
+    real(4), dimension(:,:,:)      , pointer :: psarray3
+    real(4), dimension(:,:,:,:)    , pointer :: psarray4
+    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5
+    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6
+!> @}
 !> \name Arrays used to restore the values
 !> @{
@@ -153 +180 @@
 !> \name Arrays containing the values of the grid variables (character)
 !> @{
-    character(2400)                             :: carray0
+    character(4000)                             :: carray0
     character(:)  ,                 allocatable :: carrayu
-    character(200), dimension(:)  , allocatable :: carray1
-    character(200), dimension(:,:), allocatable :: carray2
+    character(400), dimension(:)  , allocatable :: carray1
+    character(400), dimension(:,:), allocatable :: carray2
 !> @}
 !---------------------------------------------------------------------------------------------------
@@ -219 +246 @@
 !> \name Arrays containing the values of the grid variables (logical)
 !> @{
-    logical                                      :: larray0
+    logical                                      :: larray0 = .FALSE.
     logical, dimension(:)          , allocatable :: larray1
     logical, dimension(:,:)        , allocatable :: larray2
@@ -226 +253 @@
     logical, dimension(:,:,:,:,:)  , allocatable :: larray5
     logical, dimension(:,:,:,:,:,:), allocatable :: larray6
-!> @}
+
+!> @}
+!> \name Arrays containing the values of the grid variables (logical pointers)
+!> @{
+    logical, dimension(:)          , pointer :: plarray1
+    logical, dimension(:,:)        , pointer :: plarray2
+    logical, dimension(:,:,:)      , pointer :: plarray3
+    logical, dimension(:,:,:,:)    , pointer :: plarray4
+    logical, dimension(:,:,:,:,:)  , pointer :: plarray5
+    logical, dimension(:,:,:,:,:,:), pointer :: plarray6
+!> @}
+
 !---------------------------------------------------------------------------------------------------
 end type Agrif_Variable_l
@@ -243 +281 @@
 !> \name Arrays containing the values of the grid variables (integer)
 !> @{
-    integer                                      :: iarray0
+    integer                                      :: iarray0 = 0
     integer, dimension(:)          , allocatable :: iarray1
     integer, dimension(:,:)        , allocatable :: iarray2
@@ -250 +288 @@
     integer, dimension(:,:,:,:,:)  , allocatable :: iarray5
     integer, dimension(:,:,:,:,:,:), allocatable :: iarray6
+
+!> @}
+!
+!> \name Arrays containing the values of the grid variables (integer pointers)
+!> @{
+    integer, dimension(:)          , pointer :: piarray1
+    integer, dimension(:,:)        , pointer :: piarray2
+    integer, dimension(:,:,:)      , pointer :: piarray3
+    integer, dimension(:,:,:,:)    , pointer :: piarray4
+    integer, dimension(:,:,:,:,:)  , pointer :: piarray5
+    integer, dimension(:,:,:,:,:,:), pointer :: piarray6
 !> @}
 !---------------------------------------------------------------------------------------------------
@@ -274 +323 @@
     logical, dimension(:),    pointer :: sendtoproc2    => NULL()
     logical, dimension(:),    pointer :: recvfromproc1  => NULL()
-    logical, dimension(:),    pointer :: recvfromproc2  => NULL()
+    logical, dimension(:),    pointer :: recvfromproc2  => NULL() 
 #endif
+    integer                           :: nb_chunks
+    integer, dimension(:,:,:,:), allocatable :: parentarray_chunk
+    integer, dimension(:,:,:,:), allocatable :: parentarray_chunk_decal
+    integer, dimension(:,:),allocatable :: decal_chunks
+    logical, dimension(:),allocatable :: correction_required
+    logical, dimension(:),allocatable :: member_chuncks 
 !---------------------------------------------------------------------------------------------------
 end type Agrif_Interp_Loc
@@ -345 +400 @@
     integer, parameter    :: Agrif_Update_Average = 2           !< average
     integer, parameter    :: Agrif_Update_Full_Weighting = 3    !< full-weighting
+    integer, parameter    :: Agrif_Update_Max = 4               !< Max
 !> @}
 !> \name Raffinement grid switches
@@ -375 +431 @@
     real, dimension(:,:,:,:,:,:), allocatable :: parray6
 !
-    logical :: agrif_debug = .false.    ! may be activaded in users subroutine for debugging purposes
+    logical :: agrif_debug = .false.        ! may be activaded in users subroutine for debugging purposes
+    logical :: agrif_debug_interp = .false. ! may be activaded in users subroutine for debugging interpolations
+    logical :: agrif_debug_update = .false. ! may be activaded in users subroutine for debugging updates
 
 ! If a grand mother grid is present
@@ -381 +439 @@
     integer, dimension(3) :: coarse_spaceref = (/1,1,1/)
     integer, dimension(3) :: coarse_timeref  = (/1,1,1/)
+    
+    
+! External mapping procedure
+    Procedure(mapping), pointer :: agrif_external_mapping => NULL()
+    abstract interface
+     subroutine mapping(ndim,ptx,pty,bounds,bounds_chunks,correction_required,nb_chunks)
+     integer :: ndim, ptx, pty
+     integer,dimension(ndim,2,2) :: bounds
+     integer,dimension(:,:,:,:),allocatable :: bounds_chunks
+     logical,dimension(:),allocatable :: correction_required
+     integer :: nb_chunks
+     end subroutine mapping
+    end interface
+
+    Procedure(linear_interp), pointer :: agrif_external_linear_interp => NULL()
+    abstract interface
+     real function linear_interp(x1,x2,coeff)
+     real :: x1, x2, coeff
+     end function linear_interp
+    end interface
 !
 contains