nesting_sannino/nest_parent/NEST_PARENT_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/nesting_son/NEST_PARENT_PARAMS.h,v 1.1 2005/07/18 21:54:17 gianmaria sannino Exp $
C $Name:  $

C     /===============================================================\
C     | NEST_PARENT_PARAMS.h                                          |
C     | o Basic parameter header for NEST_PARENT coupler              |
C     |   parameterization.  These parameters are initialized by      |
C     |   and/or read in from data.nesting_son file.                  |
C     \===============================================================/

C Parameters used in nesting_son routine arguments 
C (needed for compilation
C of nesting_son routines even if ALLOW_NEST_PARENT is not defined)
C     nesting_sonpar                  - ????

#ifdef ALLOW_NEST_PARENT

      INTEGER NST_LEV_TOT_P, NST_LEV_P, NCPUs_PAR_P
      PARAMETER (NST_LEV_TOT_P = 1)   !Number of Total Nesting Levels
      PARAMETER (NST_LEV_P     = 1)   !Which level am I?
      PARAMETER (NCPUs_PAR_P   = 40 )

      COMMON /NEST_PARENT_PAR_I/
     &       LEFTB, RIGHTB,
     &       MSTR_DRV_P, MSTR_PAR_P, MSTR_CLD_P
      INTEGER LEFTB
      INTEGER RIGHTB
      INTEGER MSTR_DRV_P(NST_LEV_TOT_P)
      INTEGER MSTR_PAR_P(NST_LEV_TOT_P)
      INTEGER MSTR_CLD_P(NST_LEV_TOT_P)

      INTEGER NCPUs_CLD_P(NST_LEV_TOT_P)        
      DATA NCPUs_CLD_P / 20 /

      COMMON /NEST_PARENT_PAR_C/
     &                   dirNEST_PARENT
      CHARACTER*80 dirNEST_PARENT

#endif /* ALLOW_NEST_PARENT */


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/nesting_son/NEST_PARENT_PARAMS.h,v 1.1 2005/07/18 21:54:17 gianmaria sannino Exp $
2			C $Name: $
3
4			C /===============================================================\
5			C \| NEST_PARENT_PARAMS.h \|
6			C \| o Basic parameter header for NEST_PARENT coupler \|
7			C \| parameterization. These parameters are initialized by \|
8			C \| and/or read in from data.nesting_son file. \|
9			C \===============================================================/
10
11			C Parameters used in nesting_son routine arguments
12			C (needed for compilation
13			C of nesting_son routines even if ALLOW_NEST_PARENT is not defined)
14			C nesting_sonpar - ????
15
16			#ifdef ALLOW_NEST_PARENT
17
18	sannino	1.2	INTEGER NST_LEV_TOT_P, NST_LEV_P, NCPUs_PAR_P
19			PARAMETER (NST_LEV_TOT_P = 1) !Number of Total Nesting Levels
20			PARAMETER (NST_LEV_P = 1) !Which level am I?
21			PARAMETER (NCPUs_PAR_P = 40 )
22	heimbach	1.1
23			COMMON /NEST_PARENT_PAR_I/
24			& LEFTB, RIGHTB,
25	sannino	1.2	& MSTR_DRV_P, MSTR_PAR_P, MSTR_CLD_P
26	heimbach	1.1	INTEGER LEFTB
27			INTEGER RIGHTB
28	sannino	1.2	INTEGER MSTR_DRV_P(NST_LEV_TOT_P)
29			INTEGER MSTR_PAR_P(NST_LEV_TOT_P)
30			INTEGER MSTR_CLD_P(NST_LEV_TOT_P)
31
32			INTEGER NCPUs_CLD_P(NST_LEV_TOT_P)
33			DATA NCPUs_CLD_P / 20 /
34	heimbach	1.1
35			COMMON /NEST_PARENT_PAR_C/
36			& dirNEST_PARENT
37			CHARACTER*80 dirNEST_PARENT
38
39			#endif /* ALLOW_NEST_PARENT */
40
41
42			CEH3 ;;; Local Variables: ***
43			CEH3 ;;; mode:fortran ***
44			CEH3 ;;; End: ***