Changeset 3775

Timestamp:

May 23, 2025, 8:45:09 AM (4 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

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• datafile_mod.F90 (modified) (1 diff)
• radcommon_h.F90 (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/datafile_mod.F90 ¶

@@ -19 +19 @@
       ! corrkdir points to the directory that stores correlated-k data
       ! the corrkdir link must be in datagcm/corrk_data/
-      character(len=100),parameter :: corrkdir="corrkdir"
-!$OMP THREADPRIVATE(corrkdir)
+      character(len=8),parameter :: corrkdir="corrkdir"
 
       ! also for corrk data: defined in sw_venus_corrk.F90

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;