| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
103 |
READ_QZ |
do lev = 1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
115 |
READ_OZ |
subroutine READ_OZ (ku,oz,lats,levs,nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
132 |
READ_OZ |
integer ku,nlat,nlev,ntime |
|
./pkg/fizhi/fizhi_init_chem.F |
134 |
READ_OZ |
_RL oz(nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
137 |
READ_OZ |
_RL levs(nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
158 |
READ_OZ |
do lev = 1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
169 |
READ_OZ |
do lev=1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
171 |
READ_OZ |
nrec = lev+(time0-1)*nlev*2 |
|
./pkg/fizhi/fizhi_init_chem.F |
177 |
READ_OZ |
oz(lat,nlev-lev+1,time0) = o3(lat) |
|
./pkg/fizhi/fizhi_init_chem.F |
48 |
READ_QZ |
subroutine READ_QZ (ku,qz,lats,levs,nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
65 |
READ_QZ |
integer ku,nlat,nlev,ntime |
|
./pkg/fizhi/fizhi_init_chem.F |
67 |
READ_QZ |
_RL qz(nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
69 |
READ_QZ |
_RL levs(nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
89 |
READ_QZ |
read(ku,1000) (levs(lev),lev=1,nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
96 |
READ_QZ |
read(ku,1000) (qz(lat,lev,time0),lev=1,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1438 |
TRBFLX |
4 irun,nlev,nltop,NYMD,NHMS,grav,cp,rgas,faceps,virtcon,undef, |
|
./pkg/fizhi/fizhi_turb.F |
1484 |
TRBFLX |
integer nn,irun,nlev,nltop,ntrace,ntracedim,itrtrb,nhms,nymd |
|
./pkg/fizhi/fizhi_turb.F |
1491 |
TRBFLX |
_RL tracers(irun,nlev+1,ntracedim) |
|
./pkg/fizhi/fizhi_turb.F |
1495 |
TRBFLX |
_RL SRI(irun,nlev), ET(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1496 |
TRBFLX |
_RL EU (irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1497 |
TRBFLX |
_RL WU(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1498 |
TRBFLX |
_RL WV (irun,nlev), pbldpth(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1500 |
TRBFLX |
_RL freqdg(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1507 |
TRBFLX |
_RL dshdthg(irun,nlev),dthdthg(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1508 |
TRBFLX |
_RL dshdshg(irun,nlev),dthdshg(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1509 |
TRBFLX |
_RL transth(irun,nlev),transsh(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1511 |
TRBFLX |
_RL zetasave(irun),xlsave(irun,nlev),khsave(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1512 |
TRBFLX |
_RL qliq(irun,nlev),turbfcc(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1540 |
TRBFLX |
_RL ADZ1(irun,nlev), DZ1TMP(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1541 |
TRBFLX |
_RL DZ3(irun,nlev), TEMP(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1542 |
TRBFLX |
_RL DV(irun,nlev), DTHV(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1543 |
TRBFLX |
_RL DPK(irun,nlev), STRT(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1544 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1545 |
TRBFLX |
_RL RHOZPK(irun,nlev), Q(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1546 |
TRBFLX |
_RL RIINIT(irun,nlev), DU(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1547 |
TRBFLX |
_RL QQINIT(irun,nlev), RHOKDZ(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1548 |
TRBFLX |
_RL RHODZ2(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1549 |
TRBFLX |
_RL KM(irun,nlev), KH(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1551 |
TRBFLX |
_RL DELTH (irun,nlev+1), DELSH (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1552 |
TRBFLX |
_RL FLXFAC (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1553 |
TRBFLX |
_RL FLXFPK (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1555 |
TRBFLX |
_RL ADZ2 (irun,nlev-1), RHODZ1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1556 |
TRBFLX |
_RL VKZE (irun,nlev-1), VKZM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1557 |
TRBFLX |
_RL XL (irun,nlev-1), QXLM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1558 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1559 |
TRBFLX |
_RL P3 (irun,nlev-1), XQ (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1560 |
TRBFLX |
_RL XLDIAG (irun,nlev-1), FLXFCE(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1563 |
TRBFLX |
integer IBITSTB(irun,nlev),INTQ(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1601 |
TRBFLX |
_RL DZITRP(irun,nlev-1),STBFCN(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1602 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1603 |
TRBFLX |
_RL WRKIT1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1604 |
TRBFLX |
_RL WRKIT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1605 |
TRBFLX |
_RL WRKIT3(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1606 |
TRBFLX |
_RL WRKIT4(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1607 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1970 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1976 |
TRBFLX |
BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1997 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1999 |
TRBFLX |
1 * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2299 |
TRBFLX |
2 NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2381 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2446 |
TRBFLX |
do L = 1,nlev-1 |
|
./pkg/fizhi/fizhi_turb.F |
2521 |
TRBFLX |
do L = 1,nlev-1 |
|
./pkg/fizhi/fizhi_turb.F |
2556 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2561 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2589 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2594 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2604 |
TRBFLX |
rhokdz(i,nlev) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
2658 |
TRBFLX |
qqcolmin(i) = qq(i,nlev)*0.1 |
|
./pkg/fizhi/fizhi_turb.F |
2659 |
TRBFLX |
qqcolmax(i) = qq(i,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
2660 |
TRBFLX |
levpbl(i) = nlev |
|
./pkg/fizhi/fizhi_turb.F |
2662 |
TRBFLX |
DO L = nlev-1,1,-1 |
|
./pkg/fizhi/fizhi_turb.F |
2664 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
|
./pkg/fizhi/fizhi_turb.F |
2668 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
|
./pkg/fizhi/fizhi_turb.F |
2674 |
TRBFLX |
if(lp.lt.nlev)then |
|
./pkg/fizhi/fizhi_turb.F |
2675 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,Lp+2)) + |
|
./pkg/fizhi/fizhi_turb.F |
2679 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,2)) + |
|
./pkg/fizhi/fizhi_turb.F |
3828 |
TRBLEN |
integer irun,nlev,init,lmin,lminq,lminq1 |
|
./pkg/fizhi/fizhi_turb.F |
3835 |
TRBLEN |
_RL DZITRP(irun,nlev-1),STBFCN(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
3836 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3837 |
TRBLEN |
_RL WRKIT1(irun,nlev-1),WRKIT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3838 |
TRBLEN |
_RL WRKIT3(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3839 |
TRBLEN |
_RL WRKIT4(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3840 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
4159 |
TRBITP |
integer irun,nlev |
|
./pkg/fizhi/fizhi_turb.F |
4276 |
TRBL20 |
integer nlev,nlay,irun |
|
./pkg/fizhi/fizhi_turb.F |
4384 |
TRBL25 |
integer nlev,nlay,irun |
|
./pkg/fizhi/fizhi_turb.F |
4487 |
TRBDIF |
integer nlev,itype,irun |
|
./pkg/fizhi/fizhi_turb.F |
4493 |
TRBDIF |
_RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1) |
|
./pkg/dic/DIC_VARS.h |
129 |
NO PROCEDURE |
& nlev, QSW_underice |
|
./pkg/dic/DIC_VARS.h |
131 |
NO PROCEDURE |
INTEGER nlev |
|
./pkg/dic/bio_export.F |
101 |
BIO_EXPORT |
DO k=1,nlev |
|
./pkg/dic/car_flux.F |
62 |
CAR_FLUX |
DO k=1,nlev |
|
./pkg/dic/dic_init_fixed.F |
101 |
DIC_INIT_FIXED |
CALL WRITE_0D_I( nlev, INDEX_NONE, 'nlev =', |
|
./pkg/dic/dic_init_fixed.F |
84 |
DIC_INIT_FIXED |
nlev=Nr |
|
./pkg/dic/dic_init_fixed.F |
90 |
DIC_INIT_FIXED |
nlev = k |
|
./pkg/dic/phos_flux.F |
63 |
PHOS_FLUX |
DO k=1,nlev |