/[MITgcm]/MITgcm_contrib/rpa_layers/layers/LAYERS.h
ViewVC logotype

Diff of /MITgcm_contrib/rpa_layers/layers/LAYERS.h

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

revision 1.1 by rpa, Tue Sep 15 19:16:53 2009 UTC revision 1.2 by jmc, Wed Sep 16 18:04:14 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #ifdef ALLOW_LAYERS  #ifdef ALLOW_LAYERS
5    
6  C--   Header for LAYERS package. By Ryan Abernathey.  C--   Header for LAYERS package. By Ryan Abernathey.
# Line 20  C      layers_HV    :: Layer thickness a Line 23  C      layers_HV    :: Layer thickness a
23  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
24        _RL layers_HU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)        _RL layers_HU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)
25  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
26        COMMON /LAYERS_U/ layers_UFlux        COMMON /LAYERS_U/ layers_UFlux
27  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
28       &  , layers_HU       &  , layers_HU
29  #endif /* LAYERS_THICKNESS */    #endif /* LAYERS_THICKNESS */
30  #endif /* LAYERS_UFLUX */  #endif /* LAYERS_UFLUX */
31    
32  #ifdef LAYERS_VFLUX  #ifdef LAYERS_VFLUX
# Line 31  C      layers_HV    :: Layer thickness a Line 34  C      layers_HV    :: Layer thickness a
34  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
35        _RL layers_HV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)        _RL layers_HV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)
36  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
37        COMMON /LAYERS_V/ layers_VFlux        COMMON /LAYERS_V/ layers_VFlux
38  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
39       &  , layers_HV       &  , layers_HV
40  #endif /* LAYERS_THICKNESS */    #endif /* LAYERS_THICKNESS */
41  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
42    
43  C-- The same variables, time-averaged  C-- The same variables, time-averaged
# Line 44  C-- The same variables, time-averaged Line 47  C-- The same variables, time-averaged
47  C     Keep track of time  C     Keep track of time
48        _RL layers_TimeAve(Nlayers,nSx,nSy)        _RL layers_TimeAve(Nlayers,nSx,nSy)
49        COMMON /LAYERS_TAVE/ layers_TimeAve        COMMON /LAYERS_TAVE/ layers_TimeAve
50          
51  #ifdef LAYERS_UFLUX  #ifdef LAYERS_UFLUX
52        _RL layers_UFlux_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)        _RL layers_UFlux_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)
53  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
54        _RL layers_HU_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)        _RL layers_HU_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy)
55  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
56        COMMON /LAYERS_U_TAVE/ layers_UFlux_T        COMMON /LAYERS_U_TAVE/ layers_UFlux_T
57  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
58       &  , layers_HU_T       &  , layers_HU_T
59  #endif /* LAYERS_THICKNESS */    #endif /* LAYERS_THICKNESS */
60  #endif /* LAYERS_UFLUX */  #endif /* LAYERS_UFLUX */
61    
62  #ifdef LAYERS_VFLUX  #ifdef LAYERS_VFLUX
# Line 64  C     Keep track of time Line 67  C     Keep track of time
67        COMMON /LAYERS_V_TAVE/ layers_VFlux_T        COMMON /LAYERS_V_TAVE/ layers_VFlux_T
68  #ifdef LAYERS_THICKNESS  #ifdef LAYERS_THICKNESS
69       &  , layers_HV_T       &  , layers_HV_T
70  #endif /* LAYERS_THICKNESS */    #endif /* LAYERS_THICKNESS */
71  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
72    
73  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
# Line 82  C      MapFact  :: factors for interpola Line 85  C      MapFact  :: factors for interpola
85        INTEGER MapIndex(FineGridMax), CellIndex(FineGridMax)        INTEGER MapIndex(FineGridMax), CellIndex(FineGridMax)
86        _RL MapFact(FineGridMax)        _RL MapFact(FineGridMax)
87        INTEGER NZZ        INTEGER NZZ
88        COMMON /LAYERS_VERT_GRID/        COMMON /LAYERS_VERT_GRID_I/
89       &      layers_G, dZZ, NZZ, MapIndex, MapFact, CellIndex       &      NZZ, MapIndex, CellIndex
90          COMMON /LAYERS_VERT_GRID_R/
91         &      layers_G, dZZ, MapFact
92    
93    
94  #endif /* ALLOW_LAYERS */  #endif /* ALLOW_LAYERS */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22