Symbol Description Uses
tSrf1 surface (ice or snow) temperature 5


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 111 THSICE_SOLVE4TEMP 
      _RL tSrf1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 19 THSICE_SOLVE4TEMP 
     U                  flxSW, tSrf1, qIc1, qIc2,
./pkg/thsice/thsice_solve4temp.F 319 THSICE_SOLVE4TEMP 
     &     'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf1(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 402 THSICE_SOLVE4TEMP 
          Tsf(i,j)  = tSrf1(i,j)
./pkg/thsice/thsice_solve4temp.F 586 THSICE_SOLVE4TEMP 
          tSrf1(i,j)  = Tsf(i,j)