mod_oasis_kinds.F90

Go to the documentation of this file.

!> Defines kinds for OASIS

!-------------------------------------------------------------------
! BOP
!
! !MODULE: mod_oasis_kinds
MODULE mod_oasis_kinds
!
! !USES:
!
! !PUBLIC TYPES:
IMPLICIT NONE
public
SAVE
!
! !PUBLIC MEMBER FUNCTIONS:
!
! !PARAMETERS:
  INTEGER, PARAMETER :: ic_sm   = 8
  INTEGER, PARAMETER :: ic_med  = 64
  INTEGER, PARAMETER :: ic_long = 256
  INTEGER, PARAMETER :: ic_xl   = 1024
  INTEGER, PARAMETER :: ic_xxl  = 4096
  INTEGER, PARAMETER :: ic_lvar = 80   ! max length of variable, model name, grid name
  INTEGER, PARAMETER :: ic_lvar2= 120  ! max length of partition
  INTEGER, PARAMETER :: ip_single_p = selected_real_kind(6,37)
  INTEGER, PARAMETER :: ip_double_p = selected_real_kind(12,307)
#ifdef __NO_16BYTE_REALS
  INTEGER, PARAMETER :: ip_quad_p   =ip_double_p
#else
  INTEGER, PARAMETER :: ip_quad_p   = selected_real_kind(33,4931)
#endif
  INTEGER, PARAMETER :: ip_realwp_p = ip_double_p
  LOGICAL, PARAMETER :: ll_single = .false.  
  INTEGER, PARAMETER :: ip_i2_p = selected_int_kind(4)
  INTEGER, PARAMETER :: ip_i4_p = selected_int_kind(9)
#ifdef SX
  INTEGER, PARAMETER :: ip_i8_p = selected_int_kind(15)
#else
  INTEGER, PARAMETER :: ip_i8_p = selected_int_kind(18)
#endif
  INTEGER, PARAMETER :: ip_intwp_p = ip_i4_p 
  INTEGER, PARAMETER :: ip_r8_p  = ip_double_p
  INTEGER, PARAMETER :: ip_r16_p = ip_quad_p
!
! !PUBLIC DATA MEMBERS:
!
! !DESCRIPTION:
! This modules contains the parameters defining the precision used for 
! real and integer variables
!   
END MODULE mod_oasis_kinds