DevelopmentActivities/ORCHIDEE-CNP/LibIGCMmod01: libigcm_link.2.patch

libIGCM_comp/libIGCM_comp.ksh

@@ -21 +21 @@
   IGCM_debug_Print 1 "IGCM_comp_Initialize"
   echo
 
+  set -x
+
   typeset comp compname comptagname auxprint card_UserChoices first_option option i j
   for comp in ${config_ListOfComponents[*]} ; do
 
@@ -315 +317 @@
               IGCM_sys_Get ${file_in} ${file_out}
               #IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
             else
-              IGCM_sys_Cp ${file_in} ${file_out}
+              IGCM_sys_Cp ${file_in} ${file_out} # original
+              #ln -s ${file_in} ${file_out}
             fi
             (( i=i+2 ))
           done
@@ -454 +457 @@
 {
   IGCM_debug_PushStack "IGCM_comp_GetInputBoundaryFiles"
 
+  set -x
+
   # Debug Print :
   echo
   IGCM_debug_Print 1 "IGCM_comp_GetInputBoundaryFiles"
@@ -465 +470 @@
   if [ ${Period} = 1 ]; then
     ListFixBoundary=" "
   fi
+ 
+  # default: copy
+  mode="cp"
+  if [ ${#} -eq 1 ]
+  then
+    mode=${1}
+  fi
 
   for comp in ${config_ListOfComponents[*]} ; do
 
@@ -497 +509 @@
           IGCM_sys_Get ${file_in} ${file_out}
           IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
         else
-          IGCM_sys_Cp ${file_in} ${file_out}
+          #IGCM_sys_Cp ${file_in} ${file_out}
+          #ln -fs ${file_in} ${file_out}
+          IGCM_sys_file_Get ${mode} ${file_in} ${file_out}
         fi
 
         (( i=i+2 ))
@@ -527 +541 @@
             IGCM_sys_Get ${file_in} ${file_out}
             #IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
           else
-            IGCM_sys_Cp ${file_in} ${file_out}
+            #IGCM_sys_Cp ${file_in} ${file_out}
+            #ln -fs ${file_in} ${file_out}
+            IGCM_sys_file_Get ${mode} ${file_in} ${file_out}
           fi
 
           if [ X${file_out} != X. ] ; then
@@ -907 +923 @@
 
   NbFiles=$( ls * 2> /dev/null | wc -l )
   if [ ${NbFiles} -gt 0 ] ; then
-    IGCM_sys_Chmod u+rw *
+#    IGCM_sys_Chmod u+rw *
+#    for fname in ls * 2> /dev/null; do
+    for fname in *; do
+        if [ ! -h ${fname} ]; then
+            echo "=> Chmod ${fname} ..."
+            IGCM_sys_Chmod u+rw ${fname}
+        fi
+    done
   fi
 
   IGCM_debug_PopStack "IGCM_comp_GetInputRestartFiles"
@@ -1387 +1410 @@
   IGCM_debug_Print 1 "IGCM_comp_Update"
   echo
 
+  set -x
+
   typeset ExeNameIn ExeNameOut
   typeset comp compname comptagname
   for comp in ${config_ListOfComponents[*]} ; do

libIGCM_sys/libIGCM_sys.ksh

@@ -469 +469 @@
 }
 
 #D-#==================================================
+#D-function IGCM_sys_file_Get
+#D-* Purpose: Copy or link a file from source to destination
+#D-* Examples: IGCM_sys_file_Get ln source_file linked_file
+#D-            IGCM_sys_file_Get cp source_file copied_file
+function IGCM_sys_file_Get {
+  IGCM_debug_PushStack "IGCM_sys_file_Get" $@
+
+  typeset SRC DEST action 
+  set -x
+
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_file_Get :" $@
+  fi
+  if [ $DRYRUN -le 2 ]; then
+    if [ X${1} = X'ln' ] ; then
+      action='IGCM_sys_Ln'
+    elif [ X${1} = X'cp' ] ; then
+      action='IGCM_sys_Cp'
+    else
+      echo "IGCM_sys_file_Get, ERROR : Only available ln or cp actions."
+      IGCM_debug_Exit "IGCM_sys_file_Get"
+      return
+    fi
+    SRC=${2}
+    DEST=${3}
+
+    cmd="${action} ${SRC} ${DEST}" 
+    eval $cmd
+  fi
+  IGCM_debug_PopStack "IGCM_sys_file_Get"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Miror_libIGCM
 #D-* Purpose: Mirror libIGCM PATH and lib to frontend
 #D-* Examples:
@@ -495 +528 @@
 }
 
 #D-#==================================================
+#D-function IGCM_sys_Ln
+#D-* Purpose: generic soft link
+#D-* Examples:
+#D-
+function IGCM_sys_Ln {
+  IGCM_debug_PushStack "IGCM_sys_Ln" $@
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_Lp :" $@
+  fi
+
+  typeset status
+
+  #echo ln -sf $@ > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
+  \ln -sf $@ >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
+  status=$?
+
+  if [ ${status} -gt 0 ] ; then
+    echo "IGCM_sys_Ln : error code ${status}"
+    cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
+    IGCM_debug_Exit "IGCM_sys_Ln"
+  else
+    \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
+  fi
+  IGCM_debug_PopStack "IGCM_sys_Ln"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_Cp
 #D-* Purpose: generic cp
 #D-* Examples: