- Timestamp:
- 2019-11-08T17:27:43+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg.F90
r11867 r11877 86 86 CASE( np_rhgEAP ) ! Elasto-Anisotropic-Plastic ! 87 87 ! !----------------------------! 88 CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i )88 CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12 ) 89 89 END SELECT 90 90 !
Note: See TracChangeset
for help on using the changeset viewer.