Changeset 1941


Ignore:
Timestamp:
Jun 1, 2018, 12:44:01 PM (6 years ago)
Author:
emillour
Message:

Mars GCM: Very minor correction for when running without any tracers.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90

    r1770 r1941  
    119119      enddo ! of do iq=1,nq
    120120     
    121       if (count.eq.nq) then
     121      if ((count.eq.nq).and.(nq.ne.0)) then
    122122        write(*,*) "ini_tracer_mod: tracers seem to follow old naming ", &
    123123                   "convention (q01,q02,...)"
    124124        write(*,*) "you should run newstart to rename them"
    125         stop
     125        call abort_physic("ini_tracer_mod","tracer name issue",1)
    126126      endif
    127127#endif
Note: See TracChangeset for help on using the changeset viewer.