610 |
C atm_Cp :: specific heat (Cp) of the (dry) air at constant pressure |
C atm_Cp :: specific heat (Cp) of the (dry) air at constant pressure |
611 |
C atm_Rd :: gas constant for dry air |
C atm_Rd :: gas constant for dry air |
612 |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
613 |
|
C atm_Rq :: water vapour specific volume anomaly relative to dry air |
614 |
|
C (e.g. typical value = (29/18 -1) 10^-3 with q [g/kg]) |
615 |
C integr_GeoPot :: option to select the way we integrate the geopotential |
C integr_GeoPot :: option to select the way we integrate the geopotential |
616 |
C (still a subject of discussions ...) |
C (still a subject of discussions ...) |
617 |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
618 |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
619 |
COMMON /PARM_ATM/ |
COMMON /PARM_ATM/ |
620 |
& celsius2K, |
& celsius2K, |
621 |
& atm_Cp, atm_Rd, atm_kappa, atm_Po, |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
622 |
& integr_GeoPot, selectFindRoSurf |
& integr_GeoPot, selectFindRoSurf |
623 |
_RL celsius2K |
_RL celsius2K |
624 |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq |
625 |
INTEGER integr_GeoPot, selectFindRoSurf |
INTEGER integr_GeoPot, selectFindRoSurf |
626 |
|
|
627 |
C Logical flags for selecting packages |
C Logical flags for selecting packages |