PARAMETER (IMOCN=72,JMOCN=46)
      common /OCEAN_GEOM/CLAND_OCEAN(imOCN,jmOCN),DXYPOCN(jmOCN)
     &  ,CLAND4OCEAN(IMOCN,JMOCN)