Changeset 3621

Timestamp:

Feb 12, 2025, 2:01:14 PM (5 hours ago)

Author:

emillour

Message:

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

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/dynphy_lonlat/phystd/newstart.F (modified) (2 diffs)
• libf/phystd/iostart.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/changelog.txt

@@ -1990 +1990 @@
 controle array stored therein. Remove obsolete unused variables "lmixmin"
 and "emin_turb" in the process. 
+
+== 12/02/2025 == EM
+Follow-up of recent changes in iostart (making 1D restarts) from r3562,
+Correspondingly adapt newstart.

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,

trunk/LMDZ.GENERIC/libf/phystd/iostart.F90

@@ -5 +5 @@
     INTEGER,SAVE :: nid_start ! NetCDF file identifier for startfi.nc file
     ! INTEGER,SAVE :: nid_restart ! NetCDF file identifier for restartfi.nc file
-!$OMP THREADPRIVATE(nid_start,nid_restart)
+!$OMP THREADPRIVATE(nid_start)
     
     ! restartfi.nc file dimension identifiers: (see open_restartphy())