| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
133 |
NO PROCEDURE |
_RL hThinIce |
|
./pkg/thsice/THSICE_PARAMS.h |
93 |
NO PROCEDURE |
& hThinIce, hThickIce, hNewIceMax |
|
./pkg/thsice/thsice_calc_thickn.F |
254 |
THSICE_CALC_THICKN |
aMlt = (c1Mlt+c2Mlt)/(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
255 |
THSICE_CALC_THICKN |
hMlt = hThinIce+c2Mlt/aMlt |
|
./pkg/thsice/thsice_calc_thickn.F |
260 |
THSICE_CALC_THICKN |
aFrz = (c1Frz+c2Frz)/(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
261 |
THSICE_CALC_THICKN |
hFrz = hThinIce+c2Frz/aFrz |
|
./pkg/thsice/thsice_calc_thickn.F |
265 |
THSICE_CALC_THICKN |
aMlt = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
267 |
THSICE_CALC_THICKN |
aFrz = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
371 |
THSICE_CALC_THICKN |
ELSEIF (hIce(i,j).GE.hThinIce) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
426 |
THSICE_CALC_THICKN |
ELSEIF (hIce(i,j).LT.hThinIce) THEN |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceThick = MIN(hThinIce,newIce/iceMaskMin) |
|
./pkg/thsice/thsice_readparms.F |
145 |
THSICE_READPARMS |
hThinIce = 0.2 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
330 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'hThinIce =', hThinIce |
|
./pkg/thsice/thsice_readparms.F |
63 |
THSICE_READPARMS |
& fracEnMelt, fracEnFreez, hThinIce, hThickIce, hNewIceMax |