Ignore:
Timestamp:
Oct 30, 2017, 11:04:45 AM (7 years ago)
Author:
jvatant
Message:

Correct string management within muphy for ifort
JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90

    r1795 r1814  
    288288    DO i=1,size(indexes)
    289289      idx = indexes(i)
    290       IF (idx < 1 .OR. idx >= nt) THEN
     290      IF (idx < 1 .OR. idx > nt) THEN
    291291        ! WRITE(*,'((a),I3,(a),I3,(a))') "index out of range (",idx,"/",nt,")"
    292292        CYCLE
Note: See TracChangeset for help on using the changeset viewer.