Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Timestamp:

Jul 20, 2024, 12:00:23 PM (5 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert.F90

@@ -405 +405 @@
     END DO
     IF(it==maxit+1) WRITE(lunout,'(a,i3)')'WARNING in ridder: failed to converg&
-     &e for level ',l
+  e for level ',l
     sg(l)=xx
   END DO