587 |
Cml _RL sBeta |
Cml _RL sBeta |
588 |
|
|
589 |
C Atmospheric physical parameters (Ideal Gas EOS, ...) |
C Atmospheric physical parameters (Ideal Gas EOS, ...) |
590 |
C atm_po :: standard reference pressure |
C atm_Po :: standard reference pressure |
591 |
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 |
592 |
|
C atm_Rd :: gas constant for dry air |
593 |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
594 |
C Integr_GeoPot :: option to select the way we integrate the geopotential |
C integr_GeoPot :: option to select the way we integrate the geopotential |
595 |
C (still a subject of discussions ...) |
C (still a subject of discussions ...) |
596 |
COMMON /PARM_ATM/ atm_cp, atm_kappa, atm_po, |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
597 |
& Integr_GeoPot |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
598 |
_RL atm_cp, atm_kappa, atm_po |
COMMON /PARM_ATM/ atm_Cp, atm_Rd, atm_kappa, atm_Po, |
599 |
INTEGER Integr_GeoPot |
& integr_GeoPot, selectFindRoSurf |
600 |
|
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
601 |
|
INTEGER integr_GeoPot, selectFindRoSurf |
602 |
|
|
603 |
C Logical flags for selecting packages |
C Logical flags for selecting packages |
604 |
LOGICAL useKPP |
LOGICAL useKPP |
613 |
LOGICAL usePTRACERS |
LOGICAL usePTRACERS |
614 |
LOGICAL useSEAICE |
LOGICAL useSEAICE |
615 |
cswdblk -- add --- |
cswdblk -- add --- |
616 |
LOGICAL useBulkf |
LOGICAL useBulkforce |
617 |
LOGICAL useTSEAICE |
LOGICAL useThermSEAICE |
618 |
cswdblk --- end add --- |
cswdblk --- end add --- |
619 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
620 |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, |
621 |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
622 |
& usePTRACERS, useSEAICE, |
& usePTRACERS, useSEAICE, |
623 |
cswdblk -- add --- |
cswdblk -- add --- |
624 |
& useTSEAICE, useBulkf |
& useThermSEAICE, useBulkforce |
625 |
cswdblk --- end add --- |
cswdblk --- end add --- |