Changeset 3748

Timestamp:

Apr 30, 2025, 5:54:39 PM (3 months ago)

Author:

afalco

Message:

Pluto: create restartfi instead of opening it in physdem0.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/phyredem.F90 (modified) (2 diffs)

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

@@ -16 +16 @@
                        emisice, emissiv,             &
                        iceradius, dtemisice, phisfi
-  use iostart, only : open_restartphy, close_restartphy, &
+  use iostart, only : create_restartphy, open_restartphy, close_restartphy, &
                       put_var, put_field, length, ldscrpt, ndscrpt
   use mod_grid_phy_lmdz, only : klon_glo
@@ -83 +83 @@
 
   ! Create physics start file
-  call open_restartphy(filename,nid_restart)
+  call create_restartphy(filename,nid_restart)
 
 ! tab_cntrl() contains run parameters