| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
163 |
GWDRAG |
call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
170 |
GWDRAG |
call GWDD ( ps,us,vs,ts, |
|
./pkg/fizhi/fizhi_gwdrag.F |
72 |
GWDRAG |
_RL us(istrip,Lm), vs(istrip,Lm), ts(istrip,Lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
1036 |
IRRAD |
blayer(i,j,np+1)= ( ts(i,j)*(ts(i,j)*(ts(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1037 |
IRRAD |
* *(ts(i,j)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1043 |
IRRAD |
dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
570 |
IRRAD |
* ts(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
1256 |
SOLIR |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1333 |
SOLIR |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1334 |
SOLIR |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1489 |
SOLIR |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1515 |
SOLIR |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1538 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1680 |
SOLUV |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1729 |
SOLUV |
ts(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1730 |
SOLUV |
ts(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1861 |
SOLUV |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1887 |
SOLUV |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1909 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2160 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2199 |
CLDFLX |
_RL rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih)) |
|
./pkg/fizhi/fizhi_swrad.F |
2266 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2317 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2320 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2335 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2338 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/cheapaml/cheapaml.F |
476 |
CHEAPAML |
ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K |
|
./pkg/cheapaml/cheapaml.F |
477 |
CHEAPAML |
pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts) |
|
./pkg/cheapaml/cheapaml.F |
69 |
CHEAPAML |
_RL deltaTTracer,deltaTm,ts,xalwu |