Changeset 3765

Timestamp:

May 15, 2025, 2:57:07 PM (3 weeks ago)

Author:

afalco

Message:

Pluto: write startfi regularly deactivated by default.
AF

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• inifis_mod.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (2 diffs)
• time_phylmdz_mod.F90 (modified) (1 diff)

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, &
+  use time_phylmdz_mod, only: diagfi_output_rate,startfi_output_rate, &
                               init_time, daysec, dtphys
   use comcstfi_mod, only: rad, cpp, g, r, rcp, &
@@ -180 +180 @@
 
      if (is_master) write(*,*) trim(rname)//&
+       ": Output rate for start/startfi.nc files (in physics steps) ?"
+     startfi_output_rate=0 !default value
+     call getin_p("startfi_output_rate",startfi_output_rate)
+     if (is_master) write(*,*) trim(rname)//": startfi_output_rate = ",&
+                               startfi_output_rate
+
+     if (is_master) write(*,*) trim(rname)//&
        ": Run with or without atm mass update "//&
        " due to tracer evaporation/condensation?"

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

@@ -35 +35 @@
                           alpha_lift, alpha_devil, qextrhor, &
                           nesp, is_chim
-      use time_phylmdz_mod, only: diagfi_output_rate, nday
+      use time_phylmdz_mod, only: diagfi_output_rate, startfi_output_rate, nday
       use phyetat0_mod, only: phyetat0,tab_cntrl_mod
       use wstats_mod, only: callstats, wstats, mkstats
@@ -2108 +2108 @@
       endif ! end of 'lastcall'
 
-      if(mod(icount,diagfi_output_rate).eq.0) then
-         write_restartfi = .true.
+      if(startfi_output_rate.ne.0)then
+         if (mod(icount,startfi_output_rate).eq.0) then
+            write_restartfi = .true.
+         endif
       endif
 !----------------------------------------------------------------------

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

@@ -12 +12 @@
 
     INTEGER,SAVE :: diagfi_output_rate  ! for diagfi.nc outputs, write every diagfi_output_rate physical steps (set via inifis)
-!$OMP THREADPRIVATE(diagfi_output_rate)
+    INTEGER,SAVE :: startfi_output_rate ! mainly for debugging
+!$OMP THREADPRIVATE(diagfi_output_rate,startfi_output_rate)
 
 CONTAINS