Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/scops.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/cosp/scops.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/scops.F

@@ -161 +161 @@
       
       !loop over vertical levels
-      DO 200 ilev = 1,nlev
+      DO ilev = 1,nlev
                                   
 !     Initialise threshold
@@ -331 +331 @@
           endif
 
-200   CONTINUE    !loop over nlev
+      END DO    !loop over nlev