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

Timestamp:

Mar 19, 2026, 10:32:21 AM (4 weeks ago)

Author:

jbclement

Message:

Mars PCM:
Fix r4142 to conform to fixed-form column format and allow compilation.
JBC

File:

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

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

@@ -930 +930 @@
      &                iq .ne. igcm_co2) then
                      ! Correcting species other than CO2
-                     pq_corrdyn(ig, l, iq) = pq(ig, l, iq) * masscorrfac(iq)
+                     pq_corrdyn(ig, l, iq) =
+     &                    pq(ig, l, iq) * masscorrfac(iq)
                      ! Adjust CO2 to compensate for mass creation/loss
                      pq_corrdyn(ig, l, igcm_co2) =