WW3/scrip__kindsmod_8f90_source.html

!|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||


module scrip_kindsmod


  !BOP

  ! !MODULE: SCRIP_KindsMod

  !

  ! !DESCRIPTION:

  ! This module defines default numerical data types for all common data

  ! types like integer, character, logical, real4 and real8.

  !

  ! !USERDOC:

  ! Users should not need to adjust anything in this module. If various

  ! character strings like long paths to files exceed the default

  ! character length, the default value may be increased.

  !

  ! !REFDOC:

  ! This module is supplied to provide consistent data representation

  ! across machine architectures. It is meant to replace the old

  ! Fortran double precision and real *X declarations that were

  ! implementation-specific.

  ! Users should not need to adjust anything in this module. If various

  ! character strings like long paths to files exceed the default

  ! character length, the default value may be increased.

  !

  ! !REVISION HISTORY:

  ! SVN:$Id: SCRIP_KindsMod.F90 82 2008-02-14 19:36:07Z pwjones $


  ! !USES:

  ! uses no other modules


  implicit none

  private

  save


  ! !DEFINED PARAMETERS:


  integer, parameter, public :: &

       scrip_charlength = 100 ,&

       scrip_logical = kind(.true.) ,&

       scrip_i4 = selected_int_kind(6) ,&

       scrip_i8 = selected_int_kind(13) ,&

       scrip_r4 = selected_real_kind(6) ,&

       scrip_r8 = selected_real_kind(13) ,&

       scrip_r16 = selected_real_kind(26)


  !EOP

  !BOC

  !EOC

  !***********************************************************************


end module scrip_kindsmod


!|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||