mpas_kinds_mod.F90

Go to the documentation of this file.

! (C) Copyright 2017 UCAR
! 
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 
 
module mpas_kinds
  use, intrinsic :: iso_c_binding
  implicit none
 
  private
  public kind_real, kind_double
  
  integer, parameter :: kind_real=c_double
  integer, parameter :: kind_double=c_double
end module mpas_kinds