Symbol Description Uses
irun 701


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 893 ASTRO 
      integer nymd, nhms, irun
./pkg/fizhi/fizhi_clockstuff.F 894 ASTRO 
      _RL getcon, cosz(irun), alat(irun), alon(irun), ra
./pkg/fizhi/fizhi_gwdrag.F 297 GWDD 
     .                  grav,rgas,cp,irun,Lm,nthin,nbase,lstar )
./pkg/fizhi/fizhi_gwdrag.F 340 GWDD 
      integer irun,Lm
./pkg/fizhi/fizhi_gwdrag.F 341 GWDD 
      _RL ps(irun)
./pkg/fizhi/fizhi_gwdrag.F 342 GWDD 
      _RL u(irun,Lm), v(irun,Lm), t(irun,Lm)
./pkg/fizhi/fizhi_gwdrag.F 343 GWDD 
      _RL dudt(irun,Lm), dvdt(irun,Lm)
./pkg/fizhi/fizhi_gwdrag.F 344 GWDD 
      _RL xdrag(irun), ydrag(irun)
./pkg/fizhi/fizhi_gwdrag.F 345 GWDD 
      _RL std(irun)
./pkg/fizhi/fizhi_gwdrag.F 346 GWDD 
      _RL ple(irun,Lm+1), pl(irun,Lm), dpres(irun,Lm)
./pkg/fizhi/fizhi_gwdrag.F 348 GWDD 
      integer nthin(irun),nbase(irun)
./pkg/fizhi/fizhi_gwdrag.F 353 GWDD 
      _RL ubar(irun), vbar(irun), robar(irun)
./pkg/fizhi/fizhi_gwdrag.F 354 GWDD 
      _RL speed(irun), ang(irun)
./pkg/fizhi/fizhi_gwdrag.F 355 GWDD 
      _RL bv(irun,Lm)
./pkg/fizhi/fizhi_gwdrag.F 356 GWDD 
      _RL nbar(irun)
./pkg/fizhi/fizhi_gwdrag.F 358 GWDD 
      _RL XTENS(irun,Lm+1), YTENS(irun,Lm+1)
./pkg/fizhi/fizhi_gwdrag.F 359 GWDD 
      _RL TENSIO(irun,Lm+1)
./pkg/fizhi/fizhi_gwdrag.F 360 GWDD 
      _RL DRAGSF(irun)
./pkg/fizhi/fizhi_gwdrag.F 361 GWDD 
      _RL RO(irun,Lm), DZ(irun,Lm)
./pkg/fizhi/fizhi_gwdrag.F 363 GWDD 
      integer icrilv(irun)
./pkg/fizhi/fizhi_gwdrag.F 384 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 392 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 405 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 411 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 419 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 430 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 444 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 447 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 453 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 474 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 488 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 549 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 553 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 636 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 646 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 654 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 666 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2371 RNEVP 
      integer nn,irun,nlay
./pkg/fizhi/fizhi_moist.F 2380 RNEVP 
      _RL cldlz(irun,nlay)
./pkg/fizhi/fizhi_moist.F 2381 RNEVP 
      _RL rhcrit(irun,nlay)
./pkg/fizhi/fizhi_moist.F 2400 RNEVP 
      _RL water(irun),crystal(irun)
./pkg/fizhi/fizhi_moist.F 2401 RNEVP 
      _RL watevap(irun),iceevap(irun)
./pkg/fizhi/fizhi_moist.F 2403 RNEVP 
      _RL rainmax(irun)
./pkg/fizhi/fizhi_moist.F 2439 RNEVP 
       do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2534 RNEVP 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2585 SRCLOUDS 
      subroutine SRCLOUDS (th,q,plk,pl,plke,cloud,cldwat,irun,irise,
./pkg/fizhi/fizhi_moist.F 2612 SRCLOUDS 
      integer  irun,irise
./pkg/fizhi/fizhi_moist.F 2614 SRCLOUDS 
      _RL   th(irun,irise)
./pkg/fizhi/fizhi_moist.F 2615 SRCLOUDS 
      _RL    q(irun,irise)
./pkg/fizhi/fizhi_moist.F 2616 SRCLOUDS 
      _RL  plk(irun,irise)
./pkg/fizhi/fizhi_moist.F 2617 SRCLOUDS 
      _RL   pl(irun,irise)
./pkg/fizhi/fizhi_moist.F 2618 SRCLOUDS 
      _RL plke(irun,irise+1)
./pkg/fizhi/fizhi_moist.F 2620 SRCLOUDS 
      _RL  cloud(irun,irise)
./pkg/fizhi/fizhi_moist.F 2621 SRCLOUDS 
      _RL cldwat(irun,irise)
./pkg/fizhi/fizhi_moist.F 2622 SRCLOUDS 
      _RL     qs(irun,irise)
./pkg/fizhi/fizhi_moist.F 2629 SRCLOUDS 
      _RL rhc(irun,irise)
./pkg/fizhi/fizhi_moist.F 2646 SRCLOUDS 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2653 SRCLOUDS 
      do i  = 1,irun
./pkg/fizhi/fizhi_moist.F 2668 SRCLOUDS 
      call CTEI ( th,q,cloud,cldwat,pl,plk,plke,irun,irise )
./pkg/fizhi/fizhi_moist.F 2717 BACK2GRD 
      subroutine BACK2GRD(gathered,indeces,scattered,irun)
./pkg/fizhi/fizhi_moist.F 2719 BACK2GRD 
      integer i,irun,indeces(irun)
./pkg/fizhi/fizhi_moist.F 2720 BACK2GRD 
      _RL gathered(irun),scattered(irun)
./pkg/fizhi/fizhi_moist.F 2721 BACK2GRD 
      _RL temp(irun)
./pkg/fizhi/fizhi_moist.F 2722 BACK2GRD 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2725 BACK2GRD 
      do i = 1,irun
./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 1315 TRBFLX 
      _RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 1316 TRBFLX 
      _RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1317 TRBFLX 
      _RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1318 TRBFLX 
      _RL PLKE(irun,NLEV+1),DPSTR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1319 TRBFLX 
      integer IWATER(irun)
./pkg/fizhi/fizhi_turb.F 1320 TRBFLX 
      _RL Z0(irun)
./pkg/fizhi/fizhi_turb.F 1321 TRBFLX 
      _RL tracers(irun,nlev+1,ntracedim)
./pkg/fizhi/fizhi_turb.F 1324 TRBFLX 
      _RL SWINDS(irun)
./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 1329 TRBFLX 
      _RL sustar(irun), sz0(irun)
./pkg/fizhi/fizhi_turb.F 1330 TRBFLX 
      _RL freqdg(irun,nlev-1)
./pkg/fizhi/fizhi_turb.F 1331 TRBFLX 
      _RL sct(irun), scu(irun)
./pkg/fizhi/fizhi_turb.F 1332 TRBFLX 
      _RL stu2m(irun),stv2m(irun),stt2m(irun),stq2m(irun)
./pkg/fizhi/fizhi_turb.F 1333 TRBFLX 
      _RL stu10m(irun),stv10m(irun),stt10m(irun),stq10m(irun)
./pkg/fizhi/fizhi_turb.F 1335 TRBFLX 
      _RL eturb(irun),dedqa(irun),dedtc(irun)
./pkg/fizhi/fizhi_turb.F 1336 TRBFLX 
      _RL hsturb(irun),dhsdqa(irun),dhsdtc(irun)
./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 1340 TRBFLX 
      _RL ctsave(irun),xxsave(irun),yysave(irun)
./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 1359 TRBFLX 
      _RL AHS (irun), HS(irun)
./pkg/fizhi/fizhi_turb.F 1360 TRBFLX 
      _RL XX  (irun), YY(irun), CU(irun)
./pkg/fizhi/fizhi_turb.F 1361 TRBFLX 
      _RL CT(irun),  USTAR(irun)
./pkg/fizhi/fizhi_turb.F 1362 TRBFLX 
      _RL RIB(irun),   ZETA(irun), WS(irun)
./pkg/fizhi/fizhi_turb.F 1363 TRBFLX 
      _RL DTHS(irun), DELTHS(irun)
./pkg/fizhi/fizhi_turb.F 1364 TRBFLX 
      _RL DTHL(irun), DELTHL(irun)
./pkg/fizhi/fizhi_turb.F 1365 TRBFLX 
      _RL RIBIN(irun),CUIN(irun)
./pkg/fizhi/fizhi_turb.F 1366 TRBFLX 
      _RL CTIN(irun),ZETAIN(irun)
./pkg/fizhi/fizhi_turb.F 1367 TRBFLX 
      _RL USTARIN(irun),RHOSIN(irun),Z0IN(irun)
./pkg/fizhi/fizhi_turb.F 1368 TRBFLX 
      _RL qqcolmin(irun),qqcolmax(irun),levpbl(irun)
./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 1397 TRBFLX 
      _RL TL(irun,NLEV),DTH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1398 TRBFLX 
      _RL DSH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1399 TRBFLX 
      _RL SHL(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1400 TRBFLX 
      _RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1401 TRBFLX 
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./pkg/fizhi/fizhi_turb.F 1402 TRBFLX 
      _RL SVAR(irun,NLEV),Q1M(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1403 TRBFLX 
      _RL FCC(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1404 TRBFLX 
      _RL BETAT(irun,NLEV),BETAW(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1405 TRBFLX 
      _RL BETAL(irun,NLEV),BETAT1(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1406 TRBFLX 
      _RL BETAW1(irun,NLEV),SBAR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1407 TRBFLX 
      _RL SHSAT(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1411 TRBFLX 
      integer IVBITRIB(irun)
./pkg/fizhi/fizhi_turb.F 1412 TRBFLX 
      _RL VHZ(irun)
./pkg/fizhi/fizhi_turb.F 1413 TRBFLX 
      _RL VH0(irun)
./pkg/fizhi/fizhi_turb.F 1414 TRBFLX 
      _RL VPSIM(irun),VAPSIM(irun)
./pkg/fizhi/fizhi_turb.F 1415 TRBFLX 
      _RL VPSIG(irun),VPSIHG(irun)
./pkg/fizhi/fizhi_turb.F 1416 TRBFLX 
      _RL VTEMP(irun),VDZETA(irun)
./pkg/fizhi/fizhi_turb.F 1417 TRBFLX 
      _RL VDZ0(irun),VDPSIM(irun)
./pkg/fizhi/fizhi_turb.F 1418 TRBFLX 
      _RL VDPSIH(irun),VZH(irun)
./pkg/fizhi/fizhi_turb.F 1419 TRBFLX 
      _RL VXX0(irun),VYY0(irun)
./pkg/fizhi/fizhi_turb.F 1420 TRBFLX 
      _RL VAPSIHG(irun),VRIB1(irun),VWS1(irun)
./pkg/fizhi/fizhi_turb.F 1421 TRBFLX 
      _RL VPSIH(irun),VZETAL(irun)
./pkg/fizhi/fizhi_turb.F 1422 TRBFLX 
      _RL VZ0L(irun),VPSIH2(irun)
./pkg/fizhi/fizhi_turb.F 1423 TRBFLX 
      _RL VX0PSIM(irun),VG(irun),VG0(irun),VR1MG0(irun)
./pkg/fizhi/fizhi_turb.F 1424 TRBFLX 
      _RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun)
./pkg/fizhi/fizhi_turb.F 1425 TRBFLX 
      _RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(irun)
./pkg/fizhi/fizhi_turb.F 1426 TRBFLX 
      _RL VXNUM2(irun),VDEN(irun),VAWS1(irun),VXNUM3(irun)
./pkg/fizhi/fizhi_turb.F 1427 TRBFLX 
      _RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun)
./pkg/fizhi/fizhi_turb.F 1428 TRBFLX 
      _RL VZCOEF2(irun),VZCOEF1(irun),VTEMPLIN(irun)
./pkg/fizhi/fizhi_turb.F 1429 TRBFLX 
      _RL VDPSIMC(irun),VDPSIHC(irun)
./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 1448 TRBFLX 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 1452 TRBFLX 
      ISTNM1 = irun * NLEVM1
./pkg/fizhi/fizhi_turb.F 1453 TRBFLX 
      ISTNM2 = irun * NLEVM2
./pkg/fizhi/fizhi_turb.F 1454 TRBFLX 
      ISTNP1 = irun * NLEVP1
./pkg/fizhi/fizhi_turb.F 1473 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1482 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1488 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1492 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1495 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1498 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1501 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1504 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1510 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1513 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1516 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1519 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1522 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1525 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1528 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1531 TRBFLX 
      do I =1,irun
./pkg/fizhi/fizhi_turb.F 1537 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1542 TRBFLX 
       DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1553 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1560 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1566 TRBFLX 
      DO 9042 I =1,irun
./pkg/fizhi/fizhi_turb.F 1571 TRBFLX 
      DO 9044 I =1,irun
./pkg/fizhi/fizhi_turb.F 1575 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1579 TRBFLX 
      DO 9048 I =1,irun
./pkg/fizhi/fizhi_turb.F 1586 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1590 TRBFLX 
      DO 9052 I =1,irun
./pkg/fizhi/fizhi_turb.F 1596 TRBFLX 
      DO 9054 I =1,irun
./pkg/fizhi/fizhi_turb.F 1601 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1609 TRBFLX 
      DO 9058 I =1,irun
./pkg/fizhi/fizhi_turb.F 1617 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1633 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1639 TRBFLX 
      DO 9064 I =1,irun
./pkg/fizhi/fizhi_turb.F 1642 TRBFLX 
      DO 9066 I =1,irun
./pkg/fizhi/fizhi_turb.F 1646 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1650 TRBFLX 
      DO 9070 I =1,irun
./pkg/fizhi/fizhi_turb.F 1653 TRBFLX 
      DO 9074 I =1,irun
./pkg/fizhi/fizhi_turb.F 1657 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1665 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1670 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1674 TRBFLX 
      DO 9088 I =1,irun
./pkg/fizhi/fizhi_turb.F 1680 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1684 TRBFLX 
      DO 9092 I =1,irun
./pkg/fizhi/fizhi_turb.F 1690 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1708 TRBFLX 
       DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1716 TRBFLX 
      DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1721 TRBFLX 
      DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1765 TRBFLX 
     6   FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV),
./pkg/fizhi/fizhi_turb.F 1785 TRBFLX 
      DO 9098 I =1,irun
./pkg/fizhi/fizhi_turb.F 1794 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1805 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1812 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1819 TRBFLX 
      DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1824 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1832 TRBFLX 
      DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 1841 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1857 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1876 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1884 TRBFLX 
      DO 9102 I =1,irun
./pkg/fizhi/fizhi_turb.F 1895 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1906 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1910 TRBFLX 
      DO 9108 I =1,irun
./pkg/fizhi/fizhi_turb.F 1913 TRBFLX 
      DO 9110 I =1,irun
./pkg/fizhi/fizhi_turb.F 1919 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1940 TRBFLX 
        DO 9116 I = 1,irun
./pkg/fizhi/fizhi_turb.F 1954 TRBFLX 
     2  DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun)
./pkg/fizhi/fizhi_turb.F 1961 TRBFLX 
     2   NLEVML,nlev,irun)
./pkg/fizhi/fizhi_turb.F 1967 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1975 TRBFLX 
     2  DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun)
./pkg/fizhi/fizhi_turb.F 1982 TRBFLX 
       ISTNML = irun * NLEVML
./pkg/fizhi/fizhi_turb.F 1984 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 1994 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2016 TRBFLX 
     2    P3(1,LMINQ),NLEVML,nlev,irun)
./pkg/fizhi/fizhi_turb.F 2021 TRBFLX 
       ISTNML = irun * ( NLEV - LMIN )
./pkg/fizhi/fizhi_turb.F 2025 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2032 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2046 TRBFLX 
      DO 9118 I =1,irun
./pkg/fizhi/fizhi_turb.F 2056 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2065 TRBFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2078 TRBFLX 
      ISTNMQ = irun * NLEVMQ
./pkg/fizhi/fizhi_turb.F 2080 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2085 TRBFLX 
     1       FLXFCE(1,LMINQ1),DTHS,DELTHS,NLEVMQ,1,1.0 _d -20,irun)
./pkg/fizhi/fizhi_turb.F 2090 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2098 TRBFLX 
       ISTLMQ = irun * (LMINQ1-1)
./pkg/fizhi/fizhi_turb.F 2101 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2111 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2122 TRBFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2137 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2142 TRBFLX 
      DO 9132 I =1,irun
./pkg/fizhi/fizhi_turb.F 2145 TRBFLX 
       CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2146 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2151 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2156 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2162 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2167 TRBFLX 
      DO 9140 I =1,irun
./pkg/fizhi/fizhi_turb.F 2172 TRBFLX 
     &                                     2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2173 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2178 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2183 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2190 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2205 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2209 TRBFLX 
       CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2212 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2218 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2227 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2233 TRBFLX 
        DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 2242 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2254 TRBFLX 
      do i=1,irun
./pkg/fizhi/fizhi_turb.F 2257 TRBFLX 
      do i=1,irun
./pkg/fizhi/fizhi_turb.F 2261 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2266 TRBFLX 
      DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2269 TRBFLX 
      DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2274 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2285 TRBFLX 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2289 TRBFLX 
       DO I = 1,irun
./pkg/fizhi/fizhi_turb.F 2298 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2308 TRBFLX 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 2371 SFCFLX 
      integer nn,n,irun
./pkg/fizhi/fizhi_turb.F 2383 SFCFLX 
      _RL stu2m(irun),stv2m(irun),stt2m(irun),stq2m(irun)
./pkg/fizhi/fizhi_turb.F 2384 SFCFLX 
      _RL stu10m(irun),stv10m(irun),stt10m(irun),stq10m(irun)
./pkg/fizhi/fizhi_turb.F 2386 SFCFLX 
      integer IVBITRIB(irun)
./pkg/fizhi/fizhi_turb.F 2387 SFCFLX 
      _RL VHZ(irun),VPSIM(irun),VAPSIM(irun),VPSIG(irun),VPSIHG(irun)
./pkg/fizhi/fizhi_turb.F 2388 SFCFLX 
      _RL VTEMP(irun),VDZETA(irun),VDZ0(irun),VDPSIM(irun)
./pkg/fizhi/fizhi_turb.F 2389 SFCFLX 
      _RL VDPSIH(irun),VZH(irun),VXX0(irun),VYY0(irun)
./pkg/fizhi/fizhi_turb.F 2390 SFCFLX 
      _RL VAPSIHG(irun),VRIB1(irun),VWS1(irun)
./pkg/fizhi/fizhi_turb.F 2391 SFCFLX 
      _RL VPSIH(irun),VZETAL(irun),VZ0L(irun),VPSIH2(irun),VH0(irun)
./pkg/fizhi/fizhi_turb.F 2392 SFCFLX 
      _RL VX0PSIM(irun),VG(irun),VG0(irun),VR1MG0(irun)
./pkg/fizhi/fizhi_turb.F 2393 SFCFLX 
      _RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun)
./pkg/fizhi/fizhi_turb.F 2394 SFCFLX 
      _RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(irun)
./pkg/fizhi/fizhi_turb.F 2395 SFCFLX 
      _RL VXNUM2(irun),VDEN(irun),VAWS1(irun),VXNUM3(irun)
./pkg/fizhi/fizhi_turb.F 2396 SFCFLX 
      _RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun)
./pkg/fizhi/fizhi_turb.F 2397 SFCFLX 
      _RL VZCOEF2(irun),VZCOEF1(irun),VTEMPLIN(irun)
./pkg/fizhi/fizhi_turb.F 2398 SFCFLX 
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 2414 SFCFLX 
      _RL psihdiag(irun),psimdiag(irun)
./pkg/fizhi/fizhi_turb.F 2451 SFCFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2694 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2699 SFCFLX 
        call PSI(vtemp,vzh,psimdiag,psihdiag,irun,vhz,vhz,vhz,vhz,1)
./pkg/fizhi/fizhi_turb.F 2700 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2714 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2718 SFCFLX 
        call PSI(vtemp,vzh,psimdiag,psihdiag,irun,vhz,vhz,vhz,vhz,1)
./pkg/fizhi/fizhi_turb.F 2719 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 3057 PSI 
      integer irun,iflag
./pkg/fizhi/fizhi_turb.F 3075 PSI 
      integer INTSTB(irun),INTZ0(irun)
./pkg/fizhi/fizhi_turb.F 3076 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./pkg/fizhi/fizhi_turb.F 3077 PSI 
      _RL X0(irun),X1(irun),Y0(irun),Y1(irun)
./pkg/fizhi/fizhi_turb.F 3078 PSI 
      _RL PSI2(irun),TEMP(irun)
./pkg/fizhi/fizhi_turb.F 3079 PSI 
      _RL HZ(irun),ARG0(irun),ARG1(irun),DX(irun)
./pkg/fizhi/fizhi_turb.F 3080 PSI 
      _RL X0NUM(irun),X1NUM(irun),X0DEN(irun)
./pkg/fizhi/fizhi_turb.F 3081 PSI 
      _RL X1DEN(irun),Y1DEN(irun),Z2ZWM(irun)
./pkg/fizhi/fizhi_turb.F 3340 TRBLEN 
     2  DZITRP,STBFCN,XL0,Q1,WRKIT1,WRKIT2,WRKIT3,WRKIT4,irun)
./pkg/fizhi/fizhi_turb.F 3374 TRBLEN 
      integer irun,nlev,init,lmin,lminq,lminq1
./pkg/fizhi/fizhi_turb.F 3376 TRBLEN 
      _RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3377 TRBLEN 
      _RL Q(irun,NLEV),VKZM(irun,NLEV-1),VKZE(irun,NLEV-1)
./pkg/fizhi/fizhi_turb.F 3378 TRBLEN 
      _RL DTHV(irun,NLEV),DPK(irun,NLEV),DU(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3379 TRBLEN 
      _RL DV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3380 TRBLEN 
      _RL QXLM(irun,NLEV-1),XL(irun,NLEV-1)
./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 3411 TRBLEN 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3412 TRBLEN 
      ISTNM1 = irun * NLEVM1
./pkg/fizhi/fizhi_turb.F 3419 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3427 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3435 TRBLEN 
      DO 30 I=1,irun
./pkg/fizhi/fizhi_turb.F 3445 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3449 TRBLEN 
      DO 70 I=1,irun
./pkg/fizhi/fizhi_turb.F 3457 TRBLEN 
         ISTNML = irun*NLEVML
./pkg/fizhi/fizhi_turb.F 3461 TRBLEN 
     &              WRKIT1,WRKIT2,WRKIT3,WRKIT4,CP,irun )
./pkg/fizhi/fizhi_turb.F 3465 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3472 TRBLEN 
      DO 90 I=1,irun
./pkg/fizhi/fizhi_turb.F 3477 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3484 TRBLEN 
      DO 110 I=1,irun
./pkg/fizhi/fizhi_turb.F 3493 TRBLEN 
      DO 120 I = 1,irun
./pkg/fizhi/fizhi_turb.F 3499 TRBLEN 
      DO 130 I = 1,irun
./pkg/fizhi/fizhi_turb.F 3509 TRBLEN 
      DO 140 I = 1,irun
./pkg/fizhi/fizhi_turb.F 3522 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3534 TRBLEN 
                    ISTLMQ = irun * LMINQ1
./pkg/fizhi/fizhi_turb.F 3536 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3542 TRBLEN 
        ISTNMQ = irun * (NLEV-LMINQ)
./pkg/fizhi/fizhi_turb.F 3544 TRBLEN 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3562 TRBLEN 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3569 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3581 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3591 TRBLEN 
                   ISTNMQ = irun * (NLEV-LMINQ1)
./pkg/fizhi/fizhi_turb.F 3593 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3605 TRBLEN 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3620 TRBITP 
     &                    AAA,BBB,CCC,DDD,CP,irun )
./pkg/fizhi/fizhi_turb.F 3641 TRBITP 
      integer irun,nlev
./pkg/fizhi/fizhi_turb.F 3643 TRBITP 
      _RL STBFCN(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3644 TRBITP 
      integer INTCHG(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3645 TRBITP 
      _RL DTHV(irun,NLEV+1),DPK(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3646 TRBITP 
      _RL DU(irun,NLEV+1),DV(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3647 TRBITP 
      _RL DZITRP(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3648 TRBITP 
      _RL AAA(irun,NLEV),BBB(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3649 TRBITP 
      _RL CCC(irun,NLEV),DDD(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3669 TRBITP 
      ISTNLV = irun*NLEV
./pkg/fizhi/fizhi_turb.F 3671 TRBITP 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3676 TRBITP 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3707 TRBL20 
     1                        nlay,irun)
./pkg/fizhi/fizhi_turb.F 3731 TRBL20 
      integer nlev,nlay,irun
./pkg/fizhi/fizhi_turb.F 3732 TRBL20 
      _RL RI(irun*NLEV,1),STRT(irun*NLEV,1),DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3733 TRBL20 
      _RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3734 TRBL20 
      _RL QE(irun*NLEV,1),QQE(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3735 TRBL20 
      INTEGER INTSTB(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3736 TRBL20 
      _RL EE(irun*(nlay-1),1),RF(irun*(nlay-1),1)
./pkg/fizhi/fizhi_turb.F 3761 TRBL20 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3809 TRBL25 
     1                      nlay,irun)
./pkg/fizhi/fizhi_turb.F 3832 TRBL25 
      integer nlev,nlay,irun
./pkg/fizhi/fizhi_turb.F 3833 TRBL25 
      _RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3834 TRBL25 
      _RL DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3835 TRBL25 
      INTEGER INTSTB(irun*nlay,1), INTQ(irun*nlay,1)
./pkg/fizhi/fizhi_turb.F 3836 TRBL25 
      _RL ZKM(irun*NLEV,1),ZKH(irun*NLEV,1),P3(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3853 TRBL25 
      _RL F2(irun*(nlay-1),1),F3(irun*(nlay-1),1)
./pkg/fizhi/fizhi_turb.F 3854 TRBL25 
      _RL F4(irun*(nlay-1),1),XQ(irun*(nlay-1),1)
./pkg/fizhi/fizhi_turb.F 3859 TRBL25 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3895 TRBDIF 
     &                    ITYPE,EPSL,irun )
./pkg/fizhi/fizhi_turb.F 3930 TRBDIF 
      integer nlev,itype,irun
./pkg/fizhi/fizhi_turb.F 3931 TRBDIF 
      _RL XX1(irun,NLEV+1),XX2(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3932 TRBDIF 
      _RL RHOKDZ(irun,NLEV),FLXFAC(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3933 TRBDIF 
      _RL DXX1G(irun),DXX2G(irun)
./pkg/fizhi/fizhi_turb.F 3936 TRBDIF 
      _RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1)
./pkg/fizhi/fizhi_turb.F 3946 TRBDIF 
      DO 10 I=1,irun
./pkg/fizhi/fizhi_turb.F 3950 TRBDIF 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3955 TRBDIF 
       DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3964 TRBDIF 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 3971 TRBDIF 
      CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3976 TRBDIF 
      DO 50 I=1,irun
./pkg/fizhi/fizhi_turb.F 3981 TRBDIF 
      CALL VTRI1(AA,BB,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3982 TRBDIF 
      DO 60 I=1,irun
./pkg/fizhi/fizhi_turb.F 3989 TRBDIF 
      IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3994 TRBDIF 
        DO I =1,irun
./pkg/fizhi/fizhi_turb.F 4005 VTRI0 
      SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4008 VTRI0 
      integer k,irun
./pkg/fizhi/fizhi_turb.F 4009 VTRI0 
      _RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4010 VTRI0 
      _RL F(irun,K)
./pkg/fizhi/fizhi_turb.F 4014 VTRI0 
      DO 9000 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4020 VTRI0 
       DO 9002 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4028 VTRI0 
       DO 9004 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4038 VTRI1 
      SUBROUTINE VTRI1 ( A,B,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4041 VTRI1 
      integer k,irun
./pkg/fizhi/fizhi_turb.F 4042 VTRI1 
      _RL A(irun,K),B(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4047 VTRI1 
       DO 9000 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4057 VTRI2 
      SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4060 VTRI2 
      integer k,irun
./pkg/fizhi/fizhi_turb.F 4061 VTRI2 
      _RL A(irun,K),B(irun,K),C(irun,K),F(irun,K)
./pkg/fizhi/fizhi_turb.F 4062 VTRI2 
      _RL Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4067 VTRI2 
       DO 9000 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4073 VTRI2 
       DO 9002 I = 1,irun
./pkg/fizhi/fizhi_turb.F 4127 LINADJ 
      integer nn,irun,itype
./pkg/fizhi/fizhi_turb.F 4138 LINADJ 
      _RL VX0PSIM(irun),VG(irun),VG0(irun),VR1MG0(irun)
./pkg/fizhi/fizhi_turb.F 4139 LINADJ 
      _RL VZ2(irun),VDZSEA(irun),VAZ0(irun),VXNUM1(irun)
./pkg/fizhi/fizhi_turb.F 4140 LINADJ 
      _RL VPSIGB2(irun),VDX(irun),VDXPSIM(irun),VDY(irun)
./pkg/fizhi/fizhi_turb.F 4141 LINADJ 
      _RL VXNUM2(irun),VDEN(irun),VAWS1(irun),VXNUM3(irun)
./pkg/fizhi/fizhi_turb.F 4142 LINADJ 
      _RL VXNUM(irun),VDZETA1(irun),VDZETA2(irun)
./pkg/fizhi/fizhi_turb.F 4143 LINADJ 
      _RL VZCOEF2(irun),VZCOEF1(irun),VTEMPLIN(irun)
./pkg/fizhi/fizhi_turb.F 4144 LINADJ 
      _RL VDPSIMC(irun),VDPSIHC(irun)
./pkg/fizhi/fizhi_turb.F 4156 LINADJ 
      integer VINT1(irun),VINT2(irun)
./pkg/fizhi/fizhi_turb.F 4421 ZCSUB 
      integer irun
./pkg/fizhi/fizhi_utils.F 391 STRIPIT 
      subroutine STRIPIT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 393 STRIPIT 
      integer ia,ib,irun,l,k
./pkg/fizhi/fizhi_utils.F 398 STRIPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 419 STRIPITINT 
      subroutine STRIPITINT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 421 STRIPITINT 
      integer ia,ib,irun,l,k,a(ia,l),b(ib,l)
./pkg/fizhi/fizhi_utils.F 425 STRIPITINT 
      Lena = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 446 PASTIT 
      subroutine PASTIT(b,a,ib,ia,irun,L,k)
./pkg/fizhi/fizhi_utils.F 448 PASTIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 453 PASTIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 463 PSTBITINT 
      subroutine PSTBITINT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 465 PSTBITINT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 471 PSTBITINT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 482 PSTBMPIT 
      subroutine PSTBMPIT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 484 PSTBMPIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 489 PSTBMPIT 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/fizhi_utils.F 499 STRIP2TILE 
      subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice)
./pkg/fizhi/fizhi_utils.F 519 STRIP2TILE 
      integer ia,ib,irun,levs,npeice
./pkg/fizhi/fizhi_utils.F 521 STRIP2TILE 
      integer indx(irun)
./pkg/fizhi/fizhi_utils.F 525 STRIP2TILE 
      Lena    = min(ib,irun-offset)
./pkg/fizhi/update_chemistry_exports.F 140 INTERP_QZ 
     .                         irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out )
./pkg/fizhi/update_chemistry_exports.F 164 INTERP_QZ 
      integer irun,nlevs
./pkg/fizhi/update_chemistry_exports.F 165 INTERP_QZ 
      _RL xlat  (irun)
./pkg/fizhi/update_chemistry_exports.F 166 INTERP_QZ 
      _RL pres  (irun,nlevs)
./pkg/fizhi/update_chemistry_exports.F 167 INTERP_QZ 
      _RL qz_in (irun,nlevs)
./pkg/fizhi/update_chemistry_exports.F 168 INTERP_QZ 
      _RL qz_out(irun,nlevs)
./pkg/fizhi/update_chemistry_exports.F 178 INTERP_QZ 
      _RL h2o_time_lat (irun,nwatlevs)
./pkg/fizhi/update_chemistry_exports.F 179 INTERP_QZ 
      _RL       qz_clim(irun,nlevs)
./pkg/fizhi/update_chemistry_exports.F 181 INTERP_QZ 
      _RL  qpr1(irun), qpr2(irun), slope(irun)
./pkg/fizhi/update_chemistry_exports.F 182 INTERP_QZ 
      _RL   pr1(irun),  pr2(irun)
./pkg/fizhi/update_chemistry_exports.F 191 INTERP_QZ 
        DO 34   i = 1,irun
./pkg/fizhi/update_chemistry_exports.F 216 INTERP_QZ 
        do  i = 1,irun
./pkg/fizhi/update_chemistry_exports.F 228 INTERP_QZ 
        DO 44 i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 250 INTERP_QZ 
      do i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 263 INTERP_QZ 
      do i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 279 INTERP_OZ 
     .                            irun,bi,bj,xlat,nlevs,plevs,ozrad)
./pkg/fizhi/update_chemistry_exports.F 295 INTERP_OZ 
      integer nozlevs,nozlats,irun,nlevs
./pkg/fizhi/update_chemistry_exports.F 298 INTERP_OZ 
      _RL xlat(irun)
./pkg/fizhi/update_chemistry_exports.F 299 INTERP_OZ 
      _RL plevs(irun,nlevs)
./pkg/fizhi/update_chemistry_exports.F 300 INTERP_OZ 
      _RL ozrad(irun,nlevs)
./pkg/chronos/chronos.F 730 ASTRO 
      integer nymd, nhms, irun
./pkg/chronos/chronos.F 731 ASTRO 
      _RL    cosz(irun), alat(irun), alon(irun), ra