124 |
&' /* Reference density ( kg/m^3 ) */') |
&' /* Reference density ( kg/m^3 ) */') |
125 |
CALL WRITE_0D_R8( gravity, INDEX_NONE,'gravity =', |
CALL WRITE_0D_R8( gravity, INDEX_NONE,'gravity =', |
126 |
&' /* Gravitational acceleration ( m/s^2 ) */') |
&' /* Gravitational acceleration ( m/s^2 ) */') |
127 |
CALL WRITE_0D_R8( gBaro, INDEX_NONE,'gBaro =', |
Cjmc gBaro : no longer used |
128 |
&' /* Barotropic gravity ( m/s^2 ) */') |
c CALL WRITE_0D_R8( gBaro, INDEX_NONE,'gBaro =', |
129 |
|
c &' /* Barotropic gravity ( m/s^2 ) */') |
130 |
CALL WRITE_0D_R8( f0, INDEX_NONE,'f0 =', |
CALL WRITE_0D_R8( f0, INDEX_NONE,'f0 =', |
131 |
&' /* Reference coriolis parameter ( 1/s ) */') |
&' /* Reference coriolis parameter ( 1/s ) */') |
132 |
CALL WRITE_0D_R8( beta, INDEX_NONE,'beta =', |
CALL WRITE_0D_R8( beta, INDEX_NONE,'beta =', |