Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/math_lib.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/phylmd/cospv2/math_lib.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/math_lib.F90

@@ -96 +96 @@
     else
        sumo = 0._wp
-       do j=i1,i2
+       DO j=i1,i2
           deltah = abs(s(i1+1)-s(i1))
           sumo = sumo + f(j)*deltah
@@ -204 +204 @@
     end if
     
-    do i = 2, ntab
+    DO i = 2, ntab
        if ( xtab(i) <= xtab(i-1) ) then
           lerror = .true.
@@ -239 +239 @@
     ihi = ntab
     
-    do i = 1, ntab
+    DO i = 1, ntab
        if ( a <= xtab(i) ) then
           exit
@@ -249 +249 @@
     ilo = min ( ilo, ntab - 1 )
     
-    do i = 1, ntab
+    DO i = 1, ntab
        if ( xtab(i) <= b ) then
           exit
@@ -263 +263 @@
 !ds    sum1 = 0.0D+00
     
-    do i = ilo, ihi
+    DO i = ilo, ihi
        
        x1 = xtab(i-1)
@@ -371 +371 @@
           ga=1._wp
           m1=x-1
-          do k=2,m1
+          DO k=2,m1
              ga=ga*k
           enddo
@@ -382 +382 @@
           m=int(z)
           r=1._wp
-          do k=1,m
+          DO k=1,m
              r=r*(z-k)
           enddo
@@ -390 +390 @@
        endif
        gr=g(26)
-       do k=25,1,-1
+       DO k=25,1,-1
           gr=gr*z+g(k)
        enddo