Symbol
Description
Uses
qh1
qice*h for layers 1 and 2
6
File
Line number
Procedure
Code
./pkg/thsice/thsice_calc_thickn.F
197
THSICE_CALC_THICKN
_RL
qh1
,
qh2
./pkg/thsice/thsice_calc_thickn.F
967
THSICE_CALC_THICKN
qh1
=
qhtot
-
qh2
./pkg/thsice/thsice_calc_thickn.F
968
THSICE_CALC_THICKN
qicen
(
i
,
j
,1
)
=
qh1
/
hlyr
./pkg/thsice/thsice_reshape_layers.F
49
THSICE_RESHAPE_LAYERS
_RL
qh1
,
qh2
./pkg/thsice/thsice_reshape_layers.F
65
THSICE_RESHAPE_LAYERS
qh1
=
qhtot
-
qh2
./pkg/thsice/thsice_reshape_layers.F
66
THSICE_RESHAPE_LAYERS
qicen
(
1
)
=
qh1
/
hlyr