1 |
edhill |
1.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: *** |