Changeset 5123 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

Timestamp:

Jul 25, 2024, 8:45:50 AM (5 months ago)

Author:

abarral

Message:

Correct various minor mistakes from previous commits

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

@@ -13 +13 @@
   USE lmdz_filtreg, ONLY: filtreg
   USE lmdz_iniprint, ONLY: lunout, prt_level
-  USE lmdz_ssum_scopy, ONLY: scopy
+  USE lmdz_ssum_scopy, ONLY: scopy, ssum
 
   IMPLICIT NONE
@@ -64 +64 @@
   INTEGER :: l, ij, imjmp1
 
-  REAL :: SSUM
   LOGICAL, SAVE :: firstcal = .TRUE.
   CHARACTER(LEN = *), PARAMETER :: modname = "sortvarc"