File |
Line number |
Procedure |
Code |
./pkg/bulk_force/bulkf_formula_lanl.F |
118 |
BULKF_FORMULA_LANL |
lath=Lvap |
./pkg/bulk_force/bulkf_formula_lanl.F |
119 |
BULKF_FORMULA_LANL |
if (iceornot.gt.0) lath=Lvap+Lfresh |
./pkg/bulk_force/bulkf_formula_lanl.F |
135 |
BULKF_FORMULA_LANL |
ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0 |
./pkg/bulk_force/bulkf_formula_lanl.F |
180 |
BULKF_FORMULA_LANL |
clha = rhoa*lath*us*re*rd |
./pkg/bulk_force/bulkf_formula_lanl.F |
184 |
BULKF_FORMULA_LANL |
evp = -flha/lath |
./pkg/bulk_force/bulkf_formula_lanl.F |
208 |
BULKF_FORMULA_LANL |
dflhdT = -lath*dEvdT |
./pkg/bulk_force/bulkf_formula_lanl.F |
86 |
BULKF_FORMULA_LANL |
_RL lath |