Symbol Description Uses
Q0 near-surface sp. humidity [g/kg](2-dim) 75



File Line number Procedure Code
./pkg/aim/com_physvar.h 85 NO PROCEDURE
     &                USTR, VSTR, SHF, EVAP, T0, Q0, QSAT0,
./pkg/aim/com_physvar.h 99 NO PROCEDURE
      _RL Q0      (NGP,MAX_NO_THREADS)
./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 165 SUFLUX
        Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,NLEVxy(J,myThid))
./pkg/aim/phy_suflux.F 313 SUFLUX
       EVAP(J,1)=CHL*DENVV(J,1)*MIN(1. _d 0,SWAV(J))*(QSAT0(J,1)-Q0(J))
./pkg/aim/phy_suflux.F 318 SUFLUX
       EVAP(J,2) = CHS*DENVV(J,2)*(QSAT0(J,2)-Q0(J))
./pkg/aim/phy_suflux.F 68 SUFLUX
      _RL T0(NGP,2),Q0(NGP),QSAT0(NGP,2), SPEED0(NGP)
./pkg/aim/phy_suflux.F 8 SUFLUX
     *                   DRAG,USTR,VSTR,SHF,EVAP,T0,Q0,QSAT0,SPEED0,
./pkg/aim/phy_driver.F 202 PDRIVER
     &             EVAP(1,1,myThid),T0(1,1,myThid),Q0(1,myThid),
./pkg/ebm/EBM.h 48 NO PROCEDURE
      _RL Q0, Q2, A0, A2, A4
./pkg/ebm/EBM.h 49 NO PROCEDURE
      PARAMETER ( Q0 = 1365., Q2 = -0.482) 
./pkg/ebm/ebm_atmosphere.F 229 EBM_ATMOSPHERE
          SW(j,bj) = 0.25*Q0*(1 + Q2*P2(i,j,bj))*
./pkg/aim_v23/phy_suflux_prep.F 12 SUFLUX_PREP
     O                   SPEED0,DRAG,DENVV,dTskin,T1,T0,Q0,
./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 159 SUFLUX_PREP
        Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,kGrd(J))
./pkg/aim_v23/phy_suflux_prep.F 88 SUFLUX_PREP
      _RL  dTskin(NGP), T0(NGP), Q0(NGP)
./pkg/aim_v23/phy_suflux_land.F 12 SUFLUX_LAND
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_land.F 148 SUFLUX_LAND
        EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 149 SUFLUX_LAND
        Evp0(J) =   Shf0(J)*SWAV(J)*(QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 151 SUFLUX_LAND
     &            + dShf(J)*SWAV(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 155 SUFLUX_LAND
        EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 156 SUFLUX_LAND
        Evp0(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 165 SUFLUX_LAND
        EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 166 SUFLUX_LAND
        Evp0(J) =   Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 168 SUFLUX_LAND
     &            + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 175 SUFLUX_LAND
        EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 176 SUFLUX_LAND
        Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 81 SUFLUX_LAND
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 104 SUFLUX_OCEAN
        EVAP(J) = CDENVV(J)*(QSAT0(J)-Q0(J))
./pkg/aim_v23/phy_suflux_ocean.F 12 SUFLUX_OCEAN
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_ocean.F 61 SUFLUX_OCEAN
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_post.F 12 SUFLUX_POST
     I                   T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_post.F 80 SUFLUX_POST
      _RL  T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/com_physvar.h 45 NO PROCEDURE
      COMMON /PHYGR3/      TS, TSKIN, T0, Q0, CLOUDC, CLTOP
./pkg/aim_v23/com_physvar.h 51 NO PROCEDURE
      _RL Q0    (NGP,MAX_NO_THREADS)
./pkg/aim_v23/phy_suflux_sice.F 12 SUFLUX_SICE
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_sice.F 155 SUFLUX_SICE
        EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_sice.F 156 SUFLUX_SICE
        Evp0(J) =   Shf0(J)*(QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_sice.F 158 SUFLUX_SICE
     &            + dShf(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_sice.F 162 SUFLUX_SICE
        EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_sice.F 163 SUFLUX_SICE
        Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_sice.F 80 SUFLUX_SICE
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/aim_diagnostics.F 132 AIM_DIAGNOSTICS
       CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,Q0(1,myThid),
./pkg/aim_v23/aim_diagnostics.F 201 AIM_DIAGNOSTICS
     &                          + Q0(I2,myThid)*DDTT
./pkg/aim_v23/aim_diagnostics.F 289 AIM_DIAGNOSTICS
        CALL DIAGNOSTICS_FILL( Q0(1,myThid),
./pkg/aim_v23/phy_driver.F 243 PHY_DRIVER
     O             dTskin,T1s,T0(1,myThid),Q0(1,myThid),
./pkg/aim_v23/phy_driver.F 250 PHY_DRIVER
     I             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 269 PHY_DRIVER
     O             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 278 PHY_DRIVER
     I             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 304 PHY_DRIVER
     I             T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/fizhi/fizhi_lsm.F 1008 FLUXES
     &   (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA)
./pkg/fizhi/fizhi_lsm.F 1041 FLUXES
        DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / 
./pkg/fizhi/fizhi_lsm.F 1053 FLUXES
          Q0X=Q0-ALHM*SNOW(CHNO)/DTSTEP
./pkg/fizhi/fizhi_lsm.F 1060 FLUXES
            SMELT(CHNO)=(Q0-Q0SNOW)/ALHM
./pkg/fizhi/fizhi_lsm.F 1073 FLUXES
        DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 1084 FLUXES
          Q0X=Q0-ALHM*SNLEFT/DTSTEP
./pkg/fizhi/fizhi_lsm.F 1090 FLUXES
            SMELT(CHNO)=(Q0-Q0SNOW)/ALHM
./pkg/fizhi/fizhi_lsm.F 858 FLUXES
      _RL     HLWTC,  CDEEPS,      Q0,  RHOAIR,   CONST,  DHLWTC,
./pkg/fizhi/fizhi_lsm.F 886 FLUXES
      Q0 =  SWNET(ChNo) +
./pkg/fizhi/fizhi_lsm.F 893 FLUXES
          STRDG3(ChNo)=Q0/A11
./pkg/fizhi/fizhi_lsm.F 930 FLUXES
          DEA = ( Q0*A21 - A11*F0 ) / ( DETERM * A11*A22 )
./pkg/fizhi/fizhi_lsm.F 931 FLUXES
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 946 FLUXES
          DEA = ( Q0*A21 - A11*F0 ) / ( A12*A21 - A11*A22 )
./pkg/fizhi/fizhi_lsm.F 947 FLUXES
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 970 FLUXES
        Q0X=Q0-ALHM*SNLEFT/DTSTEP
./pkg/fizhi/fizhi_lsm.F 984 FLUXES
          SMELT(CHNO)=(Q0-Q0SNOW)/ALHM
./pkg/seaice/growth.F 220 GROWTH
          GHEFF(I,J)=-SEAICE_deltaTtherm*FHEFF(I,J,bi,bj)*Q0
./pkg/seaice/growth.F 221 GROWTH
          GAREA(I,J)=SEAICE_deltaTtherm*FO(I,J,bi,bj)*Q0
./pkg/seaice/growth.F 240 GROWTH
     &               FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj)
./pkg/seaice/growth.F 246 GROWTH
     &         FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm
./pkg/seaice/growth.F 41 GROWTH
      _RL  TBC, salinity_ice, SDF, Q0, QS
./pkg/seaice/growth.F 58 GROWTH
      Q0=1.0D-06/302.0 _d +00    ! INVERSE HEAT OF FUSION OF ICE