Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

Timestamp:

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

LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

@@ -16 +16 @@
           nf90_64bit_offset, nf90_inq_dimid, nf90_inquire_dimension, nf90_put_var
   USE lmdz_pres2lev, ONLY: pres2lev
+
 
   IMPLICIT NONE
@@ -75 +76 @@
     USE serre_mod, ONLY: grossismx
 
+
     IMPLICIT NONE
 
@@ -355 +357 @@
     USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
     USE lmdz_iniprint, ONLY: lunout, prt_level
+
 
     IMPLICIT NONE