Symbol Description Uses
exf_one 27


File Line number Procedure Code
./pkg/exf/exf_set_climsss.F 140 EXF_SET_CLIMSSS 
     &                    (exf_one - fac) * climsss1(i,j,bi,bj) )
./pkg/exf/exf_set_climsalt.F 124 EXF_SET_CLIMSALT 
     &                       (exf_one - fac) * climsalt1(i,j,k,bi,bj)
./pkg/exf/exf_bulkrhn.F 46 NO PROCEDURE 
      exf_BulkRhn = (exf_one - stab)*cstanton_1 + stab*cstanton_2
./pkg/exf/exf_bulkformulae.F 344 EXF_BULKFORMULAE 
     &                   (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 382 EXF_BULKFORMULAE 
     &                     qstar/(exf_one/humid_fac+aqh(i,j,bi,bj)))/
./pkg/exf/exf_bulkformulae.F 390 EXF_BULKFORMULAE 
                  xsq    = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 393 EXF_BULKFORMULAE 
     &                     (exf_one - stable)*
./pkg/exf/exf_bulkformulae.F 394 EXF_BULKFORMULAE 
     &                     (log((exf_one + x*(exf_two + x))*
./pkg/exf/exf_bulkformulae.F 395 EXF_BULKFORMULAE 
     &                     (exf_one + xsq)/8.) - exf_two*atan(x) +
./pkg/exf/exf_bulkformulae.F 397 EXF_BULKFORMULAE 
                  xsq    = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
./pkg/exf/exf_bulkformulae.F 398 EXF_BULKFORMULAE 
                  psixh  = -psim_fac*htol*stable + (exf_one - stable)*
./pkg/exf/exf_bulkformulae.F 399 EXF_BULKFORMULAE 
     &                     exf_two*log((exf_one + xsq)/exf_two)
./pkg/exf/exf_bulkformulae.F 404 EXF_BULKFORMULAE 
                  rd     = rdn/(exf_one - rdn/karman*psimh )
./pkg/exf/exf_bulkformulae.F 417 EXF_BULKFORMULAE 
                  rd     = rdn/(exf_one - rdn/karman*psimh)
./pkg/exf/exf_bulkformulae.F 419 EXF_BULKFORMULAE 
                  rh     = tmpbulk/( exf_one +
./pkg/exf/exf_bulkformulae.F 421 EXF_BULKFORMULAE 
                  re     = cdalton/( exf_one +
./pkg/exf/exf_set_gen.F 193 EXF_SET_GEN 
     &                    (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_climtemp.F 130 EXF_SET_CLIMTEMP 
     &                       (exf_one - fac) * climtemp1(i,j,k,bi,bj)
./pkg/exf/exf_set_uv.F 306 EXF_SET_UV 
     &                       (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 309 EXF_SET_UV 
     &                       (exf_one - fac) * vvec1(i,j,bi,bj) )
./pkg/exf/exf_set_obcs.F 165 EXF_SET_OBCS_YZ 
     &                    (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F 79 EXF_SET_OBCS_XZ 
     &                    (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_constants.h 28 NO PROCEDURE 
      _RL exf_one
./pkg/exf/exf_constants.h 33 NO PROCEDURE 
     &              exf_one  =  1.0d0 ,
./pkg/exf/exf_set_climsst.F 149 EXF_SET_CLIMSST 
     &                    (exf_one - fac) * climsst1(i,j,bi,bj) )