Symbol Description Uses
tmpbulk 22


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 176 THSICE_GET_EXF 
          tmpbulk= qsat_fac*EXP(-qsat_exp/Tsf)
./pkg/thsice/thsice_get_exf.F 177 THSICE_GET_EXF 
          ssq    = tmpbulk/atmrho
./pkg/thsice/thsice_get_exf.F 196 THSICE_GET_EXF 
           tmpbulk= cdrag_1/wsm + cdrag_2 + cdrag_3*wsm
./pkg/thsice/thsice_get_exf.F 197 THSICE_GET_EXF 
           rdn    = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F 261 THSICE_GET_EXF 
            tmpbulk= cdrag_1/usm + cdrag_2 + cdrag_3*usm
./pkg/thsice/thsice_get_exf.F 262 THSICE_GET_EXF 
            rdn    = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F 99 THSICE_GET_EXF 
      _RL tmpbulk
./pkg/exf/exf_bulkformulae.F 209 EXF_BULKFORMULAE 
      _RL tmpbulk
./pkg/exf/exf_bulkformulae.F 290 EXF_BULKFORMULAE 
           tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf)
./pkg/exf/exf_bulkformulae.F 291 EXF_BULKFORMULAE 
           ssq = saltsat*tmpbulk/atmrho
./pkg/exf/exf_bulkformulae.F 309 EXF_BULKFORMULAE 
            tmpbulk    = exf_scal_BulkCdn *
./pkg/exf/exf_bulkformulae.F 311 EXF_BULKFORMULAE 
            rdn(i,j)   = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F 367 EXF_BULKFORMULAE 
            tmpbulk = MIN(abs(huol),10. _d 0)
./pkg/exf/exf_bulkformulae.F 368 EXF_BULKFORMULAE 
            huol   = SIGN(tmpbulk , huol)
./pkg/exf/exf_bulkformulae.F 426 EXF_BULKFORMULAE 
             tmpbulk  = exf_scal_BulkCdn *
./pkg/exf/exf_bulkformulae.F 428 EXF_BULKFORMULAE 
             rdn(i,j)   = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F 491 EXF_BULKFORMULAE 
           tmpbulk =  tau(i,j)*rd(i,j)
./pkg/exf/exf_bulkformulae.F 492 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 493 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 513 EXF_BULKFORMULAE 
          tmpbulk = exf_scal_BulkCdn *
./pkg/exf/exf_bulkformulae.F 515 EXF_BULKFORMULAE 
          ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 517 EXF_BULKFORMULAE 
          vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*