/[MITgcm]/MITgcm/pkg/mypackage/MYPACKAGE.h
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/MYPACKAGE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Wed Jun 28 21:26:20 2006 UTC revision 1.2 by jmc, Sun Jan 27 20:52:11 2008 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
5    
6  C     Package flag  C     Package flag
7        logical MYPAisON        LOGICAL myPa_MNC
8        logical MYPA_MNC        LOGICAL myPa_MDSIO
9        logical MYPA_MDSIO        COMMON /MYPA_PACKAGE/
10        COMMON /MYPA_PACKAGE/ MYPAisON,       &                     myPa_MNC, myPa_MDSIO
      &                     MYPA_MNC, MYPA_MDSIO  
11    
12  C     MYPA parameters  C     MYPA parameters
13        LOGICAL MYPA_doSwitch1        LOGICAL myPa_StaV_Cgrid
14        LOGICAL MYPA_doSwitch2        LOGICAL myPa_Tend_Cgrid
15        INTEGER MYPA_index1        LOGICAL myPa_applyTendT
16        INTEGER MYPA_index2        LOGICAL myPa_applyTendS
17        _RL MYPA_param1        LOGICAL myPa_applyTendU
18        _RL MYPA_param2        LOGICAL myPa_applyTendV
19        CHARACTER*(MAX_LEN_FNAM) MYPA_string1  
20        CHARACTER*(MAX_LEN_FNAM) MYPA_string2  C-    additional parameters:
21        CHARACTER*(MAX_LEN_FNAM) mypaStatScal1File        LOGICAL myPa_doSwitch1
22        CHARACTER*(MAX_LEN_FNAM) mypaStatScal2File        LOGICAL myPa_doSwitch2
23        CHARACTER*(MAX_LEN_FNAM) mypaStatUvelFile        INTEGER myPa_index1
24        CHARACTER*(MAX_LEN_FNAM) mypaStatVvelFile        INTEGER myPa_index2
25        CHARACTER*(MAX_LEN_FNAM) mypaSurf1File        _RL myPa_param1
26        CHARACTER*(MAX_LEN_FNAM) mypaSurf2File        _RL myPa_param2
27          CHARACTER*(MAX_LEN_FNAM) myPa_string1
28        COMMON /MYPA_PARAMS_L/ MYPA_doSwitch1, MYPA_doSwitch2        CHARACTER*(MAX_LEN_FNAM) myPa_string2
29        COMMON /MYPA_PARAMS_I/ MYPA_index1, MYPA_index2  
30        COMMON /MYPA_PARAMS_R/ MYPA_param1, MYPA_param2  C-    file names for initial conditions:
31        COMMON /MYPA_PARAMS_C/ MYPA_string1, MYPA_string2,        CHARACTER*(MAX_LEN_FNAM) myPa_Scal1File
32       &       mypaStatScal1File, mypaStatScal2File,        CHARACTER*(MAX_LEN_FNAM) myPa_Scal2File
33       &       mypaStatUvelFile, mypaStatVvelFile,        CHARACTER*(MAX_LEN_FNAM) myPa_VelUFile
34       &       mypaSurf1File, mypaSurf2File        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  C     MYPA 3-dim. fields
52        _RL mypaStatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL myPa_StatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
53        _RL mypaStatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL myPa_StatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
54        _RL mypaStatUvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL myPa_StatVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
55        _RL mypaStatVvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL myPa_StatVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
56        _RL mypaGScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        COMMON /MYPA_STATE_3D/
57        _RL mypaGScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)       &    myPa_StatScal1, myPa_StatScal2,
58        _RL mypaGUvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)       &    myPa_StatVelU,  myPa_StatVelV
59        _RL mypaGVvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  #endif /* MYPACKAGE_3D_STATE */
60        COMMON /MYPA_real_3d/  #ifdef MYPACKAGE_2D_STATE
      &    mypaStatScal1, mypaStatScal2,  
      &    mypaStatUvel, mypaStatVvel,  
      &    mypaGScal1, mypaGScal2,  
      &    mypaGUvel, mypaGVvel  
   
61  C     MYPA 2-dim. fields  C     MYPA 2-dim. fields
62        _RL mypaSurf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL myPa_Surf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
63        _RL mypaSurf2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL myPa_Surf2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
64        COMMON /MYPA_real_2d/ mypaSurf1, mypaSurf2        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 */  #endif /* ALLOW_MYPACKAGE */
79    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22