diff --git a/src/MNH/rain_ice_fast_rs.f90 b/src/MNH/rain_ice_fast_rs.f90 index e5a2a1c3dd11edd912e8074e841e754405a2b60b..a64fb281da96fe6f323abd721d61f4080ac7cb81 100644 --- a/src/MNH/rain_ice_fast_rs.f90 +++ b/src/MNH/rain_ice_fast_rs.f90 @@ -202,10 +202,10 @@ CALL COUNTJV_DEVICE( GWORK, I1, IGRIM ) ! 5.1.4 riming of the small sized aggregates ! DO CONCURRENT ( JJ = 1:IGRIM ) & -#ifndef _FAKEOPENACC +#if defined(MNH_OPENACC) && !defined(_FAKEOPENACC) LOCAL(JL) #else - & ! + & ! LOCAL(JL) #endif JL = I1(JJ) #ifndef MNH_BITREP @@ -245,10 +245,10 @@ END IF ! ! DO CONCURRENT (JJ = 1:IGRIM ) & -#ifndef _FAKEOPENACC +#if defined(MNH_OPENACC) && !defined(_FAKEOPENACC) LOCAL(JL) #else - & ! + & ! LOCAL(JL) #endif JL = I1(JJ) @@ -385,10 +385,10 @@ END IF ! 5.2.4 raindrop accretion on the small sized aggregates ! DO CONCURRENT ( JJ = 1:IGACC ) & -#ifndef _FAKEOPENACC +#if defined(MNH_OPENACC) && !defined(_FAKEOPENACC) LOCAL(JL) #else - & ! + & ! LOCAL(JL) #endif JL = I1(JJ) @@ -454,10 +454,10 @@ END IF ! into graupeln ! DO CONCURRENT ( JJ = 1:IGACC ) & -#ifndef _FAKEOPENACC +#if defined(MNH_OPENACC) && !defined(_FAKEOPENACC) LOCAL(JL) #else - & ! + & ! LOCAL(JL) #endif JL = I1(JJ)