Symbol Description Uses
fdirpar 35



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 10 SWRIO
     .        fdifpar,fdirpar,osr,osrclr,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1564 SOLUV
     * ,fdirpar,fdifpar,fdiruv,fdifuv)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1657 SOLUV
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1921 SOLUV
           fdirpar(i,j)=fsdir(i,j)*hk(ib)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 29 SWRIO
      _RL radswg(im,jm),swgclr(im,jm),fdifpar(im,jm),fdirpar(im,jm)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 481 SWRIO
      call PASTE ( dirpar,fdirpar,istrip,im*jm,1,nn )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 661 SORAD
     *                 flx,flc,fdirir,fdifir,fdirpar,fdifpar,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 775 SORAD
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 859 SORAD
     *     ,fdirpar,fdifpar,fdiruv,fdifuv)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 122 TURBIO
      _RL fdifpar(im,jm),fdirpar(im,jm)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 13 TURBIO
     9 ,fdifpar,fdirpar,rainlsp,rainconv,snowfall,tempref
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 369 TURBIO
       tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1)
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 124 DO_FIZHI
      _RL fdirpar(sNx,sNy,Nsx,Nsy),fdifpar(sNx,sNy,Nsx,Nsy)
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 156 DO_FIZHI
      common /saver/ radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg
./verification/fizhi-cs-aqualev10/code/do_fizhi.F 253 DO_FIZHI
     . radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj),
./verification/fizhi-gridalt-hs/code/do_fizhi.F 124 DO_FIZHI
      _RL fdirpar(sNx,sNy,Nsx,Nsy),fdifpar(sNx,sNy,Nsx,Nsy)
./pkg/fizhi/fizhi_swrad.F 10 SWRIO
     .        fdifpar,fdirpar,osr,osrclr,
./pkg/fizhi/fizhi_swrad.F 1563 SOLUV
     * ,fdirpar,fdifpar,fdiruv,fdifuv)
./pkg/fizhi/fizhi_swrad.F 1656 SOLUV
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1920 SOLUV
           fdirpar(i,j)=fsdir(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 29 SWRIO
      _RL radswg(im,jm),swgclr(im,jm),fdifpar(im,jm),fdirpar(im,jm)
./pkg/fizhi/fizhi_swrad.F 480 SWRIO
      call PASTE ( dirpar,fdirpar,istrip,im*jm,1,nn )
./pkg/fizhi/fizhi_swrad.F 660 SORAD
     *                 flx,flc,fdirir,fdifir,fdirpar,fdifpar,
./pkg/fizhi/fizhi_swrad.F 774 SORAD
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 858 SORAD
     *     ,fdirpar,fdifpar,fdiruv,fdifuv)
./pkg/fizhi/fizhi_driver.F 164 FIZHI_DRIVER
     .   radswg,swgclr,fdifpar,fdirpar,osr,osrclr,
./pkg/fizhi/fizhi_driver.F 16 FIZHI_DRIVER
     . radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg,lwgclr,
./pkg/fizhi/fizhi_driver.F 206 FIZHI_DRIVER
     .  fdifpar,fdirpar,rainlsp,raincon,snowfall,tg0,
./pkg/fizhi/fizhi_driver.F 84 FIZHI_DRIVER
      _RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm)
./pkg/fizhi/fizhi_turb.F 122 TURBIO
      _RL fdifpar(im,jm),fdirpar(im,jm)
./pkg/fizhi/fizhi_turb.F 13 TURBIO
     9 ,fdifpar,fdirpar,rainlsp,rainconv,snowfall,tempref
./pkg/fizhi/fizhi_turb.F 369 TURBIO
       tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1)
./pkg/fizhi/do_fizhi.F 124 DO_FIZHI
      _RL fdirpar(sNx,sNy,Nsx,Nsy),fdifpar(sNx,sNy,Nsx,Nsy)
./pkg/fizhi/do_fizhi.F 156 DO_FIZHI
      common /saver/ radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg
./pkg/fizhi/do_fizhi.F 252 DO_FIZHI
     . radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj),