Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_interpolation.f90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 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/misc/lmdz_interpolation.f90 (modified) (2 diffs)

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