Symbol Description Uses
ndim 334


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1152 SOLIR 
      subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1226 SOLIR 
      integer m,n,ndim,np,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1227 SOLIR 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1229 SOLIR 
      _RL  rsirbm(m,ndim),rsirdf(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1230 SOLIR 
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1234 SOLIR 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1235 SOLIR 
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1562 SOLUV 
      subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1648 SOLUV 
      integer m,n,ndim,np,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1649 SOLUV 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1651 SOLUV 
      _RL  oh(m,n,np),dp(m,n,np),taual(m,ndim,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1652 SOLUV 
      _RL  rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1656 SOLUV 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1657 SOLUV 
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1658 SOLUV 
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 658 SORAD 
      subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 764 SORAD 
      integer m,n,ndim,np,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 765 SORAD 
      _RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 766 SORAD 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 767 SORAD 
      _RL  fcld(m,ndim,np),taual(m,ndim,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 768 SORAD 
      _RL  rsirbm(m,ndim),rsirdf(m,ndim),
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 769 SORAD 
     *     rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 773 SORAD 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 774 SORAD 
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 775 SORAD 
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 776 SORAD 
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 834 SORAD 
      call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 852 SORAD 
      call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 857 SORAD 
      call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 952 CLDSCALE 
      subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 996 CLDSCALE 
      integer m,n,ndim,np,ict,icb
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 997 CLDSCALE 
      _RL  cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2)
./pkg/mnc/mnc_cwrapper.F 13 MNC_CW_ADD_GNAME 
     I     ndim,
./pkg/mnc/mnc_cwrapper.F 28 MNC_CW_ADD_GNAME 
      integer myThid, ndim
./pkg/mnc/mnc_cwrapper.F 57 MNC_CW_ADD_GNAME 
      mnc_cw_ndim(indg) = ndim
./pkg/mnc/mnc_cwrapper.F 59 MNC_CW_ADD_GNAME 
      DO i = 1,ndim
./pkg/mnc/mnc_grid.F 105 MNC_GRID_INIT_ALL 
      i = ds_last + ndim
./pkg/mnc/mnc_grid.F 131 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 173 MNC_GRID_INIT_ALL 
      DO i = 1,ndim
./pkg/mnc/mnc_grid.F 208 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/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_file.F 649 MNC_FILE_TRY_READ 
      integer i,j,k, fid, err, ndim,nvar,ngat,unlimid
./pkg/mnc/mnc_file.F 674 MNC_FILE_TRY_READ 
      err = NF_INQ(fid, ndim, nvar, ngat, unlimid)
./pkg/mnc/mnc_file.F 680 MNC_FILE_TRY_READ 
      DO id = 1,ndim
./pkg/fizhi/fizhi_swrad.F 1151 SOLIR 
      subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1225 SOLIR 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1226 SOLIR 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1228 SOLIR 
      _RL  rsirbm(m,ndim),rsirdf(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1229 SOLIR 
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1233 SOLIR 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1234 SOLIR 
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1561 SOLUV 
      subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1647 SOLUV 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1648 SOLUV 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1650 SOLUV 
      _RL  oh(m,n,np),dp(m,n,np),taual(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1651 SOLUV 
      _RL  rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1655 SOLUV 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1656 SOLUV 
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 1657 SOLUV 
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./pkg/fizhi/fizhi_swrad.F 657 SORAD 
      subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2,
./pkg/fizhi/fizhi_swrad.F 763 SORAD 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 764 SORAD 
      _RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 765 SORAD 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2)
./pkg/fizhi/fizhi_swrad.F 766 SORAD 
      _RL  fcld(m,ndim,np),taual(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 767 SORAD 
      _RL  rsirbm(m,ndim),rsirdf(m,ndim),
./pkg/fizhi/fizhi_swrad.F 768 SORAD 
     *     rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2
./pkg/fizhi/fizhi_swrad.F 772 SORAD 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 773 SORAD 
      _RL  fdirir(m,ndim),fdifir(m,ndim)
./pkg/fizhi/fizhi_swrad.F 774 SORAD 
      _RL  fdirpar(m,ndim),fdifpar(m,ndim)
./pkg/fizhi/fizhi_swrad.F 775 SORAD 
      _RL  fdiruv(m,ndim),fdifuv(m,ndim)
./pkg/fizhi/fizhi_swrad.F 833 SORAD 
      call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./pkg/fizhi/fizhi_swrad.F 851 SORAD 
      call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb
./pkg/fizhi/fizhi_swrad.F 856 SORAD 
      call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb
./pkg/fizhi/fizhi_swrad.F 951 CLDSCALE 
      subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb,
./pkg/fizhi/fizhi_swrad.F 995 CLDSCALE 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 996 CLDSCALE 
      _RL  cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2)
./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/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