| Symbol | Description | Uses |
| q2tmp | Temporary value of qice for layer 2 | 8 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/thsice_calc_thickn.F | 199 | THSICE_CALC_THICKN |
_RL q2tmp |
| ./pkg/thsice/thsice_calc_thickn.F | 960 | THSICE_CALC_THICKN |
q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
| ./pkg/thsice/thsice_calc_thickn.F | 961 | THSICE_CALC_THICKN |
if (q2tmp.gt.Lfresh) then |
| ./pkg/thsice/thsice_calc_thickn.F | 962 | THSICE_CALC_THICKN |
qicen(i,j,2) = q2tmp |
| ./pkg/thsice/thsice_reshape_layers.F | 51 | THSICE_RESHAPE_LAYERS |
_RL q2tmp |
| ./pkg/thsice/thsice_reshape_layers.F | 58 | THSICE_RESHAPE_LAYERS |
q2tmp = f1*qicen(1) + (1. _d 0-f1)*qicen(2) |
| ./pkg/thsice/thsice_reshape_layers.F | 59 | THSICE_RESHAPE_LAYERS |
if (q2tmp.gt.Lfresh) then |
| ./pkg/thsice/thsice_reshape_layers.F | 60 | THSICE_RESHAPE_LAYERS |
qicen(2) = q2tmp |