SUECRAD Subroutine

subroutine SUECRAD(KULOUT, KLEV, PETAH)

Uses

  • proc~~suecrad~~UsesGraph proc~suecrad SUECRAD module~yoephy YOEPHY proc~suecrad->module~yoephy module~parrrtm~3 PARRRTM proc~suecrad->module~parrrtm~3 module~yomtag~3 YOMTAG proc~suecrad->module~yomtag~3 module~yomlun~4 YOMLUN proc~suecrad->module~yomlun~4 module~yoerdi YOERDI proc~suecrad->module~yoerdi module~yomgem YOMGEM proc~suecrad->module~yomgem module~yomcst~3 YOMCST proc~suecrad->module~yomcst~3 module~yoeaerd YOEAERD proc~suecrad->module~yoeaerd module~yomprad YOMPRAD proc~suecrad->module~yomprad module~clesphys_mod_h~2 clesphys_mod_h proc~suecrad->module~clesphys_mod_h~2 module~yomct0 YOMCT0 proc~suecrad->module~yomct0 module~yomsc2~2 YOMSC2 proc~suecrad->module~yomsc2~2 module~yomdyn YOMDYN proc~suecrad->module~yomdyn module~parsrtm~4 PARSRTM proc~suecrad->module~parsrtm~4 module~yoe_uvrad YOE_UVRAD proc~suecrad->module~yoe_uvrad module~yomphy YOMPHY proc~suecrad->module~yomphy module~yomgc YOMGC proc~suecrad->module~yomgc module~yomct0b YOMCT0B proc~suecrad->module~yomct0b module~yomleg YOMLEG proc~suecrad->module~yomleg module~yom_ygfl YOM_YGFL proc~suecrad->module~yom_ygfl module~yoerad yoerad proc~suecrad->module~yoerad module~yomhook yomhook proc~suecrad->module~yomhook module~yommp YOMMP proc~suecrad->module~yommp module~yomdim YOMDIM proc~suecrad->module~yomdim module~yoerdu YOERDU proc~suecrad->module~yoerdu module~parkind1~2 PARKIND1 proc~suecrad->module~parkind1~2 module~yomradf~2 YOMRADF proc~suecrad->module~yomradf~2 module~pardim~2 PARDIM proc~suecrad->module~pardim~2 module~yoephy->module~parkind1~2 module~parrrtm~3->module~parkind1~2 module~yomtag~3->module~parkind1~2 module~yomlun~4->module~parkind1~2 module~yomlun_ifsaux YOMLUN_IFSAUX module~yomlun~4->module~yomlun_ifsaux module~yoerdi->module~parkind1~2 module~yomgem->module~parkind1~2 module~yomcst~3->module~parkind1~2 module~yoeaerd->module~parkind1~2 module~yomprad->module~parkind1~2 module~yomct0->module~parkind1~2 module~yomsc2~2->module~parkind1~2 module~yomdyn->module~parkind1~2 module~parsrtm~4->module~parkind1~2 module~yoe_uvrad->module~parkind1~2 module~yomphy->module~parkind1~2 module~yomgc->module~parkind1~2 module~yomct0b->module~parkind1~2 module~yomleg->module~parkind1~2 module~yom_ygfl->module~parkind1~2 module~yommp->module~parkind1~2 module~yomdim->module~parkind1~2 module~yoerdu->module~parkind1~2 module~yomradf~2->module~parkind1~2 module~pardim~2->module~parkind1~2 module~yomlun_ifsaux->module~parkind1~2

*** SUECRAD - INITIALIZE COMMONS YOERxx CONTROLLING RADIATION

  • INTERFACE. ---------- CALL SUECRAD FROM SUPHEC ------- ------

!!! A REVOIR (MPL) NDLNPR devrait etre initialise dans sudyn.F90 1. INITIALIZE NEUROFLUX LONGWAVE RADIATION ---------------------------------------

     2.       SET DEFAULT VALUES.
               -------------------

     2.1      PRESET INDICES IN *YOERAD*
               --------------------------

!!! A REVOIR (MPL) verifier signification de LSRTM ! cpl LNOTROAER=.FALSE. !!! A REVOIR (MPL) a mettre dans un fichier .def 2.3 SET SECURITY PARAMETERS -----------------------

      2.4     BACKGROUND GAS CONCENTRATIONS (IPCC/SACC, 1990)
               -----------------------------------------------

     3.       READ VALUES OF RADIATION CONFIGURATION
               --------------------------------------



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

   5.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
          --------------------------------------------

   5.1.  Initialization routine for RRTM
          -------------------------------

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


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

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



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

   10.    ALLOCATE WORK ARRAYS
           --------------------

   10.    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~~suecrad~~CallsGraph proc~suecrad SUECRAD proc~dr_hook dr_hook proc~suecrad->proc~dr_hook

Contents