File |
Line number |
Procedure |
Code |
./pkg/cheapaml/cheapaml_lanl_flux.F |
131 |
CHEAPAML_LANL_FLUX |
ttas=tta+gamma_blk*zref |
./pkg/cheapaml/cheapaml_lanl_flux.F |
133 |
CHEAPAML_LANL_FLUX |
pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
151 |
CHEAPAML_LANL_FLUX |
ttas = tta+gamma_blk*(zref-ht) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
152 |
CHEAPAML_LANL_FLUX |
t0 = ttas*(1. _d 0 + humid_fac*q) |
./pkg/cheapaml/cheapaml_lanl_flux.F |
69 |
CHEAPAML_LANL_FLUX |
_RL rd,re,rh,tta,ttas,toa,ttt |