Changeset 5123 for trunk/NEMOGCM/NEMO/LIM_SRC_2/ice_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/ice_2.F90
r5056 r5123 35 35 INTEGER , PUBLIC :: nbiter !: number of sub-time steps for relaxation 36 36 INTEGER , PUBLIC :: nbitdr !: maximum number of iterations for relaxation 37 INTEGER , PUBLIC :: n evp!: number of EVP subcycling iterations37 INTEGER , PUBLIC :: nn_nevp !: number of EVP subcycling iterations 38 38 INTEGER , PUBLIC :: telast !: timescale for EVP elastic waves 39 39 REAL(wp), PUBLIC :: epsd !: tolerance parameter for dynamic … … 47 47 REAL(wp), PUBLIC :: c_rhg !: second bulk-rhelogy parameter 48 48 REAL(wp), PUBLIC :: etamn !: minimun value for viscosity 49 REAL(wp), PUBLIC :: creepl!: creep limit50 REAL(wp), PUBLIC :: ecc!: eccentricity of the elliptical yield curve49 REAL(wp), PUBLIC :: rn_creepl !: creep limit 50 REAL(wp), PUBLIC :: rn_ecc !: eccentricity of the elliptical yield curve 51 51 REAL(wp), PUBLIC :: ahi0 !: sea-ice hor. eddy diffusivity coeff. (m2/s) 52 52 REAL(wp), PUBLIC :: alphaevp !: coefficient for the solution of EVP int. stresses 53 REAL(wp), PUBLIC :: hminrhg = 0.001_wp !: clem : ice volume (a*h in m) below which ice velocity is set to ocean velocity 54 55 REAL(wp), PUBLIC :: usecc2 !: = 1.0 / ( ecc * ecc ) 53 54 REAL(wp), PUBLIC :: usecc2 !: = 1.0 / ( rn_ecc * rn_ecc ) 56 55 REAL(wp), PUBLIC :: rhoco !: = rau0 * cw 57 56 REAL(wp), PUBLIC :: sangvg, cangvg !: sin and cos of the turning angle for ocean stress
Note: See TracChangeset
for help on using the changeset viewer.