Changeset 2395 for trunk

Timestamp:

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

Author:

cmathe

Message:

MARS/util: compile and concatnc.F90 > clean

Location:

trunk/LMDZ.MARS/util

Files:

• compile (modified) (2 diffs)
• concatnc.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/util/compile

@@ -3 +3 @@
 # > compile concat
 # > compile zrecast
-
-# get from:
-#   $>:module list
-# copy the netcdf module used (i.e. netcdf4/4.5.0-ifort15)
-#   $>:module display netcdf4/4.5.0-ifort15
-NETCDF='/opt/netcdf45/ifort15'
 
 # pgf90 -Bstatic   $1.F90 \
@@ -15 +9 @@
 
 #ifort $1.F90 \
-#pgf90 -Bstatic $1.F90 \
+#pgf90 $1.F90 \
 ifort $1.F90 \
 -I$NETCDF/include \
-#-L$NETCDF/lib -lnetcdf -o $1.e
--L$NETCDF/lib -lnetcdff -o $1.e # on centos 7
+-L$NETCDF/lib -lnetcdf -o $1.e
 
 # Before running that on you computer you might want to change :

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