Changeset 3693 for trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

Timestamp:

Mar 17, 2025, 6:18:15 PM (3 months ago)

Author:

emillour

Message:

Generic PCM:
Minor corrections:

• about OpenMP in rad_common_h.F90 : (unclosed bracket in the THREADPRIVATE statement)
• in interpolate_continuum.F90 : "filename" character string size must be specified as '*' (i.e. variable) and not a fixed number

Took the opportunity to also clean-up interpolate_continuum.F90 by
making it a module, adding some intent() statements, specifying
why saved variables are not threadprivate, get rid of useless "return"
statement at the end of routines, etc.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

@@ -68 +68 @@
 !$OMP THREADPRIVATE(WNOI,DWNI,WAVEI,&
         !$OMP WNOV,DWNV,WAVEV,&
-        !$OMP STELLARF
+        !$OMP STELLARF)
 
       REAL*8 blami(L_NSPECTI+1)