mod_kinds.F

Go to the documentation of this file.

#include "cppdefs.h"
      MODULE mod_kinds
!
!git $Id$
!================================================== Hernan G. Arango ===
!  Copyright (c) 2002-2025 The ROMS Group                              !
!    Licensed under a MIT/X style license                              !
!    See License_ROMS.md                                               !
!=======================================================================
!
#ifdef ESMF_LIB
        USE esmf
!
#endif
        implicit none
!
#ifdef ESMF_LIB
!!      integer, parameter :: i1b= ESMF_KIND_I1                !  8-bit
        integer, parameter :: i1b= selected_int_kind(1)        !  8-bit
!!      integer, parameter :: i2b= ESMF_KIND_I2                !  8-bit
        integer, parameter :: i2b= selected_int_kind(2)        !  8-bit
        integer, parameter :: i4b= esmf_kind_i4                ! 16-bit
        integer, parameter :: i8b= esmf_kind_i8                ! 32-bit
        integer, parameter :: c8 = selected_real_kind(6,30)    ! 32-bit
        integer, parameter :: dp = esmf_kind_r8                ! 64-bit
        integer, parameter :: r4 = esmf_kind_r4                ! 32-bit
# ifdef SINGLE_PRECISION
        integer, parameter :: r8 = esmf_kind_r4                ! 32-bit
# else
        integer, parameter :: r8 = esmf_kind_r8                ! 64-bit
# endif
#else
        integer, parameter :: i1b= selected_int_kind(1)        !  8-bit
        integer, parameter :: i2b= selected_int_kind(2)        !  8-bit
        integer, parameter :: i4b= selected_int_kind(4)        ! 16-bit
        integer, parameter :: i8b= selected_int_kind(8)        ! 32-bit
        integer, parameter :: c8 = selected_real_kind(6,30)    ! 32-bit
        integer, parameter :: dp = selected_real_kind(12,300)  ! 64-bit
        integer, parameter :: r4 = selected_real_kind(6,30)    ! 32-bit
# ifdef SINGLE_PRECISION
        integer, parameter :: r8 = selected_real_kind(6,30)    ! 32-bit
# else
        integer, parameter :: r8 = selected_real_kind(12,300)  ! 64-bit
# endif
#endif
#if defined SUN || defined AIX || defined NEC || defined SGI || \
    defined crayx1 || defined dec
        integer, parameter :: r16 = selected_real_kind(24,270) !128-bit
#else
        integer, parameter :: r16 = selected_real_kind(15,300) !128-bit
#endif
 
      END MODULE mod_kinds