15 |
C SEAICEuseDYNAMICS - If false, do not use dynamics; |
C SEAICEuseDYNAMICS - If false, do not use dynamics; |
16 |
C default is to use dynamics. |
C default is to use dynamics. |
17 |
C |
C |
18 |
C SEAICEuseLSR - If true, use LSR rather than ADI solver; |
C SEAICEuseADI - If true, use ADI rather than LSR solver; |
19 |
C default is ADI solver. |
C default is LSR solver. |
20 |
C |
C |
21 |
C SEAICEwindOnCgrid - By default wind files, uwind and vwind, |
C SEAICEwindOnCgrid - By default wind files, uwind and vwind, |
22 |
C are defined on North-East B-grid U and V points. |
C are defined on North-East B-grid U and V points. |
23 |
C When this flag is set, wind files are defined on |
C When this flag is set, wind files are defined on |
24 |
C South-West C-grid U and V points. |
C South-West C-grid U and V points. |
25 |
C |
C |
26 |
LOGICAL SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseLSR, |
LOGICAL SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseADI, |
27 |
& SEAICEwindOnCgrid |
& SEAICEwindOnCgrid |
28 |
COMMON /SEAICE_PARM_L/ |
COMMON /SEAICE_PARM_L/ |
29 |
& SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseLSR, |
& SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseADI, |
30 |
& SEAICEwindOnCgrid |
& SEAICEwindOnCgrid |
31 |
|
|
32 |
C-- COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model. |
C-- COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model. |
76 |
C SEAICE_taveFreq - SEAICE time-averaging frequency. (s) |
C SEAICE_taveFreq - SEAICE time-averaging frequency. (s) |
77 |
C SEAICE_initialHEFF - initial sea-ice thickness (m) |
C SEAICE_initialHEFF - initial sea-ice thickness (m) |
78 |
C SEAICE_drag - air-ice drag coefficient |
C SEAICE_drag - air-ice drag coefficient |
79 |
|
C OCEAN_drag - air-ocean drag coefficient |
80 |
C SEAICE_waterDrag - water-ice drag coefficient * water density |
C SEAICE_waterDrag - water-ice drag coefficient * water density |
81 |
C SEAICE_albedo - summer albedo |
C SEAICE_albedo - summer albedo |
82 |
C SEAICE_drySnowAlb - dry snow albedo |
C SEAICE_drySnowAlb - dry snow albedo |
116 |
_RL SEAICE_waterAlbedo, SEAICE_strength |
_RL SEAICE_waterAlbedo, SEAICE_strength |
117 |
_RL SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce |
_RL SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce |
118 |
_RL SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity |
_RL SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity |
119 |
_RL SEAICE_snowThick, SEAICE_shortwave |
_RL SEAICE_snowThick, SEAICE_shortwave, OCEAN_drag |
120 |
_RL LSR_ERROR,DIFF1,A22,HO |
_RL LSR_ERROR,DIFF1,A22,HO |
121 |
_RL WindForcingStart, WindForcingEnd, WindForcingPeriod |
_RL WindForcingStart, WindForcingEnd, WindForcingPeriod |
122 |
_RL FluxForcingStart, FluxForcingEnd, FluxForcingPeriod |
_RL FluxForcingStart, FluxForcingEnd, FluxForcingPeriod |
130 |
& SEAICE_waterAlbedo, SEAICE_strength, |
& SEAICE_waterAlbedo, SEAICE_strength, |
131 |
& SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce, |
& SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce, |
132 |
& SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity, |
& SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity, |
133 |
& SEAICE_snowThick, SEAICE_shortwave, |
& SEAICE_snowThick, SEAICE_shortwave, OCEAN_drag, |
134 |
& LSR_ERROR, DIFF1, A22, HO, |
& LSR_ERROR, DIFF1, A22, HO, |
135 |
& WindForcingStart, WindForcingEnd, WindForcingPeriod, |
& WindForcingStart, WindForcingEnd, WindForcingPeriod, |
136 |
& FluxForcingStart, FluxForcingEnd, FluxForcingPeriod, |
& FluxForcingStart, FluxForcingEnd, FluxForcingPeriod, |