!
! Model parameters:
!
      INTEGER ZIMX,ZJMX,ZKMX,ZFLDX,ZPHYX,ZIMXP,ZJMX2,ZKMXP,ZIXKX,
     1  ZIMXP1,ZJMXP1
      real :: zst,zsb
      PARAMETER (
C      ****            NUMBER OF LONGITUDINAL GRID POINTS
     1 ZIMX=72,
C      ****            NUMBER OF LATITUDINAL GRID POINTS
     2 ZJMX=36,
C      ****            NUMBER OF VERTICAL LAYERS
     3 ZKMX=28,
C      ****            HEIGHT OF TOP OF MODEL
     4 ZST=7.,
C      ****            HEIGHT OF BOTTOM OF MODEL
     5 ZSB=(-7.),
C      ****            MAXIMUM NO. OF COLUMNS PER BUFFER
     6 ZFLDX=895,
C      ****            MAXIMUM NO. OF COLUMNS FOR NPHYS VARIABLE
     7 ZPHYX=1131,
C      ****            DIMENSION PARAMETERS
     9 ZIMXP=ZIMX+4,
     1 ZJMX2=ZJMX+ZJMX,
     2 ZKMXP=ZKMX+1,
     3 ZIXKX=ZIMXP*ZKMXP,
     4 ZIMXP1=ZIMX+1,
     5 ZJMXP1=ZJMX+1)
C      ****           NUMBER OF APEX LONGITUDE GRID POINTS
      integer :: imaxm,jmaxm,imaxmp,imx0,jmx0,imx1,jmx1,imx2,jmx2,
     |           imx3,jmx3,imx4,jmx4,ncee
      PARAMETER(
     1 IMAXM=80,
C      ****           NUMBER OF APEX LATITUDE GRID POINTS
     2 JMAXM=97,
C      ****           DERIVED DIMENSIONS
     3 IMAXMP=IMAXM+1,
     4 IMX0=IMAXM+1,
     5 JMX0=(JMAXM+1)/2,
     6 IMX1=(IMX0+1)/2,
     7 JMX1=(JMX0+1)/2,
     8 IMX2=(IMX1+1)/2,
     9 JMX2=(JMX1+1)/2,
     1 IMX3=(IMX2+1)/2,
     2 JMX3=(JMX2+1)/2,
     3 IMX4=(IMX3+1)/2,
     4 JMX4=(JMX3+1)/2,
C      ****           SPACE NEEDED FOR DESCRETIZED COEFFICIENTS OF
C      ****             OF DYNAMO PDE AT ALL 5 LEVELS OF RESOLUTION
     5 NCEE=10*IMX0*JMX0+9*(IMX1*JMX1+IMX2*JMX2+IMX3*JMX3+IMX4*JMX4))
      integer :: jmaxmh,nc0,nc1,nc2,nc3,nc4
      PARAMETER(
     1 JMAXMH=(JMAXM+1)/2,
C      ****           COEFFICIENTS ARE STORED IN 1-D ARRAY CEE(NCEE).
C      ****             FOLLOWING PARAMETERS ARE POINTERS TO THE
C      ****             BEGINNING OF THE COEFFICIENTS FOR EACH LEVEL
C      ****             OF RESOLUTION.
     2 NC0=1,
     3 NC1=NC0+10*IMX0*JMX0,
     4 NC2=NC1+9*IMX1*JMX1,
     5 NC3=NC2+9*IMX2*JMX2,
     6 NC4=NC3+9*IMX3*JMX3)
      integer,PARAMETER :: IMAXG=ZIMX,JMAXG=ZJMX,IMAXGP=IMAXG+1,
     |  JMAXGP=JMAXG+1
C
      integer,parameter :: nzflds=32, nzphys=39
      real,parameter :: spval=1.e36
      integer,parameter  :: ispval = 9999
!
! nflds = number of prognostics for current and previous iteration.
! nphys = number of phys fields
! ntape = number of fields written to tape
! ndisk = number of fields written to disk
! (See index.h for buffer indices)
!
      integer,parameter :: nflds=32, nphys=39, ntape=25, ndisk=25
!
! Max size of an mss history (bytes) (mss will accept larger, so
! this can be increased if desired)
!
      integer(kind=8),parameter :: mxmssbytes=200000000
!
! For new modules hist_mod and input_mod:
      character(len=8),parameter :: tgcm_version = 'tgcm14  '
!
! tgcm_name is either "tiegcm" or "time-gcm"
      character(len=8),parameter :: tgcm_name    = 'tiegcm'
!
      integer,parameter ::
     |  mxday=366,         ! max allowed calendar day
     |  mxhvols = 100,     ! max number of output history files
     |  mxseries = 10,     ! max number of time series for primary histories
     |  mxseries_sech = 50,! max number of secondary history time series 
     |  mxfsech = 50       ! max number of fields on secondary histories
!