Changeset 9761
- Timestamp:
- 2018-06-07T14:00:06+02:00 (7 years ago)
- Location:
- NEMO/trunk/src/NST
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_ice_update.F90
r9656 r9761 1 1 #define TWO_WAY 2 2 !!#undef TWO_WAY 3 #undef DECAL_FEEDBACK /* SEPARATION of INTERFACES*/ 3 4 4 5 MODULE agrif_ice_update … … 57 58 Agrif_SpecialValueFineGrid = -9999. 58 59 Agrif_UseSpecialValueInUpdate = .TRUE. 60 59 61 # if defined TWO_WAY 62 # if ! defined DECAL_FEEDBACK 60 63 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 61 68 CALL Agrif_Update_Variable( u_ice_id , procname = update_u_ice ) 62 69 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 64 74 ! CALL Agrif_Update_Variable( tra_ice_id , locupdate=(/0,2/), procname = update_tra_ice ) 65 75 ! CALL Agrif_Update_Variable( u_ice_id , locupdate=(/0,1/), procname = update_u_ice ) -
NEMO/trunk/src/NST/agrif_user.F90
r9748 r9761 446 446 CALL Agrif_Set_bc( vb2b_interp_id, (/0,ind1-1/) ) 447 447 448 CALL Agrif_Set_bc( e3t_id, (/- 1*Agrif_irhox(),ind1-1/) ) ! if west and rhox=3 and ghost=1: column 2 to 6448 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 449 449 CALL Agrif_Set_bc( umsk_id, (/0,0/) ) 450 450 CALL Agrif_Set_bc( vmsk_id, (/0,0/) )
Note: See TracChangeset
for help on using the changeset viewer.