programmer's documentation
Functions/Subroutines
rayir.f90 File Reference

1D Radiative scheme - IR flux divergence profile and downward flow to the ground More...

Functions/Subroutines

subroutine rayir (k1, kmray, ico2, emis, qqv, qqqv, qqvinf, zqq, acinfe, dacinfe, aco2, daco2, acsup, dacsup, zray, temray, qvray, qlray, fnerir, romray, preray, aeroso, foir, rayi)
 calculation for Infrared (IR) atmospheric radiation More...
 

Detailed Description

1D Radiative scheme - IR flux divergence profile and downward flow to the ground

Function/Subroutine Documentation

subroutine rayir ( integer  k1,
integer  kmray,
integer  ico2,
double precision  emis,
double precision, dimension(kmx+1)  qqv,
double precision, dimension(kmx+1)  qqqv,
double precision  qqvinf,
double precision, dimension(kmx)  zqq,
double precision, dimension(kmx)  acinfe,
double precision, dimension(kmx)  dacinfe,
double precision, dimension(kmx,kmx)  aco2,
double precision, dimension(kmx,kmx)  daco2,
double precision, dimension(kmx)  acsup,
double precision, dimension(kmx)  dacsup,
double precision, dimension(kmx)  zray,
double precision, dimension(kmx)  temray,
double precision, dimension(kmx)  qvray,
double precision, dimension(kmx)  qlray,
double precision, dimension(kmx)  fnerir,
double precision, dimension(kmx)  romray,
double precision, dimension(kmx)  preray,
double precision, dimension(kmx)  aeroso,
double precision  foir,
double precision, dimension(kmx)  rayi 
)

calculation for Infrared (IR) atmospheric radiation

  • vertical profile of IR flux divergence,
  • downward IR flux at the ground.
  • upward and downward fluxes at different vertical levels for irdm=1 (option)
    Parameters
    [in]k1index corresponding to ground level
    [in]kmraynumber of vertical levels for radiation computation
    [in]ico2ico2=1 -> compute CO2 absorption
    [in]emisground surface emissivity
    [in]qqvwater vapor + dimers optical depth (0,z)
    [in]qqqvidem qqv but for intermediates vertical levels
    [in]qqvinfidem qqv but for contribution above 11000m
    [in]zqqvertical coordinate
    [in]acinfeabsorption for CO2 + O3 (0,z)
    [in]dacinfedifferential absorption for CO2 + 03 (0,z)
    [in]aco2idem acinfe but for CO2 only
    [in]daco2idem dacinfe but for CO2 only
    [in]acsupidem acinfe, for (z,0)
    [in]dacsupidem dacinfe, for (z,0)
    [in]zrayaltitude (physical mesh)
    [in]temraytemperature in Celsius
    [in]qvrayspecific humidity for water vapor
    [in]qlrayspecific humidity for liquid water
    [in]fnerircloud fraction
    [in]romrayair density
    [in]preraypressure
    [in]aerosoaerosol concentration in micro-g/m3
    [out]foirdownward IR flux at the ground
    [out]rayiIR flux divergence