Changeset 1025 for IOIPSL


Ignore:
Timestamp:
05/20/10 09:49:57 (14 years ago)
Author:
bellier
Message:

Added a test to avoid warnings for variable without attributes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/tools/flio_rbld.f90

    r386 r1025  
    602602    ENDIF 
    603603!-- copy all variable attributes 
    604     ALLOCATE(v_a_nm(v_a_nb)) 
    605     CALL flioinqv (f_id_i1,TRIM(f_v_nm(iv)),l_ex,cn_atts=v_a_nm) 
    606     DO ia=1,v_a_nb 
    607       CALL fliocpya & 
    608  &     (f_id_i1,TRIM(f_v_nm(iv)),TRIM(v_a_nm(ia)), & 
    609  &      f_id_o,TRIM(f_v_nm(iv))) 
    610     ENDDO 
    611     DEALLOCATE(v_a_nm) 
     604    IF (v_a_nb > 0) THEN 
     605      ALLOCATE(v_a_nm(v_a_nb)) 
     606      CALL flioinqv (f_id_i1,TRIM(f_v_nm(iv)),l_ex,cn_atts=v_a_nm) 
     607      DO ia=1,v_a_nb 
     608        CALL fliocpya & 
     609 &       (f_id_i1,TRIM(f_v_nm(iv)),TRIM(v_a_nm(ia)), & 
     610 &        f_id_o,TRIM(f_v_nm(iv))) 
     611      ENDDO 
     612      DEALLOCATE(v_a_nm) 
     613    ENDIF 
    612614  ENDDO 
    613615!- 
Note: See TracChangeset for help on using the changeset viewer.