Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.F

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/dyn3d_common/geopot.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/geopot.F

@@ -47 +47 @@
 c     calcul de phi au niveau 1 pres du sol  .....
 
-      DO   1  ij  = 1, ngrid
+      DO   ij  = 1, ngrid
       phi( ij,1 ) = phis( ij ) + teta(ij,1) * ( pks(ij) - pk(ij,1) )
-   1  CONTINUE
+      END DO
 
 c     calcul de phi aux niveaux superieurs  .......