Changeset 3621 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat

Timestamp:

Feb 12, 2025, 2:01:14 PM (9 months ago)

Author:

emillour

Message:

Generic PCM:
Follow-up of recent changes in iostart (making 1D restarts) from r3562,
Correspondingly adapt newstart.
EM

File:

• trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

@@ -30 +30 @@
       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 slab_ice_h, only:noceanmx
       USE ocean_slab_mod, ONLY: nslay
@@ -445 +445 @@
          ! 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,