Changeset 1375 for IOIPSL


Ignore:
Timestamp:
04/20/11 11:26:31 (13 years ago)
Author:
mmaipsl
Message:

Because of undefined value on test at line 811 on compline (line compression
parameter), I add this property on the whole values of a vector parameter
readed by getincom.

File:
1 edited

Legend:

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

    r1336 r1375  
    13891389        nbve = nbve+1 
    13901390        WRITE(UNIT=cnt,FMT=c_i_fmt) nbve 
     1391        compline(nb_lines)=compline(nb_lines-1) 
    13911392!- 
    13921393      ENDDO 
     
    14091410 
    14101411  IF (l_dbg) THEN 
    1411      WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : ", & 
     1412     WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : " 
     1413     WRITE(*,*) "getin_decrypt ->", nb_lines,& 
     1414          & SIZE(fichier), & 
     1415          & SIZE(fromfile), & 
     1416          & SIZE(filelist) 
     1417     IF (nb_lines > 0) THEN 
     1418        WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : ", & 
    14121419          & TRIM(fichier(nb_lines)), & 
    14131420          & fromfile(nb_lines), & 
    14141421          & TRIM(filelist(fromfile(nb_lines))) 
    1415      WRITE(*,*) "                compline : ",compline(nb_lines) 
    1416      WRITE(*,*) "                targetlist : ",TRIM(targetlist(nb_lines)) 
     1422        WRITE(*,*) "                compline : ",compline(nb_lines) 
     1423        WRITE(*,*) "                targetlist : ",TRIM(targetlist(nb_lines)) 
     1424     ENDIF 
    14171425     WRITE(*,*) "                last_key : ",last_key 
    14181426  ENDIF 
Note: See TracChangeset for help on using the changeset viewer.