!======================================================================= !BOP ! ! !MODULE: ice_kinds_mod - defines variable precision ! ! !DESCRIPTION: ! ! Defines variable precision for all common data types \\ ! Code originally based on kinds_mod.F in POP ! ! !REVISION HISTORY: ! SVN:$Id: ice_kinds_mod.F90 100 2008-01-29 00:25:32Z eclare $ ! ! author: Elizabeth C. Hunke and William H. Lipscomb, LANL ! 2006: ECH converted to free source form (F90) ! ! !INTERFACE: ! module ice_kinds_mod 53 ! ! !USES: ! !EOP !======================================================================= implicit none save integer, parameter :: char_len = 80, & char_len_long = 256, & log_kind = kind(.true.), & int_kind = selected_int_kind(6), & real_kind = selected_real_kind(6), & dbl_kind = selected_real_kind(13), & r16_kind = selected_real_kind(26) !======================================================================= end module ice_kinds_mod !=======================================================================