SUCST Subroutine

subroutine SUCST(KULOUT, KDAT, KSSS, KPRINTLEV)

Uses

  • proc~~sucst~~UsesGraph proc~sucst SUCST module~parkind1~2 PARKIND1 proc~sucst->module~parkind1~2 module~yomcst~3 YOMCST proc~sucst->module~yomcst~3 module~yomrip YOMRIP proc~sucst->module~yomrip module~yomhook yomhook proc~sucst->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~~CallsGraph proc~sucst SUCST proc~dr_hook dr_hook proc~sucst->proc~dr_hook

Called by

proc~~sucst~~CalledByGraph proc~sucst SUCST proc~suinit SUINIT proc~suinit->proc~sucst proc~suinit~2 SUINIT proc~suinit~2->proc~sucst

Contents