Symbol Description Uses
Tsf surface (ice or snow) temperature [oC] 72


File Line number Procedure Code
./pkg/land/land_albedo.F 56 LAND_ALBEDO 
      _RL albSnow, ageSnow, hSnow, Tsf
./pkg/land/land_albedo.F 65 LAND_ALBEDO 
           Tsf = land_skinT(i,j,bi,bj)
./pkg/land/land_albedo.F 77 LAND_ALBEDO 
     &         *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlbL, 1. _d 0) )
./pkg/thsice/thsice_albedo.F 105 THSICE_ALBEDO 
          Tsf = tSrf(i,j)
./pkg/thsice/thsice_albedo.F 130 THSICE_ALBEDO 
     &       *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) )
./pkg/thsice/thsice_albedo.F 144 THSICE_ALBEDO 
     &        + 0.075 _d 0 * MIN( -Tsf - 1. _d 0, 0. _d 0 )
./pkg/thsice/thsice_albedo.F 147 THSICE_ALBEDO 
     &   + ( albNIR_dsnow + 0.15 _d 0 *MIN( -Tsf - 1. _d 0, 0. _d 0) )
./pkg/thsice/thsice_albedo.F 71 THSICE_ALBEDO 
      _RL  Tsf                 ! surface temperature
./pkg/thsice/thsice_calc_thickn.F 151 THSICE_CALC_THICKN 
      _RL  Tsf
./pkg/thsice/thsice_calc_thickn.F 303 THSICE_CALC_THICKN 
          Tsf     = tSrf(i,j)
./pkg/thsice/thsice_calc_thickn.F 600 THSICE_CALC_THICKN 
         Tsf=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 716 THSICE_CALC_THICKN 
         Tsf=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 905 THSICE_CALC_THICKN 
          tSrf(i,j)   = Tsf
./pkg/thsice/thsice_get_bulkf.F 101 THSICE_GET_BULKF 
     I        Tair(i,j,bi,bj), Qair(i,j,bi,bj), cloud(i,j,bi,bj), Tsf,
./pkg/thsice/thsice_get_bulkf.F 107 THSICE_GET_BULKF 
     I        Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf,
./pkg/thsice/thsice_get_bulkf.F 13 THSICE_GET_BULKF 
     I                         iceornot, Tsf,
./pkg/thsice/thsice_get_bulkf.F 48 THSICE_GET_BULKF 
      _RL  Tsf
./pkg/thsice/thsice_get_bulkf.F 74 THSICE_GET_BULKF 
        Tsurf(1) = Tsf
./pkg/thsice/thsice_get_exf.F 113 THSICE_GET_EXF 
      _RL Tsf
./pkg/thsice/thsice_get_exf.F 152 THSICE_GET_EXF 
      Tsf    =  tsfCel+cen2kel
./pkg/thsice/thsice_get_exf.F 153 THSICE_GET_EXF 
      Ts2    = Tsf*Tsf
./pkg/thsice/thsice_get_exf.F 176 THSICE_GET_EXF 
          tmpbulk= qsat_fac*EXP(-qsat_exp/Tsf)
./pkg/thsice/thsice_get_exf.F 178 THSICE_GET_EXF 
          deltap = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/thsice/thsice_get_exf.F 312 THSICE_GET_EXF 
          dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0
./pkg/thsice/thsice_solve4temp.F 128 THSICE_SOLVE4TEMP 
      _RL Tsf
./pkg/thsice/thsice_solve4temp.F 226 THSICE_SOLVE4TEMP 
          Tsf     = tSrf(i,j)
./pkg/thsice/thsice_solve4temp.F 285 THSICE_SOLVE4TEMP 
     &  'ThSI_SOLVE4T: k, Ts, Tice=',0,Tsf,Tice
./pkg/thsice/thsice_solve4temp.F 341 THSICE_SOLVE4TEMP 
     I                         iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 346 THSICE_SOLVE4TEMP 
     I                         iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 368 THSICE_SOLVE4TEMP 
         b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 370 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 371 THSICE_SOLVE4TEMP 
         Tsf = Tsf + dTsf
./pkg/thsice/thsice_solve4temp.F 372 THSICE_SOLVE4TEMP 
         IF (Tsf .GT. 0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 375 THSICE_SOLVE4TEMP 
     &        'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 381 THSICE_SOLVE4TEMP 
            Tsf = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 390 THSICE_SOLVE4TEMP 
     I                            iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 395 THSICE_SOLVE4TEMP 
     I                            iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 417 THSICE_SOLVE4TEMP 
     &     'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 424 THSICE_SOLVE4TEMP 
            WRITE (6,*) 'BB: not converge: Tsf, dTsf=', Tsf,dTsf
./pkg/thsice/thsice_solve4temp.F 426 THSICE_SOLVE4TEMP 
            IF (Tsf.LT.-70. _d 0) STOP
./pkg/thsice/thsice_solve4temp.F 444 THSICE_SOLVE4TEMP 
     &  'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf,Tice
./pkg/thsice/thsice_solve4temp.F 449 THSICE_SOLVE4TEMP 
      fct    = k12*(Tsf-Tice(1))
./pkg/thsice/thsice_solve4temp.F 495 THSICE_SOLVE4TEMP 
          tSrf(i,j)  = Tsf
./pkg/thsice/thsice_solve4temp.F 509 THSICE_SOLVE4TEMP 
     &                              Tsf, Tice, dTsf
./pkg/bulk_force/bulkf_formula_lanl.F 138 BULKF_FORMULA_LANL 
              Tsf=Tsf_in+Tf0kel
./pkg/bulk_force/bulkf_formula_lanl.F 151 BULKF_FORMULA_LANL 
              ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0
./pkg/bulk_force/bulkf_formula_lanl.F 218 BULKF_FORMULA_LANL 
              dEvdT  =  clha*ssq*ssq2/(Tsf*Tsf)
./pkg/bulk_force/bulkf_formula_lay.F 145 BULKF_FORMULA_LAY 
              Tsf = tsfCel+Tf0kel
./pkg/bulk_force/bulkf_formula_lay.F 146 BULKF_FORMULA_LAY 
              Ts2 = Tsf*Tsf
./pkg/bulk_force/bulkf_formula_lay.F 158 BULKF_FORMULA_LAY 
                ssq = saltQsFac*qs1w*EXP( -qs2w/Tsf ) / rhoA
./pkg/bulk_force/bulkf_formula_lay.F 162 BULKF_FORMULA_LAY 
                ssq =           qs1i*EXP( -qs2i/Tsf ) / rhoA
./pkg/bulk_force/bulkf_formula_lay.F 168 BULKF_FORMULA_LAY 
              delth  = Ta + gamma_blk*zth - Tsf
./pkg/bulk_force/bulkf_formula_lay.F 247 BULKF_FORMULA_LAY 
                dflwupdT= ocean_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_formula_lay.F 250 BULKF_FORMULA_LAY 
                dflwupdT = snow_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_formula_lay.F 253 BULKF_FORMULA_LAY 
                dflwupdT =  ice_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_formula_lay.F 78 BULKF_FORMULA_LAY 
      _RL Tsf                ! surface temperature [K]
./pkg/exf/exf_bulkformulae.F 178 EXF_BULKFORMULAE 
      _RL Tsf                   ! surface temperature [K]
./pkg/exf/exf_bulkformulae.F 282 EXF_BULKFORMULAE 
           Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
./pkg/exf/exf_bulkformulae.F 287 EXF_BULKFORMULAE 
            Tsf = Tsf + MAX( SSTtmp, 0. _d 0 )
./pkg/exf/exf_bulkformulae.F 290 EXF_BULKFORMULAE 
           tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf)
./pkg/exf/exf_bulkformulae.F 292 EXF_BULKFORMULAE 
           deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/exf/exf_radiation.F 45 EXF_RADIATION 
      _RL Tsf, SSTtmp, TsfSq
./pkg/exf/exf_radiation.F 68 EXF_RADIATION 
            Tsf = theta(i,j,1,bi,bj) + cen2kel
./pkg/exf/exf_radiation.F 72 EXF_RADIATION 
            Tsf = Tsf + MAX( SSTtmp, 0. _d 0 )
./pkg/exf/exf_radiation.F 73 EXF_RADIATION 
            TsfSq = Tsf*Tsf