Symbol Description Uses
expmn 19



File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1229 SOLIR
      _RL expmn
./pkg/fizhi/fizhi_swrad.F 1422 SOLIR
             td1t(i,j)=expmn(-tauto*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 1423 SOLIR
             ts1t(i,j)=expmn(-1.66*tauto)
./pkg/fizhi/fizhi_swrad.F 1980 DELEDD
      _RL expmn
./pkg/fizhi/fizhi_swrad.F 2013 DELEDD
                td  = expmn(-taup*csm)
./pkg/fizhi/fizhi_swrad.F 2056 DELEDD
                st2 = expmn(-akk*taup)
./pkg/fizhi/fizhi_swrad.F 2104 SAGPOL
      _RL expmn
./pkg/fizhi/fizhi_swrad.F 2124 SAGPOL
             emt = expmn(-ttt)
./pkg/fizhi/fizhi_swrad.F 2137 SAGPOL
      function expmn(fin)
./pkg/fizhi/fizhi_swrad.F 2143 SAGPOL
      _RL  fin,expmn
./pkg/fizhi/fizhi_swrad.F 2151 SAGPOL
      expmn = ((e4*fin + e3)*fin+e2)*fin+e1
./pkg/fizhi/fizhi_swrad.F 2152 SAGPOL
      expmn = expmn * expmn
./pkg/fizhi/fizhi_swrad.F 2153 SAGPOL
      expmn = one / (expmn * expmn)
./pkg/fizhi/fizhi_swrad.F 767 SORAD
      _RL expmn
./pkg/fizhi/fizhi_swrad.F 886 SORAD
           df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x)))