| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
421 |
MOISTIO |
usubcl(i,nt) = ul(i,nsubcl,nt) |
|
./pkg/fizhi/fizhi_moist.F |
553 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
556 |
MOISTIO |
CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
561 |
MOISTIO |
if( usubcl(i,nt).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
562 |
MOISTIO |
cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) * |
|
./pkg/fizhi/fizhi_moist.F |
563 |
MOISTIO |
. ( saveu(i,L,nt)/usubcl(i,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
565 |
MOISTIO |
cvu(i,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
600 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
601 |
MOISTIO |
call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
780 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
782 |
MOISTIO |
call BACK2GRD (delugather(1,L,nt),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
783 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_turb.F |
1204 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1206 |
TURBIO |
dqturb(i,1,L,nt) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1220 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1221 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1222 |
TURBIO |
. dqturb(1,1,L,nt),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1350 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1352 |
TURBIO |
dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i) |
|
./pkg/fizhi/fizhi_turb.F |
1552 |
TRBFLX |
integer i,iter,init,n,nt,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit |
|
./pkg/fizhi/fizhi_turb.F |
238 |
TURBIO |
integer istnp1,istnlay,itrtrb,i,j,L,nn,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2509 |
TABLUP |
_RL coef1(nx,nh,nt),coef2(nx,nh,nt),coef3(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
2525 |
TABLUP |
nn=mod(i,nt)+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
562 |
IRRAD |
integer nx,no,nc,nh,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
564 |
IRRAD |
parameter (nx=26,no=21,nc=24,nh=31,nt=7) |
|
./pkg/fizhi/fizhi_lwrad.F |
614 |
IRRAD |
_RL c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
615 |
IRRAD |
_RL o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
616 |
IRRAD |
_RL h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
617 |
IRRAD |
_RL h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
618 |
IRRAD |
_RL h81(nx,nh,nt),h82(nx,nh,nt),h83(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
822 |
IRRAD |
do it=2,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
855 |
IRRAD |
do it=2,nt |