Changeset 1032 for trunk/libIGCM/libIGCM_sys

Timestamp:

07/29/14 14:31:00 (10 years ago)

Author:

sdipsl

Message:

Fix #201

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh (modified) (3 diffs)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

@@ -560 +560 @@
   typeset ExistFlag finalPosition
 
-  finalPosition=$( mfls $1 2>/dev/null | wc -l )
-  [ ${finalPosition} -eq 4 ] && ExistFlag=1 || ExistFlag=0
+  DEBUG_sys=false IGCM_sys_IsFileArchived $1
+  if [ $? = 0 ] ; then
+    finalPosition=$( mfls $1 2>/dev/null | wc -l )
+    [ ${finalPosition} -eq 4 ] && ExistFlag=1 || ExistFlag=0
+  else
+    ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 )
+  fi
 
   IGCM_debug_PopStack "IGCM_sys_TestFileArchive"
@@ -567 +572 @@
   return ${ExistFlag}
 }
-
 
 #D-#==================================================
@@ -668 +672 @@
   fi
 
-  \mfls -r $@
+  \mfls -R $@
 
   IGCM_debug_PopStack "IGCM_sys_Tree"