Changeset 4066 for trunk/LMDZ.MARS/libf

Timestamp:

Feb 12, 2026, 12:17:32 PM (12 days ago)

Author:

jmauxion

Message:

Mars PCM:
Raise an error if the deprecated flag 'albedo_h2o_ice' is used.
JM

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (3 diffs)

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

@@ -87 +87 @@
       character(len=20),parameter :: modname="conf_phys"
       
-      real :: ecritphy ! to check that this obsolete flag is no longer used...
+      real :: old_flag ! to check that obsolete flags are no longer used (real only)...
       real :: albedo_perennialco2_north, albedo_perennialco2_south
  
@@ -96 +96 @@
       ! read in some parameters from "run.def" for physics,
       ! or shared between dynamics and physics.
-      ecritphy=-666 ! dummy default value
-      call getin_p("ecritphy",ecritphy) ! frequency of outputs in physics,
+      old_flag=-666 ! dummy default value
+      call getin_p("ecritphy",old_flag) ! frequency of outputs in physics,
                                       ! in dynamical steps
-      if (ecritphy/=-666) then
+      if (old_flag/=-666) then
         call abort_physic(modname,
      &     "Error: parameter ecritphy is obsolete! Remove it! "//
@@ -957 +957 @@
 ! Water ice albedo
          write(*,*) "water cap albedo ?"
+
+         ! Check obsolete flag for watercap albedo
+         call getin_p("albedo_h2o_ice",old_flag) ! old watercap albedo flag
+         if (old_flag/=-666) then
+          call abort_physic(modname,
+     &     "Error: parameter albedo_h2o_ice is obsolete! Remove it! "//
+     &     "And use albedo_h2o_cap instead",1)
+         endif
+
          albedo_h2o_cap=0.35
          call getin_p("albedo_h2o_cap",albedo_h2o_cap)