Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/icarus.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/icarus.F90 (modified) (3 diffs)

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

@@ -155 +155 @@
                   (cchar_realtops(acc(ilev,ibox)+1),ilev=1,nlev),&
                   (cchar(acc(ilev,ibox)+1),ilev=1,nlev) 
-          end do
+          END DO
           close(9)
 
@@ -322 +322 @@
        do ibox=1,ncol
           fluxtop(1:npoints,ibox) = fluxtop(1:npoints,ibox) + emsfc_lw*bb(1:npoints)*trans_layers_above(1:npoints,ibox) 
-       end do
+       END DO
 
        ! All Sky brightness temperature
@@ -445 +445 @@
                 levmatch(1:npoints,ibox)=ilev
              endwhere
-          end do
+          END DO
        end if
        where(tau(1:npoints,ibox) <= tauchk)