Symbol Description Uses
delve2 7



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 370 GWDD
      _RL vaisd,velco,deluu,delvv,delve2,delz,vsqua
./pkg/fizhi/fizhi_gwdrag.F 508 GWDD
        delve2 = ( deluu*deluu + delvv*delvv )
./pkg/fizhi/fizhi_gwdrag.F 512 GWDD
        if( delve2.ne.0.0 ) then
./pkg/fizhi/fizhi_gwdrag.F 515 GWDD
         richsn = delz*delz*vsqua/delve2
./pkg/fizhi/fizhi_gwdrag.F 597 GWDD
        delve2 = ( deluu*deluu + delvv*delvv )
./pkg/fizhi/fizhi_gwdrag.F 601 GWDD
        if( delve2.ne.0.0 ) then
./pkg/fizhi/fizhi_gwdrag.F 603 GWDD
         richsn = delz*delz*vsqua/delve2