Changeset 3279 for IOIPSL/trunk


Ignore:
Timestamp:
06/22/17 10:25:29 (4 years ago)
Author:
jgipsl
Message:

Increase parameters values to be able to read longer lines from run.def. Done by Fuxing Wang, LMD

File:
1 edited

Legend:

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

    r1574 r3279  
    9494  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: fromfile,compline 
    9595!- 
    96   INTEGER,PARAMETER :: n_d_fmt=5,max_msgs=15 
     96  INTEGER,PARAMETER :: n_d_fmt=5,max_msgs=30 
    9797  CHARACTER(LEN=6),SAVE :: c_i_fmt = '(I5.5)' 
    9898!- 
    9999! The data base of parameters 
    100100!- 
    101   INTEGER,PARAMETER :: memslabs=200 
     101  INTEGER,PARAMETER :: memslabs=300 
    102102  INTEGER,PARAMETER :: compress_lim=20 
    103103!- 
     
    138138  REAL,SAVE,ALLOCATABLE,DIMENSION(:) :: r_mem 
    139139  INTEGER,SAVE :: r_memsize=0, r_mempos=0 
    140   CHARACTER(LEN=100),SAVE,ALLOCATABLE,DIMENSION(:) :: c_mem 
     140  CHARACTER(LEN=300),SAVE,ALLOCATABLE,DIMENSION(:) :: c_mem 
    141141  INTEGER,SAVE :: c_memsize=0, c_mempos=0 
    142142  LOGICAL,SAVE,ALLOCATABLE,DIMENSION(:) :: l_mem 
     
    367367  ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in) 
    368368!---------------------- 
     369 
    369370END SUBROUTINE getinr1d 
    370371!=== 
     
    11221123  INTEGER :: current 
    11231124!- 
    1124   CHARACTER(LEN=100) :: READ_str,NEW_str,last_key,key_str 
     1125  CHARACTER(LEN=300) :: READ_str,NEW_str,last_key,key_str 
    11251126  CHARACTER(LEN=n_d_fmt) :: cnt 
    11261127  CHARACTER(LEN=10) :: c_fmt 
     
    12611262!- 
    12621263  INTEGER :: len_str,blk,nbve,starpos 
    1263   CHARACTER(LEN=100) :: tmp_str,new_key,mult 
     1264  CHARACTER(LEN=300) :: tmp_str,new_key,mult 
    12641265  CHARACTER(LEN=n_d_fmt) :: cnt 
    12651266  CHARACTER(LEN=10) :: c_fmt 
     
    14921493!- 
    14931494  INTEGER :: unit,eof,nb_lastkey 
    1494   CHARACTER(LEN=100) :: dummy 
    1495   CHARACTER(LEN=100),INTENT(out) :: out_string 
     1495  CHARACTER(LEN=300) :: dummy 
     1496  CHARACTER(LEN=300),INTENT(out) :: out_string 
    14961497  CHARACTER(LEN=1) :: first 
    14971498!--------------------------------------------------------------------- 
     
    15881589  INTEGER,ALLOCATABLE :: tmp_int(:) 
    15891590  REAL,ALLOCATABLE :: tmp_real(:) 
    1590   CHARACTER(LEN=100),ALLOCATABLE :: tmp_char(:) 
     1591  CHARACTER(LEN=300),ALLOCATABLE :: tmp_char(:) 
    15911592  LOGICAL,ALLOCATABLE :: tmp_logic(:) 
    15921593  INTEGER :: ier 
     
    17301731  IMPLICIT NONE 
    17311732!- 
    1732   CHARACTER(LEN=100),ALLOCATABLE :: tmp_fic(:) 
     1733  CHARACTER(LEN=300),ALLOCATABLE :: tmp_fic(:) 
    17331734  CHARACTER(LEN=l_n),ALLOCATABLE :: tmp_tgl(:) 
    17341735  INTEGER,ALLOCATABLE :: tmp_int(:) 
     
    18561857  INTEGER :: ikey,if,iff,iv 
    18571858  CHARACTER(LEN=20) :: c_tmp 
    1858   CHARACTER(LEN=100) :: tmp_str,used_filename 
     1859  CHARACTER(LEN=300) :: tmp_str,used_filename 
    18591860  INTEGER :: io_err 
    18601861  LOGICAL :: l_dbg 
Note: See TracChangeset for help on using the changeset viewer.