| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
131 |
NO PROCEDURE |
_RL fracEnMelt |
|
./pkg/thsice/THSICE_PARAMS.h |
92 |
NO PROCEDURE |
& fracEnMelt, fracEnFreez, |
|
./pkg/thsice/thsice_calc_thickn.F |
252 |
THSICE_CALC_THICKN |
c1Mlt = fracEnMelt**rec_pLaw |
|
./pkg/thsice/thsice_calc_thickn.F |
253 |
THSICE_CALC_THICKN |
c2Mlt = (1. _d 0 - fracEnMelt)**rec_pLaw |
|
./pkg/thsice/thsice_calc_thickn.F |
352 |
THSICE_CALC_THICKN |
xxMlt = fracEnMelt -xxMlt |
|
./pkg/thsice/thsice_calc_thickn.F |
416 |
THSICE_CALC_THICKN |
IF ( fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
423 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
430 |
THSICE_CALC_THICKN |
frace = fracEnMelt |
|
./pkg/thsice/thsice_calc_thickn.F |
438 |
THSICE_CALC_THICKN |
frace = MIN( frace, fracEnMelt ) |
|
./pkg/thsice/thsice_readparms.F |
143 |
THSICE_READPARMS |
fracEnMelt = 0.4 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
328 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'fracEnMelt =', fracEnMelt |
|
./pkg/thsice/thsice_readparms.F |
63 |
THSICE_READPARMS |
& fracEnMelt, fracEnFreez, hThinIce, hThickIce, hNewIceMax |