Changeset 1442 for trunk/UTIL

Timestamp:

Jun 4, 2015, 4:23:32 PM (10 years ago)

Author:

slebonnois

Message:

SL: update of the Venus GCM, + corrections on routines used for newstart/start2archive for Titan and Venus, + some modifications on tools

Location:

trunk/UTIL

Files:

• compile (modified) (1 diff)
• zrecast.F90 (modified) (3 diffs)

trunk/UTIL/compile

@@ -4 +4 @@
 # > compile zrecast
 
-# pgf sur les machines du LMD:
-#-----------------------------
+# pgf sur les machines du LMD (ferme):
+#-------------------------------------
 #pgf95 -Bstatic $1.F90 \
 #-I/distrib/local/netcdf/pgi_7.1-6_64/include \
 #-L/distrib/local/netcdf/pgi_7.1-6_64/lib -lnetcdf -o $1.e
 
+# gfortran au LMD
+#----------------
+gfortran $1.F90 \
+-I/d2/emlmd/netcdf64-4.0.1_gfortran/include \
+-L/d2/emlmd/netcdf64-4.0.1_gfortran/lib -lnetcdf -o $1.e
+
 # ifort
 #------
-ifort $1.F90 \
--I$NETCDF/include \
--L$NETCDF/lib -lnetcdf -o $1.e
+#ifort $1.F90 \
+#-I$NETCDF/include \
+#-L$NETCDF/lib -lnetcdf -o $1.e
 
 #-----------------------------------------------------------------

trunk/UTIL/zrecast.F90

@@ -80 +80 @@
 
 character (len=64) :: text ! to store some text
+character (len=64) :: timeunit ! to store the units for time axis
 character (len=64) :: tmpvarname ! temporarily store a variable name
 integer tmpvarid ! temporarily store a variable ID
@@ -459 +460 @@
   endif
 endif
+timeunit="  "
+ierr=NF_GET_ATT_TEXT(infid,tmpvarid,'units',timeunit)
 
 ! altlength
@@ -1400 +1403 @@
   stop "Error: Problem writing long_name for Time"
 endif
-text='days since 0000-01-1 00:00:00'
-ierr=NF_PUT_ATT_TEXT(outfid,time_varid,'units',len_trim(text),text)
+ierr=NF_PUT_ATT_TEXT(outfid,time_varid,'units',len_trim(timeunit),timeunit)
 if (ierr.ne.NF_NOERR) then
   stop "Error: Problem writing units for Time"