Changeset 1867 for trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars

Timestamp:

Dec 19, 2017, 12:00:20 AM (8 years ago)

Author:

aslmd

Message:

in mesoscale old physics, corrected runtime errors with picky compilers such as gfortran

File:

• trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/newcondens.F (modified) (1 diff)

trunk/MESOSCALE/LMDZ.MARS/libf_gcm/phymars/newcondens.F

@@ -763 +763 @@
              Mtot = masse(m+1)
              MQtot = masse(m+1)*q(m+1)
-             do while ((m.gt.0).and.(-w(l+1).gt.(Mtot+masse(m))))
+             do while (m.gt.0)
+              do while (-w(l+1).gt.(Mtot+masse(m)))
                 m=m-1
                 Mtot = Mtot + masse(m+1)
                 MQtot = MQtot + masse(m+1)*q(m+1)
+              end do
              end do
              if (m.gt.0) then