Symbol Description Uses
exf_one 53


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 281 THSICE_GET_EXF 
     &         (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 293 THSICE_GET_EXF 
          rhn        = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/thsice/thsice_get_exf.F 323 THSICE_GET_EXF 
     &          (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 325 THSICE_GET_EXF 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 341 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 344 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 348 THSICE_GET_EXF 
     &             + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 349 THSICE_GET_EXF 
     &             *( LOG( (exf_one + exf_two*x + xsq)
./pkg/thsice/thsice_get_exf.F 350 THSICE_GET_EXF 
     &                    *(exf_one+xsq)*0.125 _d 0 )
./pkg/thsice/thsice_get_exf.F 354 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 357 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - htol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 360 THSICE_GET_EXF 
     &            + (exf_one-stable)
./pkg/thsice/thsice_get_exf.F 361 THSICE_GET_EXF 
     &              *exf_two*LOG( exf_half*(exf_one+xsq) )
./pkg/thsice/thsice_get_exf.F 367 THSICE_GET_EXF 
     &           /( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 370 THSICE_GET_EXF 
           usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/thsice/thsice_get_exf.F 379 THSICE_GET_EXF 
           rhn    = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/thsice/thsice_get_exf.F 383 THSICE_GET_EXF 
           rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 385 THSICE_GET_EXF 
           rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh )
./pkg/thsice/thsice_get_exf.F 387 THSICE_GET_EXF 
           rh(i,j)= rhn/( exf_one + rhn*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F 388 THSICE_GET_EXF 
           re(i,j)= 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 324 EXF_BULKFORMULAE 
           rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/exf/exf_bulkformulae.F 363 EXF_BULKFORMULAE 
     &           (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 365 EXF_BULKFORMULAE 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 384 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 387 EXF_BULKFORMULAE 
             xsq    = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 391 EXF_BULKFORMULAE 
     &               +(exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 392 EXF_BULKFORMULAE 
     &                ( LOG( (exf_one + exf_two*x + xsq)*
./pkg/exf/exf_bulkformulae.F 393 EXF_BULKFORMULAE 
     &                       (exf_one+xsq)*.125 _d 0 )
./pkg/exf/exf_bulkformulae.F 402 EXF_BULKFORMULAE 
            xsq   = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 405 EXF_BULKFORMULAE 
            xsq   = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
./pkg/exf/exf_bulkformulae.F 407 EXF_BULKFORMULAE 
            psixh = -psim_fac*htol*stable + (exf_one-stable)*
./pkg/exf/exf_bulkformulae.F 408 EXF_BULKFORMULAE 
     &               ( exf_two*LOG(exf_half*(exf_one+xsq)) )
./pkg/exf/exf_bulkformulae.F 417 EXF_BULKFORMULAE 
             usn   = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F 424 EXF_BULKFORMULAE 
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 433 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp)
./pkg/exf/exf_bulkformulae.F 435 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 445 EXF_BULKFORMULAE 
            rhn = (exf_one-stable)*cstanton_1 + stable*cstanton_2
./pkg/exf/exf_bulkformulae.F 449 EXF_BULKFORMULAE 
            rh = rhn/(exf_one + rhn*(ztln-psixh)/karman)
./pkg/exf/exf_bulkformulae.F 450 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) )