1 |
C $Header: /u/gcmpack/MITgcm/pkg/mypackage/MYPACKAGE.h,v 1.1 2006/06/28 21:26:20 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_MYPACKAGE |
5 |
|
6 |
C Package flag |
7 |
LOGICAL myPa_MNC |
8 |
LOGICAL myPa_MDSIO |
9 |
COMMON /MYPA_PACKAGE/ |
10 |
& myPa_MNC, myPa_MDSIO |
11 |
|
12 |
C MYPA parameters |
13 |
LOGICAL myPa_StaV_Cgrid |
14 |
LOGICAL myPa_Tend_Cgrid |
15 |
LOGICAL myPa_applyTendT |
16 |
LOGICAL myPa_applyTendS |
17 |
LOGICAL myPa_applyTendU |
18 |
LOGICAL myPa_applyTendV |
19 |
|
20 |
C- additional parameters: |
21 |
LOGICAL myPa_doSwitch1 |
22 |
LOGICAL myPa_doSwitch2 |
23 |
INTEGER myPa_index1 |
24 |
INTEGER myPa_index2 |
25 |
_RL myPa_param1 |
26 |
_RL myPa_param2 |
27 |
CHARACTER*(MAX_LEN_FNAM) myPa_string1 |
28 |
CHARACTER*(MAX_LEN_FNAM) myPa_string2 |
29 |
|
30 |
C- file names for initial conditions: |
31 |
CHARACTER*(MAX_LEN_FNAM) myPa_Scal1File |
32 |
CHARACTER*(MAX_LEN_FNAM) myPa_Scal2File |
33 |
CHARACTER*(MAX_LEN_FNAM) myPa_VelUFile |
34 |
CHARACTER*(MAX_LEN_FNAM) myPa_VelVFile |
35 |
CHARACTER*(MAX_LEN_FNAM) myPa_Surf1File |
36 |
CHARACTER*(MAX_LEN_FNAM) myPa_Surf2File |
37 |
|
38 |
COMMON /MYPA_PARAMS_L/ |
39 |
& myPa_StaV_Cgrid, myPa_Tend_Cgrid, |
40 |
& myPa_applyTendT, myPa_applyTendS, |
41 |
& myPa_applyTendU, myPa_applyTendV, |
42 |
& myPa_doSwitch1, myPa_doSwitch2 |
43 |
COMMON /MYPA_PARAMS_I/ myPa_index1, myPa_index2 |
44 |
COMMON /MYPA_PARAMS_R/ myPa_param1, myPa_param2 |
45 |
COMMON /MYPA_PARAMS_C/ myPa_string1, myPa_string2, |
46 |
& myPa_Scal1File, myPa_Scal2File, |
47 |
& myPa_VelUFile, myPa_VelVFile, |
48 |
& myPa_Surf1File, myPa_Surf2File |
49 |
|
50 |
#ifdef MYPACKAGE_3D_STATE |
51 |
C MYPA 3-dim. fields |
52 |
_RL myPa_StatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
53 |
_RL myPa_StatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
54 |
_RL myPa_StatVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
55 |
_RL myPa_StatVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
56 |
COMMON /MYPA_STATE_3D/ |
57 |
& myPa_StatScal1, myPa_StatScal2, |
58 |
& myPa_StatVelU, myPa_StatVelV |
59 |
#endif /* MYPACKAGE_3D_STATE */ |
60 |
#ifdef MYPACKAGE_2D_STATE |
61 |
C MYPA 2-dim. fields |
62 |
_RL myPa_Surf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
63 |
_RL myPa_Surf2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
64 |
COMMON /MYPA_STATE_2D/ |
65 |
& myPa_Surf1, myPa_Surf2 |
66 |
#endif /* MYPACKAGE_2D_STATE */ |
67 |
|
68 |
#ifdef MYPACKAGE_TENDENCY |
69 |
_RL myPa_TendScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
70 |
_RL myPa_TendScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
71 |
_RL myPa_TendVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
72 |
_RL myPa_TendVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
73 |
COMMON /MYPA_TENDENCY/ |
74 |
& myPa_TendScal1, mypa_TendScal2, |
75 |
& myPa_TendVelU, mypa_TendVelV |
76 |
#endif /* MYPACKAGE_TENDENCY */ |
77 |
|
78 |
#endif /* ALLOW_MYPACKAGE */ |
79 |
|
80 |
CEH3 ;;; Local Variables: *** |
81 |
CEH3 ;;; mode:fortran *** |
82 |
CEH3 ;;; End: *** |