- Timestamp:
- 2020-06-12T14:42:37+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg.F90
r12261 r13105 88 88 CASE( np_rhgEAP ) ! Elasto-Anisotropic-Plastic ! 89 89 ! !----------------------------! 90 CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12 )90 CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12, rdg_conv ) 91 91 END SELECT 92 92 !
Note: See TracChangeset
for help on using the changeset viewer.