text: C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/CPL_MAP2GRIDS.h,v 1.4 2013/12/02 22:03:09 jmc Exp $
  C $Name:  $
  
  C     *==========================================================*
  C     | CPL_MAP2GRIDS.h
  C     |   Declare arrays used for mapping coupling fields from
  C     |     one grid (atmos., ocean) to the other grid
  C     *==========================================================*
  
        INTEGER ROsize
        PARAMETER (ROsize=Nx_atm*Ny_atm)
  
  C--   COMMON / RUNOFF_MAP/: to map runoff from atmos. grid to ocean grid
  C     nROmap  :: Nunber of connected grid points.
  C     ijROatm :: index of land grid point that runoff to the ocean
  C     ijROocn :: index of ocean grid point where the runoff ends
  C     arROmap :: fraction of the land runoff ijROatm that go to ijROocn
        COMMON / RUNOFF_MAP_I / nROmap, ijROocn, ijROatm
        INTEGER nROmap
        INTEGER ijROocn(ROsize), ijROatm(ROsize)
        COMMON / RUNOFF_MAP_R / arROmap
        _RL arROmap(ROsize)
  
  