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 13351 for NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_interp.F90 – NEMO

Ignore:
Timestamp:
2020-07-28T17:20:03+02:00 (4 years ago)
Author:
jchanut
Message:

#2222, fixes mistakes when removing key_vertical - rename flag in namelist to prevent further mistakes - vertical refinement works fine in VORTEX

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_interp.F90

    r13337 r13351  
    169169      Agrif_SpecialValue    = 0._wp 
    170170      Agrif_UseSpecialValue = .TRUE. 
    171       l_vremap           = ln_vremap 
    172       ! 
    173       CALL Agrif_Bc_variable( tsn_id, procname=interptsn ) 
     171      l_vremap           = ln_vert_remap 
     172      ! 
     173      CALL Agrif_Bc_variable( ts_interp_id, procname=interptsn ) 
    174174      ! 
    175175      Agrif_UseSpecialValue = .FALSE. 
     
    194194      Agrif_SpecialValue    = 0.0_wp 
    195195      Agrif_UseSpecialValue = ln_spc_dyn 
    196       l_vremap              = ln_vremap 
     196      l_vremap              = ln_vert_remap 
    197197      ! 
    198198      use_sign_north = .TRUE. 
     
    785785      Agrif_SpecialValue    = 0.e0 
    786786      Agrif_UseSpecialValue = .TRUE. 
    787       l_vremap              = ln_vremap 
     787      l_vremap              = ln_vert_remap 
    788788      ! 
    789789      CALL Agrif_Bc_variable( avm_id, calledweight=zalpha, procname=interpavm )        
     
    828828         END DO 
    829829 
    830          IF( l_vremap .OR. l_ini_child) THEN 
     830         IF( l_vremap .OR. l_ini_child ) THEN 
    831831            ! Interpolate thicknesses 
    832832            ! Warning: these are masked, hence extrapolated prior interpolation. 
     
    15881588      ! --- West --- ! 
    15891589      IF(lk_west) THEN 
    1590          ispon  = nn_sponge_len * Agrif_irhox() + 1 
     1590         ispon  = nn_sponge_len * Agrif_irhox() 
    15911591         istart = nn_hls + 2                                 ! halo + land + 1 
    15921592         iend   = nn_hls + 1 + nbghostcells + ispon          ! halo + land + nbghostcells + sponge 
     
    16101610      ! --- East --- ! 
    16111611      IF(lk_east) THEN 
    1612          ispon  = nn_sponge_len * Agrif_irhox() + 1 
     1612         ispon  = nn_sponge_len * Agrif_irhox()  
    16131613         istart = jpiglo - ( nn_hls + nbghostcells + ispon ) ! halo + land + nbghostcells + sponge - 1 
    16141614         iend   = jpiglo - ( nn_hls + 1 )                    ! halo + land + 1                     - 1 
     
    16321632      ! --- South --- ! 
    16331633      IF(lk_south) THEN 
    1634          ispon  = nn_sponge_len * Agrif_irhoy() + 1  
     1634         ispon  = nn_sponge_len * Agrif_irhoy()  
    16351635         jstart = nn_hls + 2                                 ! halo + land + 1 
    16361636         jend   = nn_hls + 1 + nbghostcells + ispon          ! halo + land + nbghostcells + sponge 
     
    16541654      ! --- North --- ! 
    16551655      IF(lk_north) THEN 
    1656          ispon  = nn_sponge_len * Agrif_irhoy() + 1  
     1656         ispon  = nn_sponge_len * Agrif_irhoy()  
    16571657         jstart = jpjglo - ( nn_hls + nbghostcells + ispon)  ! halo + land + nbghostcells +sponge - 1 
    16581658         jend   = jpjglo - ( nn_hls + 1 )                    ! halo + land + 1            - 1 
Note: See TracChangeset for help on using the changeset viewer.