!
! NMC boundaries for T and Z:
! User sets nmc=1 if nmc boundaries are desired (default is nmc=0,
!   see input.f) 
!
      real :: znmc,tnmc
      integer :: nmc
      integer,parameter :: npr=3
      common/nmc_real/ znmc(zimxp,zjmx,npr),tnmc(zimxp,zjmx)
      common/nmc_int / nmc