| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2205 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2250 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2253 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2263 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2265 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2269 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2284 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2286 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2427 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2429 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2462 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2463 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
104 |
CHEAPAML_COARE3_FLUX |
ssqt=ssq0*EXP( lath*(ssq1-ssq2/tta) ) / p0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
148 |
CHEAPAML_COARE3_FLUX |
Ribu=-gravity*zu*(Dt+0.61 _d 0*tta*Dq)/(tta*Du**2) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
199 |
CHEAPAML_COARE3_FLUX |
& ( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
200 |
CHEAPAML_COARE3_FLUX |
& /( tta*usr*usr*(1. _d 0+0.61 _d 0*q) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
202 |
CHEAPAML_COARE3_FLUX |
& ' tsr,tta,q,qsr =', tsr, tta, q, qsr |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
209 |
CHEAPAML_COARE3_FLUX |
zL=xkar*gravity*zu*( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
210 |
CHEAPAML_COARE3_FLUX |
& /( tta*usr*usr*(1. _d 0+0.61 _d 0*q) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
217 |
CHEAPAML_COARE3_FLUX |
Bf=-gravity/tta*usr*(tsr+0.61 _d 0*tta*qsr) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
64 |
CHEAPAML_COARE3_FLUX |
_RL u,q,Tas,tta,zi,es,qs,tsw |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
92 |
CHEAPAML_COARE3_FLUX |
tta = Tas+celsius2K |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
130 |
CHEAPAML_LANL_FLUX |
tta=t+Celsius2K |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
131 |
CHEAPAML_LANL_FLUX |
ttas=tta+gamma_blk*zref |
|
./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 |
151 |
CHEAPAML_LANL_FLUX |
ttas = tta+gamma_blk*(zref-ht) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
69 |
CHEAPAML_LANL_FLUX |
_RL rd,re,rh,tta,ttas,toa,ttt |