refrac Subroutine

public subroutine refrac(height, zdobs, refr)

THIS SUBROUTINE COMPUTES ATMOSPHERIC REFRACTION IN ZENITH DISTANCE. THIS VERSION COMPUTES APPROXIMATE REFRACTION FOR OPTICAL WAVELENGTHS. IT CAN BE USED FOR PLANNING OBSERVATIONS OR TELESCOPE POINTING, BUT SHOULD NOT BE USED FOR THE REDUCTION OF PRECISE OBSERVATIONS. BASIC ALGORITHM IS DESCRIBED IN THE EXPLANATORY SUPPLEMENT TO THE ASTRONOMICAL ALMANAC, P. 144, AND IS AN ADAPTATION OF A FORMULA IN BENNETT (1982), JOURNAL OF NAVIGATION (ROYAL INSTITUTE) 35, 255-259.

 HEIGHT = HEIGHT OF OBSERVER IN METERS (IN)
 ZDOBS  = OBSERVED ZENITH DISTANCE IN DEGREES (IN)
 REFR   = ATMOSPHERIC REFRACTION IN DEGREES (OUT)

NOTE: HEIGHT IS NOT USED IF ENTRY REFDAT HAS BEEN CALLED TO SPECIFY ATMOSPHERIC PRESSURE.

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: height
real(kind=wp) :: zdobs
real(kind=wp) :: refr

Calls

proc~~refrac~~CallsGraph proc~refrac novas_module::refrac refdat refdat proc~refrac->refdat

Called by

proc~~refrac~~CalledByGraph proc~refrac novas_module::refrac proc~zdaz novas_module::zdaz proc~zdaz->proc~refrac