Changeset 3745

Timestamp:

Apr 29, 2025, 3:15:40 PM (3 months ago)

Author:

afalco

Message:

Pluto: fix for newstart with new restart (nid as parameter).
AF

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F

@@ -27 +27 @@
       use control_mod, only: day_step, iphysiq, anneeref, planet_type
       use phyredem, only: physdem0, physdem1
-      use iostart, only: open_startphy
+      use iostart, only: nid_start, open_startphy
       use filtreg_mod, only: inifilr
       USE mod_const_mpi, ONLY: COMM_LMDZ
@@ -442 +442 @@
          ! tabfi requires that input file be first opened by open_startphy(fichnom)
          fichnom = 'start_archive.nc'
-         call open_startphy(fichnom)
+         call open_startphy(fichnom, nid_start)
          call tabfi (ngridmx,nid,Lmodif,tab0,day_ini,lllm,p_rad,
      .            p_omeg,p_g,p_cpp,p_mugaz,p_daysec,time)
       else if (choix_1.eq.1) then
          fichnom = 'startfi.nc'
-         call open_startphy(fichnom)
+         call open_startphy(fichnom, nid_start)
          Lmodif=1 ! Lmodif set to 1 to allow modifications in phyeta0
          call tabfi (ngridmx,nid_fi,Lmodif,tab0,day_ini,lllm,p_rad,