Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d

Timestamp:

Jul 19, 2024, 7:54:50 PM (5 months ago)

Author:

abarral

Message:

convert labeled do (f77) to do .. end do

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

@@ -2010 +2010 @@
           read (ilesfile,*) height(k),ugprof(k),vgprof(k),wfls(k),         &
      &                      dqtdxls(k),dqtdyls(k),dqtdtls(k),thlpcar(k)
-        end do
+        END DO
         do k=1,kmax
           if (height(k) .ne. height1(k)) then
@@ -2017 +2017 @@
             stop
           endif
-        end do
+        END DO
         close(ilesfile)
 
@@ -2035 +2035 @@
         do k=1,kmax
           read (ilesfile,*) height(k),(tracer(k,itrac),itrac=nt1,nt2)
-        end do
+        END DO
         close(ilesfile)
         endif