Changeset 5123 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limdyn_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/limdyn_2.F90
r4624 r5123 227 227 NAMELIST/namicedyn/ epsd, alpha, & 228 228 & dm, nbiter, nbitdr, om, resl, cw, angvg, pstar, & 229 & c_rhg, etamn, creepl,ecc, ahi0, &230 & n evp, telast, alphaevp, hminrhg229 & c_rhg, etamn, rn_creepl, rn_ecc, ahi0, & 230 & nn_nevp, telast, alphaevp 231 231 !!------------------------------------------------------------------- 232 232 … … 256 256 WRITE(numout,*) ' second bulk-rhelogy parameter c_rhg = ', c_rhg 257 257 WRITE(numout,*) ' minimun value for viscosity etamn = ', etamn 258 WRITE(numout,*) ' creep limit creepl = ',creepl259 WRITE(numout,*) ' eccentricity of the elliptical yield curve ecc = ',ecc258 WRITE(numout,*) ' creep limit rn_creepl = ', rn_creepl 259 WRITE(numout,*) ' eccentricity of the elliptical yield curve rn_ecc = ', rn_ecc 260 260 WRITE(numout,*) ' horizontal diffusivity coeff. for sea-ice ahi0 = ', ahi0 261 WRITE(numout,*) ' number of iterations for subcycling nevp = ',nevp261 WRITE(numout,*) ' number of iterations for subcycling nn_nevp= ', nn_nevp 262 262 WRITE(numout,*) ' timescale for elastic waves telast = ', telast 263 263 WRITE(numout,*) ' coefficient for the solution of int. stresses alphaevp = ', alphaevp 264 WRITE(numout,*) ' min ice thickness for rheology calculations hminrhg = ', hminrhg265 264 ENDIF 266 265 ! … … 272 271 273 272 ! Initialization 274 usecc2 = 1.0 / ( ecc *ecc )273 usecc2 = 1.0 / ( rn_ecc * rn_ecc ) 275 274 rhoco = rau0 * cw 276 275 angvg = angvg * rad ! convert angvg from degree to radian
Note: See TracChangeset
for help on using the changeset viewer.