SUTOPH Subroutine

subroutine SUTOPH(KULOUT)

Uses

  • proc~~sutoph~~UsesGraph proc~sutoph SUTOPH module~yoephy YOEPHY proc~sutoph->module~yoephy module~yomhook yomhook proc~sutoph->module~yomhook module~yomdim YOMDIM proc~sutoph->module~yomdim module~yomtoph YOMTOPH proc~sutoph->module~yomtoph module~yomphy YOMPHY proc~sutoph->module~yomphy module~parkind1~2 PARKIND1 proc~sutoph->module~parkind1~2 module~yomct0b YOMCT0B proc~sutoph->module~yomct0b module~yomsta YOMSTA proc~sutoph->module~yomsta module~yoephy->module~parkind1~2 module~yomdim->module~parkind1~2 module~yomtoph->module~parkind1~2 module~yomphy->module~parkind1~2 module~yomct0b->module~parkind1~2 module~yomsta->module~parkind1~2

*** SUTOPH - Initialize common YOMTOPH top parameterization

  • Interface. ---------- CALL *SUTOPH(KULOUT)

    Mesospheric drag shape function

    1. Set default values. -------------------

    2. Modify default values. ----------------------

    2.1 Search corresponding level, to pressure in NAMTOPH for each parameterization

    1. Print final values. -------------------

    2. INITIALIZE MESOSPHERIC DRAG FOR U,V AND T -----------------------------------------

Arguments

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

Calls

proc~~sutoph~~CallsGraph proc~sutoph SUTOPH proc~dr_hook dr_hook proc~sutoph->proc~dr_hook

Contents