Commit 4d76ebb6 authored by Carsten Lemmen's avatar Carsten Lemmen
Browse files

Fixed string comparison in preprocessor macro

parent 688012d5
......@@ -42,10 +42,10 @@ module mossco_gridspec
#ifndef NO_ISO_FORTRAN_ENV
use, intrinsic :: ISO_FORTRAN_ENV
! string comparison does not work with preprocessor
!#if ESMF_COMM == ESMF_INTELMPI
! use ifport, only : getgid, getpid, getuid
!#endif
#ifdef __INTEL_COMPILER
! This macro may be affected by compiler options, such as -no-icc.
use ifport, only : getgid, getpid, getuid
#endif
#endif
implicit none
......
!> @brief Implementation of ESMF State utilities
!
! This computer program is part of MOSSCO.
!> @copyright Copyright (C) 2014--2020 Helmholtz-Zentrum Geesthacht
!> @copyright Copyright (C) 2014--2021 Helmholtz-Zentrum Geesthacht
!> @author Carsten Lemmen <carsten.lemmen@hzg.de>
!> @author Richard Hofmeister <richard.hofmeister@hzg.de>
!> @author Richard Hofmeister
!> @author Knut Klingbeil <knut.klingbeil@uni-hamburg.de>
!
! MOSSCO is free software: you can redistribute it and/or modify it under the
......@@ -1909,10 +1909,10 @@ contains
#ifndef NO_ISO_FORTRAN_ENV
use, intrinsic :: ISO_FORTRAN_ENV
! string comparison does not work with preprocessor
!#if ESMF_COMM == ESMF_INTELMPI
! use ifport, only : getgid, getpid, getuid
!#endif
#ifdef __INTEL_COMPILER
! This macro may be affected by compiler options, such as -no-icc.
use ifport, only : getgid, getpid, getuid
#endif
#endif
type(ESMF_State), intent(inout) :: state
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment