Symbol Description Uses
tSrf surface (ice or snow) temperature [oC] 15


File Line number Procedure Code
./pkg/thsice/thsice_albedo.F 108 THSICE_ALBEDO 
         Tsf = tSrf(i,j)
./pkg/thsice/thsice_albedo.F 12 THSICE_ALBEDO 
     I                  iceMask, hIce, hSnow, tSrf, ageSnw,
./pkg/thsice/thsice_albedo.F 57 THSICE_ALBEDO 
      _RL tSrf   (siLo:siHi,sjLo:sjHi)
./pkg/thsice/thsice_calc_thickn.F 122 THSICE_CALC_THICKN 
      _RL tSrf   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_calc_thickn.F 14 THSICE_CALC_THICKN 
     U                  icFrac, hIce, hSnow, tSrf, qIc1, qIc2,
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
          tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 842 THSICE_CALC_THICKN 
           tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_extend.F 14 THSICE_EXTEND 
     U                  tSrf, tIc1, tIc2, qIc1, qIc2,
./pkg/thsice/thsice_extend.F 236 THSICE_EXTEND 
            tSrf(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 79 THSICE_EXTEND 
      _RL tSrf   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 101 THSICE_SOLVE4TEMP 
      _RL tSrf   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_solve4temp.F 14 THSICE_SOLVE4TEMP 
     U                  flxSW, tSrf, qIc1, qIc2,
./pkg/thsice/thsice_solve4temp.F 300 THSICE_SOLVE4TEMP 
     &      'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 377 THSICE_SOLVE4TEMP 
          Tsf(i,j)  = tSrf(i,j)
./pkg/thsice/thsice_solve4temp.F 536 THSICE_SOLVE4TEMP 
          tSrf(i,j)  = Tsf(i,j)