Changeset 10087 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modsauv.F90
- Timestamp:
- 2018-09-05T15:33:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modsauv.F90
r5656 r10087 27 27 ! 28 28 module Agrif_Save 29 ! 29 ! 30 30 use Agrif_Types 31 31 use Agrif_Link 32 32 use Agrif_Arrays 33 use Agrif_ Variables33 use Agrif_User_Variables 34 34 ! 35 35 implicit none … … 250 250 ! 251 251 type(Agrif_PGrid), pointer :: parcours ! Pointer for the recursive procedure 252 real :: g_eps, eps, oldgrid_eps252 real(kind=8) :: g_eps, eps, oldgrid_eps 253 253 integer :: out 254 254 integer :: iii … … 331 331 ! 332 332 type(Agrif_PGrid), pointer :: parcours ! Pointer for the recursive procedure 333 real :: g_eps,eps,oldgrid_eps333 real(kind=8) :: g_eps,eps,oldgrid_eps 334 334 integer :: out 335 335 integer :: iii … … 415 415 integer, dimension(6) :: nbtabold ! Number of cells in each direction 416 416 integer, dimension(6) :: nbtabnew ! Number of cells in each direction 417 real , dimension(6) :: snew,sold418 real , dimension(6) :: dsnew,dsold419 real :: eps417 real(kind=8), dimension(6) :: snew,sold 418 real(kind=8), dimension(6) :: dsnew,dsold 419 real(kind=8) :: eps 420 420 integer :: n 421 421 ! … … 531 531 integer, dimension(nbdim), intent(in) :: pttabold 532 532 integer, dimension(nbdim), intent(in) :: petabold 533 real , dimension(nbdim), intent(in) :: snew, sold534 real , dimension(nbdim), intent(in) :: dsnew,dsold533 real(kind=8), dimension(nbdim), intent(in) :: snew, sold 534 real(kind=8), dimension(nbdim), intent(in) :: dsnew,dsold 535 535 integer, intent(in) :: nbdim 536 536 ! 537 537 integer :: i,j,k,l,m,n,i0,j0,k0,l0,m0,n0 538 538 ! 539 real , dimension(nbdim) :: dim_gmin, dim_gmax540 real , dimension(nbdim) :: dim_newmin, dim_newmax541 real , dimension(nbdim) :: dim_min539 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 542 542 integer, dimension(nbdim) :: ind_gmin,ind_newmin, ind_newmax 543 543 !
Note: See TracChangeset
for help on using the changeset viewer.