16 |
C SEAICEuseDYNAMICS - If false, do not use dynamics; |
C SEAICEuseDYNAMICS - If false, do not use dynamics; |
17 |
C default is to use dynamics. |
C default is to use dynamics. |
18 |
C |
C |
19 |
C SEAICEuseADI - If true, use ADI rather than LSR solver; |
LOGICAL SEAICEwriteState, SEAICEuseDYNAMICS |
|
C default is LSR solver. |
|
|
C |
|
|
LOGICAL SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseADI |
|
20 |
COMMON /SEAICE_PARM_L/ |
COMMON /SEAICE_PARM_L/ |
21 |
& SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseADI |
& SEAICEwriteState, SEAICEuseDYNAMICS |
22 |
|
|
23 |
C-- COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model. |
C-- COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model. |
24 |
C LAD - time stepping used for sea-ice advection: |
C LAD - time stepping used for sea-ice advection: |
25 |
C 1 = LEAPFROG, 2 = BACKWARD EULER. |
C 1 = LEAPFROG, 2 = BACKWARD EULER. |
26 |
C IMAX_TICE - number of iterations for ice heat budget 10 |
C IMAX_TICE - number of iterations for ice heat budget 10 |
|
C NPSEUDO - number of pseudo-timesteps used in dynsolver |
|
|
C DO PSEUDO-TIMESTEPS TO OBTAIN AN ACCURATE VISCOUS-PLASTIC SOLUTION |
|
|
C 10 PSEUDO-TIMESTEPS OR MORE ARE SUGGESTED FOR HIGH-RESOLUTION (~10KM) |
|
|
C 1 PSEUDO-TIMESTEP CAN BE USED FOR LOW-RESOLUTION GLOBAL MODELING |
|
27 |
C |
C |
28 |
INTEGER LAD, IMAX_TICE, NPSEUDO |
INTEGER LAD, IMAX_TICE |
29 |
COMMON /SEAICE_PARM_I/ LAD, IMAX_TICE, NPSEUDO |
COMMON /SEAICE_PARM_I/ LAD, IMAX_TICE |
30 |
|
|
31 |
C-- COMMON /SEAICE_PARM_C/ Character valued sea ice model parameters. |
C-- COMMON /SEAICE_PARM_C/ Character valued sea ice model parameters. |
32 |
C uwindFile - File containing uwind |
C uwindFile - File containing uwind |