Symbol Description Uses
richsn 9



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 371 GWDD
      _RL richsn,crifro,crif2,fro2,coef
./pkg/fizhi/fizhi_gwdrag.F 515 GWDD
         richsn = delz*delz*vsqua/delve2
./pkg/fizhi/fizhi_gwdrag.F 517 GWDD
         richsn = 99999.0
./pkg/fizhi/fizhi_gwdrag.F 520 GWDD
        if( richsn.le.0.25 ) then
./pkg/fizhi/fizhi_gwdrag.F 528 GWDD
        crifro = 1.0 - 0.25/richsn
./pkg/fizhi/fizhi_gwdrag.F 603 GWDD
         richsn = delz*delz*vsqua/delve2
./pkg/fizhi/fizhi_gwdrag.F 605 GWDD
         richsn = 99999.0
./pkg/fizhi/fizhi_gwdrag.F 608 GWDD
        if( richsn.le.0.25 ) then
./pkg/fizhi/fizhi_gwdrag.F 617 GWDD
        crifro = 1.0 - 0.25/richsn