Changeset 9748 for NEMO/trunk/src/NST/agrif_user.F90
- Timestamp:
- 2018-06-06T11:51:26+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_user.F90
r9656 r9748 446 446 CALL Agrif_Set_bc( vb2b_interp_id, (/0,ind1-1/) ) 447 447 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 451 452 452 453 IF( ln_zdftke.OR.ln_zdfgls ) CALL Agrif_Set_bc( avm_id, (/0,ind1/) )
Note: See TracChangeset
for help on using the changeset viewer.