| 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 |
1271 |
TRBFLX |
4 irun,nlev,nltop,NYMD,NHMS,grav,cp,rgas,faceps,virtcon,undef, |
|
./pkg/fizhi/fizhi_turb.F |
1314 |
TRBFLX |
integer nn,irun,nlev,nltop,ntrace,ntracedim,itrtrb,nhms,nymd |
|
./pkg/fizhi/fizhi_turb.F |
1321 |
TRBFLX |
_RL tracers(irun,nlev+1,ntracedim) |
|
./pkg/fizhi/fizhi_turb.F |
1325 |
TRBFLX |
_RL SRI(irun,nlev), ET(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1326 |
TRBFLX |
_RL EU (irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1327 |
TRBFLX |
_RL WU(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1328 |
TRBFLX |
_RL WV (irun,nlev), pbldpth(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1330 |
TRBFLX |
_RL freqdg(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1337 |
TRBFLX |
_RL dshdthg(irun,nlev),dthdthg(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1338 |
TRBFLX |
_RL dshdshg(irun,nlev),dthdshg(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1339 |
TRBFLX |
_RL transth(irun,nlev),transsh(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1341 |
TRBFLX |
_RL zetasave(irun),xlsave(irun,nlev),khsave(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1342 |
TRBFLX |
_RL qliq(irun,nlev),turbfcc(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1370 |
TRBFLX |
_RL ADZ1(irun,nlev), DZ1TMP(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1371 |
TRBFLX |
_RL DZ3(irun,nlev), TEMP(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1372 |
TRBFLX |
_RL DV(irun,nlev), DTHV(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1373 |
TRBFLX |
_RL DPK(irun,nlev), STRT(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1374 |
TRBFLX |
_RL DW2(irun,nlev), RI(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1375 |
TRBFLX |
_RL RHOZPK(irun,nlev), Q(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1376 |
TRBFLX |
_RL RIINIT(irun,nlev), DU(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1377 |
TRBFLX |
_RL QQINIT(irun,nlev), RHOKDZ(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1378 |
TRBFLX |
_RL RHODZ2(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1379 |
TRBFLX |
_RL KM(irun,nlev), KH(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1381 |
TRBFLX |
_RL DELTH (irun,nlev+1), DELSH (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1382 |
TRBFLX |
_RL FLXFAC (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1383 |
TRBFLX |
_RL FLXFPK (irun,nlev+1) |
|
./pkg/fizhi/fizhi_turb.F |
1385 |
TRBFLX |
_RL ADZ2 (irun,nlev-1), RHODZ1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1386 |
TRBFLX |
_RL VKZE (irun,nlev-1), VKZM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1387 |
TRBFLX |
_RL XL (irun,nlev-1), QXLM (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1388 |
TRBFLX |
_RL QQE (irun,nlev-1), QE (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1389 |
TRBFLX |
_RL P3 (irun,nlev-1), XQ (irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1390 |
TRBFLX |
_RL XLDIAG (irun,nlev-1), FLXFCE(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1393 |
TRBFLX |
integer IBITSTB(irun,nlev),INTQ(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1431 |
TRBFLX |
_RL DZITRP(irun,nlev-1),STBFCN(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1432 |
TRBFLX |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1433 |
TRBFLX |
_RL WRKIT1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1434 |
TRBFLX |
_RL WRKIT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1435 |
TRBFLX |
_RL WRKIT3(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1436 |
TRBFLX |
_RL WRKIT4(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1437 |
TRBFLX |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
1718 |
TRBFLX |
call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. ) |
|
./pkg/fizhi/fizhi_turb.F |
1724 |
TRBFLX |
BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1745 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1747 |
TRBFLX |
1 * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1961 |
TRBFLX |
2 NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2016 |
TRBFLX |
2 P3(1,LMINQ),NLEVML,nlev,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2064 |
TRBFLX |
do L = 1,nlev-1 |
|
./pkg/fizhi/fizhi_turb.F |
2121 |
TRBFLX |
do L = 1,nlev-1 |
|
./pkg/fizhi/fizhi_turb.F |
2150 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2155 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2177 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2182 |
TRBFLX |
do L = 1,nlev |
|
./pkg/fizhi/fizhi_turb.F |
2191 |
TRBFLX |
rhokdz(i,nlev) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
2228 |
TRBFLX |
qqcolmin(i) = qq(i,nlev)*0.1 |
|
./pkg/fizhi/fizhi_turb.F |
2229 |
TRBFLX |
qqcolmax(i) = qq(i,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
2230 |
TRBFLX |
levpbl(i) = nlev |
|
./pkg/fizhi/fizhi_turb.F |
2232 |
TRBFLX |
DO L = nlev-1,1,-1 |
|
./pkg/fizhi/fizhi_turb.F |
2234 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
|
./pkg/fizhi/fizhi_turb.F |
2238 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
|
./pkg/fizhi/fizhi_turb.F |
2244 |
TRBFLX |
if(lp.lt.nlev)then |
|
./pkg/fizhi/fizhi_turb.F |
2245 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,Lp+2)) + |
|
./pkg/fizhi/fizhi_turb.F |
2249 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,2)) + |
|
./pkg/fizhi/fizhi_turb.F |
3374 |
TRBLEN |
integer irun,nlev,init,lmin,lminq,lminq1 |
|
./pkg/fizhi/fizhi_turb.F |
3381 |
TRBLEN |
_RL DZITRP(irun,nlev-1),STBFCN(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
3382 |
TRBLEN |
_RL XL0(irun,nlev),Q1(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3383 |
TRBLEN |
_RL WRKIT1(irun,nlev-1),WRKIT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3384 |
TRBLEN |
_RL WRKIT3(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3385 |
TRBLEN |
_RL WRKIT4(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3386 |
TRBLEN |
INTEGER INT1(irun,nlev), INT2(irun,nlev-1) |
|
./pkg/fizhi/fizhi_turb.F |
3641 |
TRBITP |
integer irun,nlev |
|
./pkg/fizhi/fizhi_turb.F |
3731 |
TRBL20 |
integer nlev,nlay,irun |
|
./pkg/fizhi/fizhi_turb.F |
3832 |
TRBL25 |
integer nlev,nlay,irun |
|
./pkg/fizhi/fizhi_turb.F |
3930 |
TRBDIF |
integer nlev,itype,irun |
|
./pkg/fizhi/fizhi_turb.F |
3936 |
TRBDIF |
_RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1) |
|
./pkg/dic/DIC_VARS.h |
136 |
NO PROCEDURE |
& nlev, QSW_underice |
|
./pkg/dic/DIC_VARS.h |
138 |
NO PROCEDURE |
INTEGER nlev |
|
./pkg/dic/bio_export.F |
99 |
BIO_EXPORT |
DO k=1,nlev |
|
./pkg/dic/car_flux.F |
62 |
CAR_FLUX |
DO k=1,nlev |
|
./pkg/dic/dic_init_fixed.F |
80 |
DIC_INIT_FIXED |
nlev=Nr |
|
./pkg/dic/dic_init_fixed.F |
86 |
DIC_INIT_FIXED |
nlev = k |
|
./pkg/dic/dic_init_fixed.F |
97 |
DIC_INIT_FIXED |
CALL WRITE_0D_I( nlev, INDEX_NONE, 'nlev =', |
|
./pkg/dic/phos_flux.F |
63 |
PHOS_FLUX |
DO k=1,nlev |