Changeset 4027 for trunk/LMDZ.PLUTO/libf/phypluto/inifis_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/inifis_mod.F90 (modified) (2 diffs)

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

@@ -18 +18 @@
   use comgeomfi_h, only: totarea, totarea_planet
   use comsoil_h, only: ini_comsoil_h, nsoilmx, lay1_soil, alpha_soil
-  use time_phylmdz_mod, only: diagfi_output_rate,startfi_output_rate, &
+  use time_phylmdz_mod, only: diagfi_output_rate,startfi_output_rate,slow_diagfi, &
                               init_time, daysec, dtphys
   use comcstfi_mod, only: rad, cpp, g, r, rcp, &
@@ -185 +185 @@
                                diagfi_output_rate
 
+     if ((is_master).and.(ngrid.eq.1)) 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
+     
      if (is_master) write(*,*) trim(rname)//&
        ": Output rate for start/startfi.nc files (in physics steps) ?"