Symbol Description Uses
ierr1 3


File Line number Procedure Code
./pkg/fizhi/fizhi_init_veg.F 72 FIZHI_INIT_VEG 
      integer i,j,k,bi,bj,ierr1,kveg
./pkg/fizhi/fizhi_init_veg.F 77 FIZHI_INIT_VEG 
     .                      iostat=ierr1)
./pkg/fizhi/fizhi_init_veg.F 78 FIZHI_INIT_VEG 
      if( ierr1.eq.0 ) then