Changeset 3027 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Aug 14, 2023, 11:41:45 AM (16 months ago)

Author:

jbclement

Message:

Mars PCM 1D:
Related to commit r3026: improvement of error message in initracer.F (now it gives correctly the only identified tracers) + one small correction to run PCM 1D without water.
JBC

File:

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

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

@@ -3845 +3845 @@
         ENDIF ! hdo
            endif !not.scavenging
-        ENDIF ! of IF (water)
 
 ! Output needed by the PEM
@@ -3893 +3892 @@
       CALL write_output("co2_layer1","co2 mass mr in the first layer",
      &     'kg/kg',zq(:,1,igcm_co2))
+        ENDIF ! of IF (water)
 
 !PREVIOUSLY IN 1D ONLY