New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10087 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modsauv.F90 – NEMO

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

update AGRIF library

File:
1 edited

Legend:

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

    r5656 r10087  
    2727! 
    2828module Agrif_Save 
    29 ! 
     29!    
    3030    use Agrif_Types 
    3131    use Agrif_Link 
    3232    use Agrif_Arrays 
    33     use Agrif_Variables 
     33    use Agrif_User_Variables 
    3434! 
    3535    implicit none 
     
    250250! 
    251251    type(Agrif_PGrid), pointer  :: parcours ! Pointer for the recursive procedure 
    252     real    :: g_eps, eps, oldgrid_eps 
     252    real(kind=8)    :: g_eps, eps, oldgrid_eps 
    253253    integer :: out 
    254254    integer :: iii 
     
    331331! 
    332332    type(Agrif_PGrid), pointer  :: parcours ! Pointer for the recursive procedure 
    333     real    :: g_eps,eps,oldgrid_eps 
     333    real(kind=8)    :: g_eps,eps,oldgrid_eps 
    334334    integer :: out 
    335335    integer :: iii 
     
    415415    integer, dimension(6) :: nbtabold  ! Number of cells in each direction 
    416416    integer, dimension(6) :: nbtabnew  ! Number of cells in each direction 
    417     real,    dimension(6) :: snew,sold 
    418     real,    dimension(6) :: dsnew,dsold 
    419     real    :: eps 
     417    real(kind=8),    dimension(6) :: snew,sold 
     418    real(kind=8),    dimension(6) :: dsnew,dsold 
     419    real(kind=8)    :: eps 
    420420    integer :: n 
    421421! 
     
    531531    integer, dimension(nbdim),     intent(in)    :: pttabold 
    532532    integer, dimension(nbdim),     intent(in)    :: petabold 
    533     real,    dimension(nbdim),     intent(in)    :: snew, sold 
    534     real,    dimension(nbdim),     intent(in)    :: dsnew,dsold 
     533    real(kind=8),    dimension(nbdim),     intent(in)    :: snew, sold 
     534    real(kind=8),    dimension(nbdim),     intent(in)    :: dsnew,dsold 
    535535    integer,                       intent(in)    :: nbdim 
    536536! 
    537537    integer :: i,j,k,l,m,n,i0,j0,k0,l0,m0,n0 
    538538! 
    539     real,    dimension(nbdim) :: dim_gmin,   dim_gmax 
    540     real,    dimension(nbdim) :: dim_newmin, dim_newmax 
    541     real,    dimension(nbdim) :: dim_min 
     539    real(kind=8),    dimension(nbdim) :: dim_gmin,   dim_gmax 
     540    real(kind=8),    dimension(nbdim) :: dim_newmin, dim_newmax 
     541    real(kind=8),    dimension(nbdim) :: dim_min 
    542542    integer, dimension(nbdim) :: ind_gmin,ind_newmin, ind_newmax 
    543543! 
Note: See TracChangeset for help on using the changeset viewer.