Changeset 2395 for trunk/LMDZ.MARS/util/concatnc.F90

Timestamp:

Jul 2, 2020, 3:42:39 PM (4 years ago)

Author:

cmathe

Message:

MARS/util: compile and concatnc.F90 > clean

File:

• trunk/LMDZ.MARS/util/concatnc.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/util/concatnc.F90

@@ -28 +28 @@
 include "netcdf.inc" ! NetCDF definitions
 
-character (len=256), dimension(1000) :: file
+character (len=80), dimension(1000) :: file
 ! file(): input file(s) names(s)
 character (len=30), dimension(16) :: notconcat
@@ -34 +34 @@
 character (len=50), dimension(:), allocatable :: var
 ! var(): name(s) of variable(s) that will be concatenated
-character (len=256) :: tmpvar,tmpfile,title,units
+character (len=50) :: tmpvar,tmpfile,title,units
 ! tmpvar(): used to temporarily store a variable name
 ! tmpfile(): used to temporarily store a file name
@@ -138 +138 @@
 
 nbfile=0
-read(*,'(a256)') tmpfile
+read(*,'(a50)') tmpfile
 do While (len_trim(tmpfile).ne.0)
    nbfile=nbfile+1
    file(nbfile)=tmpfile
-   read(*,'(a256)') tmpfile
+   read(*,'(a50)') tmpfile
 enddo