| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
500 |
NO PROCEDURE |
_RL SEAICEpresH0 |
|
./pkg/seaice/SEAICE_PARAMS.h |
515 |
NO PROCEDURE |
& SEAICEpresH0, |
|
./pkg/seaice/seaice_calc_ice_strength.F |
106 |
SEAICE_CALC_ICE_STRENGTH |
IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
108 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
109 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow0) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
110 |
SEAICE_CALC_ICE_STRENGTH |
ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
112 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
113 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal2=SEAICEpresH0*(tmpscal1**SEAICEpresPow1) |
|
./pkg/seaice/seaice_check.F |
396 |
SEAICE_CHECK |
IF ( SEAICEpresH0 .LE. 0. _d 0 .OR. |
|
./pkg/seaice/seaice_readparms.F |
135 |
SEAICE_READPARMS |
& SEAICEpresH0, SEAICEpresPow0, SEAICEpresPow1, |
|
./pkg/seaice/seaice_readparms.F |
337 |
SEAICE_READPARMS |
SEAICEpresH0 = 1. _d 0 |
|
./pkg/seaice/seaice_summary.F |
174 |
SEAICE_SUMMARY |
CALL WRITE_0D_RL( SEAICEpresH0 ,INDEX_NONE, |