88 |
C :: used. coordsSet counts how many vertical coordinate systems have been |
C :: used. coordsSet counts how many vertical coordinate systems have been |
89 |
C used to specify variables. coordsSet > 1 is an error. |
C used to specify variables. coordsSet > 1 is an error. |
90 |
C |
C |
91 |
|
|
92 |
LOGICAL zCoordInputData |
LOGICAL zCoordInputData |
93 |
LOGICAL pCoordInputData |
LOGICAL pCoordInputData |
94 |
LOGICAL rCoordInputData |
LOGICAL rCoordInputData |
95 |
INTEGER coordsSet |
INTEGER coordsSet |
96 |
|
|
97 |
|
C Variables which have vertical coordinate system dependency. |
98 |
|
C delZ :: Vertical grid spacing ( m ). |
99 |
|
C delP :: Vertical grid spacing ( Pa ). |
100 |
|
C viscAz :: Eddy viscosity coeff. for mixing of |
101 |
|
C momentum vertically ( m^2/s ) |
102 |
|
C viscAp :: Eddy viscosity coeff. for mixing of |
103 |
|
C momentum vertically ( Pa^2/s ) |
104 |
|
C diffKzT :: Laplacian diffusion coeff. for mixing of |
105 |
|
C heat vertically ( m^2/s ) |
106 |
|
C diffKpT :: Laplacian diffusion coeff. for mixing of |
107 |
|
C heat vertically ( Pa^2/s ) |
108 |
|
C diffKzS :: Laplacian diffusion coeff. for mixing of |
109 |
|
C salt vertically ( m^2/s ) |
110 |
|
C diffKpS :: Laplacian diffusion coeff. for mixing of |
111 |
|
C salt vertically ( Pa^2/s ) |
112 |
|
_RL delZ(Nr) |
113 |
|
_RL delP(Nr) |
114 |
|
_RL viscAz |
115 |
|
_RL viscAp |
116 |
|
_RL diffKzT |
117 |
|
_RL diffKpT |
118 |
|
_RL diffKzS |
119 |
|
_RL diffKpS |
120 |
|
|
121 |
C Retired main data file parameters. Kept here to trap use of old data files. |
C Retired main data file parameters. Kept here to trap use of old data files. |
122 |
C zonal_filt_lat - Moved to package "zonal_filt" |
C zonal_filt_lat - Moved to package "zonal_filt" |
123 |
C nRetired :: Counter used to trap gracefully namelists containing "retired" |
C nRetired :: Counter used to trap gracefully namelists containing "retired" |