Changeset 9761


Ignore:
Timestamp:
2018-06-07T14:00:06+02:00 (2 years ago)
Author:
jchanut
Message:

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

Location:
NEMO/trunk/src/NST
Files:
2 edited

Legend:

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

    r9656 r9761  
    11#define TWO_WAY 
    22!!#undef TWO_WAY 
     3#undef DECAL_FEEDBACK  /* SEPARATION of INTERFACES*/ 
    34 
    45MODULE agrif_ice_update 
     
    5758      Agrif_SpecialValueFineGrid    = -9999. 
    5859      Agrif_UseSpecialValueInUpdate = .TRUE. 
     60 
    5961# if defined TWO_WAY 
     62# if ! defined DECAL_FEEDBACK 
    6063      CALL Agrif_Update_Variable( tra_ice_id , procname = update_tra_ice  ) 
     64#else 
     65      CALL Agrif_Update_Variable( tra_ice_id , locupdate=(/1,0/), procname = update_tra_ice  ) 
     66#endif 
     67# if ! defined DECAL_FEEDBACK 
    6168      CALL Agrif_Update_Variable( u_ice_id   , procname = update_u_ice    ) 
    6269      CALL Agrif_Update_Variable( v_ice_id   , procname = update_v_ice    ) 
    63  
     70#else 
     71      CALL Agrif_Update_Variable( u_ice_id   , locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname=update_u_ice)  
     72      CALL Agrif_Update_Variable( v_ice_id   , locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname=update_v_ice) 
     73#endif 
    6474!      CALL Agrif_Update_Variable( tra_ice_id , locupdate=(/0,2/), procname = update_tra_ice  ) 
    6575!      CALL Agrif_Update_Variable( u_ice_id   , locupdate=(/0,1/), procname = update_u_ice    ) 
  • NEMO/trunk/src/NST/agrif_user.F90

    r9748 r9761  
    446446   CALL Agrif_Set_bc( vb2b_interp_id, (/0,ind1-1/) ) 
    447447 
    448    CALL Agrif_Set_bc(  e3t_id, (/-1*Agrif_irhox(),ind1-1/) )   ! if west and rhox=3 and ghost=1: column 2 to 6  
     448   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  
    449449   CALL Agrif_Set_bc( umsk_id, (/0,0/) ) 
    450450   CALL Agrif_Set_bc( vmsk_id, (/0,0/) ) 
Note: See TracChangeset for help on using the changeset viewer.