Changeset 1867 for trunk/MESOSCALE


Ignore:
Timestamp:
Dec 19, 2017, 12:00:20 AM (7 years ago)
Author:
aslmd
Message:

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

Location:
trunk/MESOSCALE
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMDZ.MARS/libf_gcm/bibio/lnblnk.F

    r57 r1867  
    2222      INTEGER i,imax
    2323      PARAMETER (imax = 256)
    24       CHARACTER*256 letter
     24      CHARACTER(len=*) letter
    2525
    2626      i=0

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

    r57 r1867  
    763763             Mtot = masse(m+1)
    764764             MQtot = masse(m+1)*q(m+1)
    765              do while ((m.gt.0).and.(-w(l+1).gt.(Mtot+masse(m))))
     765             do while (m.gt.0)
     766              do while (-w(l+1).gt.(Mtot+masse(m)))
    766767                m=m-1
    767768                Mtot = Mtot + masse(m+1)
    768769                MQtot = MQtot + masse(m+1)*q(m+1)
     770              end do
    769771             end do
    770772             if (m.gt.0) then

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/bibio/lnblnk.F

    r11 r1867  
    2222      INTEGER i,imax
    2323      PARAMETER (imax = 256)
    24       CHARACTER*256 letter
     24      CHARACTER(len=*) letter
    2525
    2626      i=0
Note: See TracChangeset for help on using the changeset viewer.