yoerdi.F90

Go to the documentation of this file.

MODULE yoerdi


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
!     -----------------------------------------------------------------

real_b :: rrae
real_b :: rsundur
real_b :: ralbsead
real_b :: ralbicevs_ar(12)
real_b :: ralbiceni_ar(12)
real_b :: ralbicevs_an(12)
real_b :: ralbiceni_an(12)
real_b :: ralbsfo
real_b :: remisd
real_b :: remisl
real_b :: remisn
real_b :: remiss
real_b :: rcardi
real_b :: rch4
real_b :: rn2o
real_b :: ro3
real_b :: rcfc11
real_b :: rcfc12
real_b :: repalb
real_b :: repclc
real_b :: reph2o

!        * E.C.M.W.F. PHYSICS PACKAGE *

!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
!     Modified  P. Viterbo    99/03/26    Surface tiling

!  NAME     TYPE     PURPOSE
!  ----  :  ----   : ---------------------------------------------------
! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
! RALBSEAD: OPEN SEA ALBEDO FOR DIFFUSE RADIATION
! RALBICEVS_AR: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ARCTIC)
! RALBICENI_AR: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ARCTIC)
! RALBICEVS_AN: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ANTARCTIC)
! RALBICENI_AN: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ANTARCTIC)
! RALBSFO: SNOW ALBEDO IN THE PRESENCE OF FOREST

! REMISD : LONGWAVE EMISSIVITY OF DESERT LAND SURFACE
! REMISL : LONGWAVE EMISSIVITY OF LAND
! REMISN : LONGWAVE EMISSIVITY OF SNOW
! REMISS : LONGWAVE EMISSIVITY OF SEA

! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2

! REPALB : SECURITY TO AVOID ZERO ALBEDOS.
! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
!     -----------------------------------------------------------------
END MODULE yoerdi