Ignore:
Timestamp:
2019-07-05T14:07:17+02:00 (15 months 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/OCE/DYN/dynspg_ts.F90

    r11205 r11219  
    796796         ! Enforce volume conservation at open boundaries: 
    797797         IF( ln_bdy .AND. ln_vol ) CALL bdy_vol2d( kt, jn, ua_e, va_e, zhup2_e, zhvp2_e ) 
    798          ! 
    799 #if  defined key_agrif 
    800          ! Set fluxes during predictor step to ensure volume conservation 
    801          IF( .NOT.Agrif_Root() .AND. ln_bt_fw ) CALL agrif_dyn_ts( jn ) 
    802 #endif       
     798         !       
    803799         zwx(:,:) = e2u(:,:) * ua_e(:,:) * zhup2_e(:,:)         ! fluxes at jn+0.5 
    804800         zwy(:,:) = e1v(:,:) * va_e(:,:) * zhvp2_e(:,:) 
    805801         ! 
     802#if defined key_agrif 
     803         ! Set fluxes during predictor step to ensure volume conservation 
     804         IF( .NOT.Agrif_Root() .AND. ln_bt_fw ) CALL agrif_dyn_ts_flux( jn, zwx, zwy ) 
     805 
     806#endif 
    806807         IF( ln_wd_il )   CALL wad_lmt_bt(zwx, zwy, sshn_e, zssh_frc, rdtbt) 
    807808 
Note: See TracChangeset for help on using the changeset viewer.