1 |
C $Header: /u/gcmpack/MITgcm_contrib/eh3/regrid/regrid/REGRID.h,v 1.2 2006/08/10 21:49:58 edhill Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
|
5 |
C Package flags |
6 |
LOGICAL regridisON |
7 |
LOGICAL regrid_MNC |
8 |
LOGICAL regrid_MDSIO |
9 |
COMMON /REGRID_PACKAGE/ |
10 |
& regridisON, regrid_MNC, regrid_MDSIO |
11 |
|
12 |
|
13 |
C ===== Parameters ===== |
14 |
C Integer |
15 |
INTEGER regrid_ngrids |
16 |
COMMON /REGRID_PARAM_I/ |
17 |
& regrid_ngrids |
18 |
|
19 |
C Character |
20 |
CHARACTER*(MAX_LEN_FNAM) regrid_fbname_in(REGRID_NGRID_MAX) |
21 |
CHARACTER*(MAX_LEN_FNAM) regrid_fbname_out(REGRID_NGRID_MAX) |
22 |
COMMON /REGRID_CHAR/ |
23 |
& regrid_fbname_in, regrid_fbname_out |
24 |
|
25 |
|
26 |
C ===== DATA ===== |
27 |
C Real |
28 |
_RL regrid_amat(REGRID_NELEM_MAX,nSx,nSy) |
29 |
COMMON /REGRID_RL/ |
30 |
& regrid_amat |
31 |
|
32 |
C Integer |
33 |
INTEGER regrid_ibeg(REGRID_NGRID_MAX,nSx,nSy) |
34 |
INTEGER regrid_iend(REGRID_NGRID_MAX,nSx,nSy) |
35 |
INTEGER regrid_nout(REGRID_NGRID_MAX) |
36 |
INTEGER regrid_i_loc(REGRID_NELEM_MAX,nSx,nSy) |
37 |
INTEGER regrid_j_loc(REGRID_NELEM_MAX,nSx,nSy) |
38 |
INTEGER regrid_i_out(REGRID_NELEM_MAX,nSx,nSy) |
39 |
COMMON /REGRID_RL/ |
40 |
& regrid_ibeg, regrid_iend, regrid_nout, |
41 |
& regrid_i_loc, regrid_j_loc, |
42 |
& regrid_i_out |
43 |
|
44 |
|
45 |
CEH3 ;;; Local Variables: *** |
46 |
CEH3 ;;; mode:fortran *** |
47 |
CEH3 ;;; End: *** |