Back to OASIS3 home

Modules used for the coupler (in oasis3/src) :

mod_kinds_oasis : contains the parameters defining the precision used for real and integer variables
used in all others modules

IMPLICIT NONE
SAVE
  INTEGER, PARAMETER :: ip_single_p = SELECTED_REAL_KIND(6,37)
  INTEGER, PARAMETER :: ip_double_p = SELECTED_REAL_KIND(12,307)
#ifdef use_realtype_single
  INTEGER, PARAMETER :: ip_realwp_p = ip_single_p
  LOGICAL, PARAMETER :: ll_single = .TRUE.
#else
  INTEGER, PARAMETER :: ip_realwp_p = ip_double_p
  LOGICAL, PARAMETER :: ll_single = .FALSE.
#endif
  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