00001 !======================================================================= 00002 !BOP 00003 ! 00004 ! !MODULE: ice_kinds_mod - defines variable precision 00005 ! 00006 ! !DESCRIPTION: 00007 ! 00008 ! Defines variable precision for all common data types \\ 00009 ! Code originally based on kinds_mod.F in POP 00010 ! 00011 ! !REVISION HISTORY: 00012 ! SVN:$Id: ice_kinds_mod.F90 100 2008-01-29 00:25:32Z eclare $ 00013 ! 00014 ! author: Elizabeth C. Hunke and William H. Lipscomb, LANL 00015 ! 2006: ECH converted to free source form (F90) 00016 ! 00017 ! !INTERFACE: 00018 ! 00019 module ice_kinds_mod 00020 ! 00021 ! !USES: 00022 ! 00023 !EOP 00024 !======================================================================= 00025 00026 implicit none 00027 save 00028 00029 integer, parameter :: char_len = 80, 00030 char_len_long = 256, 00031 log_kind = kind(.true.), 00032 int_kind = selected_int_kind(6), 00033 real_kind = selected_real_kind(6), 00034 dbl_kind = selected_real_kind(13), 00035 r16_kind = selected_real_kind(26) 00036 00037 !======================================================================= 00038 00039 end module ice_kinds_mod 00040 00041 !=======================================================================