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	jmc	1.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