Symbol Description Uses
speed 12


File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 354 GWDD 
      _RL speed(irun), ang(irun)
./pkg/fizhi/fizhi_gwdrag.F 424 GWDD 
       speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) )
./pkg/fizhi/fizhi_gwdrag.F 455 GWDD 
       frsf = nbar(i)*std(i)/speed(i)
./pkg/fizhi/fizhi_gwdrag.F 457 GWDD 
       if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then
./pkg/fizhi/fizhi_gwdrag.F 461 GWDD 
        tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i))
./pkg/fizhi/fizhi_gwdrag.F 493 GWDD 
     .      /   speed(i)
./pkg/fizhi/fizhi_gwdrag.F 584 GWDD 
     .      /   speed(i)
./pkg/streamice/streamice_bstress_exponent.F 11 NO PROCEDURE 
        STREAMICE_BSTRESS_EXP = speed**(m-1)
./pkg/streamice/streamice_bstress_exponent.F 6 NO PROCEDURE 
      _RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
./pkg/streamice/streamice_bstress_exponent.F 8 NO PROCEDURE 
       _RL speed, m