| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2119 |
SAGPOL |
_RL xx,uuu,ttt,emt,up1,um1,st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2123 |
SAGPOL |
ttt = sqrt( xx*(one-ssc)*three )*tau |
|
./pkg/fizhi/fizhi_swrad.F |
2124 |
SAGPOL |
emt = expmn(-ttt) |
|
./pkg/cheapaml/cheapaml.F |
417 |
CHEAPAML |
ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt) |
|
./pkg/cheapaml/cheapaml.F |
419 |
CHEAPAML |
xalwu = stefan*(0.5*Tair(i,j,bi,bj)+0.5*ttt+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
73 |
CHEAPAML |
_RL q,precip,ttt,entrain |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
132 |
CHEAPAML_LANL_FLUX |
ttt=tta-( cheaphgrid(i,j,bi,bj)- zref)*gamma_blk |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
138 |
CHEAPAML_LANL_FLUX |
ssqt = ssq0*exp( lath*(ssq1-ssq2/ttt) ) / pt |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
69 |
CHEAPAML_LANL_FLUX |
_RL rd,re,rh,tta,ttas,toa,ttt |