Changeset 3930 for trunk/LMDZ.GENERIC/libf

Timestamp:

Oct 20, 2025, 11:05:39 AM (5 months ago)

Author:

jmauxion

Message:

Generic PCM:
Update of r3928: small modification to make slow_diagfi fully invisible in 3D
(where it is always disabled).
JM

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (1 diff)

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

@@ -155 +155 @@
                                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)//&