Symbol Description Uses
horz_dat 36


File Line number Procedure Code
./pkg/fizhi/fizhi_mnc_init.F 118 FIZHI_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/fizhi/fizhi_mnc_init.F 119 FIZHI_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN
./pkg/fizhi/fizhi_mnc_init.F 125 FIZHI_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/fizhi/fizhi_mnc_init.F 126 FIZHI_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/fizhi/fizhi_mnc_init.F 136 FIZHI_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/fizhi/fizhi_mnc_init.F 137 FIZHI_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/fizhi/fizhi_mnc_init.F 143 FIZHI_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/fizhi/fizhi_mnc_init.F 144 FIZHI_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 52 FIZHI_MNC_INIT 
      data horz_dat /
./pkg/fizhi/fizhi_mnc_init.F 88 FIZHI_MNC_INIT 
                n = ILNBLNK(horz_dat(ihorz))
./pkg/fizhi/fizhi_mnc_init.F 89 FIZHI_MNC_INIT 
                name(1:n) = horz_dat(ihorz)(1:n)
./pkg/land/land_mnc_init.F 105 LAND_MNC_INIT 
                n = ILNBLNK(horz_dat(ihorz))
./pkg/land/land_mnc_init.F 106 LAND_MNC_INIT 
                name(1:n) = horz_dat(ihorz)(1:n)
./pkg/land/land_mnc_init.F 135 LAND_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/land/land_mnc_init.F 136 LAND_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN
./pkg/land/land_mnc_init.F 142 LAND_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/land/land_mnc_init.F 143 LAND_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/land/land_mnc_init.F 153 LAND_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/land/land_mnc_init.F 154 LAND_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/land/land_mnc_init.F 160 LAND_MNC_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/land/land_mnc_init.F 161 LAND_MNC_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 71 LAND_MNC_INIT 
      data horz_dat /
./pkg/mnc/mnc_cw_init.F 101 MNC_CW_INIT 
                n = ILNBLNK(horz_dat(ihorz))
./pkg/mnc/mnc_cw_init.F 102 MNC_CW_INIT 
                name(1:n) = horz_dat(ihorz)(1:n)
./pkg/mnc/mnc_cw_init.F 131 MNC_CW_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/mnc/mnc_cw_init.F 132 MNC_CW_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) THEN
./pkg/mnc/mnc_cw_init.F 138 MNC_CW_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/mnc/mnc_cw_init.F 139 MNC_CW_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/mnc/mnc_cw_init.F 149 MNC_CW_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cen')
./pkg/mnc/mnc_cw_init.F 150 MNC_CW_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'U') ) THEN
./pkg/mnc/mnc_cw_init.F 156 MNC_CW_INIT 
                    IF ( (horz_dat(ihorz)(1:3) .EQ. 'Cor')
./pkg/mnc/mnc_cw_init.F 157 MNC_CW_INIT 
     &                   .OR. (horz_dat(ihorz)(1:1) .EQ. 'V') ) 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 67 MNC_CW_INIT 
      data horz_dat /