Changeset 4027 for trunk/LMDZ.PLUTO/libf/phypluto/time_phylmdz_mod.F90

Timestamp:

Jan 20, 2026, 10:46:15 AM (2 days ago)

Author:

debatzbr

Message:

Pluto PCM: Adding a slow_diagfi flag for 1D model from Generic PCM (revision 3928).
BBT

File:

• trunk/LMDZ.PLUTO/libf/phypluto/time_phylmdz_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/time_phylmdz_mod.F90

@@ -14 +14 @@
     INTEGER,SAVE :: startfi_output_rate ! mainly for debugging
 !$OMP THREADPRIVATE(diagfi_output_rate,startfi_output_rate)
+
+    LOGICAL,SAVE :: slow_diagfi ! to handle wether the netcdf file is
+                                ! opened/close once or at output frequency
+!$OMP THREADPRIVATE(slow_diagfi)
 
 CONTAINS