OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
GeneralAuxType.f90 File Reference

Go to the source code of this file.

Modules

module  generalauxtype
 

Functions/Subroutines

logical function real_s_equal (x, y)
 
logical function realsingle_s_equal (x, y)
 
subroutine realsingle_s_where_equal (x, y)
 

Variables

integer, parameter integer_fourbyte = selected_int_kind(9)
 
integer, parameter integer_twobyte = selected_int_kind(4)
 
integer, parameter integer_onebyte = selected_int_kind(2)
 
integer, parameter single = kind(1.0)
 
integer, parameter double = kind(1.0d0)
 
integer, parameter singlecomplex = kind((1.0, 1.0))
 
integer, parameter doublecomplex = kind((1.0d0, 1.0d0))
 
integer, parameter logical = kind(.true.)
 
integer iterationx
 
integer iterationy
 
integer pixx
 
integer pixy
 
integer number_of_iterationsx
 
integer number_of_iterationsy
 
logical debugprn
 
integer total_number_of_pixels
 
integer im_cloudy_count
 
integer im_ice_cloud_count
 
integer im_water_cloud_count
 
integer im_successful_retrieval_count
 
integer im_undet_count
 
integer, parameter output_unit = 45
 
real(single), parameter pi =3.141592653589793238462643383279502884197_single
 
real(single), parameter pio2 =1.57079632679489661923132169163975144209858_single
 
real(single), parameter twopi =6.283185307179586476925286766559005768394_single
 
real(double), parameter pi_d =3.141592653589793238462643383279502884197_double
 
real(double), parameter pio2_d =1.57079632679489661923132169163975144209858_double
 
real(double), parameter twopi_d =6.283185307179586476925286766559005768394_double
 
real(double), parameter d2r_d = 0.017453292519943295_double
 
real(single), parameter missingvalue = -1.0