Changeset 4068 for trunk/LMDZ.COMMON/libf/evolution/config.F90

Timestamp:

Feb 12, 2026, 12:32:15 PM (3 weeks ago)

Author:

jbclement

Message:

PEM:
Following r4065, some safeguards forgotten in "io_netcdf.F90" + 'tsurf' is not needed anymore in the "start1D.txt" + few forgotten small updates.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/config.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/config.F90

@@ -76 +76 @@
 ! LOCAL VARIABLES
 ! ---------------
-logical(k4) :: here, evol_orbit_l, evol_obl_l, evol_ecc_l, evol_lsp_l, do_soil_l, reg_thprop_dependp_l, do_sorption_l, hybrid_alt_coord_l
+logical(k4) :: here, evol_orbit_l, evol_obl_l, evol_ecc_l, evol_lsp_l, do_soil_l, reg_thprop_dependp_l, do_sorption_l, hybrid
 logical(k4) :: icetable_equilibrium_l, icetable_dynamic_l, h2oice_flow_l, co2ice_flow_l, do_layering_l, impose_dust_ratio_l
 integer(di) :: output_rate_l
@@ -204 +204 @@
 
 ! Read "run_PCM.def" parameters
-hybrid_alt_coord_l = .true. ! Default setting
-call get_hybrid(hybrid_alt_coord_l)
-call set_atmosphere_config(hybrid_alt_coord_l)
+hybrid = .true. ! Default
+call get_hybrid(hybrid)
+call set_atmosphere_config(hybrid)
 
 ! Check incompatibilities