| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
106 |
NO PROCEDURE |
_RL qsnow |
|
./pkg/thsice/THSICE_PARAMS.h |
83 |
NO PROCEDURE |
& bMeltCoef, Lfresh, qsnow, |
|
./pkg/thsice/thsice_advdiff.F |
461 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
467 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
565 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
594 |
THSICE_CALC_THICKN |
esurp = esurp - rhos*qsnow*hs |
|
./pkg/thsice/thsice_calc_thickn.F |
710 |
THSICE_CALC_THICKN |
esurp = esurp - rhos*qsnow*hs |
|
./pkg/thsice/thsice_calc_thickn.F |
754 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(1)*hnew(1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
855 |
THSICE_CALC_THICKN |
rs = rhos * qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
67 |
THSICE_CHECK_CONSERV |
dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
76 |
THSICE_CHECK_CONSERV |
& + compact*( rhos*hSnow*qsnow |
|
./pkg/thsice/thsice_readparms.F |
267 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: qsnow =',qsnow |
|
./pkg/thsice/thsice_readparms.F |
52 |
THSICE_READPARMS |
& bMeltCoef, Lfresh, qsnow, |
|
./pkg/thsice/thsice_readparms.F |
97 |
THSICE_READPARMS |
qsnow = Lfresh |