Changeset 4055 for branches/2013/dev_r4028_CNRS_LIM3
- Timestamp:
- 2013-10-09T16:39:46+02:00 (11 years ago)
- Location:
- branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90
r3625 r4055 51 51 REAL(wp), PUBLIC :: ahi0 = 350._wp !: sea-ice hor. eddy diffusivity coeff. (m2/s) 52 52 REAL(wp), PUBLIC :: alphaevp = 1._wp !: coefficient for the solution of EVP int. stresses 53 REAL(wp), PUBLIC :: hminrhg = 0.05_wp !: clem : ice thickness (in m) below which ice velocity is set to ocean velocity 53 54 54 55 REAL(wp), PUBLIC :: usecc2 !: = 1.0 / ( ecc * ecc ) -
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90
r3625 r4055 227 227 & dm, nbiter, nbitdr, om, resl, cw, angvg, pstar, & 228 228 & c_rhg, etamn, creepl, ecc, ahi0, & 229 & nevp, telast, alphaevp229 & nevp, telast, alphaevp, hminrhg 230 230 !!------------------------------------------------------------------- 231 231 … … 255 255 WRITE(numout,*) ' timescale for elastic waves telast = ', telast 256 256 WRITE(numout,*) ' coefficient for the solution of int. stresses alphaevp = ', alphaevp 257 WRITE(numout,*) ' min ice thickness for rheology calculations hminrhg = ', hminrhg 257 258 ENDIF 258 259 !
Note: See TracChangeset
for help on using the changeset viewer.