c
c nwlat = number of words in a latitude slice for a tiegcm history
c with Zp -7 to +7. There are 25 fields: first 16 are at kmxp1, then
c a single field at k=1 (NPHIH), then remaining 8 fields are at kmxp1.
c (the +1 at the end of nwlat calculation is for float(j) which is at 
c the beginning of each lat record)
c
      parameter (imxp1=74, kmxp1=29, 
     +  nwlat=(16*kmxp1+1+8*kmxp1)*imxp1+1)
      parameter (lurd=20,luwr=22)
      common/dat/ f(nwlat)
      character*80 wrmss, rdmss
      common/inp/  wrmss, rdmss, imx,jmx,kmx,zst,zsb,nflds_proc,
     +  isdyn,istimes,isflx,version,issech
c