Symbol Description Uses
agrn 36



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 810 GETALB
     .        alai,agrn,albvr,albvf,albnr,albnf)
./pkg/fizhi/update_earth_exports.F 854 GETALB
      _RL alai(nchp,nSx,nSy),agrn(nchp,nSx,nSy)
./pkg/fizhi/update_earth_exports.F 891 GETALB
     .  agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland)
./pkg/fizhi/update_earth_exports.F 89 UPDATE_EARTH_EXPORTS
     .       nchp,nSx,nSy,bi,bj,alai,agrn )
./pkg/fizhi/fizhi_earth_coms.h 14 NO PROCEDURE
     .   chfr, alai, agrn, 
./pkg/fizhi/fizhi_earth_coms.h 19 NO PROCEDURE
      _RL agrn(nchp,Nsx,Nsy)
./pkg/fizhi/fizhi_utils.F 705 CHPPRM
     1       agrn,zoch,z2ch,cdrc,cdsc,sqsc,ufac,rsl1,rsl2,rdcs)
./pkg/fizhi/fizhi_utils.F 711 CHPPRM
       _RL alai(mxchps),agrn(mxchps)
./pkg/fizhi/fizhi_utils.F 876 CHPPRM
      scat =       agrn(i) *(vgtr11(ityp(i)) + vgrf11(ityp(i)))
./pkg/fizhi/fizhi_utils.F 877 CHPPRM
     &     + (1. - agrn(i))*(vgtr12(ityp(i)) + vgrf12(ityp(i)))
./pkg/fizhi/fizhi_turb.F 10 TURBIO
     5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz
./pkg/fizhi/fizhi_turb.F 116 TURBIO
      _RL alai(nchp),agrn(nchp),thkz(im,jm)
./pkg/fizhi/fizhi_turb.F 388 TURBIO
     1       agrn,zoch,z2ch,cdrc,cdsc,sqscat,u2fac,rsoil1,rsoil2,rdc)
./pkg/fizhi/fizhi_turb.F 509 TURBIO
       call STRIPIT  (agrn,grnstrip,nchptot,nchp,istrip,1,nn)
./pkg/fizhi/fizhi_wrapper.F 143 FIZHI_WRAPPER
     .  albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon,
./pkg/fizhi/do_fizhi.F 10 DO_FIZHI
     . albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon,
./pkg/fizhi/do_fizhi.F 245 DO_FIZHI
     . agrn(1,bi,bj),
./pkg/fizhi/do_fizhi.F 59 DO_FIZHI
      _RL agrn(nchp,Nsxin,Nsyin)