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/modtypes.F90

    r5656 r10087  
    109109    real(4), dimension(:,:,:,:,:,:), allocatable :: sarray6 
    110110!> @} 
     111!> \name Arrays containing the values of the grid variables (real) 
     112!> @{ 
     113    real,    dimension(:)          , pointer :: parray1 
     114    real,    dimension(:,:)        , pointer :: parray2 
     115    real,    dimension(:,:,:)      , pointer :: parray3 
     116    real,    dimension(:,:,:,:)    , pointer :: parray4 
     117    real,    dimension(:,:,:,:,:)  , pointer :: parray5 
     118    real,    dimension(:,:,:,:,:,:), pointer :: parray6 
     119!> @} 
     120!> \name Arrays containing the values of the grid variables (real*8) 
     121!> @{ 
     122    real(8), dimension(:)          , pointer :: pdarray1 
     123    real(8), dimension(:,:)        , pointer :: pdarray2 
     124    real(8), dimension(:,:,:)      , pointer :: pdarray3 
     125    real(8), dimension(:,:,:,:)    , pointer :: pdarray4 
     126    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5 
     127    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6 
     128!> @} 
     129!> \name Arrays containing the values of the grid variables (real*4) 
     130!> @{ 
     131    real(4), dimension(:)          , pointer :: psarray1 
     132    real(4), dimension(:,:)        , pointer :: psarray2 
     133    real(4), dimension(:,:,:)      , pointer :: psarray3 
     134    real(4), dimension(:,:,:,:)    , pointer :: psarray4 
     135    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5 
     136    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6 
     137!> @} 
    111138!> \name Arrays used to restore the values 
    112139!> @{ 
     
    132159    integer, dimension(6)   :: ub 
    133160 
     161    integer, dimension(6,2) :: lubglob 
     162 
    134163    logical,dimension(6,2) :: memberin 
    135164    integer,dimension(6,2,2,6,2) :: childarray 
     
    153182!> \name Arrays containing the values of the grid variables (character) 
    154183!> @{ 
    155     character(2400)                             :: carray0 
    156     character(200), dimension(:)  , allocatable :: carray1 
    157     character(200), dimension(:,:), allocatable :: carray2 
     184    character(4000)                             :: carray0 
     185    character(400), dimension(:)  , allocatable :: carray1 
     186    character(400), dimension(:,:), allocatable :: carray2 
    158187!> @} 
    159188!--------------------------------------------------------------------------------------------------- 
     
    218247!> \name Arrays containing the values of the grid variables (logical) 
    219248!> @{ 
    220     logical                                      :: larray0 
     249    logical                                      :: larray0 = .FALSE. 
    221250    logical, dimension(:)          , allocatable :: larray1 
    222251    logical, dimension(:,:)        , allocatable :: larray2 
     
    242271!> \name Arrays containing the values of the grid variables (integer) 
    243272!> @{ 
    244     integer                                      :: iarray0 
     273    integer                                      :: iarray0 = 0 
    245274    integer, dimension(:)          , allocatable :: iarray1 
    246275    integer, dimension(:,:)        , allocatable :: iarray2 
     
    259288    integer,dimension(6)              :: pttab, petab, pttab_Child, pttab_Parent = -99 
    260289    integer,dimension(6)              :: indmin, indmax 
     290    integer,dimension(6)              :: indmin_required_p, indmax_required_p 
    261291    integer,dimension(6)              :: pttruetab,cetruetab 
    262292    logical :: member, memberin 
     
    324354    real                  :: Agrif_Efficiency = 0.7 
    325355    integer               :: MaxSearch = 5 
    326     real, dimension(3)    :: Agrif_mind 
     356    real(kind=8), dimension(3)    :: Agrif_mind 
    327357!> @} 
    328358!> \name parameters for the interpolation of the child grids 
     
    388418integer function Agrif_Ceiling ( x ) 
    389419!--------------------------------------------------------------------------------------------------- 
    390     real,   intent(in) :: x 
     420    real(kind=8),intent(in) :: x 
    391421! 
    392422    integer   :: i 
     
    408438    integer function Agrif_Int(x) 
    409439!--------------------------------------------------------------------------------------------------- 
    410     real,   intent(in) :: x 
     440    real(kind=8),intent(in) :: x 
    411441! 
    412442    integer :: i 
Note: See TracChangeset for help on using the changeset viewer.