Changeset 4758 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90

Timestamp:

Dec 1, 2023, 10:09:29 PM (6 months ago)

Author:

idelkadi

Message:

• Update of Ecrad in LMDZ version 1.6.1 ​https://github.com/lguez/ecrad.git
• Continuation of work on the implementation of the double call of Ecrad in LMDZ

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90

@@ -540 +540 @@
     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
+!#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