Changeset 330 for IOIPSL/trunk


Ignore:
Timestamp:
05/23/08 10:13:49 (16 years ago)
Author:
bellier
Message:

JB: correcting a bug encountered for large number of input files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • IOIPSL/trunk/tools/flio_rbld.f90

    r258 r330  
    14941494            ENDIF 
    14951495          ENDIF 
    1496           CALL flrb_cf (j,l_ocf) 
     1496          CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 
    14971497        ENDDO 
    14981498        IF (l_vmin) THEN 
    … …  
    15211521            ENDIF 
    15221522          ENDIF 
    1523           CALL flrb_cf (j,l_ocf) 
     1523          CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 
    15241524        ENDDO 
    15251525        IF (l_vmin) THEN 
    … …  
    15481548            ENDIF 
    15491549          ENDIF 
    1550           CALL flrb_cf (j,l_ocf) 
     1550          CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 
    15511551        ENDDO 
    15521552        IF (l_vmin) THEN 
Note: See TracChangeset for help on using the changeset viewer.