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 9166 for branches/2017/dev_merge_2017/NEMOGCM/TOOLS/NESTING/src/agrif_interpolation.f90 – NEMO

Ignore:
Timestamp:
2017-12-22T16:45:51+01:00 (6 years ago)
Author:
jchanut
Message:

NESTING TOOLS:
Fixes to account for user defined number of ghostcells - still set to 1 to be consistent with NEMO
Set child grid bathymetry near boundaries to nearest neighbor interpolation from parent
Update Coarse grid bathymetry so that each cell volume matches child grid average

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/TOOLS/NESTING/src/agrif_interpolation.f90

    r2455 r9166  
    103103 
    104104    IF (typevar .EQ. 'F') THEN 
    105        ptx = 2 
    106        pty = 2 
     105       ptx = 1 + nbghostcellsfine  
     106       pty = 1 + nbghostcellsfine  
    107107       decalxc = 0. 
    108108       decalyc = 0. 
    … …  
    110110       decalyf = 0. 
    111111    ELSEIF (typevar .EQ. 'T') THEN 
    112        ptx = 3 
    113        pty = 3 
     112       ptx = 2 + nbghostcellsfine  
     113       pty = 2 + nbghostcellsfine  
    114114       decalxc = dxc/2. 
    115115       decalyc = dyc/2. 
    … …  
    117117       decalyf = dyf/2. 
    118118    ELSEIF (typevar .EQ. 'U') THEN 
    119        ptx = 2 
    120        pty = 3 
     119       ptx = 1 + nbghostcellsfine  
     120       pty = 2 + nbghostcellsfine  
    121121       decalxc = 0. 
    122122       decalyc = dyc/2. 
    … …  
    124124       decalyf = dyf/2. 
    125125    ELSEIF (typevar .EQ. 'V') THEN 
    126        ptx = 3 
    127        pty = 2 
     126       ptx = 2 + nbghostcellsfine  
     127       pty = 1 + nbghostcellsfine  
    128128       decalxc = dxc/2. 
    129129       decalyc = 0. 
Note: See TracChangeset for help on using the changeset viewer.