145 |
& ' /* specific heat (Cp) of dry air ( J/kg/K ) */') |
& ' /* specific heat (Cp) of dry air ( J/kg/K ) */') |
146 |
CALL WRITE_0D_R8( atm_kappa, INDEX_NONE, 'atm_kappa =', |
CALL WRITE_0D_R8( atm_kappa, INDEX_NONE, 'atm_kappa =', |
147 |
& ' /* kappa (=Rd/Cp ) of dry air */') |
& ' /* kappa (=Rd/Cp ) of dry air */') |
148 |
|
CALL WRITE_0D_R8( atm_Rq, INDEX_NONE, 'atm_Rq =', |
149 |
|
& ' /* water vap. specific vol. anomaly relative to dry air */') |
150 |
CALL WRITE_0D_R8( atm_Po, INDEX_NONE, 'atm_Po =', |
CALL WRITE_0D_R8( atm_Po, INDEX_NONE, 'atm_Po =', |
151 |
& ' /* standard reference pressure ( Pa ) */') |
& ' /* standard reference pressure ( Pa ) */') |
152 |
CALL WRITE_0D_I( integr_GeoPot, INDEX_NONE, 'integr_GeoPot =', |
CALL WRITE_0D_I( integr_GeoPot, INDEX_NONE, 'integr_GeoPot =', |