lab_sea/input.salt_plume/data.seaice

# SEAICE parameters
 &SEAICE_PARM01
#- old DIFF1 default:
 DIFF1 = 4.E-3,
 SEAICE_initialHEFF = 1.0,
 SEAICE_deltaTtherm = 3600.,
 SEAICE_deltaTdyn   = 3600.,
# LSR_mixIniGuess=1 : compute free-drift residual; =2,4 mix into initial guess
 LSR_mixIniGuess    = 1,
 LSR_ERROR          = 1.E-12,
#SEAICE_deltaTevp   = 30.,
#- to reproduce old results with former #defined SEAICE_SOLVE4TEMP_LEGACY code
  useMaykutSatVapPoly = .TRUE.,
  postSolvTempIter  =  0,
 SEAICE_dryIceAlb   = 0.8756,
 SEAICE_wetIceAlb   = 0.7856,
 SEAICE_drySnowAlb  = 0.9656,
 SEAICE_wetSnowAlb  = 0.8256,
 SEAICE_waterAlbedo = 0.2756,
 SEAICE_strength    = 2.6780e+04,
 OCEAN_drag         = 8.1541e-04,
 SEAICE_waterDrag   = 5.3508,
 SIsalFRAC          = 0.3,
 SEAICEturbFluxFormula = 2,
 SEAICE_gamma_t     = 259200.,
 SEAICE_gamma_t_frz = 10800.,
 SEAICE_clipVelocities= .TRUE.,
 SEAICEwriteState   = .TRUE.,
# For backward compatibility only:
# emissivities should be inherited from exf and setting them here does
# not set a good example
# SEAICE_snow_emiss  = 0.97001763668430343479,
# SEAICE_ice_emiss   = 0.97001763668430343479,
 &

 &SEAICE_PARM03
 SItrNumInUse          = 2,
 siTrName(1)           = 'ridge',
 siTrMate(1)           = 'AREA',
 siTrName(2)           = 'one',
 siTrMate(2)           = 'AREA',
 &
1	dimitri	1.1	# SEAICE parameters
2			&SEAICE_PARM01
3	jmc	1.11	#- old DIFF1 default:
4			DIFF1 = 4.E-3,
5	mlosch	1.6	SEAICE_initialHEFF = 1.0,
6			SEAICE_deltaTtherm = 3600.,
7			SEAICE_deltaTdyn = 3600.,
8	jmc	1.12	# LSR_mixIniGuess=1 : compute free-drift residual; =2,4 mix into initial guess
9			LSR_mixIniGuess = 1,
10	mlosch	1.6	LSR_ERROR = 1.E-12,
11			#SEAICE_deltaTevp = 30.,
12	jmc	1.16	#- to reproduce old results with former #defined SEAICE_SOLVE4TEMP_LEGACY code
13			useMaykutSatVapPoly = .TRUE.,
14			postSolvTempIter = 0,
15	mlosch	1.6	SEAICE_dryIceAlb = 0.8756,
16			SEAICE_wetIceAlb = 0.7856,
17			SEAICE_drySnowAlb = 0.9656,
18			SEAICE_wetSnowAlb = 0.8256,
19			SEAICE_waterAlbedo = 0.2756,
20			SEAICE_strength = 2.6780e+04,
21			OCEAN_drag = 8.1541e-04,
22			SEAICE_waterDrag = 5.3508,
23	ifenty	1.10	SIsalFRAC = 0.3,
24	gforget	1.17	SEAICEturbFluxFormula = 2,
25	mlosch	1.6	SEAICE_gamma_t = 259200.,
26			SEAICE_gamma_t_frz = 10800.,
27			SEAICE_clipVelocities= .TRUE.,
28	jmc	1.11	SEAICEwriteState = .TRUE.,
29	mlosch	1.13	# For backward compatibility only:
30			# emissivities should be inherited from exf and setting them here does
31			# not set a good example
32	jmc	1.14	# SEAICE_snow_emiss = 0.97001763668430343479,
33			# SEAICE_ice_emiss = 0.97001763668430343479,
34	dimitri	1.1	&
35	jmc	1.11
36	heimbach	1.7	&SEAICE_PARM03
37	gforget	1.18	SItrNumInUse = 2,
38	gforget	1.15	siTrName(1) = 'ridge',
39			siTrMate(1) = 'AREA',
40			siTrName(2) = 'one',
41			siTrMate(2) = 'AREA',
42	heimbach	1.7	&