Symbol Description Uses
hsub_dat 30


File Line number Procedure Code
./pkg/fizhi/fizhi_mnc_init.F 116 FIZHI_MNC_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/fizhi/fizhi_mnc_init.F 133 FIZHI_MNC_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/fizhi/fizhi_mnc_init.F 134 FIZHI_MNC_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/fizhi/fizhi_mnc_init.F 154 FIZHI_MNC_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/fizhi/fizhi_mnc_init.F 161 FIZHI_MNC_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/fizhi/fizhi_mnc_init.F 162 FIZHI_MNC_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/fizhi/fizhi_mnc_init.F 42 FIZHI_MNC_INIT 
      character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC),
./pkg/fizhi/fizhi_mnc_init.F 54 FIZHI_MNC_INIT 
      data hsub_dat /
./pkg/fizhi/fizhi_mnc_init.F 92 FIZHI_MNC_INIT 
                n = ILNBLNK(hsub_dat(ihsub))
./pkg/fizhi/fizhi_mnc_init.F 93 FIZHI_MNC_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/land/land_mnc_init.F 109 LAND_MNC_INIT 
                n = ILNBLNK(hsub_dat(ihsub))
./pkg/land/land_mnc_init.F 110 LAND_MNC_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/land/land_mnc_init.F 133 LAND_MNC_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/land/land_mnc_init.F 150 LAND_MNC_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/land/land_mnc_init.F 151 LAND_MNC_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/land/land_mnc_init.F 171 LAND_MNC_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/land/land_mnc_init.F 178 LAND_MNC_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/land/land_mnc_init.F 179 LAND_MNC_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/land/land_mnc_init.F 61 LAND_MNC_INIT 
      character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC),
./pkg/land/land_mnc_init.F 73 LAND_MNC_INIT 
      data hsub_dat /
./pkg/mnc/mnc_cw_init.F 105 MNC_CW_INIT 
                n = ILNBLNK(hsub_dat(ihsub))
./pkg/mnc/mnc_cw_init.F 106 MNC_CW_INIT 
                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)
./pkg/mnc/mnc_cw_init.F 129 MNC_CW_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/mnc/mnc_cw_init.F 146 MNC_CW_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/mnc/mnc_cw_init.F 147 MNC_CW_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/mnc/mnc_cw_init.F 167 MNC_CW_INIT 
                  IF (hsub_dat(ihsub)(1:1) .EQ. 'x') THEN
./pkg/mnc/mnc_cw_init.F 174 MNC_CW_INIT 
                  IF ((hsub_dat(ihsub)(1:1) .EQ. 'y')
./pkg/mnc/mnc_cw_init.F 175 MNC_CW_INIT 
     &                 .OR. (hsub_dat(ihsub)(2:2) .EQ. 'y')) THEN
./pkg/mnc/mnc_cw_init.F 57 MNC_CW_INIT 
      character*(5) horz_dat(CW_MAX_LOC), hsub_dat(CW_MAX_LOC),
./pkg/mnc/mnc_cw_init.F 69 MNC_CW_INIT 
      data hsub_dat /