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

Timestamp:

Apr 30, 2025, 5:54:41 PM (3 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/time_phylmdz_mod.F90 (modified) (4 diffs)

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

@@ -4 +4 @@
     REAL,SAVE    :: dtphys     ! physics time step (s)
 !$OMP THREADPRIVATE(dtphys)
-    INTEGER,SAVE :: day_step    ! number of dynamical steps per day
-                                ! (set via inifis)
-!$OMP THREADPRIVATE(day_step)
     INTEGER,SAVE :: nday       ! number of days to run
 !$OMP THREADPRIVATE(nday)
@@ -14 +11 @@
 !$OMP THREADPRIVATE(day_ini)
 
-    INTEGER,SAVE :: ecritphy  ! for diagfi.nc outputs, write every ecritphy
-                              ! dynamical steps (set via inifis)
-!$OMP THREADPRIVATE(ecritphy)
-    INTEGER,SAVE :: iphysiq   ! call physics every iphysiq dynamical step
-                              ! (set via inifis)
-!$OMP THREADPRIVATE(iphysiq)
+    INTEGER,SAVE :: diagfi_output_rate  ! for diagfi.nc outputs, write every diagfi_output_rate physical steps (set via inifis)
+!$OMP THREADPRIVATE(diagfi_output_rate)
 
 CONTAINS
@@ -29 +22 @@
     INTEGER,INTENT(IN) :: nday_
     REAL,INTENT(IN) :: dtphys_
-    
+
     day_ini=day_ini_
     daysec=daysec_
@@ -37 +30 @@
   END SUBROUTINE init_time
 
-END MODULE time_phylmdz_mod      
+END MODULE time_phylmdz_mod