Changeset 3369 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Jun 12, 2024, 11:00:16 AM (6 months ago)

Author:

emillour

Message:

Mars PCM:
Change the way the rate of outputs for diagfi.nc files is specified:
IMPORTANT: Specifying "ecritphy" no longer possible and will trigger an error.
Use "outputs_per_sol" to specify output rate instead.
This should makes things (hopefully) clearer for users and also better
enforces a cleaner and clearer separation between dynamics and physics.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -65 +65 @@
       use conc_mod, only: init_r_cp_mu, update_r_cp_mu_ak, rnew,
      &                    cpnew, mmean
-      use time_phylmdz_mod, only: iphysiq, day_step, ecritstart, daysec
+      use time_phylmdz_mod, only: steps_per_sol
+      use time_phylmdz_mod, only: iphysiq, ecritstart, daysec
       use dimradmars_mod, only: aerosol, totcloudfrac,
      &                          dtrad, fluxrad_sky, fluxrad, albedo,
@@ -1007 +1008 @@
            ENDIF !end callnlte
 
-c          Find number of layers for LTE radiation calculations
-           IF(MOD(iphysiq*(icount-1),day_step).EQ.0)
+!          Find number of layers for LTE radiation calculations
+!          (done only once per sol)
+           IF(MOD((icount-1),steps_per_sol).EQ.0)
      &          CALL nlthermeq(ngrid,nlayer,zplev,zplay)