Changeset 4586

Timestamp:

Jun 26, 2023, 2:25:05 PM (18 months ago)

Author:

lguez

Message:

Remove OpenMP directive in ECRad

With this directive, with gfortran 11, compilation of
radiation_cloud_generator.f90 fails with message:

`
554 | !$omp declare simd(sample_from_pdf_simd) uniform(this) &
Error: Symbol ‘sample_from_pdf_simd’ at (1) has already been
host associated fcm_internal compile failed (256)
`

With other compilers, removing this directive should have no effect:
the procedure which contains the directive is not called.

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation_cloud_generator.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/ecrad/radiation_cloud_generator.F90

@@ -541 +541 @@
     use radiation_pdf_sampler, only : pdf_sampler_type
     implicit none
-#if defined(__GFORTRAN__) || defined(__PGI) || defined(__NEC__)
-#else
-    !$omp declare simd(sample_from_pdf_simd) uniform(this) &
-    !$omp linear(ref(fsd)) linear(ref(cdf))
-#endif
     type(pdf_sampler_type), intent(in)  :: this