Symbol Description Uses
PSA norm. surface pressure [p/p0] (2-dim) 46


File Line number Procedure Code
./pkg/aim_v23/aim_dyn2aim.F 101 AIM_DYN2AIM 
         PSA(I2) = 1.
./pkg/aim_v23/aim_dyn2aim.F 10 AIM_DYN2AIM 
     O           TA, QA, ThA, Vsurf2, PSA, dpFac,
./pkg/aim_v23/aim_dyn2aim.F 257 AIM_DYN2AIM 
          WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(k))*WVI(k-1,1)
./pkg/aim_v23/aim_dyn2aim.F 56 AIM_DYN2AIM 
      _RL Vsurf2(NGP), PSA(NGP), dpFac(NGP,NLEV)
./pkg/aim_v23/aim_dyn2aim.F 99 AIM_DYN2AIM 
         PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po
./pkg/aim_v23/phy_convmf.F 149 CONVMF 
           ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2
./pkg/aim_v23/phy_convmf.F 155 CONVMF 
           ENTR_PS(J,K) = ENTR(K)*SENTR*PSA(J)
./pkg/aim_v23/phy_convmf.F 192 CONVMF 
        IF (QA(J,Ktmp).LT.QATHR(J).OR.PSA(J).LT.PSMIN)
./pkg/aim_v23/phy_convmf.F 50 CONVMF 
      _RL PSA(NGP), SE(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim_v23/phy_convmf.F 6 CONVMF 
      SUBROUTINE CONVMF (PSA,dpFac,SE,QA,QSAT,
./pkg/aim_v23/phy_convmf.F 86 CONVMF 
        FPSA = MIN(1. _d 0 ,(PSA(J)-PSMIN)*RDPS)
./pkg/aim_v23/phy_lscond.F 45 LSCOND 
      _RL PSA(NGP), dpFac(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim_v23/phy_lscond.F 6 LSCOND 
      SUBROUTINE LSCOND (PSA,dpFac,QA,QSAT,
./pkg/aim_v23/phy_lscond.F 73 LSCOND 
        PSA2(J)    = PSA(J)*PSA(J)
./pkg/aim_v23/phy_radiat.F 158 RADSW 
      SUBROUTINE RADSW (PSA,dpFac,QA,RH,ALB,
./pkg/aim_v23/phy_radiat.F 199 RADSW 
      _RL PSA(NGP),dpFac(NGP,NLEV),QA(NGP,NLEV),RH(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 330 RADSW 
         ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2
./pkg/aim_v23/phy_radiat.F 347 RADSW 
       ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2
./pkg/aim_v23/phy_radiat.F 371 RADSW 
        STRATC(J)=STRATZ(J)*PSA(J)
./pkg/aim_v23/phy_radiat.F 379 RADSW 
        FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J))
./pkg/aim_v23/phy_snow_precip.F 10 SNOW_PRECIP 
     I                   PSA, dpFac, ThA,
./pkg/aim_v23/phy_snow_precip.F 59 SNOW_PRECIP 
      _RL PSA(NGP), dpFac(NGP,NLEV), ThA(NGP,NLEV)
./pkg/aim_v23/phy_snow_precip.F 84 SNOW_PRECIP 
        T1(J) = ThA(J,kGrd(J))*(PSA(J)**kappa)
./pkg/aim_v23/phy_suflux_land.F 10 SUFLUX_LAND 
     I                   PSA, FMASK, EMISloc,
./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 78 SUFLUX_LAND 
      _RL  PSA(NGP), FMASK(NGP), EMISloc
./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 10 SUFLUX_OCEAN 
     I                   PSA, FMASK,
./pkg/aim_v23/phy_suflux_ocean.F 58 SUFLUX_OCEAN 
      _RL  PSA(NGP)
./pkg/aim_v23/phy_suflux_prep.F 10 SUFLUX_PREP 
     I                   PSA,TA,QA,RH,ThA,Vsurf2,WVS,CLAT,FOROG,
./pkg/aim_v23/phy_suflux_prep.F 137 SUFLUX_PREP 
        T1(J) = ThA(J,Ktmp)*(PSA(J)**kappa)
./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 173 SUFLUX_PREP 
        DENVV(J)=(PRD*PSA(J)/T0(J))*SPEED0(J)
./pkg/aim_v23/phy_suflux_prep.F 181 SUFLUX_PREP 
        dTskin(J)=CTDAY*CLAT(J)*SSR(J)*PSA(J)
./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_sice.F 10 SUFLUX_SICE 
     I                   PSA, FMASK, EMISloc,
./pkg/aim_v23/phy_suflux_sice.F 148 SUFLUX_SICE 
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_sice.F 150 SUFLUX_SICE 
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_sice.F 78 SUFLUX_SICE 
      _RL  PSA(NGP), FMASK(NGP), EMISloc
./pkg/bulk_force/bulkf_formula_aim.F 113 BULKF_FORMULA_AIM 
      _RL PSA(NGP)
./pkg/bulk_force/bulkf_formula_aim.F 125 BULKF_FORMULA_AIM 
      PSA(1) = 1. _d 0
./pkg/bulk_force/bulkf_formula_aim.F 145 BULKF_FORMULA_AIM 
        DENVV(J)=(PRD*PSA(J)/T0(J))*Vsurf(J)
./pkg/bulk_force/bulkf_formula_aim.F 182 BULKF_FORMULA_AIM 
      CALL BULKF_SH2RH_AIM( 2, NGP, TSKIN, PSA, 1. _d 0,
./pkg/bulk_force/bulkf_formula_aim.F 184 BULKF_FORMULA_AIM 
      CALL BULKF_SH2RH_AIM( 0, NGP, TSFC,  PSA, 1. _d 0,