Symbol Description Uses
exf_one 46


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 193 THSICE_GET_EXF 
     &            (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 200 THSICE_GET_EXF 
           rhn    = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/thsice/thsice_get_exf.F 226 THSICE_GET_EXF 
     &                qstar/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 240 THSICE_GET_EXF 
            xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 243 THSICE_GET_EXF 
     &             + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 244 THSICE_GET_EXF 
     &              *( LOG( (exf_one + exf_two*x + xsq)
./pkg/thsice/thsice_get_exf.F 245 THSICE_GET_EXF 
     &                     *(exf_one+xsq)*0.125 _d 0 )
./pkg/thsice/thsice_get_exf.F 250 THSICE_GET_EXF 
            xsq    = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 252 THSICE_GET_EXF 
     &             + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 253 THSICE_GET_EXF 
     &              *exf_two*LOG( exf_half*(exf_one+xsq) )
./pkg/thsice/thsice_get_exf.F 256 THSICE_GET_EXF 
            usn    = ws/( exf_one + rdn*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 264 THSICE_GET_EXF 
            rhn    = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/thsice/thsice_get_exf.F 267 THSICE_GET_EXF 
            rd     = rdn/( exf_one + rdn*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 268 THSICE_GET_EXF 
            rh     = rhn/( exf_one + rhn*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F 269 THSICE_GET_EXF 
            re     = ren/( exf_one + ren*(ztln-psixh)/karman )
./pkg/exf/EXF_CONSTANTS.h 29 NO PROCEDURE 
      _RL exf_one
./pkg/exf/EXF_CONSTANTS.h 34 NO PROCEDURE 
     &              exf_one  =  1.0 _d 0 ,
./pkg/exf/exf_bulkformulae.F 323 EXF_BULKFORMULAE 
           rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/exf/exf_bulkformulae.F 362 EXF_BULKFORMULAE 
     &           (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 364 EXF_BULKFORMULAE 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 383 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 386 EXF_BULKFORMULAE 
             xsq    = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 390 EXF_BULKFORMULAE 
     &               +(exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 391 EXF_BULKFORMULAE 
     &                ( LOG( (exf_one + exf_two*x + xsq)*
./pkg/exf/exf_bulkformulae.F 392 EXF_BULKFORMULAE 
     &                       (exf_one+xsq)*.125 _d 0 )
./pkg/exf/exf_bulkformulae.F 399 EXF_BULKFORMULAE 
            xsq   = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 402 EXF_BULKFORMULAE 
            xsq   = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
./pkg/exf/exf_bulkformulae.F 404 EXF_BULKFORMULAE 
            psixh = -psim_fac*htol*stable + (exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 405 EXF_BULKFORMULAE 
     &               ( exf_two*LOG(exf_half*(exf_one+xsq)) )
./pkg/exf/exf_bulkformulae.F 414 EXF_BULKFORMULAE 
             usn   = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F 421 EXF_BULKFORMULAE 
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 430 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp)
./pkg/exf/exf_bulkformulae.F 432 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 442 EXF_BULKFORMULAE 
            rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/exf/exf_bulkformulae.F 446 EXF_BULKFORMULAE 
            rh = rhn/(exf_one + rhn*(ztln-psixh)/karman)
./pkg/exf/exf_bulkformulae.F 447 EXF_BULKFORMULAE 
            re = ren/(exf_one + ren*(ztln-psixh)/karman)
./pkg/exf/exf_set_gen.F 200 EXF_SET_GEN 
     &              (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_obcs.F 105 EXF_SET_OBCS_XZ 
     &                    (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_set_obcs.F 208 EXF_SET_OBCS_YZ 
     &                    (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F 309 EXF_SET_OBCS_X 
     &                 (exf_one - fac) * obcs_x_1(i,bi,bj)
./pkg/exf/exf_set_obcs.F 408 EXF_SET_OBCS_Y 
     &                 (exf_one - fac) *obcs_y_1(j,bi,bj)
./pkg/exf/exf_set_runoff.F 149 EXF_SET_RUNOFF 
     &              (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 282 EXF_SET_UV 
     &                (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 285 EXF_SET_UV 
     &                (exf_one - fac) * vvec1(i,j,bi,bj) )