Index: /trunk/LMDZ.GENERIC/changelog.txt
===================================================================
--- /trunk/LMDZ.GENERIC/changelog.txt	(revision 3929)
+++ /trunk/LMDZ.GENERIC/changelog.txt	(revision 3930)
@@ -2109,2 +2109,6 @@
 the opening frequency is at output frequency (recommended in debug mode). Also
 fixing a redundant loop on tracers when writing outputs in physiq_mod.
+
+== 20/10/2025 == JM
+Update of r3928: small modification to make slow_diagfi fully invisible in 3D
+(where it is always disabled).
Index: /trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90
===================================================================
--- /trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90	(revision 3929)
+++ /trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90	(revision 3930)
@@ -155,12 +155,13 @@
                                diagfi_output_rate
 
-     if ((is_master).and.(ngrid.eq.1)) write(*,*) trim(rname)//&
+     if ((is_master).and.(ngrid.eq.1)) then
+       write(*,*) trim(rname)//&
        ": Open/close diagfi.nc at output rate (rather than once) ?"
-     slow_diagfi =.false. ! default value, open/close diagfi once (1D only)
-     call getin_p("slow_diagfi",slow_diagfi) ! if true, open/close the diagfi.nc
-                                             ! at output frequency instead of once
-                                             ! (slower but required for debug)
-     if ((is_master).and.(ngrid.eq.1)) write(*,*) trim(rname)//&
-       ": slow_diagfi = ", slow_diagfi
+       slow_diagfi =.false. ! default value, open/close diagfi once (1D only)
+       call getin_p("slow_diagfi",slow_diagfi) ! if true, open/close the diagfi.nc
+                                               ! at output frequency instead of once
+                                               ! (slower but required for debug)
+       write(*,*) trim(rname)//": slow_diagfi = ", slow_diagfi
+     endif
 
      if (is_master) write(*,*) trim(rname)//&