Symbol Description Uses
NGP 705



File Line number Procedure Code
./pkg/aim/com_physcon.h 36 NO PROCEDURE
      _RL FMU(NGP,2,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 100 NO PROCEDURE
      _RL QSAT0   (NGP,2,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 101 NO PROCEDURE
      _RL SLR_DOWN(NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 102 NO PROCEDURE
      _RL ST4S    (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 103 NO PROCEDURE
      _RL SPEED0  (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 104 NO PROCEDURE
      _RL DRAG    (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 15 NO PROCEDURE
      _RL UG1(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 16 NO PROCEDURE
      _RL VG1(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 17 NO PROCEDURE
      _RL TG1(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 18 NO PROCEDURE
      _RL QG1(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 19 NO PROCEDURE
      _RL PHIG1(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 20 NO PROCEDURE
      _RL PSLG1(NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 21 NO PROCEDURE
      _RL Vsurfsq(NGP,MAX_NO_THREADS) 
./pkg/aim/com_physvar.h 28 NO PROCEDURE
      _RL SE(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 29 NO PROCEDURE
      _RL RH(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 30 NO PROCEDURE
      _RL QSAT(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 40 NO PROCEDURE
      _RL PSG   (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 41 NO PROCEDURE
      _RL TS    (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 42 NO PROCEDURE
      _RL TSKIN (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 43 NO PROCEDURE
      _RL CLOUDC(NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 44 NO PROCEDURE
      _RL PNLEVW(NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 59 NO PROCEDURE
      _RL TT_CNV(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 60 NO PROCEDURE
      _RL QT_CNV(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 61 NO PROCEDURE
      _RL TT_LSC(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 62 NO PROCEDURE
      _RL QT_LSC(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 63 NO PROCEDURE
      _RL TT_RSW(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 64 NO PROCEDURE
      _RL TT_RLW(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 65 NO PROCEDURE
      _RL UT_PBL(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 66 NO PROCEDURE
      _RL VT_PBL(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 67 NO PROCEDURE
      _RL TT_PBL(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 68 NO PROCEDURE
      _RL QT_PBL(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 87 NO PROCEDURE
      _RL PRECNV  (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 88 NO PROCEDURE
      _RL PRECLS  (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 89 NO PROCEDURE
      _RL CBMF    (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 90 NO PROCEDURE
      _RL TSR     (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 91 NO PROCEDURE
      _RL SSR     (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 92 NO PROCEDURE
      _RL SLR     (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 93 NO PROCEDURE
      _RL OLR     (NGP,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 94 NO PROCEDURE
      _RL USTR    (NGP,3,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 95 NO PROCEDURE
      _RL VSTR    (NGP,3,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 96 NO PROCEDURE
      _RL SHF     (NGP,3,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 97 NO PROCEDURE
      _RL EVAP    (NGP,3,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 98 NO PROCEDURE
      _RL T0      (NGP,2,MAX_NO_THREADS)
./pkg/aim/com_physvar.h 99 NO PROCEDURE
      _RL Q0      (NGP,MAX_NO_THREADS)
./pkg/aim/AIM_SIZE.h 15 NO PROCEDURE
      INTEGER NLON, NLAT, NLEV, NGP
./pkg/aim/AIM_SIZE.h 16 NO PROCEDURE
      PARAMETER ( NLON=sNx, NLAT=sNy, NLEV=Nr, NGP=NLON*NLAT ) 
./pkg/aim/phy_vdifsc.F 117 VDIFSC
      DO J=1,NGP
./pkg/aim/phy_vdifsc.F 124 VDIFSC
      DO J=1,NGP
./pkg/aim/phy_vdifsc.F 136 VDIFSC
      DO J=1,NGP
./pkg/aim/phy_vdifsc.F 144 VDIFSC
      DO J=1,NGP
./pkg/aim/phy_vdifsc.F 154 VDIFSC
      DO J=1,NGP
./pkg/aim/phy_vdifsc.F 50 VDIFSC
      _RL UA(NGP,NLEV), VA(NGP,NLEV), Ta(NGP,NLEV),
./pkg/aim/phy_vdifsc.F 51 VDIFSC
     &     RH(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim/phy_vdifsc.F 53 VDIFSC
      _RL UTENVD(NGP,NLEV), VTENVD(NGP,NLEV),
./pkg/aim/phy_vdifsc.F 54 VDIFSC
     &     TTENVD(NGP,NLEV), QTENVD(NGP,NLEV)
./pkg/aim/phy_vdifsc.F 59 VDIFSC
      INTEGER NL1(NGP)
./pkg/aim/phy_vdifsc.F 60 VDIFSC
      _RL RTST(NGP)
./pkg/aim/phy_vdifsc.F 61 VDIFSC
      _RL RNL1(NGP)
./pkg/aim/phy_vdifsc.F 63 VDIFSC
      _RL Th(NGP,NLEV)
./pkg/aim/phy_vdifsc.F 65 VDIFSC
      _RL stab(NGP)
./pkg/aim/phy_vdifsc.F 91 VDIFSC
        DO J=1,NGP
./pkg/aim/phy_suflux.F 110 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 125 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 129 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 143 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 151 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 161 SUFLUX
      CALL SHTORH (-1,NGP,T0,PSA,1. _d 0,Q0,WORK,QSAT0,myThid)
./pkg/aim/phy_suflux.F 163 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 175 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 191 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 218 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 229 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 244 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 308 SUFLUX
      CALL SHTORH (0,NGP,TLAND,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,1),myThid)
./pkg/aim/phy_suflux.F 309 SUFLUX
      CALL SHTORH (0,NGP,TSEA ,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,2),myThid)
./pkg/aim/phy_suflux.F 311 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 327 SUFLUX
      DO J=1,NGP
./pkg/aim/phy_suflux.F 62 SUFLUX
      _RL PSA(NGP), UA(NGP,NLEV), VA(NGP,NLEV), TA(NGP,NLEV),
./pkg/aim/phy_suflux.F 63 SUFLUX
     *     QA(NGP,NLEV), RH(NGP,NLEV), QSAT(NGP,NLEV), PHI(NGP,NLEV),
./pkg/aim/phy_suflux.F 64 SUFLUX
     *     PHI0(NGP), FMASK(NGP), TLAND(NGP), TSEA(NGP), SWAV(NGP),
./pkg/aim/phy_suflux.F 65 SUFLUX
     *     SSR(NGP), SLR(NGP)
./pkg/aim/phy_suflux.F 66 SUFLUX
      _RL Vsurfsq(NGP), DRAG(NGP)
./pkg/aim/phy_suflux.F 67 SUFLUX
      _RL USTR(NGP,3), VSTR(NGP,3), SHF(NGP,3), EVAP(NGP,3)
./pkg/aim/phy_suflux.F 68 SUFLUX
      _RL T0(NGP,2),Q0(NGP),QSAT0(NGP,2), SPEED0(NGP)
./pkg/aim/phy_suflux.F 73 SUFLUX
      _RL U0(NGP),V0(NGP),DENVV(NGP,3)
./pkg/aim/phy_suflux.F 74 SUFLUX
      _RL WORK(NGP)
./pkg/aim/phy_suflux.F 75 SUFLUX
      INTEGER NL1(NGP)
./pkg/aim/phy_suflux.F 76 SUFLUX
      _RL AUX(NGP)
./pkg/aim/com_radcon.h 30 NO PROCEDURE
      _RL TAUORIG (NGP,NLEV)
./pkg/aim/com_radcon.h 31 NO PROCEDURE
      _RL ST4AORIG(NGP,NLEV,2)
./pkg/aim/phy_lscond.F 43 LSCOND
      _RL PSA(NGP), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim/phy_lscond.F 44 LSCOND
      _RL PRECLS(NGP), DTLSC(NGP,NLEV), DQLSC(NGP,NLEV)
./pkg/aim/phy_lscond.F 61 LSCOND
      DO J=1,NGP
./pkg/aim/phy_lscond.F 70 LSCOND
        DO J=1,NGP
./pkg/aim/phy_lscond.F 78 LSCOND
      DO J=1,NGP
./pkg/aim/phy_lscond.F 85 LSCOND
      DO J=1,NGP
./pkg/aim/phy_convmf.F 109 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 128 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 134 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 145 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 151 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 157 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 165 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 173 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 183 CONVMF
      DO 300 J=1,NGP
./pkg/aim/phy_convmf.F 47 CONVMF
      _RL PSA(NGP), Ta(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim/phy_convmf.F 48 CONVMF
      INTEGER IDEPTH(NGP)
./pkg/aim/phy_convmf.F 49 CONVMF
      _RL CBMF(NGP), PRECNV(NGP), DFSE(NGP,NLEV), DFQA(NGP,NLEV)
./pkg/aim/phy_convmf.F 55 CONVMF
      INTEGER ITOP(NGP)
./pkg/aim/phy_convmf.F 57 CONVMF
      _RL ENTR(NGP,2:NLEV-1)
./pkg/aim/phy_convmf.F 58 CONVMF
      _RL FM0(NGP), DENTR(NGP)
./pkg/aim/phy_convmf.F 60 CONVMF
      _RL Th(NGP,NLEV)
./pkg/aim/phy_convmf.F 61 CONVMF
      _RL dThdp(NGP,NLEV), dThdpHat(NGP,NLEV)
./pkg/aim/phy_convmf.F 62 CONVMF
      _RL stab(NGP,NLEV)
./pkg/aim/phy_convmf.F 79 CONVMF
      DO J=1,NGP
./pkg/aim/phy_convmf.F 88 CONVMF
        DO J=1,NGP
./pkg/aim/phy_convmf.F 95 CONVMF
      DO J=1,NGP
./pkg/aim/phy_radiat.F 127 RADSW
      _RL PSA(NGP), QA(NGP,NLEV), RH(NGP,NLEV)
./pkg/aim/phy_radiat.F 128 RADSW
      _RL FSOL(NGP), OZONE(NGP), ALB(NGP), TAU(NGP,NLEV)
./pkg/aim/phy_radiat.F 129 RADSW
      _RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV)
./pkg/aim/phy_radiat.F 134 RADSW
      _RL FLUX(NGP), FREFL(NGP), TAUOZ(NGP)
./pkg/aim/phy_radiat.F 135 RADSW
      INTEGER NL1(NGP)
./pkg/aim/phy_radiat.F 152 RADSW
      DO J=1,NGP
./pkg/aim/phy_radiat.F 166 RADSW
      DO 122 J=1,NGP
./pkg/aim/phy_radiat.F 171 RADSW
      DO 123 J=1,NGP
./pkg/aim/phy_radiat.F 176 RADSW
      DO 124 J=1,NGP
./pkg/aim/phy_radiat.F 181 RADSW
      DO 126 J=1,NGP
./pkg/aim/phy_radiat.F 197 RADSW
      DO 202 J=1,NGP
./pkg/aim/phy_radiat.F 203 RADSW
      DO 204 J=1,NGP
./pkg/aim/phy_radiat.F 209 RADSW
      DO 206 J=1,NGP
./pkg/aim/phy_radiat.F 221 RADSW
      DO 312 J=1,NGP
./pkg/aim/phy_radiat.F 232 RADSW
      DO 322 J=1,NGP
./pkg/aim/phy_radiat.F 240 RADSW
      DO 332 J=1,NGP
./pkg/aim/phy_radiat.F 254 RADSW
      DO 412 J=1,NGP
./pkg/aim/phy_radiat.F 262 RADSW
      DO 422 J=1,NGP
./pkg/aim/phy_radiat.F 274 RADSW
      DO 432 J=1,NGP
./pkg/aim/phy_radiat.F 298 RADSW
      DO 512 J=1,NGP
./pkg/aim/phy_radiat.F 303 RADSW
      DO 514 J=1,NGP
./pkg/aim/phy_radiat.F 356 RADSW
      DO 516 J=1,NGP
./pkg/aim/phy_radiat.F 414 RADLW
      _RL TA(NGP,NLEV), TS(NGP), ST4S(NGP), 
./pkg/aim/phy_radiat.F 415 RADLW
     &     TAU(NGP,NLEV), ST4A(NGP,NLEV,2)
./pkg/aim/phy_radiat.F 416 RADLW
      _RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV)
./pkg/aim/phy_radiat.F 417 RADLW
      _RL FDOWN(NGP)
./pkg/aim/phy_radiat.F 424 RADLW
      _RL FLUX(NGP), BRAD(NGP), STCOR(NGP)
./pkg/aim/phy_radiat.F 425 RADLW
      INTEGER NL1(NGP)
./pkg/aim/phy_radiat.F 442 RADLW
      DO J=1,NGP
./pkg/aim/phy_radiat.F 448 RADLW
        DO J=1,NGP
./pkg/aim/phy_radiat.F 459 RADLW
      DO 102 J=1,NGP
./pkg/aim/phy_radiat.F 465 RADLW
      DO 104 J=1,NGP
./pkg/aim/phy_radiat.F 473 RADLW
      DO 106 J=1,NGP
./pkg/aim/phy_radiat.F 505 RADLW
      DO 312 J=1,NGP
./pkg/aim/phy_radiat.F 513 RADLW
      DO 322 J=1,NGP
./pkg/aim/phy_radiat.F 530 RADLW
        DO 412 J=1,NGP
./pkg/aim/phy_radiat.F 569 RADLW
      DO 414 J=1,NGP
./pkg/aim/phy_radiat.F 578 RADLW
      DO 422 J=1,NGP
./pkg/aim/phy_radiat.F 588 RADLW
      DO 432 J=1,NGP
./pkg/aim/phy_radiat.F 596 RADLW
      DO 442 J=1,NGP
./pkg/aim/phy_driver.F 107 PDRIVER
       CALL SHTORH (1,NGP,TG1(1,K,myThid),PSG(1,myThid),
./pkg/aim/phy_driver.F 114 PDRIVER
       DO J=1,NGP
./pkg/aim/phy_driver.F 139 PDRIVER
       DO J=1,NGP
./pkg/aim/phy_driver.F 178 PDRIVER
       DO J=1,NGP
./pkg/aim/phy_driver.F 209 PDRIVER
       DO J=1,NGP
./pkg/aim/phy_driver.F 221 PDRIVER
      DO J=1,NGP
./pkg/aim/phy_driver.F 235 PDRIVER
      DO J=1,NGP
./pkg/aim/phy_driver.F 255 PDRIVER
       DO J=1,NGP
./pkg/aim/phy_driver.F 52 PDRIVER
      INTEGER IDEPTH(NGP)
./pkg/aim/phy_driver.F 53 PDRIVER
      _RL RPS(NGP), ALB1(NGP), FSOL1(NGP), OZONE1(NGP)
./pkg/aim/phy_driver.F 55 PDRIVER
      _RL TAURAD(NGP,NLEV), ST4ARAD(NGP,NLEV,2)
./pkg/aim/phy_driver.F 58 PDRIVER
      _RL    Phymask(NGP,NLEV)
./pkg/aim/phy_driver.F 60 PDRIVER
      _RL UT_VDI(NGP,NLEV), VT_VDI(NGP,NLEV), TT_VDI(NGP,NLEV)
./pkg/aim/phy_driver.F 61 PDRIVER
      _RL QT_VDI(NGP,NLEV)
./pkg/aim/phy_driver.F 73 PDRIVER
      DO J=1,NGP
./pkg/aim/phy_driver.F 89 PDRIVER
      DO J=1,NGP
./pkg/aim/phy_driver.F 99 PDRIVER
       DO J=1,NGP
./pkg/aim/AIM_GRID.h 15 NO PROCEDURE
      INTEGER NLEVxy  (NGP, MAX_NO_THREADS)
./pkg/aim/AIM_GRID.h 16 NO PROCEDURE
      INTEGER NLEVxyU (NGP, MAX_NO_THREADS)
./pkg/aim/AIM_GRID.h 17 NO PROCEDURE
      INTEGER NLEVxyV (NGP, MAX_NO_THREADS)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 144 AIM_SURF_BC
         DO J=1,NGP
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 155 AIM_SURF_BC
         DO J=1,NGP
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 311 AIM_SURF_BC
        DO J=1,NGP
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 319 AIM_SURF_BC
        DO J=1,NGP
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 327 AIM_SURF_BC
         DO J=1,NGP
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 333 AIM_SURF_BC
         DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 100 SUFLUX_PREP
      _RL tmpRH(NGP)
./pkg/aim_v23/phy_suflux_prep.F 128 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 146 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 155 SUFLUX_PREP
      CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid)
./pkg/aim_v23/phy_suflux_prep.F 157 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 169 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 180 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 191 SUFLUX_PREP
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 243 SFLSET
      _RL  PHI0(NGP)
./pkg/aim_v23/phy_suflux_prep.F 244 SFLSET
      _RL  FOROG(NGP)
./pkg/aim_v23/phy_suflux_prep.F 254 SFLSET
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_prep.F 81 SUFLUX_PREP
      _RL  PSA(NGP), TA(NGP,NLEV), QA(NGP,NLEV), RH(NGP,NLEV)
./pkg/aim_v23/phy_suflux_prep.F 82 SUFLUX_PREP
      _RL  ThA(NGP,NLEV)
./pkg/aim_v23/phy_suflux_prep.F 83 SUFLUX_PREP
      _RL  Vsurf2(NGP), WVS(NGP), CLAT(NGP), FOROG(NGP)
./pkg/aim_v23/phy_suflux_prep.F 84 SUFLUX_PREP
      _RL  FMASK(NGP,3), TLAND(NGP), TSEA(NGP), TSICE(NGP)
./pkg/aim_v23/phy_suflux_prep.F 85 SUFLUX_PREP
      _RL  SSR(NGP)
./pkg/aim_v23/phy_suflux_prep.F 87 SUFLUX_PREP
      _RL  SPEED0(NGP), DRAG(NGP,0:3), T1(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_prep.F 88 SUFLUX_PREP
      _RL  dTskin(NGP), T0(NGP), Q0(NGP)
./pkg/aim_v23/phy_suflux_prep.F 90 SUFLUX_PREP
      INTEGER kGrd(NGP)
./pkg/aim_v23/phy_suflux_prep.F 97 SUFLUX_PREP
       _RL  QSAT0(NGP,2)
./pkg/aim_v23/phy_shtorh.F 103 SHTORH
        DO 210 J=1,NGP
./pkg/aim_v23/phy_shtorh.F 111 SHTORH
        DO 220 J=1,NGP
./pkg/aim_v23/phy_shtorh.F 29 SHTORH
      INTEGER IMODE, NGP
./pkg/aim_v23/phy_shtorh.F 32 SHTORH
      _RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*)
./pkg/aim_v23/phy_shtorh.F 62 SHTORH
        DO J=1,NGP
./pkg/aim_v23/phy_shtorh.F 6 SHTORH
      SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid)
./pkg/aim_v23/phy_shtorh.F 81 SHTORH
      DO 110 J=1,NGP
./pkg/aim_v23/phy_shtorh.F 91 SHTORH
        DO 120 J=1,NGP
./pkg/aim_v23/phy_shtorh.F 95 SHTORH
        DO 130 J=1,NGP
./pkg/aim_v23/aim_sice_impl.F 66 AIM_SICE_IMPL
      _RL  FMASK(NGP), netSW(NGP), sFlx(NGP,0:2)
./pkg/aim_v23/aim_sice_impl.F 67 AIM_SICE_IMPL
      _RL  Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP)
./pkg/aim_v23/aim_sice_impl.F 68 AIM_SICE_IMPL
      _RL  Slr0(NGP), dSlr(NGP)
./pkg/aim_v23/aim_sice_impl.F 69 AIM_SICE_IMPL
      _RL  Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP)
./pkg/aim_v23/aim_sice_impl.F 70 AIM_SICE_IMPL
      _RL  dTsurf(NGP)
./pkg/aim_v23/aim_sice_impl.F 85 AIM_SICE_IMPL
       DO J=1,NGP
./pkg/aim_v23/aim_sice_impl.F 98 AIM_SICE_IMPL
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 106 SUFLUX_LAND
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 118 SUFLUX_LAND
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 127 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 138 SUFLUX_LAND
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_land.F 140 SUFLUX_LAND
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_land.F 147 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 154 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 164 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 171 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 186 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 198 SUFLUX_LAND
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 207 SUFLUX_LAND
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 216 SUFLUX_LAND
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_land.F 78 SUFLUX_LAND
      _RL  PSA(NGP), FMASK(NGP), EMISloc
./pkg/aim_v23/phy_suflux_land.F 79 SUFLUX_LAND
      _RL  Tsurf(NGP), dTskin(NGP), SWAV(NGP)
./pkg/aim_v23/phy_suflux_land.F 80 SUFLUX_LAND
      _RL  SSR(NGP), SLRD(NGP) 
./pkg/aim_v23/phy_suflux_land.F 81 SUFLUX_LAND
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_land.F 83 SUFLUX_LAND
      _RL  SHF(NGP), EVAP(NGP), SLRU(NGP)
./pkg/aim_v23/phy_suflux_land.F 84 SUFLUX_LAND
      _RL  Shf0(NGP), dShf(NGP), Evp0(NGP), dEvp(NGP)
./pkg/aim_v23/phy_suflux_land.F 85 SUFLUX_LAND
      _RL  Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2)
./pkg/aim_v23/phy_suflux_land.F 86 SUFLUX_LAND
      _RL  TSFC(NGP), TSKIN(NGP)
./pkg/aim_v23/phy_suflux_land.F 95 SUFLUX_LAND
      _RL CDENVV(NGP), RDTH, FSLAND
./pkg/aim_v23/phy_suflux_land.F 97 SUFLUX_LAND
      _RL QSAT0(NGP,2)
./pkg/aim_v23/phy_suflux_ocean.F 100 SUFLUX_OCEAN
      CALL SHTORH (0, NGP, Tsurf, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_ocean.F 103 SUFLUX_OCEAN
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_ocean.F 109 SUFLUX_OCEAN
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_ocean.F 58 SUFLUX_OCEAN
      _RL  PSA(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 59 SUFLUX_OCEAN
      _RL  FMASK(NGP), Tsurf(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 60 SUFLUX_OCEAN
      _RL  SSR(NGP), SLRD(NGP) 
./pkg/aim_v23/phy_suflux_ocean.F 61 SUFLUX_OCEAN
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 63 SUFLUX_OCEAN
      _RL  SHF(NGP), EVAP(NGP), SLRU(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 72 SUFLUX_OCEAN
      _RL CDENVV(NGP), RDTH, FSSEA
./pkg/aim_v23/phy_suflux_ocean.F 73 SUFLUX_OCEAN
      _RL QSAT0(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 89 SUFLUX_OCEAN
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_ocean.F 94 SUFLUX_OCEAN
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_post.F 109 SUFLUX_POST
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_post.F 126 SUFLUX_POST
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_post.F 135 SUFLUX_POST
      DO J=1,NGP
./pkg/aim_v23/phy_suflux_post.F 143 SUFLUX_POST
       DO J=1,NGP
./pkg/aim_v23/phy_suflux_post.F 78 SUFLUX_POST
      _RL  FMASK(NGP,3), EMISloc 
./pkg/aim_v23/phy_suflux_post.F 79 SUFLUX_POST
      _RL  TLAND(NGP), TSEA(NGP), TSICE(NGP), dTskin(NGP), SLRD(NGP)
./pkg/aim_v23/phy_suflux_post.F 80 SUFLUX_POST
      _RL  T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_post.F 82 SUFLUX_POST
      _RL  DRAG(NGP,0:3), SHF(NGP,0:3), EVAP(NGP,0:3), SLRup(NGP,3)
./pkg/aim_v23/phy_suflux_post.F 83 SUFLUX_POST
      _RL  SLRU(NGP), TSFC(NGP), TSKIN(NGP)
./pkg/aim_v23/aim_surf_bc.F 133 AIM_SURF_BC
         DO J=1,NGP
./pkg/aim_v23/aim_surf_bc.F 144 AIM_SURF_BC
         DO J=1,NGP
./pkg/aim_v23/aim_surf_bc.F 286 AIM_SURF_BC
        DO J=1,NGP
./pkg/aim_v23/aim_surf_bc.F 294 AIM_SURF_BC
        DO J=1,NGP
./pkg/aim_v23/aim_surf_bc.F 302 AIM_SURF_BC
         DO J=1,NGP
./pkg/aim_v23/aim_surf_bc.F 308 AIM_SURF_BC
         DO J=1,NGP
./pkg/aim_v23/com_physvar.h 100 NO PROCEDURE
      _RL TSR    (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 101 NO PROCEDURE
      _RL SSR    (NGP,0:3,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 102 NO PROCEDURE
      _RL SLR    (NGP,0:3,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 103 NO PROCEDURE
      _RL OLR    (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 106 NO PROCEDURE
      _RL SHF    (NGP,0:3,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 107 NO PROCEDURE
      _RL EVAP   (NGP,0:3,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 108 NO PROCEDURE
      _RL SPEED0 (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 109 NO PROCEDURE
      _RL DRAG   (NGP,0:3,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 121 NO PROCEDURE
      _RL TT_SWclr(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 122 NO PROCEDURE
      _RL TSWclr  (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 123 NO PROCEDURE
      _RL SSWclr  (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 124 NO PROCEDURE
      _RL TT_LWclr(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 125 NO PROCEDURE
      _RL OLWclr  (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 126 NO PROCEDURE
      _RL SLWclr  (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 17 NO PROCEDURE
      _RL TG1    (NGP,NLEV)
./pkg/aim_v23/com_physvar.h 18 NO PROCEDURE
      _RL QG1    (NGP,NLEV)
./pkg/aim_v23/com_physvar.h 21 NO PROCEDURE
      _RL VsurfSq(NGP) 
./pkg/aim_v23/com_physvar.h 29 NO PROCEDURE
      _RL SE   (NGP,NLEV)
./pkg/aim_v23/com_physvar.h 30 NO PROCEDURE
      _RL RH   (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 31 NO PROCEDURE
      _RL QSAT (NGP,NLEV)
./pkg/aim_v23/com_physvar.h 46 NO PROCEDURE
      _RL PSG   (NGP)
./pkg/aim_v23/com_physvar.h 47 NO PROCEDURE
      _RL TS    (NGP,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 48 NO PROCEDURE
      _RL TSKIN (NGP,MAX_NO_THREADS)