Changeset 622 for trunk/libIGCM/libIGCM_sys
- Timestamp:
- 03/30/12 16:27:29 (12 years ago)
- Location:
- trunk/libIGCM/libIGCM_sys
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libIGCM/libIGCM_sys/libIGCM_sys_ulam.ksh
r619 r622 527 527 return;; 528 528 4) echo "Erreur de rsync ; RERR_UNSUPPORTED" 529 echo "Action demandée non supportée : une tentative de manipulation de"530 echo "fichiers 64-bits sur une plate-forme qui ne les supporte pas a"531 echo "été faite ; ou une option qui est supportée par le client mais"532 echo "pas par le serveur a été spécifiée."533 return;;534 10) echo "Erreur de rsync ; RERR_SOCKETIO"535 echo "Erreur dans le socket d'entrée sortie"536 return;;537 11) echo "Erreur de rsync ; RERR_FILEIO"538 echo "Erreur d'entrée sortie fichier"539 return;;540 12) echo "Erreur de rsync ; RERR_STREAMIO"541 echo "Erreur dans flux de donnée du protocole rsync"542 return;;543 13) echo "Erreur de rsync ; RERR_MESSAGEIO"544 echo "Erreur avec les diagnostics du programme"545 return;;546 14) echo "Erreur de rsync ; RERR_IPC"547 echo "Erreur dans le code IPC"548 return;;549 20) echo "Erreur de rsync ; RERR_SIGNAL"550 echo "SIGUSR1 ou SIGINT reçu"551 return;;552 21) echo "Erreur de rsync ; RERR_WAITCHILD"553 echo "Une erreur retournée par waitpid()"554 return;;555 22) echo "Erreur de rsync ; RERR_MALLOC"556 echo "Erreur lors de l'allocation des tampons de mémoire de coeur"557 return;;558 23) echo ""559 echo "Erreur fichier inexistant"560 return;;561 30) echo "Erreur de rsync ; RERR_TIMEOUT"562 echo "Temps d'attente écoulé dans l'envoi/réception de données"563 return;;564 *) echo "Erreur de rsync : code de retour de rsync inconnu :" $RET565 return;;566 esac567 elif [ $MYLANG = "en" ] ; then568 case $RET in569 0) return;;570 1) echo "rsync error : Syntax or usage error "571 return;;572 2) echo "rsync error : Protocol incompatibility "573 return;;574 3) echo "rsync error : Errors selecting input/output files, dirs"575 return;;576 4) echo "rsync error : Requested action not supported: an attempt"577 echo "was made to manipulate 64-bit files on a platform that cannot support"578 echo "them; or an option was specified that is supported by the client and"579 echo "not by the server."580 return;;581 5) echo "rsync error : Error starting client-server protocol"582 return;;583 10) echo "rsync error : Error in socket I/O "584 return;;585 11) echo "rsync error : Error in file I/O "586 return;;587 12) echo "rsync error : Error in rsync protocol data stream "588 return;;589 13) echo "rsync error : Errors with program diagnostics "590 return;;591 14) echo "rsync error : Error in IPC code "592 return;;593 20) echo "rsync error : Received SIGUSR1 or SIGINT "594 return;;595 21) echo "rsync error : Some error returned by waitpid() "596 return;;597 22) echo "rsync error : Error allocating core memory buffers "598 return;;599 23) echo "rsync error : Partial transfer due to error"600 return;;601 24) echo "rsync error : Partial transfer due to vanished source files"602 return;;603 30) echo "rsync error : Timeout in data send/receive "604 return;;605 *) echo "rsync error : return code of rsync unknown :" $RET606 return;;607 esac608 else609 echo "unknown language $MYLANG."610 return611 fi529 echo "Action demandée non supportée : une tentative de manipulation de" 530 echo "fichiers 64-bits sur une plate-forme qui ne les supporte pas a" 531 echo "été faite ; ou une option qui est supportée par le client mais" 532 echo "pas par le serveur a été spécifiée." 533 return;; 534 10) echo "Erreur de rsync ; RERR_SOCKETIO" 535 echo "Erreur dans le socket d'entrée sortie" 536 return;; 537 11) echo "Erreur de rsync ; RERR_FILEIO" 538 echo "Erreur d'entrée sortie fichier" 539 return;; 540 12) echo "Erreur de rsync ; RERR_STREAMIO" 541 echo "Erreur dans flux de donnée du protocole rsync" 542 return;; 543 13) echo "Erreur de rsync ; RERR_MESSAGEIO" 544 echo "Erreur avec les diagnostics du programme" 545 return;; 546 14) echo "Erreur de rsync ; RERR_IPC" 547 echo "Erreur dans le code IPC" 548 return;; 549 20) echo "Erreur de rsync ; RERR_SIGNAL" 550 echo "SIGUSR1 ou SIGINT reçu" 551 return;; 552 21) echo "Erreur de rsync ; RERR_WAITCHILD" 553 echo "Une erreur retournée par waitpid()" 554 return;; 555 22) echo "Erreur de rsync ; RERR_MALLOC" 556 echo "Erreur lors de l'allocation des tampons de mémoire de coeur" 557 return;; 558 23) echo "" 559 echo "Erreur fichier inexistant" 560 return;; 561 30) echo "Erreur de rsync ; RERR_TIMEOUT" 562 echo "Temps d'attente écoulé dans l'envoi/réception de données" 563 return;; 564 *) echo "Erreur de rsync : code de retour de rsync inconnu :" $RET 565 return;; 566 esac 567 elif [ $MYLANG = "en" ] ; then 568 case $RET in 569 0) return;; 570 1) echo "rsync error : Syntax or usage error " 571 return;; 572 2) echo "rsync error : Protocol incompatibility " 573 return;; 574 3) echo "rsync error : Errors selecting input/output files, dirs" 575 return;; 576 4) echo "rsync error : Requested action not supported: an attempt" 577 echo "was made to manipulate 64-bit files on a platform that cannot support" 578 echo "them; or an option was specified that is supported by the client and" 579 echo "not by the server." 580 return;; 581 5) echo "rsync error : Error starting client-server protocol" 582 return;; 583 10) echo "rsync error : Error in socket I/O " 584 return;; 585 11) echo "rsync error : Error in file I/O " 586 return;; 587 12) echo "rsync error : Error in rsync protocol data stream " 588 return;; 589 13) echo "rsync error : Errors with program diagnostics " 590 return;; 591 14) echo "rsync error : Error in IPC code " 592 return;; 593 20) echo "rsync error : Received SIGUSR1 or SIGINT " 594 return;; 595 21) echo "rsync error : Some error returned by waitpid() " 596 return;; 597 22) echo "rsync error : Error allocating core memory buffers " 598 return;; 599 23) echo "rsync error : Partial transfer due to error" 600 return;; 601 24) echo "rsync error : Partial transfer due to vanished source files" 602 return;; 603 30) echo "rsync error : Timeout in data send/receive " 604 return;; 605 *) echo "rsync error : return code of rsync unknown :" $RET 606 return;; 607 esac 608 else 609 echo "unknown language $MYLANG." 610 return 611 fi 612 612 } 613 613 … … 727 727 typeset RET 728 728 729 730 731 732 729 # Only if we use rsync 730 #IGCM_sys_TestDirArchive $( dirname $2 ) 731 # 732 #USUAL WAY 733 733 rcp -r $1 gaya:$2 > out_rsync 2>&1 734 734 RET=$? … … 740 740 fi 741 741 742 742 # due to rcommand latency 743 743 sleep 10 744 744 … … 760 760 fi 761 761 if [ $DRYRUN = 0 ]; then 762 762 763 # if [ ! -d ${1} ] ; then 763 764 # echo "WARNING : IGCM_sys_Get_Dir ${1} DOES NOT EXIST ." … … 768 769 typeset RET 769 770 770 771 #USUAL WAY 771 772 rcp -rp gaya:$1 $2 > out_rsync 2>&1 772 773 RET=$? … … 803 804 typeset RET 804 805 805 806 #USUAL WAY 806 807 rcp -r ${MASTER}:$1 $2 > out_rsync 2>&1 807 808 RET=$? … … 842 843 fi 843 844 fi 844 845 846 845 # 846 # 847 # USUAL WAY 847 848 mfput $1 $2 > out_rsync 2>&1 848 849 RET=$? … … 899 900 if [ $DRYRUN -le 2 ]; then 900 901 if [ X${1} = X'/l' ] ; then 901 902 # test if the first file is present in the old computation : 902 903 eval set +A dm_liste \${${2}} 903 904 else … … 906 907 eval DEST=\${${#}} 907 908 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 # 935 # 936 # 937 938 # 939 # 940 # 941 942 # 943 # 944 945 # 946 # 909 # test if the (first) file is present in the old computation : 910 IGCM_sys_TestFileArchive ${dm_liste[0]} 911 RET=$? 912 if [ ${RET} -gt 0 ] ; then 913 echo "IGCM_sys_Get, ERROR : regular file ${dm_liste[0]} DOES NOT EXIST ." 914 IGCM_debug_Exit "IGCM_sys_Get" 915 #IGCM_debug_PopStack "IGCM_sys_Get" 916 #return 917 fi 918 919 # SD : dm_liste is not suited for computing job 920 # because we change filename during transfert 921 # dm_liste is better suited for post-treatment 922 # SD : dm_liste necessary only with RSYNC 923 924 #dm_liste=" " 925 #(( ifile=1 )) 926 #while [ $ifile -lt $# ] ; do 927 # dm_liste=$( eval echo ${dm_liste[*]} " "\${${ifile}} ) 928 # (( ifile = ifile + 1 )) 929 #done 930 #DEST=$( eval echo \${${#}} ) 931 932 #USUAL WAY 933 mfget ${dm_liste[*]} ${DEST} > out_rsync 2>&1 934 935 # #RSYNC WITH NETWORK RSH CALL 936 # echo ${RSYNC} ${RSYNC_opt} --rsync-path=${REMOTE_RSYNC} -e rsh ${RHOST}:"${dm_liste}" ${RHOST}:${RUN_DIR}/${DEST} > out_rsync 2>&1 937 # ${RSYNC} ${RSYNC_opt} --rsync-path=${REMOTE_RSYNC} -e rsh ${RHOST}:"${dm_liste}" ${RHOST}:${RUN_DIR}/${DEST} >> out_rsync 2>&1 938 939 # #RSYNC WITH NFS USE 940 # echo ${RSYNC} ${RSYNC_opt} ${dm_liste} ${RUN_DIR}/${DEST} > out_rsync 2>&1 941 # ${RSYNC} ${RSYNC_opt} ${dm_liste} ${RUN_DIR}/${DEST} >> out_rsync 2>&1 942 943 # RET=$? 944 # IGCM_sys_Rsync_out $RET 945 946 # ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk out_rsync 947 # (( RET=RET+$? )) 947 948 948 949 else … … 950 951 fi 951 952 IGCM_debug_PopStack "IGCM_sys_Get" 952 953 } 953 954 954 955 #D-#================================================== … … 957 958 #D-* Examples: 958 959 #D- 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 960 function IGCM_sys_Put_Dods { 961 IGCM_debug_PushStack "IGCM_sys_Put_Dods" $@ 962 if ( $DEBUG_sys ) ; then 963 echo "IGCM_sys_Put_Dods :" $@ 964 fi 965 if [ $DRYRUN = 0 ]; then 966 # We take our time on that 967 sleep 10 968 IGCM_sys_TestDirArchive ${R_SAVE}/${1} 969 if [ $? != 0 ] ; then 970 echo "WARNING : IGCM_sys_Put_Dods ${R_SAVE}/${1} DOES NOT EXIST ." 971 IGCM_debug_PopStack "IGCM_sys_Put_Dods" 972 return 973 fi 974 975 typeset RET 976 # 977 rsh gaya exec /bin/ksh <<EOF 977 978 cd ${R_SAVE} 978 979 /usr/local/bin/dods_rm DODS/pub/${LOGIN}/${R_DODS}/${1} > /dev/null 2>&1 … … 981 982 /bin/chmod -R +rX ${R_SAVE}/${1} 982 983 /bin/chmod -R u+w ${R_SAVE}/${1} 983 984 985 986 987 988 989 990 991 992 993 994 984 EOF 985 RET=$? 986 987 if [ ${RET} -gt 0 ] ; then 988 echo "IGCM_sys_Put_Dods : error." 989 IGCM_debug_Exit "IGCM_sys_Put_Dods" 990 fi 991 else 992 ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 993 fi 994 IGCM_debug_PopStack "IGCM_sys_Put_Dods" 995 } 995 996 996 997 ############################################################## A FINIR !! … … 1001 1002 #D-* Examples: 1002 1003 #D- 1003 1004 1005 1006 1007 1004 function IGCM_sys_GetDate_FichWork { 1005 IGCM_debug_PushStack "IGCM_sys_FichWork" $@ 1006 if ( $DEBUG_sys ) ; then 1007 echo "IGCM_sys_GetDate_FichWork :" $@ 1008 fi 1008 1009 # donne la date filesys d'un fichier sur la machine work 1009 1010 1010 IGCM_debug_PopStack "IGCM_sys_FichWork" 1011 } 1011 1012 1012 1013 #D-#================================================== … … 1015 1016 #D-* Examples: 1016 1017 #D- 1017 1018 1019 1020 1021 1022 1023 1018 function IGCM_sys_GetDate_FichArchive { 1019 IGCM_debug_PushStack "IGCM_sys_FichArchive" $@ 1020 if ( $DEBUG_sys ) ; then 1021 echo "IGCM_sys_GetDate_FichArchive :" $@ 1022 fi 1023 IGCM_debug_PopStack "IGCM_sys_FichArchive" 1024 } 1024 1025 1025 1026 ############################################################## 1026 1027 # REBUILD OPERATOR 1027 1028 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1029 function IGCM_sys_rebuild { 1030 IGCM_debug_PushStack "IGCM_sys_rebuild" -- $@ 1031 if ( $DEBUG_sys ) ; then 1032 echo "IGCM_sys_rebuild :" $@ 1033 fi 1034 /home/rech/psl/rpsl035/bin/rebuild -f -o $@ 1035 if [ $? -gt 0 ] ; then 1036 echo "IGCM_sys_rebuild : erreur ${@}." 1037 IGCM_debug_Exit "rebuild" 1038 fi 1039 1040 IGCM_debug_PopStack "IGCM_sys_rebuild" 1041 } 1041 1042 ############################################################## 1042 1043 # NCO OPERATOR 1043 1044 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1045 function IGCM_sys_ncap2 { 1046 IGCM_debug_PushStack "IGCM_sys_ncap2" -- $@ 1047 if ( $DEBUG_sys ) ; then 1048 echo "IGCM_sys_ncap2 :" $@ 1049 fi 1050 ncap2 "$@" 1051 if [ $? -gt 0 ] ; then 1052 echo "IGCM_sys_ncap2 : erreur ${@}." 1053 IGCM_debug_Exit "ncap2" 1054 fi 1055 1056 IGCM_debug_PopStack "IGCM_sys_ncap2" 1057 } 1058 1059 function IGCM_sys_ncatted { 1060 IGCM_debug_PushStack "IGCM_sys_ncatted" -- $@ 1061 if ( $DEBUG_sys ) ; then 1062 echo "IGCM_sys_ncatted :" $@ 1063 fi 1064 ncatted "$@" 1065 if [ $? -gt 0 ] ; then 1066 echo "IGCM_sys_ncatted : erreur ${@}." 1067 IGCM_debug_Exit "ncatted" 1068 fi 1069 1070 IGCM_debug_PopStack "IGCM_sys_ncatted" 1071 } 1072 1073 function IGCM_sys_ncbo { 1074 IGCM_debug_PushStack "IGCM_sys_ncbo" -- $@ 1075 if ( $DEBUG_sys ) ; then 1076 echo "IGCM_sys_ncbo :" $@ 1077 fi 1078 ncbo $@ 1079 if [ $? -gt 0 ] ; then 1080 echo "IGCM_sys_ncbo : erreur ${@}." 1081 IGCM_debug_Exit "ncbo" 1082 fi 1083 1084 IGCM_debug_PopStack "IGCM_sys_ncbo" 1085 } 1086 1087 function IGCM_sys_ncdiff { 1088 IGCM_debug_PushStack "IGCM_sys_ncdiff" -- $@ 1089 if ( $DEBUG_sys ) ; then 1090 echo "IGCM_sys_ncdiff :" $@ 1091 fi 1092 ncdiff $@ 1093 if [ $? -gt 0 ] ; then 1094 echo "IGCM_sys_ncdiff : erreur ${@}." 1095 IGCM_debug_Exit "ncdiff" 1096 fi 1097 1098 IGCM_debug_PopStack "IGCM_sys_ncdiff" 1099 } 1100 1101 function IGCM_sys_ncea { 1102 IGCM_debug_PushStack "IGCM_sys_ncea" -- $@ 1103 if ( $DEBUG_sys ) ; then 1104 echo "IGCM_sys_ncea :" $@ 1105 fi 1106 ncea $@ 1107 if [ $? -gt 0 ] ; then 1108 echo "IGCM_sys_ncea : erreur ${@}." 1109 IGCM_debug_Exit "ncea" 1110 fi 1111 1112 IGCM_debug_PopStack "IGCM_sys_ncea" 1113 } 1114 1115 function IGCM_sys_ncecat { 1116 IGCM_debug_PushStack "IGCM_sys_ncecat" -- $@ 1117 if ( $DEBUG_sys ) ; then 1118 echo "IGCM_sys_ncecat :" $@ 1119 fi 1120 ncecat $@ 1121 if [ $? -gt 0 ] ; then 1122 echo "IGCM_sys_ncecat : erreur ${@}." 1123 IGCM_debug_Exit "ncecat" 1124 fi 1125 1126 IGCM_debug_PopStack "IGCM_sys_ncecat" 1127 } 1128 1129 function IGCM_sys_ncflint { 1130 IGCM_debug_PushStack "IGCM_sys_ncflint" -- $@ 1131 if ( $DEBUG_sys ) ; then 1132 echo "IGCM_sys_ncflint :" $@ 1133 fi 1134 ncflint $@ 1135 if [ $? -gt 0 ] ; then 1136 echo "IGCM_sys_ncflint : erreur ${@}." 1137 IGCM_debug_Exit "ncflint" 1138 fi 1139 1140 IGCM_debug_PopStack "IGCM_sys_ncflint" 1141 } 1142 1143 function IGCM_sys_ncks { 1144 IGCM_debug_PushStack "IGCM_sys_ncks" -- $@ 1145 if ( $DEBUG_sys ) ; then 1146 echo "IGCM_sys_ncks :" $@ 1147 fi 1148 ncks $@ 1149 if [ $? -gt 0 ] ; then 1150 echo "IGCM_sys_ncks : erreur ${@}." 1151 IGCM_debug_Exit "ncks" 1152 fi 1153 1154 IGCM_debug_PopStack "IGCM_sys_ncks" 1155 } 1156 1157 function IGCM_sys_ncpdq { 1158 IGCM_debug_PushStack "IGCM_sys_ncpdq" -- $@ 1159 if ( $DEBUG_sys ) ; then 1160 echo "IGCM_sys_ncpdq :" $@ 1161 fi 1162 ncpdq $@ 1163 if [ $? -gt 0 ] ; then 1164 echo "IGCM_sys_ncpdq : erreur ${@}." 1165 IGCM_debug_Exit "ncpdq" 1166 fi 1167 1168 IGCM_debug_PopStack "IGCM_sys_ncpdq" 1169 } 1170 1171 function IGCM_sys_ncra { 1172 IGCM_debug_PushStack "IGCM_sys_ncra" -- $@ 1173 if ( $DEBUG_sys ) ; then 1174 echo "IGCM_sys_ncra :" $@ 1175 fi 1176 ncra $@ 1177 if [ $? -gt 0 ] ; then 1178 echo "IGCM_sys_ncra : erreur ${@}." 1179 IGCM_debug_Exit "ncra" 1180 fi 1181 1182 IGCM_debug_PopStack "IGCM_sys_ncra" 1183 } 1184 1185 function IGCM_sys_ncrcat { 1186 IGCM_debug_PushStack "IGCM_sys_ncrcat" -- $@ 1187 if ( $DEBUG_sys ) ; then 1188 echo "IGCM_sys_ncrcat :" $@ 1189 fi 1190 ncrcat $@ 1191 if [ $? -gt 0 ] ; then 1192 echo "IGCM_sys_ncrcat : erreur ${@}." 1192 1193 # IGCM_debug_Exit "ncrcat" 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1194 fi 1195 1196 IGCM_debug_PopStack "IGCM_sys_ncrcat" 1197 } 1198 1199 function IGCM_sys_ncrename { 1200 IGCM_debug_PushStack "IGCM_sys_ncrename" -- $@ 1201 if ( $DEBUG_sys ) ; then 1202 echo "IGCM_sys_ncrename :" $@ 1203 fi 1204 ncrename $@ 1205 if [ $? -gt 0 ] ; then 1206 echo "IGCM_sys_ncrename : erreur ${@}." 1207 IGCM_debug_Exit "ncrename" 1208 fi 1209 1210 IGCM_debug_PopStack "IGCM_sys_ncrename" 1211 } 1212 1213 function IGCM_sys_ncwa { 1214 IGCM_debug_PushStack "IGCM_sys_ncwa" -- $@ 1215 if ( $DEBUG_sys ) ; then 1216 echo "IGCM_sys_ncwa :" $@ 1217 fi 1218 ncwa $@ 1219 if [ $? -gt 0 ] ; then 1220 echo "IGCM_sys_ncwa : erreur ${@}." 1221 IGCM_debug_Exit "ncwa" 1222 fi 1223 1224 IGCM_debug_PopStack "IGCM_sys_ncwa" 1225 } 1225 1226 1226 1227 ############################################################## 1227 1228 # CDO OPERATOR 1228 1229 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1230 function IGCM_sys_cdo { 1231 IGCM_debug_PushStack "IGCM_sys_cdo" -- $@ 1232 1233 \cdo $@ 1234 if [ $? -gt 0 ] ; then 1235 echo "IGCM_sys_cdo : erreur ${@}." 1236 IGCM_debug_PopStack "IGCM_sys_cdo" 1237 return 1 1238 else 1239 IGCM_debug_PopStack "IGCM_sys_cdo" 1240 return 0 1241 fi 1242 1243 IGCM_debug_PopStack "IGCM_sys_cdo" 1244 } 1244 1245 1245 1246 ############################################################ 1246 1247 # Activate Running Environnment Variables 1247 1248 1248 1249 1250 1251 1252 1253 1254 1249 function IGCM_sys_activ_variables { 1250 IGCM_debug_PushStack "IGCM_sys_activ_variables" 1251 if ( $DEBUG_sys ) ; then 1252 echo "IGCM_sys_activ_variables" 1253 fi 1254 IGCM_debug_PopStack "IGCM_sys_activ_variables" 1255 } 1255 1256 1256 1257 ############################################################ 1257 1258 # Desactivate Running Environnment Variables 1258 1259 1259 1260 1261 1262 1263 1264 1265 1260 function IGCM_sys_desactiv_variables { 1261 IGCM_debug_PushStack "IGCM_sys_desactiv_variables" 1262 if ( $DEBUG_sys ) ; then 1263 echo "IGCM_sys_desactiv_variables" 1264 fi 1265 IGCM_debug_PopStack "IGCM_sys_desactiv_variables" 1266 } 1266 1267 1267 1268 ############################################################ 1268 1269 # Build run file 1269 1270 1270 1271 1272 1273 1274 1275 1276 1271 function IGCM_sys_build_run_file { 1272 IGCM_debug_PushStack "IGCM_sys_build_run_file" 1273 if ( $DEBUG_sys ) ; then 1274 echo "IGCM_sys_build_run_file" 1275 fi 1276 IGCM_debug_PopStack "IGCM_sys_build_run_file" 1277 }
Note: See TracChangeset
for help on using the changeset viewer.