Changeset 13351 for NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_interp.F90
- Timestamp:
- 2020-07-28T17:20:03+02:00 (4 years ago)
- 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 169 169 Agrif_SpecialValue = 0._wp 170 170 Agrif_UseSpecialValue = .TRUE. 171 l_vremap = ln_v remap172 ! 173 CALL Agrif_Bc_variable( ts n_id, procname=interptsn )171 l_vremap = ln_vert_remap 172 ! 173 CALL Agrif_Bc_variable( ts_interp_id, procname=interptsn ) 174 174 ! 175 175 Agrif_UseSpecialValue = .FALSE. … … 194 194 Agrif_SpecialValue = 0.0_wp 195 195 Agrif_UseSpecialValue = ln_spc_dyn 196 l_vremap = ln_v remap196 l_vremap = ln_vert_remap 197 197 ! 198 198 use_sign_north = .TRUE. … … 785 785 Agrif_SpecialValue = 0.e0 786 786 Agrif_UseSpecialValue = .TRUE. 787 l_vremap = ln_v remap787 l_vremap = ln_vert_remap 788 788 ! 789 789 CALL Agrif_Bc_variable( avm_id, calledweight=zalpha, procname=interpavm ) … … 828 828 END DO 829 829 830 IF( l_vremap .OR. l_ini_child ) THEN830 IF( l_vremap .OR. l_ini_child ) THEN 831 831 ! Interpolate thicknesses 832 832 ! Warning: these are masked, hence extrapolated prior interpolation. … … 1588 1588 ! --- West --- ! 1589 1589 IF(lk_west) THEN 1590 ispon = nn_sponge_len * Agrif_irhox() + 11590 ispon = nn_sponge_len * Agrif_irhox() 1591 1591 istart = nn_hls + 2 ! halo + land + 1 1592 1592 iend = nn_hls + 1 + nbghostcells + ispon ! halo + land + nbghostcells + sponge … … 1610 1610 ! --- East --- ! 1611 1611 IF(lk_east) THEN 1612 ispon = nn_sponge_len * Agrif_irhox() + 11612 ispon = nn_sponge_len * Agrif_irhox() 1613 1613 istart = jpiglo - ( nn_hls + nbghostcells + ispon ) ! halo + land + nbghostcells + sponge - 1 1614 1614 iend = jpiglo - ( nn_hls + 1 ) ! halo + land + 1 - 1 … … 1632 1632 ! --- South --- ! 1633 1633 IF(lk_south) THEN 1634 ispon = nn_sponge_len * Agrif_irhoy() + 11634 ispon = nn_sponge_len * Agrif_irhoy() 1635 1635 jstart = nn_hls + 2 ! halo + land + 1 1636 1636 jend = nn_hls + 1 + nbghostcells + ispon ! halo + land + nbghostcells + sponge … … 1654 1654 ! --- North --- ! 1655 1655 IF(lk_north) THEN 1656 ispon = nn_sponge_len * Agrif_irhoy() + 11656 ispon = nn_sponge_len * Agrif_irhoy() 1657 1657 jstart = jpjglo - ( nn_hls + nbghostcells + ispon) ! halo + land + nbghostcells +sponge - 1 1658 1658 jend = jpjglo - ( nn_hls + 1 ) ! halo + land + 1 - 1
Note: See TracChangeset
for help on using the changeset viewer.