Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/filtrez

Timestamp:

Aug 2, 2024, 2:12:03 PM (5 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

@@ -563 +563 @@
     INTEGER :: i, j
     REAL :: sum
-    do j = 1, im
-      do i = 1, im
+    DO j = 1, im
+      DO i = 1, im
         d(i) = vec(i, j) * vec(i, j)
       enddo
       sum = ssum(im, d, 1)
       sum = sqrt(sum)
-      do i = 1, im
+      DO i = 1, im
         vec(i, j) = vec(i, j) / sum
       enddo