Symbol Description Uses
q2tmp Temporary value of qice for layer 2 4



File Line number Procedure Code
./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