Changeset 4137 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phygeneric/inichim_newstart.F90

Timestamp:

Mar 17, 2026, 2:38:17 PM (3 weeks ago)

Author:

gmilcareck

Message:

Newstart: the nlines were not reset to 0 when reading tracer profiles.

File:

• trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phygeneric/inichim_newstart.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phygeneric/inichim_newstart.F90

@@ -133 +133 @@
             fil = trim(datadir)//'/chemical_profiles/'//qxf(iq)
             print*, 'chemical pofile '//trim(noms(iq))//': ', fil
+            nlines=0
             open(UNIT=90,FILE=fil,STATUS='old',iostat=ierr)
             if (ierr.eq.0) then