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

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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

Location:

LMDZ6/branches/Amaury_dev/libf/misc

Files:

• lmdz_formcoord.f90 (modified) (1 diff)
• lmdz_interpolation.f90 (modified) (2 diffs)
• lmdz_libmath.f90 (modified) (1 diff)
• lmdz_q_sat.f90 (modified) (1 diff)
• lmdz_slopes.f90 (modified) (1 diff)
• lmdz_ssum_scopy.f90 (modified) (1 diff)
• lmdz_write_field.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_formcoord.f90

@@ -32 +32 @@
     else
       dxmin = abs(x(2) - x(1))
-      do i = 2, n - 1
+      DO i = 2, n - 1
         dx = abs(x(i + 1) - x(i))
         IF (dx<dxmin) dxmin = dx

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_interpolation.f90

@@ -34 +34 @@
     jl = 0
     ju = n + 1
-    do while (ju - jl > 1)
+    DO while (ju - jl > 1)
       jm = (ju + jl) / 2 ! Compute a midpoint,
       IF (ascnd .eqv. (x >= xx(jm))) THEN
@@ -120 +120 @@
     end if ! Done hunting, value bracketed.
 
-    do ! Hunt is done, so begin the final bisection phase:
+    DO ! Hunt is done, so begin the final bisection phase:
       IF (jhi - jlo <= 1) THEN
         IF (x == xx(n)) jlo = n - 1

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath.f90

@@ -14 +14 @@
     ismax = 1
     sxmax = sx(1)
-    do i = 1, n - 1
+    DO i = 1, n - 1
       ix = ix + incx
       IF(sx(ix)>sxmax) THEN

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_q_sat.f90

@@ -45 +45 @@
     ! ------------------------------------------------------------------
 
-    do ip = 1, np
+    DO ip = 1, np
 
       ! WRITE(*,*)'kelvin,millibar=',kelvin,millibar

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_slopes.f90

@@ -40 +40 @@
 !-------------------------------------------------------------------------------
 ! Local:
-  INTEGER :: n, i, j, sta(2), sto(2)
+  INTEGER :: n, i
   REAL :: xc(SIZE(f,1))                             ! (n) cell centers
   REAL :: h(2:SIZE(f,1)-1), delta_xc(2:SIZE(f,1)-1) ! (2:n-1)
-  REAL :: fm, ff, fp, dx
+  REAL :: fm, ff, fp
 !-------------------------------------------------------------------------------
   n=SIZE(f,ix)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_ssum_scopy.f90

@@ -32 +32 @@
     ssum = 0.
     ix = 1
-    do i = 1, n
+    DO i = 1, n
       ssum = ssum + sx(ix)
       ix = ix + incx

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_write_field.f90

@@ -32 +32 @@
 
     GetFieldIndex = -1
-    do i = 1, NbField
+    DO i = 1, NbField
       IF (TrueName==FieldName(i)) THEN
         GetFieldIndex = i
@@ -152 +152 @@
     Nb = 0
     Pos = 2
-    do i = 1, Dim(1)
+    DO i = 1, Dim(1)
       nb = nb + 1
 
@@ -195 +195 @@
     spacing = '(t2,"' // repeat('-', ColumnSize * NbCol) // '")'
 
-    do i = 1, Dim(2)
+    DO i = 1, Dim(2)
       nb = 0
       Pos = 2
-      do j = 1, Dim(1)
+      DO j = 1, Dim(1)
         nb = nb + 1
 
@@ -255 +255 @@
     spacing = '(t2,"' // repeat('-', ColumnSize * NbCol) // '")'
 
-    do i = 1, Dim(3)
-
-      do j = 1, Dim(2)
+    DO i = 1, Dim(3)
+
+      DO j = 1, Dim(2)
         nb = 0
         Pos = 2
 
-        do k = 1, Dim(1)
+        DO k = 1, Dim(1)
           nb = nb + 1