Symbol Description Uses
p0 surface pressure in mb 47



File Line number Procedure Code
./pkg/kpp/kpp_calc.F 150 KPP_CALC
      _RL        p0    , p5    , p25     , p125      , p0625
./pkg/kpp/kpp_calc.F 151 KPP_CALC
      parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 )
./pkg/kpp/kpp_calc.F 343 KPP_CALC
                  dbloc(i,j,k) = p0
./pkg/kpp/kpp_calc.F 344 KPP_CALC
                  ghat(i,j,k)  = p0
./pkg/kpp/kpp_calc.F 345 KPP_CALC
                  Ritop(i,j,k) = p0
./pkg/kpp/kpp_calc.F 457 KPP_CALC
         shsq(i,j,k) = p0
./pkg/kpp/kpp_forcing_surf.F 126 KPP_FORCING_SURF
      _RL        p0    , p5    , p125
./pkg/kpp/kpp_forcing_surf.F 127 KPP_FORCING_SURF
      PARAMETER( p0=0.0, p5=0.5, p125=0.125 )
./pkg/kpp/kpp_forcing_surf.F 167 KPP_FORCING_SURF
            ustar(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F 168 KPP_FORCING_SURF
            bo   (I,J) = p0
./pkg/kpp/kpp_forcing_surf.F 169 KPP_FORCING_SURF
            bosol(I,J) = p0
./pkg/kpp/kpp_forcing_surf.F 172 KPP_FORCING_SURF
               boplume(I,J,k) = p0
./pkg/kpp/kpp_forcing_surf.F 174 KPP_FORCING_SURF
            boplume(I,J,Nrp1) = p0
./pkg/kpp/kpp_forcing_surf.F 282 KPP_FORCING_SURF
         dVsq(i,j,k) = p0
./pkg/kpp/kpp_forcing_surf.F 315 KPP_FORCING_SURF
         zRef(i,j) = p0
./pkg/kpp/kpp_routines.F 1154 Z121
      _RL         p0      , p25       , p5      , p2
./pkg/kpp/kpp_routines.F 1155 Z121
      parameter ( p0 = 0.0, p25 = 0.25, p5 = 0.5, p2 = 2.0 )
./pkg/kpp/kpp_routines.F 1157 Z121
      KRi_range(Nrp1) = p0
./pkg/kpp/kpp_routines.F 1244 SMOOTH_HORIZ
      _RL        p0    , p5    , p25     , p125      , p0625
./pkg/kpp/kpp_routines.F 1245 SMOOTH_HORIZ
      parameter( p0=0.0, p5=0.5, p25=0.25, p125=0.125, p0625=0.0625 )
./pkg/kpp/kpp_routines.F 1361 BLMIX
      _RL    p0    , eins
./pkg/kpp/kpp_routines.F 1362 BLMIX
      parameter (p0=0.0, eins=1.0)
./pkg/kpp/kpp_routines.F 1446 BLMIX
         dat1m(i) = min(dat1m(i),p0)
./pkg/kpp/kpp_routines.F 1447 BLMIX
         dat1s(i) = min(dat1s(i),p0)
./pkg/kpp/kpp_routines.F 1448 BLMIX
         dat1t(i) = min(dat1t(i),p0)
./model/src/gsw_teos10.F 53 NO PROCEDURE
      _RL s1, p0, cp0 
./model/src/gsw_teos10.F 65 NO PROCEDURE
      p0 = 0. _d 0
./pkg/bulk_force/bulkf_formula_lanl.F 107 BULKF_FORMULA_LANL
      _RL p0                 ! reference sea-level atmospheric pressure [mb]
./pkg/bulk_force/bulkf_formula_lanl.F 121 BULKF_FORMULA_LANL
      DATA   p0 / 1013. _d 0 /
./pkg/bulk_force/bulkf_formula_lanl.F 151 BULKF_FORMULA_LANL
              ssq = ssq0*exp( lath*(ssq1-ssq2/Tsf) ) / p0
./pkg/cheapaml/CHEAPAML.h 101 NO PROCEDURE
      _RL    xphaseinit, gamma_blk, humid_fac, p0
./pkg/cheapaml/CHEAPAML.h 87 NO PROCEDURE
     &       xphaseinit, gamma_blk, humid_fac, p0,
./pkg/cheapaml/cheapaml.F 477 CHEAPAML
            pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts)
./pkg/cheapaml/cheapaml.F 482 CHEAPAML
              dm=100.*(p0-pt)*recip_gravity
./pkg/cheapaml/cheapaml_coare3_flux.F 104 CHEAPAML_COARE3_FLUX
      ssqt=ssq0*EXP( lath*(ssq1-ssq2/tta) ) / p0
./pkg/cheapaml/cheapaml_coare3_flux.F 246 CHEAPAML_COARE3_FLUX
     &         * qs*p0/(p0 -0.378 _d 0*es)
./pkg/cheapaml/cheapaml_coare3_flux.F 86 CHEAPAML_COARE3_FLUX
      es = (1.0007 _d 0 + 3.46 _d -6*p0)*6.1121 _d 0
./pkg/cheapaml/cheapaml_coare3_flux.F 90 CHEAPAML_COARE3_FLUX
      qs = 0.62197 _d 0*es/(p0 -0.378 _d 0*es)
./pkg/cheapaml/cheapaml_fields_load.F 492 CHEAPAML_FIELDS_LOAD
              ssqa = ssq0*EXP( lath*(ssq1-ssq2/local)) / p0
./pkg/cheapaml/cheapaml_init_varia.F 134 CHEAPAML_INIT_VARIA
             ssqa = ssq0*EXP( lath*(ssq1-ssq2/local) ) / p0
./pkg/cheapaml/cheapaml_lanl_flux.F 133 CHEAPAML_LANL_FLUX
        pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas)
./pkg/cheapaml/cheapaml_lanl_flux.F 137 CHEAPAML_LANL_FLUX
              ssq= ssq0*exp( lath*(ssq1-ssq2/toa) ) / p0
./pkg/cheapaml/cheapaml_readparms.F 133 CHEAPAML_READPARMS
      p0=1000. _d 0
./pkg/cheapaml/cheapaml_readparms.F 40 CHEAPAML_READPARMS
     &   xphaseinit,gamma_blk,humid_fac,p0,
./pkg/ctrl/ctrl_smooth.F 33 CTRL_SMOOTH
      _RL        p0    , p5    , p25     , p125      , p0625
./pkg/ctrl/ctrl_smooth.F 34 CTRL_SMOOTH
      parameter( p0=0. _d 0 , p5=0.5 _d 0 , p25=0.25 _d 0 )