Changeset 3773 for trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90

Timestamp:

May 21, 2025, 6:37:41 PM (5 weeks ago)

Author:

afalco

Message:

Generic: allow to write controle in XIOS output.
AF

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90 (modified) (3 diffs)

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

@@ -22 +22 @@
   use write_field_phy, only: Writefield_phy
 !!
-  use tabfi_mod, only: tabfi
+  use tabfi_mod, only: tabfi,ini_tab_controle_dyn_xios
   USE tracer_h, ONLY: noms, igcm_h2o_vap
   USE radinc_h, ONLY: L_NSPECTV
@@ -485 +485 @@
    endif
 endif ! of if (startphy_file)
+
+call ini_tab_controle_dyn_xios(day_ini)
+
+
 !
 ! close file:
@@ -492 +496 @@
 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