pkg/atm_ocn_coupler/CPL_MAP2GRIDS.h

C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/CPL_MAP2GRIDS.h,v 1.1 2003/12/15 02:28:00 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
C     runoffmapFile :: Input file for setting runoffmap
      COMMON / RUNOFF_MAP_I / nROmap, ijROocn, ijROatm
      INTEGER nROmap
      INTEGER ijROocn(ROsize), ijROatm(ROsize)
      COMMON / RUNOFF_MAP_R / arROmap
      _RL arROmap(ROsize)
      COMMON / RUNOFF_MAP_C / runoffmapFile
      CHARACTER*80 runoffmapFile

1	C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/CPL_MAP2GRIDS.h,v 1.1 2003/12/15 02:28:00 jmc Exp $
2	C $Name: $
3
4	C ==========================================================
5	C \| CPL_MAP2GRIDS.h
6	C \| Declare arrays used for mapping coupling fields from
7	C \| one grid (atmos., ocean) to the other grid
8	C ==========================================================
9
10	INTEGER ROsize
11	PARAMETER (ROsize=Nx_atm*Ny_atm)
12
13	C-- COMMON / RUNOFF_MAP/: to map runoff from atmos. grid to ocean grid
14	C nROmap :: Nunber of connected grid points.
15	C ijROatm :: index of land grid point that runoff to the ocean
16	C ijROocn :: index of ocean grid point where the runoff ends
17	C arROmap :: fraction of the land runoff ijROatm that go to ijROocn
18	C runoffmapFile :: Input file for setting runoffmap
19	COMMON / RUNOFF_MAP_I / nROmap, ijROocn, ijROatm
20	INTEGER nROmap
21	INTEGER ijROocn(ROsize), ijROatm(ROsize)
22	COMMON / RUNOFF_MAP_R / arROmap
23	_RL arROmap(ROsize)
24	COMMON / RUNOFF_MAP_C / runoffmapFile
25	CHARACTER*80 runoffmapFile
26