Changeset 9761 for NEMO/trunk/src/NST/agrif_ice_update.F90
- Timestamp:
- 2018-06-07T14:00:06+02:00 (6 years ago)
- File:
-
- 1 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 )
Note: See TracChangeset
for help on using the changeset viewer.