#include "ESMFPIO.h" !||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| module pio_kinds !BOP ! !MODULE: pio_kinds ! ! !DESCRIPTION: ! This module defines default numerical data types for all common data ! types like integer, character, logical, real4 and real8. ! ! !REVISION HISTORY: ! CVS:$Id: pio_kinds.F90,v 1.3 2011/03/14 23:33:12 samsoncheung Exp $ ! CVS:$Name: ESMF_5_2_0r $ ! !USES: ! uses no other modules implicit none private include 'mpif.h' ! _EXTERNAL save ! !DEFINED PARAMETERS: integer, parameter, public :: & char_len = 360 ,& log_kind = kind(.true.) ,& int_kind = kind(1) ,& i4 = selected_int_kind(6) ,& i8 = selected_int_kind(13) ,& r4 = selected_real_kind(6) ,& r8 = selected_real_kind(13) integer, parameter, public :: & PIO_OFFSET = MPI_OFFSET_KIND !EOP !BOC !EOC !*********************************************************************** end module pio_kinds !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||