Symbol Description Uses
ndim 318



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 346 IRRAD
      subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2,
./pkg/fizhi/fizhi_lwrad.F 568 IRRAD
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_lwrad.F 569 IRRAD
      _RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np),
./pkg/fizhi/fizhi_lwrad.F 570 IRRAD
     *     ts(m,ndim)
./pkg/fizhi/fizhi_lwrad.F 571 IRRAD
      _RL co2,n2o(np),ch4(np),cfc11,cfc12,cfc22,emiss(m,ndim,10)
./pkg/fizhi/fizhi_lwrad.F 572 IRRAD
      _RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3),
./pkg/fizhi/fizhi_lwrad.F 573 IRRAD
     *     fcld(m,ndim,np)
./pkg/fizhi/fizhi_lwrad.F 574 IRRAD
      _RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10)
./pkg/fizhi/fizhi_lwrad.F 579 IRRAD
      _RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1),
./pkg/fizhi/fizhi_lwrad.F 580 IRRAD
     *     st4(m,ndim)
./pkg/fizhi/fizhi_mnc_init.F 105 FIZHI_MNC_INIT
                ndim = 0
./pkg/fizhi/fizhi_mnc_init.F 117 FIZHI_MNC_INIT
                    ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 120 FIZHI_MNC_INIT
                      dn(ndim)(1:1) = 'X'
./pkg/fizhi/fizhi_mnc_init.F 121 FIZHI_MNC_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/fizhi/fizhi_mnc_init.F 122 FIZHI_MNC_INIT
                      ib(ndim)  = OLx + 1
./pkg/fizhi/fizhi_mnc_init.F 123 FIZHI_MNC_INIT
                      ie(ndim)  = OLx + sNx
./pkg/fizhi/fizhi_mnc_init.F 127 FIZHI_MNC_INIT
                      dn(ndim)(1:3) = 'Xp1'
./pkg/fizhi/fizhi_mnc_init.F 128 FIZHI_MNC_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/fizhi/fizhi_mnc_init.F 129 FIZHI_MNC_INIT
                      ib(ndim)  = OLx + 1
./pkg/fizhi/fizhi_mnc_init.F 130 FIZHI_MNC_INIT
                      ie(ndim)  = OLx + sNx + 1
./pkg/fizhi/fizhi_mnc_init.F 135 FIZHI_MNC_INIT
                    ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 138 FIZHI_MNC_INIT
                      dn(ndim)(1:1) = 'Y'
./pkg/fizhi/fizhi_mnc_init.F 139 FIZHI_MNC_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/fizhi/fizhi_mnc_init.F 140 FIZHI_MNC_INIT
                      ib(ndim)  = OLy + 1
./pkg/fizhi/fizhi_mnc_init.F 141 FIZHI_MNC_INIT
                      ie(ndim)  = OLy + sNy
./pkg/fizhi/fizhi_mnc_init.F 145 FIZHI_MNC_INIT
                      dn(ndim)(1:3) = 'Yp1'
./pkg/fizhi/fizhi_mnc_init.F 146 FIZHI_MNC_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/fizhi/fizhi_mnc_init.F 147 FIZHI_MNC_INIT
                      ib(ndim)  = OLy + 1
./pkg/fizhi/fizhi_mnc_init.F 148 FIZHI_MNC_INIT
                      ie(ndim)  = OLy + sNy + 1
./pkg/fizhi/fizhi_mnc_init.F 155 FIZHI_MNC_INIT
                    ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 156 FIZHI_MNC_INIT
                    dn(ndim)(1:3) = 'Xwh'
./pkg/fizhi/fizhi_mnc_init.F 157 FIZHI_MNC_INIT
                    dim(ndim) = sNx + 2*OLx
./pkg/fizhi/fizhi_mnc_init.F 158 FIZHI_MNC_INIT
                    ib(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 159 FIZHI_MNC_INIT
                    ie(ndim)  = sNx + 2*OLx
./pkg/fizhi/fizhi_mnc_init.F 163 FIZHI_MNC_INIT
                    ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 164 FIZHI_MNC_INIT
                    dn(ndim)(1:3) = 'Ywh'
./pkg/fizhi/fizhi_mnc_init.F 165 FIZHI_MNC_INIT
                    dim(ndim) = sNy + 2*OLy
./pkg/fizhi/fizhi_mnc_init.F 166 FIZHI_MNC_INIT
                    ib(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 167 FIZHI_MNC_INIT
                    ie(ndim)  = sNy + 2*OLy
./pkg/fizhi/fizhi_mnc_init.F 174 FIZHI_MNC_INIT
                  ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 175 FIZHI_MNC_INIT
                  dn(ndim)(1:5) = 'Zphys'
./pkg/fizhi/fizhi_mnc_init.F 176 FIZHI_MNC_INIT
                  dim(ndim) = NrPhys
./pkg/fizhi/fizhi_mnc_init.F 177 FIZHI_MNC_INIT
                  ib(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 178 FIZHI_MNC_INIT
                  ie(ndim)  = NrPhys
./pkg/fizhi/fizhi_mnc_init.F 181 FIZHI_MNC_INIT
                  ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 182 FIZHI_MNC_INIT
                  dn(ndim)(1:7) = 'Zphysm1'
./pkg/fizhi/fizhi_mnc_init.F 183 FIZHI_MNC_INIT
                  dim(ndim) = NrPhys - 1
./pkg/fizhi/fizhi_mnc_init.F 184 FIZHI_MNC_INIT
                  ib(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 185 FIZHI_MNC_INIT
                  ie(ndim)  = NrPhys - 1
./pkg/fizhi/fizhi_mnc_init.F 190 FIZHI_MNC_INIT
     &               .and. (ndim .ne. 0) ) THEN
./pkg/fizhi/fizhi_mnc_init.F 191 FIZHI_MNC_INIT
                  ndim = ndim + 1
./pkg/fizhi/fizhi_mnc_init.F 192 FIZHI_MNC_INIT
                  dn(ndim)(1:1) = 'T'
./pkg/fizhi/fizhi_mnc_init.F 193 FIZHI_MNC_INIT
                  dim(ndim) = -1
./pkg/fizhi/fizhi_mnc_init.F 194 FIZHI_MNC_INIT
                  ib(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 195 FIZHI_MNC_INIT
                  ie(ndim)  = 1
./pkg/fizhi/fizhi_mnc_init.F 198 FIZHI_MNC_INIT
                IF (ndim .GT. 0) THEN
./pkg/fizhi/fizhi_mnc_init.F 200 FIZHI_MNC_INIT
                  CALL MNC_CW_ADD_GNAME(name, ndim, 
./pkg/fizhi/fizhi_mnc_init.F 215 FIZHI_MNC_INIT
      ndim = 3
./pkg/fizhi/fizhi_mnc_init.F 229 FIZHI_MNC_INIT
      CALL MNC_CW_ADD_GNAME('fizhi_veg', ndim, dim, dn,ib,ie, myThid)
./pkg/fizhi/fizhi_mnc_init.F 241 FIZHI_MNC_INIT
      ndim = 1
./pkg/fizhi/fizhi_mnc_init.F 246 FIZHI_MNC_INIT
      CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid)
./pkg/fizhi/fizhi_mnc_init.F 266 FIZHI_MNC_INIT
      ndim = 2
./pkg/fizhi/fizhi_mnc_init.F 275 FIZHI_MNC_INIT
      CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid)
./pkg/fizhi/fizhi_mnc_init.F 39 FIZHI_MNC_INIT
      integer ndim, ncomb, nvch
./pkg/fizhi/fizhi_swrad.F 1003 CLDSCALE
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1004 CLDSCALE
      _RL  cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2)
./pkg/fizhi/fizhi_swrad.F 1159 SOLIR
      subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1233 SOLIR
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1234 SOLIR
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1236 SOLIR
      _RL  rsirbm(m,ndim),rsirdf(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1237 SOLIR
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1241 SOLIR
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1242 SOLIR
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1569 SOLUV
      subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1655 SOLUV
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1656 SOLUV
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1658 SOLUV
      _RL  oh(m,n,np),dp(m,n,np),taual(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1659 SOLUV
      _RL  rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1663 SOLUV
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1664 SOLUV
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1665 SOLUV
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./pkg/fizhi/fizhi_swrad.F 665 SORAD
      subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2,
./pkg/fizhi/fizhi_swrad.F 771 SORAD
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 772 SORAD
      _RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 773 SORAD
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2)
./pkg/fizhi/fizhi_swrad.F 774 SORAD
      _RL  fcld(m,ndim,np),taual(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 775 SORAD
      _RL  rsirbm(m,ndim),rsirdf(m,ndim),
./pkg/fizhi/fizhi_swrad.F 776 SORAD
     *     rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2
./pkg/fizhi/fizhi_swrad.F 780 SORAD
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 781 SORAD
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./pkg/fizhi/fizhi_swrad.F 782 SORAD
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 783 SORAD
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./pkg/fizhi/fizhi_swrad.F 841 SORAD
      call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./pkg/fizhi/fizhi_swrad.F 859 SORAD
      call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb
./pkg/fizhi/fizhi_swrad.F 864 SORAD
      call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb
./pkg/fizhi/fizhi_swrad.F 959 CLDSCALE
      subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./pkg/land/land_mnc_init.F 122 LAND_MNC_INIT
                ndim = 0
./pkg/land/land_mnc_init.F 134 LAND_MNC_INIT
                    ndim = ndim + 1
./pkg/land/land_mnc_init.F 137 LAND_MNC_INIT
                      dn(ndim)(1:1) = 'X'
./pkg/land/land_mnc_init.F 138 LAND_MNC_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/land/land_mnc_init.F 139 LAND_MNC_INIT
                      ib(ndim)  = OLx + 1
./pkg/land/land_mnc_init.F 140 LAND_MNC_INIT
                      ie(ndim)  = OLx + sNx
./pkg/land/land_mnc_init.F 144 LAND_MNC_INIT
                      dn(ndim)(1:3) = 'Xp1'
./pkg/land/land_mnc_init.F 145 LAND_MNC_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/land/land_mnc_init.F 146 LAND_MNC_INIT
                      ib(ndim)  = OLx + 1
./pkg/land/land_mnc_init.F 147 LAND_MNC_INIT
                      ie(ndim)  = OLx + sNx + 1
./pkg/land/land_mnc_init.F 152 LAND_MNC_INIT
                    ndim = ndim + 1
./pkg/land/land_mnc_init.F 155 LAND_MNC_INIT
                      dn(ndim)(1:1) = 'Y'
./pkg/land/land_mnc_init.F 156 LAND_MNC_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/land/land_mnc_init.F 157 LAND_MNC_INIT
                      ib(ndim)  = OLy + 1
./pkg/land/land_mnc_init.F 158 LAND_MNC_INIT
                      ie(ndim)  = OLy + sNy
./pkg/land/land_mnc_init.F 162 LAND_MNC_INIT
                      dn(ndim)(1:3) = 'Yp1'
./pkg/land/land_mnc_init.F 163 LAND_MNC_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/land/land_mnc_init.F 164 LAND_MNC_INIT
                      ib(ndim)  = OLy + 1
./pkg/land/land_mnc_init.F 165 LAND_MNC_INIT
                      ie(ndim)  = OLy + sNy + 1
./pkg/land/land_mnc_init.F 172 LAND_MNC_INIT
                    ndim = ndim + 1
./pkg/land/land_mnc_init.F 173 LAND_MNC_INIT
                    dn(ndim)(1:3) = 'Xwh'
./pkg/land/land_mnc_init.F 174 LAND_MNC_INIT
                    dim(ndim) = sNx + 2*OLx
./pkg/land/land_mnc_init.F 175 LAND_MNC_INIT
                    ib(ndim)  = 1
./pkg/land/land_mnc_init.F 176 LAND_MNC_INIT
                    ie(ndim)  = sNx + 2*OLx
./pkg/land/land_mnc_init.F 180 LAND_MNC_INIT
                    ndim = ndim + 1
./pkg/land/land_mnc_init.F 181 LAND_MNC_INIT
                    dn(ndim)(1:3) = 'Ywh'
./pkg/land/land_mnc_init.F 182 LAND_MNC_INIT
                    dim(ndim) = sNy + 2*OLy
./pkg/land/land_mnc_init.F 183 LAND_MNC_INIT
                    ib(ndim)  = 1
./pkg/land/land_mnc_init.F 184 LAND_MNC_INIT
                    ie(ndim)  = sNy + 2*OLy
./pkg/land/land_mnc_init.F 191 LAND_MNC_INIT
                  ndim = ndim + 1
./pkg/land/land_mnc_init.F 192 LAND_MNC_INIT
                  dn(ndim)(1:5) = 'Zland'
./pkg/land/land_mnc_init.F 193 LAND_MNC_INIT
                  dim(ndim) = Nland_lev
./pkg/land/land_mnc_init.F 194 LAND_MNC_INIT
                  ib(ndim)  = 1
./pkg/land/land_mnc_init.F 195 LAND_MNC_INIT
                  ie(ndim)  = Nland_lev
./pkg/land/land_mnc_init.F 200 LAND_MNC_INIT
     &               .and. (ndim .ne. 0) ) THEN
./pkg/land/land_mnc_init.F 201 LAND_MNC_INIT
                  ndim = ndim + 1
./pkg/land/land_mnc_init.F 202 LAND_MNC_INIT
                  dn(ndim)(1:1) = 'T'
./pkg/land/land_mnc_init.F 203 LAND_MNC_INIT
                  dim(ndim) = -1
./pkg/land/land_mnc_init.F 204 LAND_MNC_INIT
                  ib(ndim)  = 1
./pkg/land/land_mnc_init.F 205 LAND_MNC_INIT
                  ie(ndim)  = 1
./pkg/land/land_mnc_init.F 208 LAND_MNC_INIT
                IF (ndim .GT. 0) THEN
./pkg/land/land_mnc_init.F 210 LAND_MNC_INIT
                  CALL MNC_CW_ADD_GNAME(name, ndim, 
./pkg/land/land_mnc_init.F 58 LAND_MNC_INIT
      integer ndim, ncomb, nvch
./pkg/mnc/mnc_cw_init.F 118 MNC_CW_INIT
                ndim = 0
./pkg/mnc/mnc_cw_init.F 130 MNC_CW_INIT
                    ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 133 MNC_CW_INIT
                      dn(ndim)(1:1) = 'X'
./pkg/mnc/mnc_cw_init.F 134 MNC_CW_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/mnc/mnc_cw_init.F 135 MNC_CW_INIT
                      ib(ndim)  = OLx + 1
./pkg/mnc/mnc_cw_init.F 136 MNC_CW_INIT
                      ie(ndim)  = OLx + sNx
./pkg/mnc/mnc_cw_init.F 140 MNC_CW_INIT
                      dn(ndim)(1:3) = 'Xp1'
./pkg/mnc/mnc_cw_init.F 141 MNC_CW_INIT
                      dim(ndim) = sNx + 2*OLx
./pkg/mnc/mnc_cw_init.F 142 MNC_CW_INIT
                      ib(ndim)  = OLx + 1
./pkg/mnc/mnc_cw_init.F 143 MNC_CW_INIT
                      ie(ndim)  = OLx + sNx + 1
./pkg/mnc/mnc_cw_init.F 148 MNC_CW_INIT
                    ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 151 MNC_CW_INIT
                      dn(ndim)(1:1) = 'Y'
./pkg/mnc/mnc_cw_init.F 152 MNC_CW_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/mnc/mnc_cw_init.F 153 MNC_CW_INIT
                      ib(ndim)  = OLy + 1
./pkg/mnc/mnc_cw_init.F 154 MNC_CW_INIT
                      ie(ndim)  = OLy + sNy
./pkg/mnc/mnc_cw_init.F 158 MNC_CW_INIT
                      dn(ndim)(1:3) = 'Yp1'
./pkg/mnc/mnc_cw_init.F 159 MNC_CW_INIT
                      dim(ndim) = sNy + 2*OLy
./pkg/mnc/mnc_cw_init.F 160 MNC_CW_INIT
                      ib(ndim)  = OLy + 1
./pkg/mnc/mnc_cw_init.F 161 MNC_CW_INIT
                      ie(ndim)  = OLy + sNy + 1
./pkg/mnc/mnc_cw_init.F 168 MNC_CW_INIT
                    ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 169 MNC_CW_INIT
                    dn(ndim)(1:3) = 'Xwh'
./pkg/mnc/mnc_cw_init.F 170 MNC_CW_INIT
                    dim(ndim) = sNx + 2*OLx
./pkg/mnc/mnc_cw_init.F 171 MNC_CW_INIT
                    ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 172 MNC_CW_INIT
                    ie(ndim)  = sNx + 2*OLx
./pkg/mnc/mnc_cw_init.F 176 MNC_CW_INIT
                    ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 177 MNC_CW_INIT
                    dn(ndim)(1:3) = 'Ywh'
./pkg/mnc/mnc_cw_init.F 178 MNC_CW_INIT
                    dim(ndim) = sNy + 2*OLy
./pkg/mnc/mnc_cw_init.F 179 MNC_CW_INIT
                    ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 180 MNC_CW_INIT
                    ie(ndim)  = sNy + 2*OLy
./pkg/mnc/mnc_cw_init.F 187 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 188 MNC_CW_INIT
                  dn(ndim)(1:1) = 'Z'
./pkg/mnc/mnc_cw_init.F 189 MNC_CW_INIT
                  dim(ndim) = Nr
./pkg/mnc/mnc_cw_init.F 190 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 191 MNC_CW_INIT
                  ie(ndim)  = Nr
./pkg/mnc/mnc_cw_init.F 194 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 195 MNC_CW_INIT
                  dn(ndim)(1:3) = 'Zp1'
./pkg/mnc/mnc_cw_init.F 196 MNC_CW_INIT
                  dim(ndim) = Nr + 1
./pkg/mnc/mnc_cw_init.F 197 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 198 MNC_CW_INIT
                  ie(ndim)  = Nr + 1
./pkg/mnc/mnc_cw_init.F 201 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 202 MNC_CW_INIT
                  dn(ndim)(1:2) = 'Zl'
./pkg/mnc/mnc_cw_init.F 203 MNC_CW_INIT
                  dim(ndim) = Nr
./pkg/mnc/mnc_cw_init.F 204 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 205 MNC_CW_INIT
                  ie(ndim)  = Nr
./pkg/mnc/mnc_cw_init.F 208 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 209 MNC_CW_INIT
                  dn(ndim)(1:2) = 'Zu'
./pkg/mnc/mnc_cw_init.F 210 MNC_CW_INIT
                  dim(ndim) = Nr
./pkg/mnc/mnc_cw_init.F 211 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 212 MNC_CW_INIT
                  ie(ndim)  = Nr
./pkg/mnc/mnc_cw_init.F 215 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 216 MNC_CW_INIT
                  dn(ndim)(1:3) = 'Zm1'
./pkg/mnc/mnc_cw_init.F 217 MNC_CW_INIT
                  dim(ndim) = Nr - 1
./pkg/mnc/mnc_cw_init.F 218 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 219 MNC_CW_INIT
                  ie(ndim)  = Nr - 1
./pkg/mnc/mnc_cw_init.F 224 MNC_CW_INIT
                  ndim = ndim + 1
./pkg/mnc/mnc_cw_init.F 225 MNC_CW_INIT
                  dn(ndim)(1:1) = 'T'
./pkg/mnc/mnc_cw_init.F 226 MNC_CW_INIT
                  dim(ndim) = -1
./pkg/mnc/mnc_cw_init.F 227 MNC_CW_INIT
                  ib(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 228 MNC_CW_INIT
                  ie(ndim)  = 1
./pkg/mnc/mnc_cw_init.F 231 MNC_CW_INIT
                IF (ndim .GT. 0) THEN
./pkg/mnc/mnc_cw_init.F 235 MNC_CW_INIT
     &                 ncomb, ' : ', name(1:15), ndim, 
./pkg/mnc/mnc_cw_init.F 242 MNC_CW_INIT
                  CALL MNC_CW_ADD_GNAME(name, ndim, 
./pkg/mnc/mnc_cw_init.F 54 MNC_CW_INIT
      integer ndim, ncomb, nvch
./pkg/mnc/mnc_cwrapper.F 30 MNC_CW_ADD_GNAME
     I     ndim,
./pkg/mnc/mnc_cwrapper.F 45 MNC_CW_ADD_GNAME
      integer myThid, ndim
./pkg/mnc/mnc_cwrapper.F 74 MNC_CW_ADD_GNAME
      mnc_cw_ndim(indg) = ndim
./pkg/mnc/mnc_cwrapper.F 76 MNC_CW_ADD_GNAME
      DO i = 1,ndim
./pkg/mnc/mnc_file.F 658 MNC_FILE_TRY_READ
      integer i,j,k, fid, err, ndim,nvar,ngat,unlimid
./pkg/mnc/mnc_file.F 684 MNC_FILE_TRY_READ
      err = NF_INQ(fid, ndim, nvar, ngat, unlimid)
./pkg/mnc/mnc_file.F 690 MNC_FILE_TRY_READ
      DO id = 1,ndim
./pkg/mnc/mnc_grid.F 106 MNC_GRID_INIT_ALL
      i = ds_last + ndim
./pkg/mnc/mnc_grid.F 132 MNC_GRID_INIT_ALL
          IF (ndim .NE. (ig2-ig1+1)) THEN
./pkg/mnc/mnc_grid.F 14 MNC_GRID_INIT
     I     ndim, 
./pkg/mnc/mnc_grid.F 176 MNC_GRID_INIT_ALL
      DO i = 1,ndim
./pkg/mnc/mnc_grid.F 210 MNC_GRID_INIT_ALL
      mnc_f_info(indf,ng_ind+2) = ds_last + ndim
./pkg/mnc/mnc_grid.F 25 MNC_GRID_INIT
      integer myThid, ndim
./pkg/mnc/mnc_grid.F 27 MNC_GRID_INIT
      character*(*) dnames(ndim)
./pkg/mnc/mnc_grid.F 33 MNC_GRID_INIT
      CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid)
./pkg/mnc/mnc_grid.F 46 MNC_GRID_INIT_ALL
     I     ndim, 
./pkg/mnc/mnc_grid.F 66 MNC_GRID_INIT_ALL
      integer myThid, ndim, ind
./pkg/mnc/mnc_grid.F 68 MNC_GRID_INIT_ALL
      character*(*) dnames(ndim)
./pkg/regrid/regrid_mnc_init.F 32 REGRID_MNC_INIT
      INTEGER i, k, ndim
./pkg/aim_v23/aim_mnc_init.F 157 AIM_MNC_INIT
      ndim = 1
./pkg/aim_v23/aim_mnc_init.F 158 AIM_MNC_INIT
      dn(ndim)(1:1) = 'X'
./pkg/aim_v23/aim_mnc_init.F 159 AIM_MNC_INIT
      dim(ndim) = sNx
./pkg/aim_v23/aim_mnc_init.F 160 AIM_MNC_INIT
      ib(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 161 AIM_MNC_INIT
      ie(ndim)  = sNx
./pkg/aim_v23/aim_mnc_init.F 162 AIM_MNC_INIT
      ndim = ndim + 1
./pkg/aim_v23/aim_mnc_init.F 163 AIM_MNC_INIT
      dn(ndim)(1:1) = 'Y'
./pkg/aim_v23/aim_mnc_init.F 164 AIM_MNC_INIT
      dim(ndim) = sNy
./pkg/aim_v23/aim_mnc_init.F 165 AIM_MNC_INIT
      ib(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 166 AIM_MNC_INIT
      ie(ndim)  = sNy
./pkg/aim_v23/aim_mnc_init.F 167 AIM_MNC_INIT
      ndim = ndim + 1
./pkg/aim_v23/aim_mnc_init.F 168 AIM_MNC_INIT
      dn(ndim)(1:1) = 'T'
./pkg/aim_v23/aim_mnc_init.F 169 AIM_MNC_INIT
      dim(ndim) = -1
./pkg/aim_v23/aim_mnc_init.F 170 AIM_MNC_INIT
      ib(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 171 AIM_MNC_INIT
      ie(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 172 AIM_MNC_INIT
      CALL MNC_CW_ADD_GNAME('AIM_xyt',  ndim, dim,dn,ib,ie, myThid)
./pkg/aim_v23/aim_mnc_init.F 173 AIM_MNC_INIT
      ndim = 3
./pkg/aim_v23/aim_mnc_init.F 174 AIM_MNC_INIT
      dn(ndim)(1:4) = 'Zaim'
./pkg/aim_v23/aim_mnc_init.F 175 AIM_MNC_INIT
      dim(ndim) = NLEV
./pkg/aim_v23/aim_mnc_init.F 176 AIM_MNC_INIT
      ib(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 177 AIM_MNC_INIT
      ie(ndim)  = NLEV
./pkg/aim_v23/aim_mnc_init.F 178 AIM_MNC_INIT
      ndim = ndim + 1
./pkg/aim_v23/aim_mnc_init.F 179 AIM_MNC_INIT
      dn(ndim)(1:1) = 'T'
./pkg/aim_v23/aim_mnc_init.F 180 AIM_MNC_INIT
      dim(ndim) = -1
./pkg/aim_v23/aim_mnc_init.F 181 AIM_MNC_INIT
      ib(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 182 AIM_MNC_INIT
      ie(ndim)  = 1
./pkg/aim_v23/aim_mnc_init.F 183 AIM_MNC_INIT
      CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid)
./pkg/aim_v23/aim_mnc_init.F 33 AIM_MNC_INIT
      INTEGER i,j, ndim
./eesupp/src/global_vec_sum.F 121 GLOBAL_VEC_SUM_R8
      INTEGER ndim, nval, myThid
./eesupp/src/global_vec_sum.F 122 GLOBAL_VEC_SUM_R8
      Real*8 sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 17 GLOBAL_VEC_SUM_R4
     I     ndim, nval,
./eesupp/src/global_vec_sum.F 181 GLOBAL_VEC_SUM_INT
     I     ndim, nval,
./eesupp/src/global_vec_sum.F 203 GLOBAL_VEC_SUM_INT
      INTEGER ndim, nval, myThid
./eesupp/src/global_vec_sum.F 204 GLOBAL_VEC_SUM_INT
      INTEGER sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 39 GLOBAL_VEC_SUM_R4
      INTEGER ndim, nval, myThid
./eesupp/src/global_vec_sum.F 40 GLOBAL_VEC_SUM_R4
      Real*4 sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 99 GLOBAL_VEC_SUM_R8
     I     ndim, nval,