!
! NMC boundaries for T and Z:
! npr = number of pressure levels (30, 10, and 5 mb)
! See ncep_mod.f for file read and calculation of zncep and tncep.
!
! New ncep method (input ncep==1):
      integer,parameter :: npr=3
      real :: zncep,tncep
      common/ncep_real/ zncep(zimxp,zjmx,npr),tncep(zimxp,zjmx)
!
! Old nmc method (input nmc==1):
      real :: znmc,tnmc
!     integer :: nmc
!     integer,parameter :: npr=3
      common/nmc_real/ znmc(zimxp,zjmx,npr),tnmc(zimxp,zjmx)
!     common/nmc_int / nmc