| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1255 |
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 |
1331 |
SOLIR |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1332 |
SOLIR |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1474 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1500 |
SOLIR |
tt(i,j,k,2)=tt2t(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 |
1679 |
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 |
1727 |
SOLUV |
tt(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1728 |
SOLUV |
tt(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1846 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1872 |
SOLUV |
tt(i,j,k,2)=tt2t(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 |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1992 |
DELEDD |
_RL rr,tt,td |
|
./pkg/fizhi/fizhi_swrad.F |
2065 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2068 |
DELEDD |
tt = max(tt,zero) |
|
./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 |
2198 |
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 |
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 |
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 |
2319 |
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 |
2337 |
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 |
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 |
2443 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./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/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
145 |
FLT_TRAJ |
tmp(12) = tt |
|
./pkg/flt/flt_traj.F |
50 |
FLT_TRAJ |
_RL uu, vv, tt, ss, pp |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
tmp(9+k+2*Nr) = tt |
|
./pkg/flt/flt_up.F |
51 |
FLT_UP |
_RL uu,vv,tt,ss, pp |