| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
132 |
MNC_GET_NEXT_EMPTY_IND |
integer myThid, nt |
|
./pkg/mnc/mnc_utils.F |
156 |
MNC_GET_NEXT_EMPTY_IND |
& 'MNC_GET_NEXT_EMPTY_IND: array size ', nt, |
|
./pkg/mnc/mnc_utils.F |
75 |
MNC_GET_IND |
integer myThid, 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 |
|
./pkg/fizhi/fizhi_moist.F |
1173 |
RAS |
integer i,L,nc,ib,nt |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
1601 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/fizhi/fizhi_moist.F |
1659 |
CLOUD |
do nt = 1,ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1662 |
CLOUD |
ucu(I,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2140 |
CLOUD |
do nt = 1,ntracer |
|
./pkg/fizhi/fizhi_moist.F |
2147 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
|
./pkg/fizhi/fizhi_moist.F |
2148 |
CLOUD |
ucu(II,K,nt) = TEM * TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2158 |
CLOUD |
TX1(I) = (UOI(II,L-1+nltop-1,nt)-UOI(II,L+nltop-1,nt)) * ETA(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2163 |
CLOUD |
ucu(II,L,nt) = TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2173 |
CLOUD |
TX1(I) = (TX1(I) + UHT(I,nt) + UHT(I,nt)) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2177 |
CLOUD |
ucu(II,IC,nt) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
277 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
280 |
MOISTIO |
ugather(indx,L,nt) = qz(pblindex(indx),1,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
312 |
MOISTIO |
do nt = 1,ntracerin |
|
./pkg/fizhi/fizhi_moist.F |
313 |
MOISTIO |
dqmoist(i,j,l,nt) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
339 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
340 |
MOISTIO |
call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
408 |
MOISTIO |
saveu(i,L,nt) = ul(i,L,nt) |
|
./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_swrad.F |
1009 |
CLDSCALE |
integer nm,nt,na |
|
./pkg/fizhi/fizhi_swrad.F |
1010 |
CLDSCALE |
parameter (nm=11,nt=9,na=11) |
|
./pkg/fizhi/fizhi_swrad.F |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1101 |
CLDSCALE |
it=min(it,nt-1) |
|
./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 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1009 |
CLDSCALE |
integer nm,nt,na |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1010 |
CLDSCALE |
parameter (nm=11,nt=9,na=11) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1101 |
CLDSCALE |
it=min(it,nt-1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1204 |
TURBIO |
do nt = 1,ntracers |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1206 |
TURBIO |
dqturb(i,1,L,nt) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1220 |
TURBIO |
do nt = 1,ntracers |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1221 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1222 |
TURBIO |
. dqturb(1,1,L,nt),im,jm) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1350 |
TURBIO |
do nt = 1,ntracers |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1352 |
TURBIO |
dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1552 |
TRBFLX |
integer i,iter,init,n,nt,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
238 |
TURBIO |
integer istnp1,istnlay,itrtrb,i,j,L,nn,nt |