Changeset 3772 for trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_mod.F90

Timestamp:

May 21, 2025, 6:37:40 PM (3 weeks ago)

Author:

afalco

Message:

Pluto: allow to write controle in XIOS output.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_mod.F90 (modified) (4 diffs)

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

@@ -3 +3 @@
 implicit none
 
-real, save :: tab_cntrl_mod(100)
-
 integer,save :: nid_start ! NetCDF file identifier for startfi.nc file
-
-!$OMP THREADPRIVATE(tab_cntrl_mod)
-
 
 contains
@@ -26 +21 @@
 !!
   use comsoil_h, only: nsoilmx,inertiedat
-  use tabfi_mod, only: tabfi
+  use tabfi_mod, only: tabfi,ini_tab_controle_dyn_xios,tab_cntrl_mod
   USE tracer_h, ONLY: noms
   USE surfdat_h, only: phisfi, albedodat, zmea, zstd, zsig, zgam, zthe
@@ -282 +277 @@
     !AF24
 endif ! of if (startphy_file)
+
+call ini_tab_controle_dyn_xios(day_ini)
 !
 ! close file:
@@ -289 +286 @@
 end subroutine phyetat0
 
-
-!======================================================================
-subroutine ini_tab_controle_dyn_xios(idayref)
-
-use comcstfi_mod,        only: g, mugaz, omeg, rad, rcp
-use time_phylmdz_mod,  only: daysec, dtphys
-use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
-
-implicit none
-
-integer*4, intent(in) :: idayref ! date (initial date for this run)
-
-integer :: length, l
-parameter (length = 100)
-real    :: tab_cntrl(length) ! run parameters are stored in this array
-
-do l = 1,length
-    tab_cntrl(l) = 0.
-enddo
-tab_cntrl(1)  = real(nbp_lon)
-tab_cntrl(2)  = real(nbp_lat-1)
-tab_cntrl(3)  = real(nbp_lev)
-tab_cntrl(4)  = real(idayref)
-tab_cntrl(5)  = rad
-tab_cntrl(6)  = omeg
-tab_cntrl(7)  = g
-tab_cntrl(8)  = mugaz
-tab_cntrl(9)  = rcp
-tab_cntrl(10) = daysec
-tab_cntrl(11) = dtphys
-
-tab_cntrl_mod = tab_cntrl
-
-end subroutine ini_tab_controle_dyn_xios
-
-
 end module phyetat0_mod