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

Timestamp:

Feb 10, 2026, 11:19:31 AM (5 days ago)

Author:

emillour

Message:

Mars PCM:
Some code cleanup:

• remove obsolete "eofdump" routine and related "calleofdump" flag
• remove obsolete "callg2d" flag
• rename vague and non-descriptive "linear" flag as "lwxn_linear" (as it is only used in lwxn routine), likewise rename "alphan" "lwxn_alphan" and "ncouche" "lwxn_ncouche" And move these 3 flags from callkeys_mod to the lwxn module

EM

File:

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

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

@@ -109 +109 @@
       use phyetat0_mod, only: phyetat0, tab_cntrl_mod
       use wstats_mod, only: callstats, wstats, mkstats
-      use eofdump_mod, only: eofdump
       USE vertical_layers_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt
       USE mod_phys_lmdz_omp_data, ONLY: is_omp_master
@@ -137 +136 @@
       use callkeys_mod, only: calladj, calltherm, callatke, calldifv
       use callkeys_mod, only: callrichsl, tke_heat_flux
-      use callkeys_mod, only: calllott, calllott_nonoro, calleofdump
+      use callkeys_mod, only: calllott, calllott_nonoro
       use callkeys_mod, only: callrad, callnlte, callnirco2, nircorr
       use callkeys_mod, only: diurnal, season, iradia, nltemodel
@@ -190 +189 @@
 c           - "startfi", "histfi" (if it's time)
 c           - Saving statistics (if "callstats = .true.")
-c           - Dumping eof (if "calleofdump = .true.")
 c           - Output any needed variables in "diagfi"
 c     11. Diagnostic: mass conservation of tracers
@@ -3195 +3193 @@
            ENDIF
 
-c        (Store EOF for Mars Climate database software)
-         IF (calleofdump) THEN
-            CALL eofdump(ngrid, nlayer, zu, zv, zt, rho, ps)
-         ENDIF
 #endif
 !endif of ifndef MESOSCALE