Changeset 4102 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Mar 4, 2026, 3:15:26 PM (3 weeks ago)

Author:

jbclement

Message:

Mars PCM:

• Incompatibility check for dustscaling_mode = 2 and iaervar = 1.
• Move "start1D.txt" from "deftank/" to "startfiles/".

JBC

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (1 diff)

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

@@ -566 +566 @@
          call getin_p("dustscaling_mode",dustscaling_mode)
          write(*,*) "dustscaling_mode=",dustscaling_mode
-         if ((dustscaling_mode.eq.1).and.freedust) then
+         if (dustscaling_mode == 1 .and. freedust) then
            print*,'freedust and dustscaling_mode=1 are incompatible !'
            call abort_physic(modname,
      &          "freedust and dustscaling_mode=1 are incompatible",1)
-         endif         
+         endif
+         if (dustscaling_mode == 2 .and. iaervar == 1) then
+           print*,'iaervar=1 and dustscaling_mode=2 are incompatible !'
+           call abort_physic(modname,
+     &          "iaervar=1 and dustscaling_mode=2 are incompatible",1)
+         endif
 
 #ifndef MESOSCALE