Changeset 3279 for IOIPSL

Timestamp:

06/22/17 10:25:29 (6 years ago)

Author:

jgipsl

Message:

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

File:

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

IOIPSL/trunk/src/getincom.f90

@@ -94 +94 @@
   INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: fromfile,compline
 !-
-  INTEGER,PARAMETER :: n_d_fmt=5,max_msgs=15
+  INTEGER,PARAMETER :: n_d_fmt=5,max_msgs=30
   CHARACTER(LEN=6),SAVE :: c_i_fmt = '(I5.5)'
 !-
 ! The data base of parameters
 !-
-  INTEGER,PARAMETER :: memslabs=200
+  INTEGER,PARAMETER :: memslabs=300
   INTEGER,PARAMETER :: compress_lim=20
 !-
@@ -138 +138 @@
   REAL,SAVE,ALLOCATABLE,DIMENSION(:) :: r_mem
   INTEGER,SAVE :: r_memsize=0, r_mempos=0
-  CHARACTER(LEN=100),SAVE,ALLOCATABLE,DIMENSION(:) :: c_mem
+  CHARACTER(LEN=300),SAVE,ALLOCATABLE,DIMENSION(:) :: c_mem
   INTEGER,SAVE :: c_memsize=0, c_mempos=0
   LOGICAL,SAVE,ALLOCATABLE,DIMENSION(:) :: l_mem
@@ -367 +367 @@
   ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in)
 !----------------------
+
 END SUBROUTINE getinr1d
 !===
@@ -1122 +1123 @@
   INTEGER :: current
 !-
-  CHARACTER(LEN=100) :: READ_str,NEW_str,last_key,key_str
+  CHARACTER(LEN=300) :: READ_str,NEW_str,last_key,key_str
   CHARACTER(LEN=n_d_fmt) :: cnt
   CHARACTER(LEN=10) :: c_fmt
@@ -1261 +1262 @@
 !-
   INTEGER :: len_str,blk,nbve,starpos
-  CHARACTER(LEN=100) :: tmp_str,new_key,mult
+  CHARACTER(LEN=300) :: tmp_str,new_key,mult
   CHARACTER(LEN=n_d_fmt) :: cnt
   CHARACTER(LEN=10) :: c_fmt
@@ -1492 +1493 @@
 !-
   INTEGER :: unit,eof,nb_lastkey
-  CHARACTER(LEN=100) :: dummy
-  CHARACTER(LEN=100),INTENT(out) :: out_string
+  CHARACTER(LEN=300) :: dummy
+  CHARACTER(LEN=300),INTENT(out) :: out_string
   CHARACTER(LEN=1) :: first
 !---------------------------------------------------------------------
@@ -1588 +1589 @@
   INTEGER,ALLOCATABLE :: tmp_int(:)
   REAL,ALLOCATABLE :: tmp_real(:)
-  CHARACTER(LEN=100),ALLOCATABLE :: tmp_char(:)
+  CHARACTER(LEN=300),ALLOCATABLE :: tmp_char(:)
   LOGICAL,ALLOCATABLE :: tmp_logic(:)
   INTEGER :: ier
@@ -1730 +1731 @@
   IMPLICIT NONE
 !-
-  CHARACTER(LEN=100),ALLOCATABLE :: tmp_fic(:)
+  CHARACTER(LEN=300),ALLOCATABLE :: tmp_fic(:)
   CHARACTER(LEN=l_n),ALLOCATABLE :: tmp_tgl(:)
   INTEGER,ALLOCATABLE :: tmp_int(:)
@@ -1856 +1857 @@
   INTEGER :: ikey,if,iff,iv
   CHARACTER(LEN=20) :: c_tmp
-  CHARACTER(LEN=100) :: tmp_str,used_filename
+  CHARACTER(LEN=300) :: tmp_str,used_filename
   INTEGER :: io_err
   LOGICAL :: l_dbg