Changeset 375 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

Timestamp:

11/03/10 12:25:42 (14 years ago)

Author:

brocksce

Message:

Reactive IGCM_sys_ncatted with "$@" change

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

@@ -1133 +1133 @@
 }
 
-ncatted=ncatted
-# Problem with ksh and string passed in this function to ncatted !
-# function IGCM_sys_ncatted {
-#     IGCM_debug_PushStack "IGCM_sys_ncatted" -- $@
-#     if ( $DEBUG_sys ) ; then
-#       echo "IGCM_sys_ncatted :" $@
-#     fi
-#     ncatted $@
-#     if [ $? -gt 0 ] ; then
-#        echo "IGCM_sys_ncatted : erreur ${@}."
-#        IGCM_debug_Exit "ncatted"
-#     fi
-
-#     IGCM_debug_PopStack "IGCM_sys_ncatted"
-# }
+function IGCM_sys_ncatted {
+    IGCM_debug_PushStack "IGCM_sys_ncatted" -- $@
+    if ( $DEBUG_sys ) ; then
+        echo "IGCM_sys_ncatted :" $@
+    fi
+    ncatted "$@"
+    if [ $? -gt 0 ] ; then
+       echo "IGCM_sys_ncatted : erreur ${@}."
+#       IGCM_debug_Exit "ncatted"
+    fi
+
+    IGCM_debug_PopStack "IGCM_sys_ncatted"
+}
 
 function IGCM_sys_ncbo {