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

Timestamp:

Feb 27, 2026, 3:54:06 PM (2 days ago)

Author:

jbclement

Message:

PEM:
Small corrections in the scripts.
JBC

File:

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

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

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