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 14975 for vendors/AGRIF/dev/AGRIF_FILES/modupdatebasic.F90 – NEMO

Ignore:
Timestamp:
2021-06-11T11:05:32+02:00 (3 years ago)
Author:
jchanut
Message:

#2638, merge new AGRIF library into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vendors/AGRIF/dev/AGRIF_FILES/modupdatebasic.F90

    r14107 r14975  
    4949    integer,             intent(in)     :: np           !< Length of parent array 
    5050    integer,             intent(in)     :: nc           !< Length of child  array 
    51     real,                intent(in)     :: s_parent     !< Parent grid position (s_root = 0) 
    52     real,                intent(in)     :: s_child      !< Child  grid position (s_root = 0) 
    53     real,                intent(in)     :: ds_parent    !< Parent grid dx (ds_root = 1) 
    54     real,                intent(in)     :: ds_child     !< Child  grid dx (ds_root = 1) 
     51    real(kind=8),        intent(in)     :: s_parent     !< Parent grid position (s_root = 0) 
     52    real(kind=8),        intent(in)     :: s_child      !< Child  grid position (s_root = 0) 
     53    real(kind=8),        intent(in)     :: ds_parent    !< Parent grid dx (ds_root = 1) 
     54    real(kind=8),        intent(in)     :: ds_child     !< Child  grid dx (ds_root = 1) 
    5555!--------------------------------------------------------------------------------------------------- 
    5656    integer :: i, locind_child_left, coeffraf 
    … …  
    8484    integer,             intent(in)     :: np           !< Length of parent array 
    8585    integer,             intent(in)     :: nc           !< Length of child  array 
    86     real,                intent(in)     :: s_parent     !< Parent grid position (s_root = 0) 
    87     real,                intent(in)     :: s_child      !< Child  grid position (s_root = 0) 
    88     real,                intent(in)     :: ds_parent    !< Parent grid dx (ds_root = 1) 
    89     real,                intent(in)     :: ds_child     !< Child  grid dx (ds_root = 1) 
     86    real(kind=8),        intent(in)     :: s_parent     !< Parent grid position (s_root = 0) 
     87    real(kind=8),        intent(in)     :: s_child      !< Child  grid position (s_root = 0) 
     88    real(kind=8),        intent(in)     :: ds_parent    !< Parent grid dx (ds_root = 1) 
     89    real(kind=8),        intent(in)     :: ds_child     !< Child  grid dx (ds_root = 1) 
    9090    integer,             intent(in)     :: dir          !< Direction 
    9191!--------------------------------------------------------------------------------------------------- 
    … …  
    157157    REAL, DIMENSION(nc), intent(in)     :: y 
    158158    INTEGER,             intent(in)     :: np,nc 
    159     REAL,                intent(in)     :: s_parent,  s_child 
    160     REAL,                intent(in)     :: ds_parent, ds_child 
     159    REAL(kind=8),        intent(in)     :: s_parent,  s_child 
     160    REAL(kind=8),        intent(in)     :: ds_parent, ds_child 
    161161! 
    162162    INTEGER :: i, ii, locind_child_left, coeffraf 
    163     REAL    :: xpos, invcoeffraf 
     163    REAL(kind=8)    :: xpos 
     164    REAL ::  invcoeffraf 
    164165    INTEGER :: nbnonnuls 
    165166    INTEGER :: diffmod 
    … …  
    294295!--------------------------------------------------------------------------------------------------- 
    295296    INTEGER, intent(in) :: nc2, np, nc 
    296     REAL,    intent(in) :: s_parent,  s_child 
    297     REAL,    intent(in) :: ds_parent, ds_child 
     297    REAL(kind=8),    intent(in) :: s_parent,  s_child 
     298    REAL(kind=8),    intent(in) :: ds_parent, ds_child 
    298299    INTEGER, intent(in) :: dir 
    299300! 
    300301    INTEGER, DIMENSION(:,:), ALLOCATABLE :: indchildaverage_tmp 
    301302    INTEGER :: i, locind_child_left, coeffraf 
    302     REAL    :: xpos 
     303    REAL(kind=8)    :: xpos 
    303304    INTEGER :: diffmod 
    304305! 
    … …  
    346347    REAL, DIMENSION(nc), intent(in)     :: y 
    347348    INTEGER,             intent(in)     :: np, nc 
    348     REAL,                intent(in)     :: s_parent,  s_child 
    349     REAL,                intent(in)     :: ds_parent, ds_child 
     349    REAL(kind=8),                intent(in)     :: s_parent,  s_child 
     350    REAL(kind=8),                intent(in)     :: ds_parent, ds_child 
    350351    INTEGER,             intent(in)     :: dir 
    351352! 
    … …  
    403404    real, dimension(nc), intent(in)     :: y 
    404405    integer,             intent(in)     :: np, nc 
    405     real,                intent(in)     :: s_parent,  s_child 
    406     real,                intent(in)     :: ds_parent, ds_child 
    407 !--------------------------------------------------------------------------------------------------- 
    408     REAL    :: xpos, xposfin 
     406    real(kind=8),                intent(in)     :: s_parent,  s_child 
     407    real(kind=8),                intent(in)     :: ds_parent, ds_child 
     408!--------------------------------------------------------------------------------------------------- 
     409    REAL(kind=8)    :: xpos, xposfin 
    409410    INTEGER :: i, ii, diffmod 
    410411    INTEGER :: it1, it2 
Note: See TracChangeset for help on using the changeset viewer.