<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='INIT_CONSTANTS_DERIVED'><A href='../../html_code/radiance/init_constants_derived.inc.html#INIT_CONSTANTS_DERIVED' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine init_constants_derived 5
!$$$ subprogram documentation block
! . . . .
! subprogram: init_constants_derived set derived constants
! prgmmr: treadon org: np23 date: 2004-12-02
!
! abstract: This routine sets derived constants
!
! program history log:
! 2004-12-02 treadon
! 2005-03-03 treadon - add implicit none
!
! input argument list:
!
! output argument list:
!
! attributes:
! language: f90
! machine: ibm rs/6000 sp
!
!$$$
implicit none
! Trigonometric constants
pi = acos(-one)
deg2rad = pi/180.0_r_kind
rad2deg = one/deg2rad
tiny_r_kind = tiny(zero)
huge_r_kind = huge(zero)
tiny_single = tiny(zero_single)
huge_single = huge(zero_single)
! Geophysical parameters used in conversion of geopotential to
! geometric height
eccentricity_linear = sqrt(semi_major_axis**2 - semi_minor_axis**2)
eccentricity = eccentricity_linear / semi_major_axis
return
end subroutine init_constants_derived