Symbol Description Uses
vert_dat 20


File Line number Procedure Code
./pkg/fizhi/fizhi_mnc_init.F 101 FIZHI_MNC_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/fizhi/fizhi_mnc_init.F 173 FIZHI_MNC_INIT 
                IF (vert_dat(ivert)(1:5) .EQ. 'Phys ') THEN
./pkg/fizhi/fizhi_mnc_init.F 180 FIZHI_MNC_INIT 
                IF (vert_dat(ivert)(1:5) .EQ. 'PhysI') THEN
./pkg/fizhi/fizhi_mnc_init.F 43 FIZHI_MNC_INIT 
     &     vert_dat(CW_MAX_LOC), time_dat(CW_MAX_LOC),
./pkg/fizhi/fizhi_mnc_init.F 58 FIZHI_MNC_INIT 
      data vert_dat /
./pkg/fizhi/fizhi_mnc_init.F 99 FIZHI_MNC_INIT 
                nvch = ILNBLNK(vert_dat(ivert))
./pkg/land/land_mnc_init.F 116 LAND_MNC_INIT 
                nvch = ILNBLNK(vert_dat(ivert))
./pkg/land/land_mnc_init.F 118 LAND_MNC_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/land/land_mnc_init.F 190 LAND_MNC_INIT 
                IF (vert_dat(ivert)(1:5) .EQ. 'Zland') THEN
./pkg/land/land_mnc_init.F 62 LAND_MNC_INIT 
     &     vert_dat(CW_MAX_LOC), time_dat(CW_MAX_LOC),
./pkg/land/land_mnc_init.F 77 LAND_MNC_INIT 
      data vert_dat /
./pkg/mnc/mnc_cw_init.F 112 MNC_CW_INIT 
                nvch = ILNBLNK(vert_dat(ivert))
./pkg/mnc/mnc_cw_init.F 114 MNC_CW_INIT 
                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)
./pkg/mnc/mnc_cw_init.F 186 MNC_CW_INIT 
                IF (vert_dat(ivert)(1:1) .EQ. 'C') THEN
./pkg/mnc/mnc_cw_init.F 193 MNC_CW_INIT 
                IF (vert_dat(ivert)(1:1) .EQ. 'I') THEN
./pkg/mnc/mnc_cw_init.F 200 MNC_CW_INIT 
                IF (vert_dat(ivert)(1:1) .EQ. 'L') THEN
./pkg/mnc/mnc_cw_init.F 207 MNC_CW_INIT 
                IF (vert_dat(ivert)(1:1) .EQ. 'U') THEN
./pkg/mnc/mnc_cw_init.F 214 MNC_CW_INIT 
                IF (vert_dat(ivert)(1:1) .EQ. 'M') THEN
./pkg/mnc/mnc_cw_init.F 58 MNC_CW_INIT 
     &     vert_dat(CW_MAX_LOC), time_dat(CW_MAX_LOC),
./pkg/mnc/mnc_cw_init.F 73 MNC_CW_INIT 
      data vert_dat /