| 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 |
1061 |
THSICE_CALC_THICKN |
rs = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
503 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
671 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
837 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
908 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./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 |