Symbol Description Uses
IRUN 195



File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 847 ASTRO
      SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA )
./pkg/fizhi/fizhi_clockstuff.F 984 ASTRO
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2365 RNEVP
       SUBROUTINE RNEVP(NN,IRUN,NLAY,TL,QL,RAIN,PL,CLFRAC,SP,DP,PLKE,
./pkg/fizhi/fizhi_moist.F 2372 RNEVP
      _RL TL(IRUN,NLAY),QL(IRUN,NLAY),RAIN(IRUN,NLAY),
./pkg/fizhi/fizhi_moist.F 2373 RNEVP
     . PL(IRUN,NLAY),CLFRAC(IRUN,NLAY),SP(IRUN),TEMP1(IRUN,NLAY),
./pkg/fizhi/fizhi_moist.F 2374 RNEVP
     . TEMP2(IRUN,NLAY),PLKE(IRUN,NLAY+1),
./pkg/fizhi/fizhi_moist.F 2375 RNEVP
     . RCON(IRUN),RLAR(IRUN),DP(IRUN,NLAY),PLK(IRUN,NLAY),TH(IRUN,NLAY),
./pkg/fizhi/fizhi_moist.F 2376 RNEVP
     . TEMP3(IRUN,NLAY)
./pkg/fizhi/fizhi_moist.F 2377 RNEVP
      integer ITMP1(IRUN,NLAY),ITMP2(IRUN,NLAY)
./pkg/fizhi/fizhi_moist.F 2378 RNEVP
      _RL CLSBTH(IRUN,NLAY)
./pkg/fizhi/fizhi_moist.F 2399 RNEVP
      _RL EVP9(IRUN,NLAY)
./pkg/fizhi/fizhi_moist.F 2423 RNEVP
       IRNLAY = IRUN*NLAY
./pkg/fizhi/fizhi_moist.F 2424 RNEVP
       IRNLM1 = IRUN*(NLAY-1)
./pkg/fizhi/fizhi_moist.F 2432 RNEVP
       DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2452 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2461 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2470 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2479 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2489 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2505 RNEVP
      DO 20 I=1,IRUN
./pkg/fizhi/fizhi_moist.F 2543 RNEVP
      DO I = 1,IRUN
./pkg/fizhi/fizhi_moist.F 2568 RNEVP
      DO I=1,IRUN
./pkg/fizhi/fizhi_turb.F 2770 SFCFLX
     2      VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM,
./pkg/fizhi/fizhi_turb.F 2825 SFCFLX
      _RL VUS(IRUN),VVS(IRUN),VTHV1(IRUN),VTHV2(IRUN)
./pkg/fizhi/fizhi_turb.F 2826 SFCFLX
      _RL VTH1(IRUN),VTH2(IRUN),VSH1(IRUN),VSH2(IRUN)
./pkg/fizhi/fizhi_turb.F 2827 SFCFLX
      _RL VPK(IRUN),VPKE(IRUN),VPE(IRUN)
./pkg/fizhi/fizhi_turb.F 2828 SFCFLX
      _RL VZ0(IRUN),VHS(IRUN),VAHS(IRUN)
./pkg/fizhi/fizhi_turb.F 2829 SFCFLX
      integer IVWATER(IRUN)
./pkg/fizhi/fizhi_turb.F 2831 SFCFLX
      _RL VRHO(IRUN),VRHOZPK(IRUN)
./pkg/fizhi/fizhi_turb.F 2832 SFCFLX
      _RL VKM(IRUN),VKH(IRUN),VUSTAR(IRUN),VXX(IRUN)
./pkg/fizhi/fizhi_turb.F 2833 SFCFLX
      _RL VYY(IRUN),VCU(IRUN),VCT(IRUN),VRIB(IRUN)
./pkg/fizhi/fizhi_turb.F 2834 SFCFLX
      _RL VZETA(IRUN),VWS(IRUN)
./pkg/fizhi/fizhi_turb.F 2878 SFCFLX
      DO 9000 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2892 SFCFLX
      DO 9002 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2899 SFCFLX
       DO 9004 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2910 SFCFLX
      DO 9006 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2927 SFCFLX
       DO 9008 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2934 SFCFLX
     4  VTEMP,VTEMP,1,.TRUE.,IRUN,VDZETA,
./pkg/fizhi/fizhi_turb.F 2940 SFCFLX
       DO 9010 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2959 SFCFLX
      DO 9012 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2965 SFCFLX
      DO 9014 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2969 SFCFLX
     1    VTEMP,IRUN,VXX,VXX0,VYY,
./pkg/fizhi/fizhi_turb.F 2971 SFCFLX
      DO 9016 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2983 SFCFLX
       DO 9018 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 2986 SFCFLX
        CALL ZCSUB ( VUSTAR,VHZ,IVWATER,.FALSE.,IRUN,VTEMP)
./pkg/fizhi/fizhi_turb.F 2987 SFCFLX
       DO 9020 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3006 SFCFLX
     4  VYY,VYY0,2,LWATER,IRUN,VDZETA,
./pkg/fizhi/fizhi_turb.F 3013 SFCFLX
      DO 9022 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3020 SFCFLX
       DO 9024 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3035 SFCFLX
       DO 9026 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3039 SFCFLX
     1    VPSIH,IRUN,VXX,VXX0,VYY,
./pkg/fizhi/fizhi_turb.F 3041 SFCFLX
       DO 9028 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3066 SFCFLX
     4  VYY,VYY0,ITYPE,LWATER,IRUN,VDZETA,
./pkg/fizhi/fizhi_turb.F 3076 SFCFLX
        DO 9030 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3082 SFCFLX
       DO 9032 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3089 SFCFLX
        DO 9034 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3099 SFCFLX
        DO 9036 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3116 SFCFLX
        DO 9038 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3127 SFCFLX
       DO I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3132 SFCFLX
     1    VPSIH2,IRUN,VHZ,VHZ,VHZ,
./pkg/fizhi/fizhi_turb.F 3134 SFCFLX
       DO I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3182 SFCFLX
      DO 9044 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3484 PSI
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3510 PSI
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3511 PSI
     1     VX(IRUN),VXS(IRUN),VY(IRUN),VYS(IRUN)
./pkg/fizhi/fizhi_turb.F 3543 PSI
      DO 9000 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3553 PSI
      DO 9122 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3556 PSI
      DO 9022 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3571 PSI
      DO 9002 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3614 PSI
      DO 9008 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3647 PSI
      DO 9012 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3662 PSI
      DO 9114 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3667 PSI
      DO 9014 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3679 PSI
      DO 9016 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3742 PSI
      DO 9030 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 3774 PSI
      DO 9026 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4649 LINADJ
     1 VAPSIM, VAPSIHG,VPSIH,VPSIG,VX,VX0,VY,VY0,ITYPE,LWATER,IRUN,
./pkg/fizhi/fizhi_turb.F 4697 LINADJ
      _RL VRIB1(IRUN),VRIB2(IRUN)
./pkg/fizhi/fizhi_turb.F 4698 LINADJ
      _RL VWS1(IRUN),VWS2(IRUN),VZ1(IRUN),VUSTAR(IRUN)
./pkg/fizhi/fizhi_turb.F 4699 LINADJ
      integer IWATER(IRUN)
./pkg/fizhi/fizhi_turb.F 4700 LINADJ
      _RL VAPSIM(IRUN),VAPSIHG(IRUN)
./pkg/fizhi/fizhi_turb.F 4701 LINADJ
      _RL VPSIH(IRUN),VPSIG(IRUN),VX(IRUN)
./pkg/fizhi/fizhi_turb.F 4702 LINADJ
      _RL VX0(IRUN),VY(IRUN),VY0(IRUN)
./pkg/fizhi/fizhi_turb.F 4704 LINADJ
      _RL VDZETA(IRUN),VDZ0(IRUN),VDPSIM(IRUN)
./pkg/fizhi/fizhi_turb.F 4705 LINADJ
      _RL VDPSIH(IRUN)
./pkg/fizhi/fizhi_turb.F 4706 LINADJ
      integer INTRIB(IRUN)
./pkg/fizhi/fizhi_turb.F 4738 LINADJ
       DO 9000 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4743 LINADJ
       DO 9002 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4749 LINADJ
       DO 9004 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4757 LINADJ
        CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2)
./pkg/fizhi/fizhi_turb.F 4759 LINADJ
        DO 9006 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4772 LINADJ
       DO 9008 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4780 LINADJ
       DO 9010 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4813 LINADJ
       DO 9012 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4830 LINADJ
       DO 9014 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4838 LINADJ
       DO 9016 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4845 LINADJ
       DO 9018 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4853 LINADJ
       DO 9020 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4858 LINADJ
       DO 9022 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4868 LINADJ
       DO 9024 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4883 LINADJ
       DO 9026 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4892 LINADJ
       DO 9028 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4898 LINADJ
       DO 9030 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4907 LINADJ
       DO 9032 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4916 LINADJ
       DO 9034 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4931 LINADJ
       DO 9036 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 4964 ZCSUB
      SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA)
./pkg/fizhi/fizhi_turb.F 4989 ZCSUB
      _RL VZSEA(IRUN),VUSTAR(IRUN),VDZSEA(IRUN)
./pkg/fizhi/fizhi_turb.F 4990 ZCSUB
      integer IWATER(IRUN)
./pkg/fizhi/fizhi_turb.F 4999 ZCSUB
      _RL AA(IRUN,5),TEMP(IRUN)
./pkg/fizhi/fizhi_turb.F 5000 ZCSUB
      integer INT2(IRUN),INT3(IRUN),INT4(IRUN)
./pkg/fizhi/fizhi_turb.F 5016 ZCSUB
      DO 9000 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5023 ZCSUB
      DO 9002 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5031 ZCSUB
      DO 9004 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5038 ZCSUB
      DO 9006 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5045 ZCSUB
      DO 9008 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5054 ZCSUB
       DO 9010 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5066 ZCSUB
      DO 9012 I = 1,IRUN
./pkg/fizhi/fizhi_turb.F 5078 ZCSUB
       DO 9014 I = 1,IRUN
./pkg/fizhi/update_chemistry_exports.F 313 INTERP_OZ
      _RL  O3INT1(IRUN,nozlevs)
./pkg/fizhi/update_chemistry_exports.F 314 INTERP_OZ
      _RL    QPR1(IRUN), QPR2(IRUN), SLOPE(IRUN)
./pkg/fizhi/update_chemistry_exports.F 315 INTERP_OZ
      _RL     PR1(IRUN),  PR2(IRUN)
./pkg/fizhi/update_chemistry_exports.F 322 INTERP_OZ
      DO 34 I=1,IRUN
./pkg/fizhi/update_chemistry_exports.F 347 INTERP_OZ
      DO 38 I=1,IRUN
./pkg/fizhi/update_chemistry_exports.F 359 INTERP_OZ
      DO 44 I  = 1,IRUN
./pkg/fizhi/update_chemistry_exports.F 381 INTERP_OZ
      DO 48 I=1,IRUN
./pkg/fizhi/update_chemistry_exports.F 398 INTERP_OZ
      DO 60 I=1,IRUN
./pkg/fizhi/update_earth_exports.F 148 SIBALB
     &                    VLAI, VGRN, ZTH, SNW, ITYP, IRUN )
./pkg/fizhi/update_earth_exports.F 169 SIBALB
      INTEGER IRUN
./pkg/fizhi/update_earth_exports.F 170 SIBALB
      _RL AVISDR  (IRUN), ANIRDR (IRUN), AVISDF (IRUN), ANIRDF (IRUN)
./pkg/fizhi/update_earth_exports.F 171 SIBALB
      _RL VLAI(IRUN),VGRN (IRUN), SNW(IRUN)
./pkg/fizhi/update_earth_exports.F 172 SIBALB
      _RL ZTH(IRUN)
./pkg/fizhi/update_earth_exports.F 173 SIBALB
      INTEGER ITYP (IRUN)
./pkg/fizhi/update_earth_exports.F 647 SIBALB
      DO 100 I=1,IRUN
./pkg/chronos/chronos.F 698 ASTRO
      SUBROUTINE ASTRO ( NYMD,NHMS,ALAT,ALON,IRUN,COSZ,RA )
./pkg/chronos/chronos.F 832 ASTRO
      DO I = 1,IRUN