431 |
& SEAICE_EPS, SEAICE_EPS_SQ |
& SEAICE_EPS, SEAICE_EPS_SQ |
432 |
|
|
433 |
#ifdef SEAICE_ITD |
#ifdef SEAICE_ITD |
|
CToM<<< |
|
434 |
C Hlimit :: ice thickness category limits (m), array of |
C Hlimit :: ice thickness category limits (m), array of |
435 |
C size nITD+1 |
C size nITD+1 |
436 |
C Hlimit_c1,_c2,_c3 :: coefficients set in seaice_readparams.F to |
C Hlimit_c1,_c2,_c3 :: coefficients set in seaice_readparams.F to |
440 |
COMMON /SEAICE_BOUND_ITD_RL/ |
COMMON /SEAICE_BOUND_ITD_RL/ |
441 |
& Hlimit, |
& Hlimit, |
442 |
& Hlimit_c1,Hlimit_c2,Hlimit_c3 |
& Hlimit_c1,Hlimit_c2,Hlimit_c3 |
|
C>>>ToM |
|
443 |
#endif /* SEAICE_ITD */ |
#endif /* SEAICE_ITD */ |
444 |
|
|
445 |
C-- Constants used by sea-ice model |
C-- Constants used by sea-ice model |