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 11219 for NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce.F90 – NEMO

Ignore:
Timestamp:
2019-07-05T14:07:17+02:00 (5 years ago)
Author:
jchanut
Message:

#2199
1) Define aditionnal arrays to correct the time interpolation of barotropic arrays in corners. Since multiple stages in the time interpolation are necessary, overlapping segments in corners give wrong results otherwise (corrects stage 2 in previous commit)..
2) Added subroutine to correct time extrapolated fluxes at bdy in time splitting routine (updates stage 3 in previous commit).
3) Completly remove non-specified open boundary case. Boundares are now exactly set from parent (no more filtering nor extrapolation for outgoing flows).
At this stage, use of nbondi, nbondj variables has been completly removed.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce.F90

    r11205 r11219  
    2626   REAL(wp), PUBLIC ::   rn_sponge_dyn = 2800.     !: sponge coeff. for dynamics 
    2727   LOGICAL , PUBLIC ::   ln_chk_bathy  = .FALSE.   !: check of parent bathymetry  
    28    LOGICAL , PUBLIC ::   lk_agrif_clp  = .FALSE.   !: Force clamped bcs 
    2928   !                                              !!! OLD namelist names 
    3029   REAL(wp), PUBLIC ::   visc_tra                  !: sponge coeff. for tracers 
    … …  
    4241   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_u 
    4342   LOGICAL , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tabspongedone_v 
     43   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: utint_stage 
     44   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vtint_stage 
    4445   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fsaht_spu, fsaht_spv !: sponge diffusivities 
    4546   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fsahm_spt, fsahm_spf !: sponge viscosities 
    … …  
    7980      ierr(:) = 0 
    8081      ! 
    81       ALLOCATE( fsaht_spu(jpi,jpj), fsaht_spv(jpi,jpj),   & 
    82          &      fsahm_spt(jpi,jpj), fsahm_spf(jpi,jpj),   & 
    83          &      tabspongedone_tsn(jpi,jpj),           & 
     82      ALLOCATE( fsaht_spu(jpi,jpj), fsaht_spv(jpi,jpj),     & 
     83         &      fsahm_spt(jpi,jpj), fsahm_spf(jpi,jpj),     & 
     84         &      tabspongedone_tsn(jpi,jpj),                 & 
     85         &      utint_stage(jpi,jpj), vtint_stage(jpi,jpj), & 
    8486# if defined key_top          
    8587         &      tabspongedone_trn(jpi,jpj),           & 
Note: See TracChangeset for help on using the changeset viewer.