Changeset 3930 for trunk/LMDZ.GENERIC

Timestamp:

Oct 20, 2025, 11:05:39 AM (6 weeks 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

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/phystd/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/changelog.txt

@@ -2109 +2109 @@
 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).

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)//&