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

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm

Files:

• dump2ds.F (modified) (5 diffs)
• eq_regions_mod.F90 (modified) (1 diff)
• set99.F (modified) (1 diff)

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)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90

@@ -353 +353 @@
   do k = 2, n
     w = w * (x - k)
-  end do
+  END DO
 else
   w = 1
   do k = 0, -n - 1
     y = y * (x + k)
-  end do
+  END DO
 end if
 gamma_res = w / y

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

@@ -15 +15 @@
       NIL=0
       NHL=(N/2)-1
-      DO 10 K=NIL,NHL
+      DO K=NIL,NHL
       ANGLE=FLOAT(K)*DEL
       TRIGS(2*K+1)=COS(ANGLE)
       TRIGS(2*K+2)=SIN(ANGLE)
-   10 CONTINUE
+      END DO
 C
 C     FIND FACTORS OF N (8,6,5,4,3,2; ONLY ONE 8 ALLOWED)