Changeset 9761

Timestamp:

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

Author:

jchanut

Message:

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

Location:

NEMO/trunk/src/NST

Files:

• agrif_ice_update.F90 (modified) (2 diffs)
• agrif_user.F90 (modified) (1 diff)

NEMO/trunk/src/NST/agrif_ice_update.F90

@@ -1 +1 @@
 #define TWO_WAY
 !!#undef TWO_WAY
+#undef DECAL_FEEDBACK  /* SEPARATION of INTERFACES*/
 
 MODULE agrif_ice_update
@@ -57 +58 @@
       Agrif_SpecialValueFineGrid    = -9999.
       Agrif_UseSpecialValueInUpdate = .TRUE.
+
 # if defined TWO_WAY
+# if ! defined DECAL_FEEDBACK
       CALL Agrif_Update_Variable( tra_ice_id , procname = update_tra_ice  )
+#else
+      CALL Agrif_Update_Variable( tra_ice_id , locupdate=(/1,0/), procname = update_tra_ice  )
+#endif
+# if ! defined DECAL_FEEDBACK
       CALL Agrif_Update_Variable( u_ice_id   , procname = update_u_ice    )
       CALL Agrif_Update_Variable( v_ice_id   , procname = update_v_ice    )
-
+#else
+      CALL Agrif_Update_Variable( u_ice_id   , locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname=update_u_ice) 
+      CALL Agrif_Update_Variable( v_ice_id   , locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname=update_v_ice)
+#endif
 !      CALL Agrif_Update_Variable( tra_ice_id , locupdate=(/0,2/), procname = update_tra_ice  )
 !      CALL Agrif_Update_Variable( u_ice_id   , locupdate=(/0,1/), procname = update_u_ice    )

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/) )