Changeset 3749 for trunk/LMDZ.PLUTO/libf/phypluto/dyn1d

Timestamp:

Apr 30, 2025, 5:54:41 PM (8 months ago)

Author:

afalco

Message:

Pluto: ecritphy changed into diagfi_output_rate (followup of generic model), which defines the output rate of the diagfi in physical timesteps rather than dynamical ones.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F (modified) (3 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F

@@ -20 +20 @@
       use comcstfi_mod, only: pi, cpp, rad, g, r,
      &                        mugaz, rcp, omeg
-      use time_phylmdz_mod, only: daysec, dtphys, day_step, ecritphy,
+      use time_phylmdz_mod, only: daysec, dtphys, diagfi_output_rate,
      &                            nday, iphysiq
       use callkeys_mod, only: tracer, specOLR,pceil,haze
@@ -80 +80 @@
       INTEGER lecttsoil     ! lecture of tsoil from proftsoil
       INTEGER lecthaze      ! lecture of haze from profhaze
-      REAL day              ! date durant le run
+      REAL day              ! date during the run
+      INTEGER day_step      ! number of time steps per day
       REAL time             ! time (0<time<1 ; time=0.5 a midi)
       REAL play(llm)        ! Pressure at the middle of the layers (Pa)
@@ -528 +529 @@
       write(*,*) " day_step = ",day_step
 
-      iphysiq=1 ! in 1D model physics are called evry time step
-      ecritphy=day_step ! default value for ecritphy
+      diagfi_output_rate=24 ! default value for diagfi_output_rate
       PRINT *,'Nunber of steps between writediagfi ?'
-      call getin("ecritphy",ecritphy)
-      write(*,*) " ecritphy = ",ecritphy
+      call getin("diagfi_output_rate",diagfi_output_rate)
+      write(*,*) " diagfi_output_rate = ",diagfi_output_rate
 
       ndt=10 ! default value for ndt