Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/open_climoz_m.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/open_climoz_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/open_climoz_m.F90

@@ -64 +64 @@
     IF(daily.AND.ntim/=year_len) THEN
       WRITE(msg,'(a,3(i4,a))')TRIM(sub)//': Expecting a daily ozone file with',&
-     &year_len,' records (year ',year_cur,') ; found ',ntim,' instead'
+  year_len,' records (year ',year_cur,') ; found ',ntim,' instead'
       CALL abort_physic(sub, msg, 1)
     ELSE IF(ALL([360,14]/=ntim)) THEN
       WRITE(msg,'(a,i4,a)')TRIM(sub)//': Expecting an ozone file with 14 (mont'&
-     &//'hly case) or 360 (old style files) records ; found ',ntim,' instead'
+  //'hly case) or 360 (old style files) records ; found ',ntim,' instead'
       CALL abort_physic(sub, msg, 1)
     ELSE