Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

Timestamp:

Jul 25, 2024, 5:47:25 PM (8 weeks 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/dyn1d/lmdz_old_lmdz1d.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

@@ -2 +2 @@
 
 MODULE lmdz_old_lmdz1d
-  IMPLICIT NONE; PRIVATE
+  USE lmdz_old_1dconv, ONLY: copie, get_uvd2, get_uvd, rdgrads, spaces
+  USE lmdz_1dutils, ONLY: interp2_case_vertical, nudge_uv, nudge_rht, lstendh, nudge_uv_init, &
+          nudge_rht_init, disvert0
+   PRIVATE  ! -- We'd love to put IMPLICIT NONE;  here...
   PUBLIC old_lmdz1d
 CONTAINS