Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

Timestamp:

Jul 25, 2024, 5:47:25 PM (4 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/phylmd/physiq_mod.F90 (modified) (2 diffs)

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

@@ -349 +349 @@
             reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
     USE output_physiqex_mod, ONLY: output_physiqex
+    USE lmdz_simu_airs, ONLY: simu_airs
 
     IMPLICIT NONE
@@ -600 +601 @@
 
     !      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