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