Changeset 1314 for IOIPSL


Ignore:
Timestamp:
02/21/11 15:21:13 (13 years ago)
Author:
mmaipsl
Message:

In my previous (1313) I forget to mention D.Solyga and I have corrected a bug in

getincom, from rev 11 :
nb_to_ret wasn't correctly assigned in get_fil then we add the correct argument.

In this commit, I have corrected a problem for vector partialy defined with getin and

the use of link files with INCLUDEDEF pragma (the dump report was wrong).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/getincom.f90

    r1313 r1314  
    729729!- 
    730730! See what we find in the files read 
     731!--- 
     732!-- We dont know from which file the target could come. 
     733!-- Thus by default we attribute it to the first file : 
     734  fileorig = 1 
     735!- 
    731736  DO it=1,nb_to_ret 
    732737!--- 
     
    740745      CALL get_findkey (2,TRIM(targetname)//'__'//cnt,pos) 
    741746    ENDIF 
    742 !--- 
    743 !-- We dont know from which file the target could come. 
    744 !-- Thus by default we attribute it to the first file : 
    745     fileorig = 1 
    746747!--- 
    747748    IF (pos > 0) THEN 
Note: See TracChangeset for help on using the changeset viewer.