Symbol Description Uses
stable 70


File Line number Procedure Code
./pkg/exf/exf_bulkformulae.F 207 EXF_BULKFORMULAE 
      _RL stable                ! = 1 if stable ; = 0 if unstable
./pkg/exf/exf_bulkformulae.F 314 EXF_BULKFORMULAE 
           stable = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/exf/exf_bulkformulae.F 340 EXF_BULKFORMULAE 
           rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/exf/exf_bulkformulae.F 392 EXF_BULKFORMULAE 
            stable = exf_half + sign(exf_half, huol)
./pkg/exf/exf_bulkformulae.F 404 EXF_BULKFORMULAE 
             psimh  = -psim_fac*huol*stable
./pkg/exf/exf_bulkformulae.F 405 EXF_BULKFORMULAE 
     &               +(exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 419 EXF_BULKFORMULAE 
            psixh = -psim_fac*htol*stable + (exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 458 EXF_BULKFORMULAE 
            rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/kpp/kpp_routines.F 1296 BLMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 1329 BLMIX 
      _RL stable(imt)
./pkg/kpp/kpp_routines.F 1372 BLMIX 
         sigma(i) = stable(i) * 1.0 + (1. - stable(i)) * epsilon
./pkg/kpp/kpp_routines.F 1425 BLMIX 
         f1 = stable(i) * conc1 * bfsfc(i) /
./pkg/kpp/kpp_routines.F 1468 BLMIX 
            sigma(i) = stable(i)*sig + (1.-stable(i))*min(sig,epsilon)
./pkg/kpp/kpp_routines.F 149 KPPMIX 
      _RL stable (imt         )
./pkg/kpp/kpp_routines.F 1512 BLMIX 
            ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar)
./pkg/kpp/kpp_routines.F 1524 BLMIX 
         sigma(i) = stable(i) * sig
./pkg/kpp/kpp_routines.F 1525 BLMIX 
     &            + (1. - stable(i)) * min(sig,epsilon)
./pkg/kpp/kpp_routines.F 218 KPPMIX 
     O     , hbl, bfsfc, stable, casea, kbl, Rib, sigma
./pkg/kpp/kpp_routines.F 231 KPPMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 306 BLDEPTH 
     O     , hbl, bfsfc, stable, casea, kbl, Rib, sigma
./pkg/kpp/kpp_routines.F 390 BLDEPTH 
      _RL stable (imt)
./pkg/kpp/kpp_routines.F 526 BLDEPTH 
            stable(i) = p5 + sign(p5,bfsfc(i))
./pkg/kpp/kpp_routines.F 527 BLDEPTH 
            sigma(i) = stable(i) + (1. - stable(i)) * epsilon
./pkg/kpp/kpp_routines.F 687 BLDEPTH 
         stable(i) = p5 + sign( p5, bfsfc(i) )
./pkg/kpp/kpp_routines.F 711 BLDEPTH 
            hlimit = stable(i) * min(hekman,hmonob)
./pkg/kpp/kpp_routines.F 712 BLDEPTH 
     &             + (stable(i)-1.) * zgrid(Nr)
./pkg/kpp/kpp_routines.F 810 BLDEPTH 
         stable(i) = p5 + sign( p5, bfsfc(i) )
./pkg/thsice/thsice_get_exf.F 118 THSICE_GET_EXF 
      _RL stable             ! = 1 if stable ; = 0 if unstable
./pkg/thsice/thsice_get_exf.F 309 THSICE_GET_EXF 
          stable     = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/thsice/thsice_get_exf.F 320 THSICE_GET_EXF 
          rhn        = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/thsice/thsice_get_exf.F 366 THSICE_GET_EXF 
           stable = exf_half + SIGN(exf_half, huol)
./pkg/thsice/thsice_get_exf.F 377 THSICE_GET_EXF 
           psimh  = -psim_fac*huol*stable
./pkg/thsice/thsice_get_exf.F 378 THSICE_GET_EXF 
     &             + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 389 THSICE_GET_EXF 
           psixh  = -psim_fac*htol*stable
./pkg/thsice/thsice_get_exf.F 390 THSICE_GET_EXF 
     &            + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 409 THSICE_GET_EXF 
           rhn    = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/bulk_force/bulkf_formula_lanl.F 170 BULKF_FORMULA_LANL 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/bulk_force/bulkf_formula_lanl.F 173 BULKF_FORMULA_LANL 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 177 BULKF_FORMULA_LANL 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 90 BULKF_FORMULA_LANL 
      _RL stable             ! = 1 if stable ; = 0 if unstable
./pkg/bulk_force/bulkf_formula_lay.F 173 BULKF_FORMULA_LAY 
              stable = half + SIGN(half, delth)
./pkg/bulk_force/bulkf_formula_lay.F 176 BULKF_FORMULA_LAY 
              rhn = stable*cStantonS + (one-stable)*cStantonU
./pkg/bulk_force/bulkf_formula_lay.F 193 BULKF_FORMULA_LAY 
                 stable = half + SIGN(half, huol)
./pkg/bulk_force/bulkf_formula_lay.F 196 BULKF_FORMULA_LAY 
                 psimh = -5. _d 0*huol*stable
./pkg/bulk_force/bulkf_formula_lay.F 197 BULKF_FORMULA_LAY 
     &             + (one-stable)*
./pkg/bulk_force/bulkf_formula_lay.F 202 BULKF_FORMULA_LAY 
                 psixh  = -5. _d 0*htol*stable
./pkg/bulk_force/bulkf_formula_lay.F 203 BULKF_FORMULA_LAY 
     &             + (one-stable)*( two*LOG(half*(one+xsq)) )
./pkg/bulk_force/bulkf_formula_lay.F 212 BULKF_FORMULA_LAY 
                 rhn = stable*cStantonS + (one-stable)*cStantonU
./pkg/bulk_force/bulkf_formula_lay.F 99 BULKF_FORMULA_LAY 
      _RL stable             ! = 1 if stable ; = 0 if unstable
./pkg/cheapaml/cheapaml_lanl_flux.F 168 CHEAPAML_LANL_FLUX 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 171 CHEAPAML_LANL_FLUX 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml_lanl_flux.F 175 CHEAPAML_LANL_FLUX 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml_lanl_flux.F 210 CHEAPAML_LANL_FLUX 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml_lanl_flux.F 215 CHEAPAML_LANL_FLUX 
                 psx100  = -5. _d 0*z100ol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml_lanl_flux.F 72 CHEAPAML_LANL_FLUX 
      _RL huol,stable,xsq,x,psimh,psixh