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 9748 for NEMO/trunk/src/NST/agrif_user.F90 – NEMO

Ignore:
Timestamp:
2018-06-06T11:51:26+02:00 (6 years ago)
Author:
jchanut
Message:

Make online bathymetry check compliant with nesting tools

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_user.F90

    r9656 r9748  
    446446   CALL Agrif_Set_bc( vb2b_interp_id, (/0,ind1-1/) ) 
    447447 
    448    CALL Agrif_Set_bc(  e3t_id, (/-2*Agrif_irhox()-1,ind1-1/) )   ! if west and rhox=3 and ghost=1: column 2 to 9 
    449    CALL Agrif_Set_bc( umsk_id, (/0,ind1-1/)                  ) 
    450    CALL Agrif_Set_bc( vmsk_id, (/0,ind1-1/)                  ) 
     448   CALL Agrif_Set_bc(  e3t_id, (/-1*Agrif_irhox(),ind1-1/) )   ! if west and rhox=3 and ghost=1: column 2 to 6  
     449   CALL Agrif_Set_bc( umsk_id, (/0,0/) ) 
     450   CALL Agrif_Set_bc( vmsk_id, (/0,0/) ) 
     451 
    451452 
    452453   IF( ln_zdftke.OR.ln_zdfgls )   CALL Agrif_Set_bc( avm_id, (/0,ind1/) ) 
Note: See TracChangeset for help on using the changeset viewer.