Symbol Description Uses
dcom 4



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 2197 COMEXPS
      subroutine COMEXPS(ib,m,n,np,dcom,dt,comexp)
./pkg/fizhi/fizhi_lwrad.F 2217 COMEXPS
      _RL dcom(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2237 COMEXPS
           xc=dcom(i,j,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2251 COMEXPS
           xc=dcom(i,j,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,j,k))*dt(i,j,k))