Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

Jul 25, 2024, 5:47:25 PM (6 months ago)

Author:

abarral

Message:

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

@@ -417 +417 @@
        reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
        USE output_physiqex_mod, ONLY: output_physiqex
+       USE lmdz_simu_airs, ONLY: simu_airs
 
 
@@ -679 +680 @@
 
     !      REAL,ALLOCATABLE,save :: run_off_lic_0(:)
-    !$OMP THREADPRIVATE(run_off_lic_0)
+    !!! !$OMP THREADPRIVATE(run_off_lic_0)
     !ym      SAVE run_off_lic_0
     !KE43