Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dump2ds.F

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dump2ds.F (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/dump2ds.F

@@ -27 +27 @@
       REAL zmin,zmax,zllu,zllm
       write(F1000,'(''(4x,'',I3,''(1H-))'')')im+3
-      DO 10001 i=1,200
+      DO i=1,200
       jline(1+(i-1)*5:5*i)='.    '
-10001 CONTINUE
+      END DO
 10002 zmin=z(1,1)
       imin=1
@@ -37 +37 @@
       jmax=1
       kzero=0
-      DO 10003 j=1,jm
-      DO 10005 i=1,im
+      DO j=1,jm
+      DO i=1,im
       IF(.NOT.( z(i,j)>zmax))GOTO 10007
       zmax=z(i,j)
@@ -50 +50 @@
       kzero=kzero+1
 10011 CONTINUE
-10005 CONTINUE
+      END DO
 10006 CONTINUE
-10003 CONTINUE
+      END DO
 10004 zsign=(sign(1.,zmin)*sign(1.,zmax)>0.)
       WRITE(*,*)'>>> dump2ds: ',trim(nom_z)
@@ -73 +73 @@
       zinf=.false.
       znan=.false.
-      DO 10017 j=1,jm
-      DO 10019 i=1,im
+      DO j=1,jm
+      DO i=1,im
       az=abs(z(i,j))
       IF(.NOT.( az==0.))GOTO 10021
@@ -97 +97 @@
       kchar(i)=32-kchar(i)
 10027 CONTINUE
-10019 CONTINUE
+      END DO
 10020 WRITE(*,'(1x,i3,''|'',1000a)')j+1,(iform(kchar(i)),i=1,im),'|','| 
      *'
-10017 CONTINUE
+      END DO
 10018 write(*,F1000)
       WRITE(*,'(5x,1000i1)')(mod(i,10),i=1,im)