Symbol Description Uses
dq 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2679 CTEI
      _RL    getcon,cp,alhl,elocp,cpoel,t,p,s,qs,dqsdt,dq
./pkg/fizhi/fizhi_moist.F 2689 CTEI
          dq = q(i,L)+cldwat(i,L)-q(i,L-1)-cldwat(i,L-1)
./pkg/fizhi/fizhi_moist.F 2690 CTEI
      if( dq.eq.0.0 ) dq = 1.0e-20
./pkg/fizhi/fizhi_moist.F 2691 CTEI
      k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq