c-----------------------------------------------------------------------------
      parameter (idm=1438,jdm=1679,kdm=16,ms=18)
c
c --- High resolution North Atlantic run
c
c --- ms-1  = max. number of interruptions of any grid row or column by land
c
      parameter (ii=idm,jj=jdm,kk=kdm,ii1=idm-1,jj1=jdm-1)
      parameter (nlato=1,nlongo=1,nlatn=idm,nlongn=jdm)
      parameter (maxp=2000)
c
c --- information in common block gindex keeps do loops from running into land
      common/gindex/ip(idm,jdm),iu(idm,jdm),iv(idm,jdm),iq(idm,jdm),
     .ifp(jdm,ms),ilp(jdm,ms),isp(jdm),jfp(idm,ms),jlp(idm,ms),jsp(idm),
     .ifq(jdm,ms),ilq(jdm,ms),isq(jdm),jfq(idm,ms),jlq(idm,ms),jsq(idm),
     .ifu(jdm,ms),ilu(jdm,ms),isu(jdm),jfu(idm,ms),jlu(idm,ms),jsu(idm),
     .ifv(jdm,ms),ilv(jdm,ms),isv(jdm),jfv(idm,ms),jlv(idm,ms),jsv(idm)
c-----------------------------------------------------------------------------