Changeset 3128 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Nov 17, 2023, 1:15:00 PM (12 months ago)

Author:

jbclement

Message:

Mars PCM:
Correction of a bug related to r3126: 'choice_ads' did not have a default value which made the model crash. 'choice_ads = 0' is the default value (no adsorption).
JBC

File:

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

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

@@ -1010 +1010 @@
 
 ! Adsorption
-         adsorption_soil = .false.
+         adsorption_soil = .false. ! default value
          call getin_p("adsorption_soil",adsorption_soil) 
          if (adsorption_soil .and. (.not. water)) then
@@ -1018 +1018 @@
          endif  
 
-         if(adsorption_soil) choice_ads = 1
+         choice_ads = 0 ! default value (no adsorption)
+         if (adsorption_soil) choice_ads = 1
          call getin_p("choice_ads",choice_ads)