Changeset 4130 for trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90

Timestamp:

Mar 16, 2026, 10:51:10 AM (4 weeks ago)

Author:

emillour

Message:

Generic PCM:
Follow-up of previous commit, cleanup output of soil variables in diagsoil.nc
when not using XIOS. Added logical flag "diagsoil" (default .false.) to trigger
outputs in diagsoil.nc
EM

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90

@@ -25 +25 @@
   use callkeys_mod
   use wstats_mod, only: callstats
+  use writediagsoil_mod, only: diagsoil
   use ioipsl_getin_p_mod, only : getin_p
   use mod_phys_lmdz_para, only : is_parallel, is_master, bcast
@@ -259 +260 @@
      call getin_p("callstats",callstats)
      if (is_master) write(*,*) trim(rname)//": callstats = ",callstats
+
+     if (is_master) write(*,*) trim(rname)//&
+       ": Write sub-surface fields in file diagsoil.nc ?"
+     diagsoil=.false. ! default value
+     call getin_p("diagsoil",diagsoil)
+     if (is_master) write(*,*) trim(rname)//": diagsoil = ",diagsoil
 
      if (is_master) write(*,*) trim(rname)//&