1 |
jmc |
1.2 |
C $Header: /u/gcmpack/MITgcm/pkg/mypackage/MYPACKAGE.h,v 1.1 2006/06/28 21:26:20 heimbach Exp $ |
2 |
heimbach |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_MYPACKAGE |
5 |
|
|
|
6 |
|
|
C Package flag |
7 |
jmc |
1.2 |
LOGICAL myPa_MNC |
8 |
|
|
LOGICAL myPa_MDSIO |
9 |
|
|
COMMON /MYPA_PACKAGE/ |
10 |
|
|
& myPa_MNC, myPa_MDSIO |
11 |
heimbach |
1.1 |
|
12 |
|
|
C MYPA parameters |
13 |
jmc |
1.2 |
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 |
heimbach |
1.1 |
|
50 |
jmc |
1.2 |
#ifdef MYPACKAGE_3D_STATE |
51 |
heimbach |
1.1 |
C MYPA 3-dim. fields |
52 |
jmc |
1.2 |
_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 |
heimbach |
1.1 |
C MYPA 2-dim. fields |
62 |
jmc |
1.2 |
_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 |
heimbach |
1.1 |
|
78 |
|
|
#endif /* ALLOW_MYPACKAGE */ |
79 |
|
|
|
80 |
|
|
CEH3 ;;; Local Variables: *** |
81 |
|
|
CEH3 ;;; mode:fortran *** |
82 |
|
|
CEH3 ;;; End: *** |