| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
call FLT_BILINEAR (xx,yy,tt,kp,theta, 1,bi,bj) |
|
./pkg/flt/flt_traj.F |
145 |
FLT_TRAJ |
tmp(8) = tt |
|
./pkg/flt/flt_traj.F |
46 |
FLT_TRAJ |
_RL uu,vv,ww,tt,ss, pp |
|
./pkg/flt/flt_up.F |
177 |
FLT_UP |
call FLT_BILINEAR (xx,yy,tt,k,theta, 1,bi,bj) |
|
./pkg/flt/flt_up.F |
181 |
FLT_UP |
tmp(6+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
48 |
FLT_UP |
_RL uu,vv,tt,ss, pp |
|
./pkg/fizhi/fizhi_utils.F |
375 |
VQSAT |
subroutine VQSAT (tt,p,q,dqdt,ldqdt,n) |
|
./pkg/fizhi/fizhi_utils.F |
379 |
VQSAT |
_RL tt(n), p(n), q(n), dqdt(n) |
|
./pkg/fizhi/fizhi_utils.F |
386 |
VQSAT |
call QSAT ( tt(i),p(i),q(i),dqdt(i),ldqdt ) |
|
./pkg/fizhi/fizhi_utils.F |
43 |
NO PROCEDURE |
_RL aarg,tt |
|
./pkg/fizhi/fizhi_swrad.F |
1247 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1323 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1324 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1466 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1492 |
SOLIR |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1530 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1671 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1719 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1720 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1838 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1864 |
SOLUV |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1901 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1984 |
DELEDD |
_RL rr,tt,td |
|
./pkg/fizhi/fizhi_swrad.F |
2057 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2060 |
DELEDD |
tt = max(tt,zero) |
|
./pkg/fizhi/fizhi_swrad.F |
2152 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2190 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2242 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2245 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2255 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2276 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2311 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2329 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2419 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2435 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1247 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1323 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1324 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1466 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1492 |
SOLIR |
tt(i,j,k,2)=tt2t(i,j) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1530 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1671 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1719 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1720 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1838 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1864 |
SOLUV |
tt(i,j,k,2)=tt2t(i,j) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1901 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1984 |
DELEDD |
_RL rr,tt,td |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2057 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2060 |
DELEDD |
tt = max(tt,zero) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2152 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2190 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2242 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2245 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2255 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2276 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2311 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2329 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2419 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
2435 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |