Changeset 5616


Ignore:
Timestamp:
03/10/21 09:04:37 (3 years ago)
Author:
acosce
Message:

update size of array "fichier" for ORCHIDEE group (Nicolas Vuichard)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • IOIPSL/trunk/src/getincom.f90

    r4923 r5616  
    9090  INTEGER,PARAMETER :: i_txtslab=1000,l_n=30 
    9191  INTEGER,SAVE :: nb_lines,i_txtsize=0 
    92   CHARACTER(LEN=100),SAVE,ALLOCATABLE,DIMENSION(:) :: fichier 
     92  CHARACTER(LEN=255),SAVE,ALLOCATABLE,DIMENSION(:) :: fichier 
    9393  CHARACTER(LEN=l_n),SAVE,ALLOCATABLE,DIMENSION(:) :: targetlist 
    9494  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: fromfile,compline 
Note: See TracChangeset for help on using the changeset viewer.