Changeset 4853 for LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90

Timestamp:

Mar 19, 2024, 3:34:21 PM (2 months ago)

Author:

idelkadi

Message:

Ecrad update in LMDZ / Implementation of Ecrad double call in LMDZ

• version 1.6.1 (commit 210d7911380f53a788c3cad73b3cf9b4e022ef87)
• interface routines between lmdz and ecrad grouped in a new "lmdz" directory
• double call method redesigned so as to go through the Ecrad initialization and configuration part only once for the entire simulation
• clean-up in the read.F routine: delete unitules arguments
• modification of default gas model in namelist (default: ECCKD)

File:

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

LMDZ6/trunk/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__) || defined(__INTEL_LLVM_COMPILER)
+#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