Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/ecsort_shared.h

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/ecsort_shared.h (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/ecsort_shared.h

@@ -421 +421 @@
       if (imod == 0) iadd = 0
       ista(1) = 1
-      do j=2,inumt
+      DO j=2,inumt
         ista(j) = ista(j-1) + inc + iadd
         if (iadd > 0 .and. j > imod) iadd = 0
       enddo
       ista(inumt+1) = n + 1
-      do j=1,inumt
+      DO j=1,inumt
         ichunk(j) = ista(j+1) - ista(j)
       enddo
@@ -452 +452 @@
     ITID = OML_MY_THREAD()
 !$OMP DO SCHEDULE(DYNAMIC,1)
-    do j=1,inumt
+    DO j=1,inumt
       j1 = ista(j)
       inum = ichunk(j)
@@ -490 +490 @@
     inc = 2
     imax = (inumt+inc-1)/inc
-    do jj=1,imax
+    DO jj=1,imax
       if (LLdebug) write(0,1001) jj,'<before_merge> jj,inc,imax,inumt=',jj,inc,imax,inumt
 !$OMP PARALLEL PRIVATE(j,j1,j2,inum,iamax,ibmax,jmid,iret,ZHOOK_SUBHANDLE3,ITID)
@@ -496 +496 @@
       ITID = OML_MY_THREAD()
 !$OMP DO SCHEDULE(DYNAMIC,1)
-      do j=1,inumt,inc
+      DO j=1,inumt,inc
         j1 = j
         j2 = j + inc - 1
@@ -568 +568 @@
     allocate(data(n))
 !$OMP DO SCHEDULE(DYNAMIC,1)
-    do j=1,sda
+    DO j=1,sda
       data(1:n) = a(iindex(1:n),j)
       a(1:n,j) = data(1:n)
@@ -580 +580 @@
     allocate(data(n))
 !$OMP DO SCHEDULE(DYNAMIC,1)
-    do i=1,lda
+    DO i=1,lda
       data(1:n) = a(i,iindex(1:n))
       a(i,1:n) = data(1:n)
@@ -613 +613 @@
 WRITE(0,1000) jj,cdstr//': n,key,k1,k2,kadd,a(index(k1:k2)+kadd,:)=',&
      &                     n,key,k1,k2,kadd
-do j=k1,k2
+DO j=k1,k2
   i = index(j)+kadd
   WRITE(0,'(2i6)',advance='no') j,i-kadd
@@ -649 +649 @@
   i = left
   j = 2*left
-  do while (j <= right)
+  DO while (j <= right)
     if (j < right) then
       if (a(index(j)) < a(index(j+1))) j = j + 1