Symbol Description Uses
crif2 9



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 371 GWDD
      _RL richsn,crifro,crif2,fro2,coef
./pkg/fizhi/fizhi_gwdrag.F 529 GWDD
        crif2 = crifro*crifro
./pkg/fizhi/fizhi_gwdrag.F 530 GWDD
        if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2)
./pkg/fizhi/fizhi_gwdrag.F 532 GWDD
        if( fro2.gt.crif2 ) then
./pkg/fizhi/fizhi_gwdrag.F 533 GWDD
         tensio(i,L) = crif2/fro2*tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 618 GWDD
        crif2 = crifro*crifro
./pkg/fizhi/fizhi_gwdrag.F 620 GWDD
        if( fro2.ge.crif2 ) then
./pkg/fizhi/fizhi_gwdrag.F 621 GWDD
         tensio(i,L) = crif2/fro2*tensio(i,L-1)