Changeset 3749 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_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/physiq_mod.F90 (modified) (4 diffs)

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

@@ -35 +35 @@
                           alpha_lift, alpha_devil, qextrhor, &
                           nesp, is_chim
-      use time_phylmdz_mod, only: ecritphy, iphysiq, nday
+      use time_phylmdz_mod, only: diagfi_output_rate, nday
       use phyetat0_mod, only: phyetat0,tab_cntrl_mod
       use wstats_mod, only: callstats, wstats, mkstats
@@ -1858 +1858 @@
 
          if(meanOLR .and. is_master)then
-            if((ngrid.gt.1) .or. (mod(icount-1,ecritphy).eq.0))then
+            if((ngrid.gt.1) .or. (mod(icount-1,diagfi_output_rate).eq.0))then
                ! to record global radiative balance
                open(92,file="rad_bal.out",form='formatted',position='append')
@@ -2110 +2110 @@
 !           containing any variable for diagnostic
 !
-!             Note 1 : output with  period "ecritphy", set in "run.def"
+!             Note 1 : output with  period "diagfi_output_rate", set in "run.def"
 !             Note 2 : writediagfi can also be called from any other subroutine
 !                      for any variable, but its preferable to keep all the
@@ -2208 +2208 @@
       call write_output('dtaui_01','Layer optical thickness attenuation in IR band','',int_dtaui(:,nlayer:1:-1,1))
       call write_output('dtaui_17','Layer optical thickness attenuation in IR band','',int_dtaui(:,nlayer:1:-1,17))
-      
+
       ! Temporary inclusions for heating diagnostics.
       if (.not.fast) then