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_F, NST_LEV_F, NCPUs_FTH_F
      PARAMETER (NST_LEV_TOT_F = 1)   !Number of Total Nesting Levels
      PARAMETER (NST_LEV_F     = 1)   !Which level am I?
      PARAMETER (NCPUs_FTH_F   = 40 )

      COMMON /NEST_PARENT_PAR_I/
     &       LEFTB, RIGHTB,
     &       MSTR_DRV_F, MSTR_FTH_F, MSTR_SON_F
      INTEGER LEFTB
      INTEGER RIGHTB
      INTEGER MSTR_DRV_F (NST_LEV_TOT_F)
      INTEGER MSTR_FTH_F (NST_LEV_TOT_F)
      INTEGER MSTR_SON_F (NST_LEV_TOT_F)

      INTEGER NCPUs_SON_F(NST_LEV_TOT_F)        
      DATA NCPUs_SON_F / 20 /
c      DATA NCPUs_SON_F / 1,2,3/

      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			INTEGER NST_LEV_TOT_F, NST_LEV_F, NCPUs_FTH_F
19			PARAMETER (NST_LEV_TOT_F = 1) !Number of Total Nesting Levels
20			PARAMETER (NST_LEV_F = 1) !Which level am I?
21			PARAMETER (NCPUs_FTH_F = 40 )
22
23			COMMON /NEST_PARENT_PAR_I/
24			& LEFTB, RIGHTB,
25			& MSTR_DRV_F, MSTR_FTH_F, MSTR_SON_F
26			INTEGER LEFTB
27			INTEGER RIGHTB
28			INTEGER MSTR_DRV_F (NST_LEV_TOT_F)
29			INTEGER MSTR_FTH_F (NST_LEV_TOT_F)
30			INTEGER MSTR_SON_F (NST_LEV_TOT_F)
31
32			INTEGER NCPUs_SON_F(NST_LEV_TOT_F)
33			DATA NCPUs_SON_F / 20 /
34			c DATA NCPUs_SON_F / 1,2,3/
35
36			COMMON /NEST_PARENT_PAR_C/
37			& dirNEST_PARENT
38			CHARACTER*80 dirNEST_PARENT
39
40			#endif /* ALLOW_NEST_PARENT */
41
42
43			CEH3 ;;; Local Variables: ***
44			CEH3 ;;; mode:fortran ***
45			CEH3 ;;; End: ***