!------------------------------------------------------------------------- ! NASA Goddard Space Flight Center Land Information System (LIS) V3.0 ! Released May 2004 ! ! See SOFTWARE DISTRIBUTION POLICY for software distribution policies ! ! The LIS source code and documentation are in the public domain, ! available without fee for educational, research, non-commercial and ! commercial purposes. Users may distribute the binary or source ! code to third parties provided this statement appears on all copies and ! that no charge is made for such copies. ! ! NASA GSFC MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE ! SOFTWARE FOR ANY PURPOSE. IT IS PROVIDED AS IS WITHOUT EXPRESS OR ! IMPLIED WARRANTY. NEITHER NASA GSFC NOR THE US GOVERNMENT SHALL BE ! LIABLE FOR ANY DAMAGES SUFFERED BY THE USER OF THIS SOFTWARE. ! ! See COPYRIGHT.TXT for copyright details. ! !------------------------------------------------------------------------- !BOP ! ! !MODULE: precision.F90 ! ! !DESCRIPTION: ! Define the precision to use for floating point and integer operations ! throughout the model. ! ! !REVISION HISTORY: ! ! 14 Nov 2002; Sujay Kumar Initial Specification ! !INTERFACE: module precision ! !ARGUMENTS: integer, parameter :: r4 = selected_real_kind(5) integer, parameter :: r8 = selected_real_kind(6) integer, parameter :: i8 = selected_int_kind(13) !EOP end module precision