Changeset 3747 for trunk/LMDZ.PLUTO

Timestamp:

Apr 29, 2025, 4:26:22 PM (3 months ago)

Author:

afalco

Message:

Generic/Pluto?: create restartfi if it does not exist when opening it.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/iostart.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/iostart.F90

@@ -599 +599 @@
         ierr=NF90_OPEN(filename,NF90_WRITE,nid_restart)
         IF (ierr/=NF90_NOERR) THEN
+          if (ierr.eq.2) then ! file does not exist
+            call create_restartphy(filename,nid_restart)
+            return
+          endif
           write(*,*)'open_restartphy: problem opening file '//trim(filename)
           write(*,*)trim(nf90_strerror(ierr))