SUCST Subroutine

subroutine SUCST(KULOUT, KDAT, KSSS, KPRINTLEV)

Uses

  • proc~~sucst~2~~UsesGraph proc~sucst~2 SUCST module~parkind1~2 PARKIND1 proc~sucst~2->module~parkind1~2 module~yomcst~3 YOMCST proc~sucst~2->module~yomcst~3 module~yomrip YOMRIP proc~sucst~2->module~yomrip module~yomhook yomhook proc~sucst~2->module~yomhook module~yomcst~3->module~parkind1~2 module~yomrip->module~parkind1~2

*** *SUCST * - Routine to initialize the constants of the model.

  • Interface. ---------- CALL *SUCST (..)

    ABSOLUTE THERMODYNAMICAL FUNCTIONS .

    1. DEFINE FUNDAMENTAL CONSTANTS. -----------------------------

    2. DEFINE ASTRONOMICAL CONSTANTS. ------------------------------

    3. DEFINE GEOIDE. --------------

    4. DEFINE RADIATION CONSTANTS. ---------------------------

    5. DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE. ------------------------------------------

    6. DEFINE THERMODYNAMIC CONSTANTS, LIQUID PHASE. ---------------------------------------------

    7. DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE. --------------------------------------------

    8. DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE. ----------------------------------------------------

    9. SATURATED VAPOUR PRESSURE. --------------------------

    10. PRINTS

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KULOUT
integer(kind=JPIM), intent(in) :: KDAT
integer(kind=JPIM), intent(in) :: KSSS
integer(kind=JPIM), intent(in) :: KPRINTLEV

Calls

proc~~sucst~2~~CallsGraph proc~sucst~2 SUCST proc~dr_hook dr_hook proc~sucst~2->proc~dr_hook

Contents