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

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iotd_ini.F90 (modified) (2 diffs)

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

@@ -148 +148 @@
       WRITE(date0,'(i4.4,"-",i2.2,"-",i2.2)') an0,mois0,jour0
       ierr=NF_PUT_ATT_TEXT(nid, nvarid,'units',33, &
-     & "seconds since "//date0//" 00:00:00")
+   "seconds since "//date0//" 00:00:00")
       ierr = NF_PUT_ATT_TEXT(nid,nvarid,'calendar',9,calendrier)
       !ierr = NF_PUT_ATT_TEXT(nid,nvarid,'calendar',4,'360d')
@@ -155 +155 @@
       WRITE(date0b,'(i4.4,"-",a3,"-",i2.2)') an0,cmois(mois0),jour0
       ierr = NF_PUT_ATT_TEXT(nid,nvarid,'time_origin',20, &
-     &        date0b//' 00:00:00')
+          date0b//' 00:00:00')
       ierr=NF_ENDDEF(nid)