| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
134 |
NO PROCEDURE |
_RL hThickIce |
|
./pkg/thsice/THSICE_PARAMS.h |
93 |
NO PROCEDURE |
& hThinIce, hThickIce, hNewIceMax |
|
./pkg/thsice/thsice_calc_thickn.F |
253 |
THSICE_CALC_THICKN |
aMlt = (c1Mlt+c2Mlt)/(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
259 |
THSICE_CALC_THICKN |
aFrz = (c1Frz+c2Frz)/(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
264 |
THSICE_CALC_THICKN |
aMlt = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
265 |
THSICE_CALC_THICKN |
hMlt = hThickIce |
|
./pkg/thsice/thsice_calc_thickn.F |
266 |
THSICE_CALC_THICKN |
aFrz = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
267 |
THSICE_CALC_THICKN |
hFrz = hThickIce |
|
./pkg/thsice/thsice_calc_thickn.F |
367 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.hThickIce) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
422 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_readparms.F |
125 |
THSICE_READPARMS |
hThickIce = 2.5 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
296 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: hThickIce =',hThickIce |
|
./pkg/thsice/thsice_readparms.F |
60 |
THSICE_READPARMS |
& fracEnMelt, fracEnFreez, hThinIce, hThickIce, hNewIceMax |