external/esmf_time_f90/ESMF_Fraction.F90

   1 !
   2 ! ESMF Fraction Module
   3 !
   4 !==============================================================================
   5 !
   6 !     ESMF Fraction Module
   7       module WRF_ESMF_FractionMod
   8 !
   9 !==============================================================================
  10 !
  11 ! This file contains the Fraction class definition and all Fraction
  12 ! class methods.
  13 !
  14 !------------------------------------------------------------------------------
  15 ! INCLUDES
  16 !
  17 !===============================================================================
  18 !BOPI
  19 !
  20 ! !MODULE: WRF_ESMF_FractionMod
  21 !
  22 ! !DESCRIPTION:
  23 ! Part of ESMF F90 API wrapper of C++ implemenation
  24 !
  25 ! Defines F90 wrapper entry points for corresponding
  26 ! C++ implementaion of class {\tt ESMC\_Fraction}
  27 !
  28 ! See {\tt ../include/ESMC\_Fraction.h} for complete description
  29 !
  30 !------------------------------------------------------------------------------
  31 ! !USES:
  32
  33       implicit none
  34 !
  35 !------------------------------------------------------------------------------
  36 ! !PRIVATE TYPES:
  37       private
  38 !------------------------------------------------------------------------------
  39 !     ! ESMF_Fraction
  40 !
  41       type ESMF_Fraction
  42       private
  43         integer :: n    ! Integer fraction (exact) n/d; numerator
  44         integer :: d    ! Integer fraction (exact) n/d; denominator
  45       end type
  46 !
  47 !------------------------------------------------------------------------------
  48 ! !PUBLIC TYPES:
  49       public ESMF_Fraction
  50 !------------------------------------------------------------------------------
  51 !
  52 ! !PUBLIC MEMBER FUNCTIONS:
  53
  54 ! !PRIVATE MEMBER FUNCTIONS:
  55
  56 !EOPI
  57
  58 !==============================================================================
  59
  60 !      contains
  61
  62 !==============================================================================
  63 !
  64 ! Wrappers to C++ fraction routines
  65 !
  66 !------------------------------------------------------------------------------
  67 !
  68
  69 !------------------------------------------------------------------------------
  70
  71       end module WRF_ESMF_FractionMod