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 |
|