587 |
_RL bottomDragLinear |
_RL bottomDragLinear |
588 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
589 |
|
|
590 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
591 |
& Lamba_theta |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
592 |
_RL HeatCapacity_Cp |
_RL HeatCapacity_Cp |
|
_RL Lamba_theta |
|
593 |
_RL recip_Cp |
_RL recip_Cp |
594 |
|
|
595 |
C Atmospheric physical parameters (Ideal Gas EOS, ...) |
C-- COMMON /PARM_ATM/ Atmospheric physical parameters (Ideal Gas EOS, ...) |
596 |
|
C celsius2K :: convert centigrade (Celsius) degree to Kelvin |
597 |
C atm_Po :: standard reference pressure |
C atm_Po :: standard reference pressure |
598 |
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 |
599 |
C atm_Rd :: gas constant for dry air |
C atm_Rd :: gas constant for dry air |
602 |
C (still a subject of discussions ...) |
C (still a subject of discussions ...) |
603 |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
604 |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
605 |
COMMON /PARM_ATM/ atm_Cp, atm_Rd, atm_kappa, atm_Po, |
COMMON /PARM_ATM/ |
606 |
& integr_GeoPot, selectFindRoSurf |
& celsius2K, |
607 |
|
& atm_Cp, atm_Rd, atm_kappa, atm_Po, |
608 |
|
& integr_GeoPot, selectFindRoSurf |
609 |
|
_RL celsius2K |
610 |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
611 |
INTEGER integr_GeoPot, selectFindRoSurf |
INTEGER integr_GeoPot, selectFindRoSurf |
612 |
|
|
615 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
616 |
LOGICAL useOBCS |
LOGICAL useOBCS |
617 |
LOGICAL useAIM |
LOGICAL useAIM |
618 |
|
LOGICAL useLand |
619 |
LOGICAL useGrdchk |
LOGICAL useGrdchk |
620 |
LOGICAL useECCO |
LOGICAL useECCO |
621 |
LOGICAL useSHAP_FILT |
LOGICAL useSHAP_FILT |
629 |
LOGICAL useThermSEAICE |
LOGICAL useThermSEAICE |
630 |
cswdblk --- end add --- |
cswdblk --- end add --- |
631 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
632 |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, |
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO, |
633 |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
634 |
& usePTRACERS, useSBO, useSEAICE, |
& usePTRACERS, useSBO, useSEAICE, |
635 |
cswdblk -- add --- |
cswdblk -- add --- |