Changeset 9761 for NEMO/trunk/src/NST/agrif_user.F90

Timestamp:

2018-06-07T14:00:06+02:00 (6 years ago)

Author:

jchanut

Message:

Add interface separation (undefined by default) for AGRIF ice nesting

File:

• NEMO/trunk/src/NST/agrif_user.F90 (modified) (1 diff)

NEMO/trunk/src/NST/agrif_user.F90

@@ -446 +446 @@
    CALL Agrif_Set_bc( vb2b_interp_id, (/0,ind1-1/) )
 
-   CALL Agrif_Set_bc(  e3t_id, (/-1*Agrif_irhox(),ind1-1/) )   ! if west and rhox=3 and ghost=1: column 2 to 6 
+   CALL Agrif_Set_bc(  e3t_id, (/-nn_sponge_len*Agrif_irhox(),ind1-1/) )   ! if west and rhox=3 and ghost=1: column 2 to 6 
    CALL Agrif_Set_bc( umsk_id, (/0,0/) )
    CALL Agrif_Set_bc( vmsk_id, (/0,0/) )