Changeset 1315


Ignore:
Timestamp:
02/21/11 15:23:20 (14 years ago)
Author:
mmaipsl
Message:

Correct another bug come from rev 11 : if real compressed vectors were used, the line
841 had disappeared. This doesn't seem to change the result.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • IOIPSL/trunk/src/getincom.f90

    r1314 r1315  
    839839            i_val(it) = i_cmpval 
    840840          ELSE IF (k_typ == k_r) THEN 
     841            r_val(it) = r_cmpval 
    841842          ENDIF 
    842843          found(it) = .TRUE. 
Note: See TracChangeset for help on using the changeset viewer.