COS_SZA Subroutine

subroutine COS_SZA(KSTART, KEND, KCOL, PGEMU, PGELAM, LDRADIATIONTIMESTEP, PMU0)

Uses

  • proc~~cos_sza~~UsesGraph proc~cos_sza COS_SZA module~yomlun~4 YOMLUN proc~cos_sza->module~yomlun~4 module~yomhook yomhook proc~cos_sza->module~yomhook YOERIP YOERIP proc~cos_sza->YOERIP module~yomrip YOMRIP proc~cos_sza->module~yomrip module~parkind1~2 PARKIND1 proc~cos_sza->module~parkind1~2 module~yomcst~3 YOMCST proc~cos_sza->module~yomcst~3 module~yoerad yoerad proc~cos_sza->module~yoerad module~yomlun~4->module~parkind1~2 module~yomlun_ifsaux YOMLUN_IFSAUX module~yomlun~4->module~yomlun_ifsaux module~yomrip->module~parkind1~2 module~yomcst~3->module~parkind1~2 module~yomlun_ifsaux->module~parkind1~2

*** COS_SZA

(C) Copyright 2015- ECMWF.

This software is licensed under the terms of the Apache Licence Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.

In applying this licence, ECMWF does not waive the privileges and immunities granted to it by virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.

 Purpose.
 --------
    Compute the cosine of the solar zenith angle.  Note that this
    is needed for three different things: (1) as input to the
    radiation scheme in which it is used to compute the path
    length of the direct solar beam through the atmosphere, (2)
    every timestep to scale the solar fluxes by the incoming
    solar radiation at top-of-atmosphere, and (3) to compute the
    albedo of the ocean.  For (1) we ideally want an average
    value for the duration of a radiation timestep while for (2)
    we want an average value for the duration of a model
    timestep.
  • Interface. ---------- CALL *COS_SZA(...)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KSTART
integer(kind=JPIM), intent(in) :: KEND
integer(kind=JPIM), intent(in) :: KCOL
real(kind=JPRB), intent(in) :: PGEMU(KCOL)
real(kind=JPRB), intent(in) :: PGELAM(KCOL)
logical, intent(in) :: LDRADIATIONTIMESTEP
real(kind=JPRB), intent(out) :: PMU0(KCOL)

Calls

proc~~cos_sza~~CallsGraph proc~cos_sza COS_SZA proc~dr_hook dr_hook proc~cos_sza->proc~dr_hook proc~abor1 ABOR1 proc~cos_sza->proc~abor1

Contents