Changeset 15750
- Timestamp:
- 2022-03-15T13:35:04+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_EAP_rheology_fix/src/ICE/icedyn_rdgrft.F90
r15742 r15750 1043 1043 1044 1044 ! Enforce a maximum for strength 1045 ! Richter-Menge and Elder (1998) estimate maximum in Beaufort Sea in wintertime of the order 150 kN/m1046 1045 WHERE( strength_1d(:) > max_strength ) ; strength_1d(:) = max_strength 1047 1046 END WHERE
Note: See TracChangeset
for help on using the changeset viewer.