Changeset 5123 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90
- Timestamp:
- 2015-03-04T17:06:03+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90
r3680 r5123 266 266 267 267 ! Creep limit depends on the size of the grid. 268 zdelta = MAX( SQRT( ztrace2 + ( ztrace2 - 4._wp * zdeter ) * usecc2 ), creepl)268 zdelta = MAX( SQRT( ztrace2 + ( ztrace2 - 4._wp * zdeter ) * usecc2 ), rn_creepl) 269 269 270 270 !- Computation of viscosities.
Note: See TracChangeset
for help on using the changeset viewer.