| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
118 |
THSICE_CALC_THICKN |
_RL sHeat (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
13 |
THSICE_CALC_THICKN |
I snowP, prcAtm, sHeat, flxCnB, |
|
./pkg/thsice/thsice_calc_thickn.F |
443 |
THSICE_CALC_THICKN |
IF ( sHeat(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
444 |
THSICE_CALC_THICKN |
etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
445 |
THSICE_CALC_THICKN |
etope(i,j) = frace*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
450 |
THSICE_CALC_THICKN |
esurp(i,j) = sHeat(i,j) * dt |
|
./pkg/thsice/thsice_solve4temp.F |
116 |
THSICE_SOLVE4TEMP |
_RL sHeat (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
21 |
THSICE_SOLVE4TEMP |
O sHeat, flxCnB, flxAtm, evpAtm, |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = fswdn |
|
./pkg/thsice/thsice_solve4temp.F |
482 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
589 |
THSICE_SOLVE4TEMP |
flxNet = sHeat(i,j) + flxTexSW(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
607 |
THSICE_SOLVE4TEMP |
sHeat(i,j) = flxNet - fct |
|
./pkg/thsice/thsice_solve4temp.F |
636 |
THSICE_SOLVE4TEMP |
& sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j) |