Changeset 5084 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

Timestamp:

Jul 19, 2024, 6:40:44 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File:

• LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -351 +351 @@
 !$OMP THREADPRIVATE(d_deltat_vdf, d_deltaq_vdf)
 !!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)          :: d_s_vdf, d_dens_vdf
-!!!$OMP THREADPRIVATE(d_s_vdf, d_dens_vdf)
+!!!OMP THREADPRIVATE(d_s_vdf, d_dens_vdf)
     REAL, SAVE, ALLOCATABLE,DIMENSION(:,:)          :: d_deltat_the, d_deltaq_the
 !$OMP THREADPRIVATE(d_deltat_the, d_deltaq_the)
 !!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)          :: d_s_the, d_dens_the
-!!!$OMP THREADPRIVATE(d_s_the, d_dens_the)
+!!!OMP THREADPRIVATE(d_s_the, d_dens_the)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)           :: d_deltat_ajs_cv, d_deltaq_ajs_cv
 !$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv)