Symbol Description Uses
lath 28



File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 141 THSICE_GET_EXF
      _RL lath
./pkg/thsice/thsice_get_exf.F 194 THSICE_GET_EXF
      lath     = flamb+flami
./pkg/thsice/thsice_get_exf.F 405 THSICE_GET_EXF
          hlLocal       = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F 413 THSICE_GET_EXF
          dflhdT        = -lath*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 433 THSICE_GET_EXF
          hlLocal       = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F 443 THSICE_GET_EXF
          dflhdT        = -lath*dEvdT(i,j)
./pkg/bulk_force/bulkf_formula_lanl.F 136 BULKF_FORMULA_LANL
              lath=Lvap
./pkg/bulk_force/bulkf_formula_lanl.F 137 BULKF_FORMULA_LANL
              if (iceornot.gt.0) lath=Lvap+Lfresh
./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 193 BULKF_FORMULA_LANL
              clha  = rhoa*lath*us*re*rd
./pkg/bulk_force/bulkf_formula_lanl.F 197 BULKF_FORMULA_LANL
              evp   = -flha/lath
./pkg/bulk_force/bulkf_formula_lanl.F 219 BULKF_FORMULA_LANL
              dflhdT = -lath*dEvdT
./pkg/bulk_force/bulkf_formula_lanl.F 79 BULKF_FORMULA_LANL
      _RL lath               ! latent heat of vaporization or sublimation
./pkg/bulk_force/bulkf_formula_lay.F 157 BULKF_FORMULA_LAY
                lath=Lvap
./pkg/bulk_force/bulkf_formula_lay.F 161 BULKF_FORMULA_LAY
                lath = Lvap+Lfresh
./pkg/bulk_force/bulkf_formula_lay.F 230 BULKF_FORMULA_LAY
              clha  =  lath*tau*re
./pkg/bulk_force/bulkf_formula_lay.F 235 BULKF_FORMULA_LAY
              evp   = -flha/lath
./pkg/bulk_force/bulkf_formula_lay.F 241 BULKF_FORMULA_LAY
              dflhdT = -lath*dEvdT
./pkg/bulk_force/bulkf_formula_lay.F 88 BULKF_FORMULA_LAY
      _RL lath               ! latent heat of vaporization or sublimation [J/kg]
./pkg/cheapaml/cheapaml.F 116 CHEAPAML
        lath=2.5d6
./pkg/cheapaml/cheapaml.F 290 CHEAPAML
              ssq = ssq0*exp( lath*(ssq1-ssq2/toa) ) / p0
./pkg/cheapaml/cheapaml.F 335 CHEAPAML
                clha   = rhoa*lath*usm*re*rd
./pkg/cheapaml/cheapaml.F 339 CHEAPAML
                evp   = -flha/lath
./pkg/cheapaml/cheapaml.F 88 CHEAPAML
        _RL lath,p0,deltap,delq
./pkg/cheapaml/cheapaml_fields_load.F 149 CHEAPAML_FIELDS_LOAD
              ssqa = ssq0*exp( lath*(ssq1-ssq2/local)) / p0
./pkg/cheapaml/cheapaml_fields_load.F 341 CHEAPAML_FIELDS_LOAD
              ssqa = ssq0*exp( lath*(ssq1-ssq2/local)) / p0
./pkg/cheapaml/cheapaml_fields_load.F 80 CHEAPAML_FIELDS_LOAD
      _RL ssq0,ssq1,ssq2,lath,p0,ssqa
./pkg/cheapaml/cheapaml_fields_load.F 90 CHEAPAML_FIELDS_LOAD
      lath=2.5d6