SUECRAD15 Subroutine

subroutine SUECRAD15(KULOUT, KLEV, PETAH)

Uses

  • proc~~suecrad15~~UsesGraph proc~suecrad15 SUECRAD15 module~yomct0 YOMCT0 proc~suecrad15->module~yomct0 module~yoephy YOEPHY proc~suecrad15->module~yoephy module~yomrad15 YOMRAD15 proc~suecrad15->module~yomrad15 module~yomhook yomhook proc~suecrad15->module~yomhook module~yomaerd15 YOMAERD15 proc~suecrad15->module~yomaerd15 module~yomphy YOMPHY proc~suecrad15->module~yomphy module~yomdim YOMDIM proc~suecrad15->module~yomdim module~parkind1~2 PARKIND1 proc~suecrad15->module~parkind1~2 module~yomradf~2 YOMRADF proc~suecrad15->module~yomradf~2 module~yomcst~3 YOMCST proc~suecrad15->module~yomcst~3 module~yomrdu15 YOMRDU15 proc~suecrad15->module~yomrdu15 module~yomdyn YOMDYN proc~suecrad15->module~yomdyn module~yoerad yoerad proc~suecrad15->module~yoerad module~clesphys_mod_h~2 clesphys_mod_h proc~suecrad15->module~clesphys_mod_h~2 module~yomprad YOMPRAD proc~suecrad15->module~yomprad module~yomct0->module~parkind1~2 module~yoephy->module~parkind1~2 module~yomrad15->module~parkind1~2 module~yomaerd15->module~parkind1~2 module~yomphy->module~parkind1~2 module~yomdim->module~parkind1~2 module~yomradf~2->module~parkind1~2 module~yomcst~3->module~parkind1~2 module~yomrdu15->module~parkind1~2 module~yomdyn->module~parkind1~2 module~yomprad->module~parkind1~2

*** SUECRAD15 - INITIALIZE COMMONS YOMRxx15 CONTROLLING RADIATION *** FROZEN VERSION (CYCLE 15) OF SUECRAD

  • INTERFACE. ---------- CALL SUECRAD15 FROM SUPHEC --------- ------

include "clesphys.h"

     1.       SET DEFAULT VALUES.
               -------------------

     1.1      PRESET INDICES IN *YOMRAD15*
               --------------------------

     1.3      SET SECURITY PARAMETERS
               -----------------------

     2.       READ VALUES OF RADIATION CONFIGURATION
               --------------------------------------







   3.    INITIALIZE RADIATION COEFFICIENTS.
          ----------------------------------

   4.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
          --------------------------------------------

   5.    INITIALIZE AEROSOL OPTICAL PARAMETERS AND DISTRIBUTION
          ------------------------------------------------------




   6.    INITIALIZE SATELLITE GEOMETRICAL/RADIOMETRIC PARAMETERS
          -------------------------------------------------------

   7.    INITIALIZE CLIMATOLOGICAL OZONE DISTRIBUTION
          --------------------------------------------
              (not done here!!!  called from APLPAR as it depends
                 on model pressure levels!)



   8.    SET UP MODEL CONFIGURATION FOR TIME-SPACE INTERPOLATION
          -------------------------------------------------------

   9.    ALLOCATE WORK ARRAYS
           --------------------

   9.    PRINT FINAL VALUES.
          -------------------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KULOUT
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(in) :: PETAH(KLEV+1)

Calls

proc~~suecrad15~~CallsGraph proc~suecrad15 SUECRAD15 proc~dr_hook dr_hook proc~suecrad15->proc~dr_hook proc~abor1 ABOR1 proc~suecrad15->proc~abor1

Contents