Changeset 1314 for IOIPSL/trunk

Timestamp:

02/21/11 15:21:13 (14 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:

• IOIPSL/trunk/src/getincom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/getincom.f90

@@ -729 +729 @@
 !-
 ! See what we find in the files read
+!---
+!-- We dont know from which file the target could come.
+!-- Thus by default we attribute it to the first file :
+  fileorig = 1
+!-
   DO it=1,nb_to_ret
 !---
@@ -740 +745 @@
       CALL get_findkey (2,TRIM(targetname)//'__'//cnt,pos)
     ENDIF
-!---
-!-- We dont know from which file the target could come.
-!-- Thus by default we attribute it to the first file :
-    fileorig = 1
 !---
     IF (pos > 0) THEN