Changeset 3775 for trunk/LMDZ.VENUS/libf/phyvenus/radcommon_h.F90

Timestamp:

May 23, 2025, 8:45:09 AM (5 weeks ago)

Author:

emillour

Message:

Venus PCM:
Remove some buggy OMP statements, which were not a problem (but triggered
error mesages with Intel OneAPI 2025), as for now in the Venus PCM
only works in MPI.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/radcommon_h.F90 (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/radcommon_h.F90

@@ -53 +53 @@
       !! AS: introduced to avoid doing same computations again for continuum
       INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: indv
-!$OMP THREADPRIVATE(indi,indv)
+!$OMP THREADPRIVATE(indv)
 
       !!! ALLOCATABLE STUFF SO THAT DIMENSIONS ARE READ in *.dat FILES -- AS 12/2011  
@@ -84 +84 @@
 
       DOUBLE PRECISION :: radiustab(naerkind,2,nsizemax)
-!$OMP THREADPRIVATE(lamrefir,lamrefvis,radiustab) !nsize read by suaer_corrk
+!$OMP THREADPRIVATE(lamrefvis,radiustab) !nsize read by suaer_corrk
 
 ! Extinction coefficient at reference wavelengths;