Changeset 11480 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/ICE/icedyn_rhg.F90
- Timestamp:
- 2019-08-29T11:23:25+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/ICE/icedyn_rhg.F90
r10413 r11480 47 47 CONTAINS 48 48 49 SUBROUTINE ice_dyn_rhg( kt )49 SUBROUTINE ice_dyn_rhg( kt, Kmm ) 50 50 !!------------------------------------------------------------------- 51 51 !! *** ROUTINE ice_dyn_rhg *** … … 58 58 !!-------------------------------------------------------------------- 59 59 INTEGER, INTENT(in) :: kt ! ice time step 60 INTEGER, INTENT(in) :: Kmm ! ocean time level index 60 61 !!-------------------------------------------------------------------- 61 62 ! controls … … 76 77 CASE( np_rhgEVP ) ! Elasto-Viscous-Plastic ! 77 78 ! !------------------------! 78 CALL ice_dyn_rhg_evp( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i )79 CALL ice_dyn_rhg_evp( kt, Kmm, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i ) 79 80 ! 80 81 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.