Context Navigation

source: trunk/libIGCM/libIGCM_comp/libIGCM_comp.ksh @ 433

Last change on this file since 433 was 433, checked in by mmaipsl, 13 years ago
If EXECUTION fails, we will now copy all output text files from RUN_DIR to SUBMIT_DIR to ease the debug of the problem.
Property licence set to The following licence information concerns ONLY the libIGCM tools ================================================================== Copyright © Centre National de la Recherche Scientifique CNRS Commissariat à l'Énergie Atomique CEA libIGCM : Library for Portable Models Computation of IGCM Group. IGCM Group is the french IPSL Global Climate Model Group. This library is a set of shell scripts and functions whose purpose is the management of the initialization, the launch, the transfer of output files, the post-processing and the monitoring of datas produce by any numerical program on any plateforme. This software is governed by the CeCILL license under French law and abiding by the rules of distribution of free software. You can use, modify and/ or redistribute the software under the terms of the CeCILL license as circulated by CEA, CNRS and INRIA at the following URL "http://www.cecill.info". As a counterpart to the access to the source code and rights to copy, modify and redistribute granted by the license, users are provided only with a limited warranty and the software's author, the holder of the economic rights, and the successive licensors have only limited liability. In this respect, the user's attention is drawn to the risks associated with loading, using, modifying and/or developing or reproducing the software by the user in light of its specific status of free software, that may mean that it is complicated to manipulate, and that also therefore means that it is reserved for developers and experienced professionals having in-depth computer knowledge. Users are therefore encouraged to load and test the software's suitability as regards their requirements in conditions enabling the security of their systems and/or data to be ensured and, more generally, to use and operate it in the same conditions as regards security. The fact that you are presently reading this means that you have had knowledge of the CeCILL license and that you accept its terms. Property svn:keywords set to `Revision Author Date`
File size: 40.7 KB

Line
1	#!/bin/ksh
2
3	#**************************************************************
4	# Author: Sebastien Denvil, Martial Mancip
5	# Contact: Sebastien.Denvil__at__ipsl.jussieu.fr Martial.Mancip__at__ipsl.jussieu.fr
6	# $Revision:: $ Revision of last commit
7	# $Author:: $ Author of last commit
8	# $Date:: $ Date of last commit
9	# IPSL (2006)
10	# This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC
11	#
12	#**************************************************************
13
14	#========================================================================
15	function IGCM_comp_Initialize
16	{
17	IGCM_debug_PushStack "IGCM_comp_Initialize"
18
19	# Debug Print :
20	echo
21	IGCM_debug_Print 1 "IGCM_comp_Initialize :"
22	echo
23
24	typeset comp compname comptagname CompatibilityTag auxprint card_UserChoices first_option i j
25	for comp in ${config_ListOfComponents[*]} ; do
26	# Debug Print
27	IGCM_debug_Print 1 ${comp}
28	# Define component
29	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/config.card ListOfComponents ${comp}
30	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
31	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
32
33	# Read libIGCM compatibility version in ${compname}.card
34	card=${SUBMIT_DIR}/COMP/${compname}.card
35	IGCM_card_DefineVariableFromOption ${card} Compatibility libIGCM
36	eval CompatibilityTag=\${${compname}_Compatibility_libIGCM} > /dev/null 2>&1
37
38	if [ ! "${CompatibilityTag}" = "${libIGCM_CurrentTag}" ] ; then
39	IGCM_debug_Exit "${compname}.card is not compatible with libIGCM version ${libIGCM_CurrentTag} see libIGCM FAQ http://wiki.ipsl.jussieu.fr/wiki_ipsl/IGCMG/libIGCM/DocUtilisateur/FAQ ."
40	fi
41
42	# Manage component executable
43	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/config.card Executable ${comp}
44
45	# Read component Write Frequency in config.card
46	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} WriteFrequency
47	# Debug Print :
48	eval auxprint=\${config_${comp}_WriteFrequency}
49	IGCM_debug_Print 1 "Write frequency for ${compname} : ${auxprint} "
50	#2> /dev/null
51
52	# Debug Print :
53	IGCM_debug_Print 1 "Initialize following component library :"
54	IGCM_debug_Print 1 ${SUBMIT_DIR}/COMP/${compname}.driver
55	IGCM_debug_Print 3 "With tag : ${comptagname}"
56	# Source component library
57	. ${SUBMIT_DIR}/COMP/${compname}.driver
58
59	# Debug Print
60	IGCM_debug_Print 3 "Initialize ${comp} output directory."
61	# Define Dirs
62	eval R_OUT_${comp}=${R_SAVE}/${comp}
63	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}}
64
65	eval R_OUT_${comp}_O=\${R_OUT_${comp}}/Output
66	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_O}
67
68	eval R_OUT_${comp}_R=\${R_OUT_${comp}}/Restart
69	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_R}
70
71	eval R_OUT_${comp}_D=\${R_OUT_${comp}}/Debug
72	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_D}
73
74	eval R_OUT_${comp}_O_I=\${R_OUT_${comp}_O}/INS
75	eval R_OUT_${comp}_O_H=\${R_OUT_${comp}_O}/HF
76	eval R_OUT_${comp}_O_D=\${R_OUT_${comp}_O}/DA
77	eval R_OUT_${comp}_O_M=\${R_OUT_${comp}_O}/MO
78	eval R_OUT_${comp}_O_Y=\${R_OUT_${comp}_O}/YE
79
80	# Read UserChoices section of component card
81	IGCM_debug_Print 1 "DefineArrayFromSection : ${compname}_UserChoices ${card}"
82	IGCM_card_DefineArrayFromSection ${card} UserChoices
83	eval first_option=\${${compname}_UserChoices[0]} > /dev/null 2>&1
84	if [ X${first_option} != X"Error:" ] ; then
85	eval IGCM_debug_Print 2 "${compname}_UserChoices_Options:" \${${compname}_UserChoices[*]}
86	if [ X${card_UserChoices[0]} != X ] ; then
87	unset card_UserChoices
88	fi
89	eval set +A card_UserChoices -- \${${compname}_UserChoices[*]} > /dev/null 2>&1
90	typeset option
91	for option in ${card_UserChoices[*]} ; do
92	IGCM_card_DefineVariableFromOption ${card} UserChoices ${option}
93	eval IGCM_debug_Print 3 "${compname}_UserChoices_values: ${option} \${card_UserChoices_${option}}"
94	done
95	fi
96
97	# Read and Build Output File stuff
98	IGCM_debug_Print 1 "DefineArrayFromOption : ${compname}_OutputFiles ${card}"
99	IGCM_card_DefineArrayFromOption ${card} OutputFiles List
100	ListFilesName=${compname}_OutputFiles_List
101	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
102	#
103	if [ X${FileName0} != X${NULL_STR} ] ; then
104	#
105	#IGCM_debug_Print 1 "Component : ${compname}"
106	#
107	# INITIALISATION
108	#
109	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
110	#
111	i=2
112	#
113	until [ $i -ge $NbFiles ]; do
114	#
115	eval flag_post=\${${ListFilesName}[$i]} > /dev/null 2>&1
116	#
117	if [ X${flag_post} != XNONE ] ; then
118	#
119	# First of all
120	#
121	IGCM_card_DefineArrayFromSection ${card} ${flag_post}
122	#
123	# Seasonal case : If option Seasonal is not found (old cards) put SEASONAL ON by default
124	#
125	# variable option allready typeset above
126	for option in $( eval echo \${${compname}_${flag_post}[*]} ) ; do
127	if [ ${option} = Seasonal ] ; then
128	FoundSeasonal=true
129	IGCM_card_DefineVariableFromOption ${card} ${flag_post} Seasonal
130	fi
131	done
132	#
133	if [ ! X${FoundSeasonal} = Xtrue ] ; then
134	eval ${compname}_${flag_post}_Seasonal=ON
135	fi
136	#
137	if [ $( eval echo \${${compname}_${flag_post}_Seasonal} ) = ON ] ; then
138	Seasonal=true
139	fi
140
141	# Dimension = vide si vieille card.
142	IGCM_card_DefineArrayFromOption ${card} ${flag_post} TimeSeriesVars
143	IGCM_card_DefineArrayFromOption ${card} ${flag_post} Patches
144	if [ X"$( eval echo \${${compname}_${flag_post}_TimeSeriesVars[*]} )" = X"Option not found ${flag_post}" ] ; then
145	# New TimeSeriesVar description, with 2D, 3D and associate ChunckJob.
146	ListDimension[0]=2D
147	ListDimension[1]=3D
148	TimeSeries=false
149	iLoop=${#ListDimension[*]}
150	j=0
151	until [ $j -ge ${iLoop} ]; do
152	Dimension=${ListDimension[${j}]}
153	IGCM_card_DefineArrayFromOption ${card} ${flag_post} TimeSeriesVars${Dimension}
154	IGCM_card_DefineVariableFromOption ${card} ${flag_post} ChunckJob${Dimension}
155	#
156	# Time series WITHOUT chunk
157	#
158	if [ ! $( eval echo \${${compname}_${flag_post}_TimeSeriesVars${Dimension}} ) = ${NULL_STR} ] ; then
159	if [ $( eval echo \${${compname}_${flag_post}_ChunckJob${Dimension}} ) = NONE ] ; then
160	IGCM_debug_Print 3 "${Dimension} time series activated for ${flag_post}"
161	eval TimeSeries${Dimension}=true
162	fi
163	fi
164	#
165	# Time series WITH chunk
166	#
167	if [ ! $( eval echo \${${compname}_${flag_post}_TimeSeriesVars${Dimension}} ) = ${NULL_STR} ] ; then
168	chunck_size=$( eval echo \${${compname}_${flag_post}_ChunckJob${Dimension}} )
169	if [ ! ${chunck_size} = NONE ] && [ ! ${chunck_size} = OFF ] ; then
170	IGCM_debug_Print 3 "${Dimension} time series activated with chunck for ${flag_post}"
171	eval TimeSeriesChunck${Dimension}=true
172	eval set +A CHUNCK${Dimension}_COMP \${CHUNCK${Dimension}_COMP[*]} ${comp}
173	eval set +A CHUNCK${Dimension}_FLAG \${CHUNCK${Dimension}_FLAG[*]} ${i}
174	eval set +A CHUNCK${Dimension}_NAME \${CHUNCK${Dimension}_NAME[*]} ${flag_post}
175	eval set +A CHUNCK${Dimension}_SIZE \${CHUNCK${Dimension}_SIZE[*]} ${chunck_size}
176	fi
177	fi
178	(( j=j+1 ))
179	done
180	else
181	ListDimension[0]=""
182	TimeSeries=true
183	TimeSeries2D=false
184	TimeSeries3D=false
185	TimeSeriesChunck2D=false
186	TimeSeriesChunck3D=false
187	fi
188	fi
189	(( i=i+3 ))
190	done
191	fi
192	# Debug Print
193	IGCM_debug_Print 3 "Initialize ${compname} with driver."
194	# INIT component
195	${comp}_Initialize
196	echo
197	done
198	echo "-----"
199	echo
200	IGCM_debug_Print 1 "DefineArrayFromOption : ListOfComponents"
201	IGCM_debug_PrintVariables 3 config_ListOfComponents
202
203	IGCM_debug_PopStack "IGCM_comp_Initialize"
204	}
205
206	#=======================================================================
207	function IGCM_comp_PrepareDeletedFiles
208	{
209	IGCM_debug_PushStack "IGCM_comp_PrepareDeletedFiles" $@
210
211	if [ X${2} != X. ] ; then
212	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=$( basename ${2} ) > /dev/null 2>&1
213	else
214	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=$( basename ${1} ) > /dev/null 2>&1
215	fi
216
217	IGCM_debug_PopStack "IGCM_comp_PrepareDeletedFiles"
218	}
219
220	#=======================================================================
221	function IGCM_comp_GetInputInitialStateFiles
222	{
223	IGCM_debug_PushStack "IGCM_comp_GetInputInitialStateFiles"
224
225	# Debug Print :
226	echo
227	IGCM_debug_Print 1 "IGCM_comp_GetInputInitialStateFiles :"
228	echo
229
230	# Only the first time step need InitialStateFiles
231	# otherwise it's BoundaryConditions
232	if ( ${FirstInitialize} ) ; then
233	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
234	typeset file_in_ file_in file_out_ file_out do_init
235	for comp in ${config_ListOfComponents[*]} ; do
236	# Initialize
237	do_init="y"
238	# Do we need to bring initial state file for this component
239	if [ "${config_Restarts_OverRule}" = "y" ] ; then
240	eval do_init="n"
241	else
242	# Read component Restarts parameters
243	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} Restart
244	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
245	if [ "${do_start}" = "y" ] ; then
246	do_init="n"
247	else
248	do_init="y"
249	fi
250	fi
251
252	if [ "${do_init}" = "y" ] ; then
253	# Define component
254	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
255	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
256
257	# Debug Print :
258	IGCM_debug_Print 3 "Initialisation files ${compname}"
259
260	card=${SUBMIT_DIR}/COMP/${compname}.card
261
262	IGCM_card_DefineArrayFromOption ${card} InitialStateFiles List
263	ListFilesName=${compname}_InitialStateFiles_List
264
265	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
266	if [ X${FileName0} != X${NULL_STR} ] ; then
267	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
268	(( i=0 ))
269	until [ $i -ge $NbFiles ]; do
270	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
271	eval file_in=${file_in_}
272	(( i_ = i+1 ))
273	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
274	eval file_out=${file_out_}
275
276	IGCM_sys_Get ${file_in} ${file_out}
277	#IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
278
279	(( i=i+2 ))
280	done
281	fi
282	fi
283	done
284	fi
285	IGCM_debug_PopStack "IGCM_comp_GetInputInitialStateFiles"
286	}
287
288	#=======================================================================
289	# Definition of Smooth modulo function
290	# usage :
291	# IGCM_SmoothModulo StringModulo value
292	#
293	# StringModulo : A string of min max and modulo like definition of Scilab vectors.
294	# [min]:[modulo:][max]
295	# where :
296	# [] value are optionnals;
297	# empty min equal 1
298	# empty max equal infinity
299	# modulo not given or empty equal 1
300	# empty string or just ':' equal always.
301	#
302	# value : the value to test with the definition
303	#
304	# return : true(1)/false(0)
305	function IGCM_SmoothModulo
306	{
307	IGCM_debug_PushStack "IGCM_SmoothModulo"
308	typeset defVector ModValue
309
310	eval set +A defVector -- $( echo "${1}" \| \
311	gawk -F ':' '{print ($1 == "" ? 1 : $1) " " (NF==3 ? ($2 == "" ? 1 : $2) : 1) " " (NF==3 ? ($3 == "" ? -1 : $3) : ($2 == "" ? -1 : $2))}' )
312
313	# Save Smooth Min and Max. Needed to call IGCM_sys_Get when appropriate
314	arr[1]=${defVector[0]}
315	arr[2]=${defVector[2]}
316
317	# Test limits :
318	# ${defVector[0]} <= ${2} <= ${defVector[2]}
319	# or ${defVector[2]} == -1
320	if ( [ ${2} -ge ${defVector[0]} ] && \
321	( [ ${2} -le ${defVector[2]} ] \|\| \
322	[ ${defVector[2]} -lt 0 ] ) ) ; then
323	# Test modulo
324	ModValue=$( expr \( ${2} - ${defVector[0]} \) % ${defVector[1]} )
325	if [ ${ModValue} -eq 0 ] ; then
326	arr[3]=true
327	echo ${arr[@]}
328	IGCM_debug_PopStack "IGCM_SmoothModulo"
329	return 1
330	else
331	arr[3]=false
332	echo ${arr[@]}
333	IGCM_debug_PopStack "IGCM_SmoothModulo"
334	return 0
335	fi
336	else
337	arr[3]=false
338	echo ${arr[@]}
339	IGCM_debug_PopStack "IGCM_SmoothModulo"
340	return 0
341	fi
342	}
343
344	#=======================================================================
345	function IGCM_comp_GetInputSmoothFiles
346	{
347	IGCM_debug_PushStack "IGCM_comp_GetInputSmoothFiles"
348
349	# Debug Print :
350	echo
351	IGCM_debug_Print 1 "IGCM_comp_GetInputSmoothFiles :"
352	echo
353
354	typeset comp compname comptagname card ListFilesName FileName0 NbFiles j i i_ i__
355	typeset file_in_ file_in file_out_ file_out ret SmoothDef aux val
356
357	for comp in ${config_ListOfComponents[*]} ; do
358	echo "-----"
359	# Define component
360	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
361	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
362
363	# Debug Print :
364	IGCM_debug_Print 3 "Smooth files ${compname}"
365
366	card=${SUBMIT_DIR}/COMP/${compname}.card
367
368	IGCM_card_DefineArrayFromOption ${card} SmoothFiles List
369	ListFilesName=${compname}_SmoothFiles_List
370	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
371
372	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != X"Section" ] ) ; then
373	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
374
375	(( i=0 ))
376	until [ $i -ge $NbFiles ]; do
377	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
378	eval file_in=${file_in_}
379	(( i_ = i+1 ))
380	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
381	eval file_out=${file_out_}
382
383	# define CumulPeriod definition for this file
384	(( i__ = i+2 ))
385	eval SmoothDef=\${${ListFilesName}[$i__]}
386	IGCM_debug_Print 3 " ${file_in} ${SmoothDef}"
387	aux=$( IGCM_SmoothModulo ${SmoothDef} ${CumulPeriod} )
388	j=1
389	for val in ${aux} ; do
390	[ ${j} -eq 1 ] && SmoothMin=${val}
391	[ ${j} -eq 2 ] && SmoothMax=${val}
392	[ ${j} -eq 3 ] && ret=${val}
393	(( j=j+1 ))
394	done
395	[ ${SmoothMax} -eq -1 ] && SmoothMax=${CumulPeriod}
396	if ( [ X${ret} = Xtrue ] \|\| ( [ ${Period} -eq 1 ] && [ ${CumulPeriod} -ge ${SmoothMin} ] && [ ${CumulPeriod} -le ${SmoothMax} ] ) ) ; then
397	#if ( [ X${ret} = Xtrue ] \|\| [ ${Period} -eq 1 ] ) ; then
398	IGCM_sys_Get ${file_in} ${file_out}
399	#IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
400	fi
401	(( i=i+3 ))
402	done
403	fi
404	done
405
406	IGCM_debug_PopStack "IGCM_comp_GetInputSmoothFiles"
407	}
408
409	#=======================================================================
410	function IGCM_comp_GetInputBoundaryFiles
411	{
412	IGCM_debug_PushStack "IGCM_comp_GetInputBoundaryFiles"
413
414	# Debug Print :
415	echo
416	IGCM_debug_Print 1 "IGCM_comp_GetInputBoundaryFiles :"
417	echo
418
419	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
420	typeset file_in_ file_in file_out_ file_out
421
422	if [ ${Period} = 1 ]; then
423	ListFixBoundary=" "
424	fi
425
426	for comp in ${config_ListOfComponents[*]} ; do
427
428	echo "-----"
429	# Define component
430	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
431	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
432
433	# Debug Print :
434	IGCM_debug_Print 3 "Boundary files ${compname}"
435
436	card=${SUBMIT_DIR}/COMP/${compname}.card
437
438	IGCM_card_DefineArrayFromOption ${card} BoundaryFiles List
439	ListFilesName=${compname}_BoundaryFiles_List
440	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
441
442	if [ X${FileName0} != X${NULL_STR} ] ; then
443	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
444
445	(( i=0 ))
446	until [ $i -ge $NbFiles ]; do
447	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
448	eval file_in=${file_in_}
449	(( i_ = i+1 ))
450	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
451	eval file_out=${file_out_}
452
453	IGCM_sys_Get ${file_in} ${file_out}
454	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
455
456	(( i=i+2 ))
457	done
458	fi
459
460	# Get non deleted files
461	if [ ${Period} = 1 ]; then
462
463	IGCM_card_DefineArrayFromOption ${card} BoundaryFiles ListNonDel
464	ListFilesName=${compname}_BoundaryFiles_ListNonDel
465	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
466
467	if [ X${FileName0} != X${NULL_STR} ] ; then
468	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
469
470	(( i=0 ))
471	until [ $i -ge $NbFiles ]; do
472	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
473	eval file_in=${file_in_}
474	(( i_ = i+1 ))
475	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
476	eval file_out=${file_out_}
477
478	IGCM_sys_Get ${file_in} ${file_out}
479
480	if [ X${file_out} != X. ] ; then
481	ListFixBoundary=${ListFixBoundary}" "${file_out}
482	else
483	ListFixBoundary=${ListFixBoundary}" "$( basename ${file_in} )
484	fi
485
486	(( i=i+2 ))
487	done
488	fi
489	fi
490	done
491
492	IGCM_debug_PopStack "IGCM_comp_GetInputBoundaryFiles"
493	}
494
495	#=======================================================================
496	function IGCM_comp_DelFixeBoundaryFiles
497	{
498	IGCM_debug_PushStack "IGCM_comp_DelFixeBoundaryFiles"
499
500	# Debug Print :
501	echo
502	IGCM_debug_Print 1 "IGCM_comp_DelFixeBoundaryFiles :"
503	echo
504
505	ls -l ${ListFixBoundary}
506	rm -f ${ListFixBoundary}
507
508	IGCM_debug_PopStack "IGCM_comp_DelFixeBoundaryFiles"
509	}
510
511	#=======================================================================
512	function IGCM_comp_GetInputParametersFiles
513	{
514	IGCM_debug_PushStack "IGCM_comp_GetInputParametersFiles"
515
516	# Debug Print :
517	echo
518	IGCM_debug_Print 1 "IGCM_comp_GetInputParametersFiles :"
519	echo
520
521	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_ file_in file_out
522	for comp in ${config_ListOfComponents[*]} ; do
523	# Define component
524	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
525	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
526
527	# Debug Print :
528	IGCM_debug_Print 3 "Parameters ${compname}"
529
530	card=${SUBMIT_DIR}/COMP/${compname}.card
531
532	IGCM_card_DefineArrayFromOption ${card} ParametersFiles List
533	ListFilesName=${compname}_ParametersFiles_List
534	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
535
536	if [ X${FileName0} != X${NULL_STR} ] ; then
537	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
538
539	(( i=0 ))
540	until [ $i -ge $NbFiles ]; do
541	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
542	eval file_in=${file_in_}
543	(( i_ = i+1 ))
544	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
545	eval file_out=${file_out_}
546
547	IGCM_sys_Cp ${file_in} ${file_out}
548	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
549
550	(( i=i+2 ))
551	done
552	fi
553	done
554
555	IGCM_debug_PopStack "IGCM_comp_GetInputParametersFiles"
556	}
557
558	#=======================================================================
559	function IGCM_comp_GetInputRestartFiles
560	{
561	IGCM_debug_PushStack "IGCM_comp_GetInputRestartFiles"
562
563	# Debug Print :
564	echo
565	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles :"
566	echo
567
568	typeset Date_tmp Date_r Path_r do_start CompOldName Path_temp
569	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
570	typeset file_in file_out file_in_ file_out_ file_in_Name
571	typeset -Z4 j4
572
573	for comp in ${config_ListOfComponents[*]} ; do
574	# Define component
575	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
576	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
577	#
578	card=${SUBMIT_DIR}/COMP/${compname}.card
579	#
580	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
581	ListFilesName=${compname}_RestartFiles_List
582	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
583
584	# Debug Print :
585	IGCM_debug_Print 3 "restart ${compname}"
586
587	if ( ${FirstInitialize} ) ; then
588
589	if [ "${config_Restarts_OverRule}" = "y" ] ; then
590	eval config_${comp}_Restart="y"
591	eval config_${comp}_RestartDate=${config_Restarts_RestartDate}
592	eval config_${comp}_RestartJobName=${config_Restarts_RestartJobName}
593	eval config_${comp}_RestartPath=${config_Restarts_RestartPath}
594	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
595	eval CompOldName=${comp}
596	else
597	# Read component Restarts parameters
598	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} Restart
599	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
600
601	if [ "${do_start}" = "y" ] ; then
602	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartDate
603	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartJobName
604	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartPath
605	else
606	eval config_${comp}_RestartDate=-1
607	eval config_${comp}_RestartJobName=${NULL_STR}
608	eval config_${comp}_RestartPath=${NULL_STR}
609	fi
610	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} OldName
611	eval CompOldName=\${config_${comp}_OldName}
612	if [ X${CompOldName} = X ] ; then
613	eval CompOldName=${comp}
614	fi
615	fi
616
617	if [ "${do_start}" = "y" ] ; then
618
619	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
620	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
621
622	(( i=1 ))
623	until [ $i -gt $NbFiles ]; do
624	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
625	eval file_in=${file_in_}
626
627	(( i_ = i+1 ))
628	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
629	eval file_out=${file_out_}
630
631	eval Date_tmp=\${config_${comp}_RestartDate}
632	Date_r=$( IGCM_date_ConvertFormatToGregorian ${Date_tmp} )
633	eval Path_r=\${config_${comp}_RestartPath}/\${config_${comp}_RestartJobName}/${CompOldName}/Restart
634	eval file_in_Name=\${config_${comp}_RestartJobName}_${Date_r}_${file_in}
635
636	generic_restart_file_name_in=$( basename ${file_in_Name} .nc )
637	generic_restart_file_name_out=$( basename ${file_out} .nc )
638
639	eval Path_temp=\${Path_r}/${generic_restart_file_name_in}
640	nb_restart_file=$(IGCM_sys_CountFileArchive ${Path_temp}_????.nc)
641
642	if [ ${nb_restart_file} -gt 1 ] ; then
643	j=0
644	until [ $j -ge $nb_restart_file ]; do
645	j4=${j}
646	eval IGCM_sys_Get ${Path_r}/${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_out}_${j4}.nc
647	#IGCM_comp_PrepareDeletedFiles ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_out}_${j4}.nc
648	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${generic_restart_file_name_out}_${j4}.nc" > /dev/null 2>&1
649	(( j=j+1 ))
650	done
651	else
652	eval IGCM_sys_Get ${Path_r}/${file_in_Name} ${file_out}
653	#IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
654	fi
655
656	(( i=i+3 ))
657	done
658	else
659	if [ X${FileName0} != XNONE ] ; then
660	IGCM_debug_Exit "IGCM_comp_GetInputRestartFiles : No file in list for ${compname}."
661	else
662	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles : NONE specified in Restart List ${compname}."
663	fi
664	fi
665	fi
666	elif [ ${Period} -eq 1 ] ; then
667	# if not FirstInitialize and first loop of this job
668
669	# Restore Restarts files
670	#-----------------------
671	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
672	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
673
674	(( i=1 ))
675	until [ $i -gt $NbFiles ]; do
676	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
677	eval file_in=${file_in_}
678	(( i_ = i+1 ))
679	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
680	eval file_out=${file_out_}
681
682	file_in_Name=${run_Configuration_OldPrefix}_${file_in}
683
684	generic_restart_file_name_in=$( basename ${file_in_Name} .nc )
685	generic_restart_file_name_out=$( basename ${file_out} .nc )
686
687	eval Path_temp=\${R_OUT_${comp}_R}/${generic_restart_file_name_in}
688	nb_restart_file=$(IGCM_sys_CountFileArchive ${Path_temp}_????.nc)
689
690	if [ ${nb_restart_file} -gt 1 ] ; then
691	j=0
692	until [ $j -ge $nb_restart_file ]; do
693	j4=${j}
694	eval IGCM_sys_Get \${R_OUT_${comp}_R}/${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_out}_${j4}.nc
695	#IGCM_comp_PrepareDeletedFiles ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_out}_${j4}.nc
696	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${generic_restart_file_name_out}_${j4}.nc" > /dev/null 2>&1
697
698	(( j=j+1 ))
699	done
700	else
701	eval IGCM_sys_Get \${R_OUT_${comp}_R}/${file_in_Name} ${file_out}
702	#IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
703	fi
704
705	(( i=i+3 ))
706	done
707	else
708	if [ X${FileName0} != XNONE ] ; then
709	IGCM_debug_Exit "IGCM_comp_GetInputRestartFiles : No file in list for ${compname}."
710	else
711	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles : NONE specified in Restart List ${compname}."
712	fi
713	fi
714	fi
715	done
716
717	typeset NbFichs
718	NbFiles=$( ls * 2> /dev/null \| wc -l )
719	if [ ${NbFiles} -gt 0 ] ; then
720	IGCM_sys_Chmod u+rw *
721	fi
722
723	IGCM_debug_PopStack "IGCM_comp_GetInputRestartFiles"
724	}
725
726	#=======================================================================
727	function IGCM_comp_PeriodStart
728	{
729	IGCM_debug_PushStack "IGCM_comp_PeriodStart"
730
731	# Debug Print :
732	echo
733	IGCM_debug_Print 1 "IGCM_comp_PeriodStart :"
734	echo
735
736	typeset ExeNameIn ExeNameOut
737	typeset comp compname comptagname
738	for comp in ${config_ListOfComponents[*]} ; do
739	# Define component
740	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
741	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
742
743	# Copy executable for this component
744	eval ExeNameIn=\${config_Executable_${comp}[0]}
745	eval ExeNameOut=\${config_Executable_${comp}[1]}
746
747	# Debug Print
748	IGCM_debug_Print 3 "PeriodStart ${compname} Driver Function (if any)."
749	# UPDATE component
750	${comp}_PeriodStart 2> /dev/null
751
752	done
753
754	IGCM_debug_PopStack "IGCM_comp_PeriodStart"
755	}
756
757	#=======================================================================
758	function IGCM_comp_Update
759	{
760	IGCM_debug_PushStack "IGCM_comp_Update"
761
762	# Debug Print :
763	echo
764	IGCM_debug_Print 1 "IGCM_comp_Update :"
765	echo
766
767	typeset ExeNameIn ExeNameOut
768	typeset comp compname comptagname
769	for comp in ${config_ListOfComponents[*]} ; do
770	# Define component
771	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
772	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
773
774	# Copy executable for this component
775	eval ExeNameIn=\${config_Executable_${comp}[0]}
776	eval ExeNameOut=\${config_Executable_${comp}[1]}
777
778	# If missing executable then stop!
779	#if [ ! X${ExeNameIn} = X ] && [ ! -f ${R_EXE}/${ExeNameIn} ] ; then
780	# IGCM_debug_Exit "IGCM_comp_Update missing executable ${ExeNameIn}"
781	#fi
782
783	if [ ${Period} -eq 1 ] && [ -f ${R_EXE}/${ExeNameIn} ] ; then
784	eval IGCM_sys_Cp ${R_EXE}/${ExeNameIn} ${ExeNameOut}
785	if [ -f ${RUN_DIR}/${ExeNameOut} ] ; then
786	eval IGCM_sys_Chmod +rx ${RUN_DIR}/${ExeNameOut}
787	fi
788	elif [ -f ${R_EXE}/${ExeNameIn} ] && [ ! -f ${RUN_DIR}/${ExeNameOut} ] ; then
789	eval IGCM_sys_Cp ${R_EXE}/${ExeNameIn} ${ExeNameOut}
790	if [ -f ${RUN_DIR}/${ExeNameOut} ] ; then
791	eval IGCM_sys_Chmod +rx ${RUN_DIR}/${ExeNameOut}
792	fi
793	fi
794
795	# Debug Print
796	IGCM_debug_Print 3 "Update ${compname} Parameter Files."
797	# UPDATE component
798	${comp}_Update
799
800	done
801
802	IGCM_debug_PopStack "IGCM_comp_Update"
803	}
804
805	#=======================================================================
806	function IGCM_comp_Finalize
807	{
808	IGCM_debug_PushStack "IGCM_comp_Finalize"
809
810	# Debug Print :
811	echo
812	IGCM_debug_Print 1 "IGCM_comp_Finalize :"
813	echo
814
815	typeset ListTextName TextName0
816	typeset comp compname comptagname card ListFilesName FileName0 NbFiles SaveOnArchive
817	typeset i i_ file_in file_in_ file_out file_out_ file_outin file_outin_ generic_file_name nb_rebuild_file
818	typeset -Z4 j4
819	typeset list_file nlist_file
820	typeset compactoutputs
821
822	compactoutputs=false
823	if [ X${JobType} != XRUN ] ; then
824	compactoutputs=true
825	elif [ X${config_UserChoices_CompactText} != Xn ] ; then
826	compactoutputs=true
827	fi
828
829	for comp in ${config_ListOfComponents[*]} ; do
830	# Define component
831	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
832	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
833
834	# Debug Print
835	IGCM_debug_Print 1 "Finalize ${compname} component."
836	# FINALIZE component
837	${comp}_Finalize
838
839	card=${SUBMIT_DIR}/COMP/${compname}.card
840
841	# Save Restarts files
842	#--------------------
843	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
844	ListFilesName=${compname}_RestartFiles_List
845	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
846
847	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
848	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
849
850	(( i=0 ))
851	until [ $i -ge $NbFiles ]; do
852	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
853	eval file_in=${file_in_}
854
855	(( i_ = i+1 ))
856	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
857	eval file_out=${file_out_}
858
859	(( i_ = i+2 ))
860	eval file_outin_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
861	eval file_outin=${file_outin_}
862
863	generic_restart_file_name_in=$( basename ${file_in} .nc )
864	generic_restart_file_name_out=$( basename ${config_UserChoices_JobName}_${PeriodDateEnd}_${file_out} .nc )
865	generic_restart_file_name_outin=$( basename ${file_outin} .nc )
866
867	nb_restart_file=$( ls ${generic_restart_file_name_in}_????.nc 2>/dev/null \| wc -l )
868	if [ ${nb_restart_file} -gt 1 ] ; then
869	j=0
870	until [ $j -ge $nb_restart_file ]; do
871	j4=${j}
872	eval IGCM_sys_Put_Rest ${generic_restart_file_name_in}_${j4}.nc \${R_OUT_${comp}_R}/${generic_restart_file_name_out}_${j4}.nc
873	if [ ! ${file_in} = ${file_outin} ] ; then
874	if ( ${ExitFlag} ) ; then
875	echo "IGCM_sys_Mv ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_outin}_${j4}.nc not executed."
876	else
877	IGCM_sys_Mv ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_outin}_${j4}.nc
878	fi
879	fi
880	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${generic_restart_file_name_in}_${j4}.nc" > /dev/null 2>&1
881	(( j=j+1 ))
882	done
883	else
884	eval IGCM_sys_Put_Rest ${file_in} \${R_OUT_${comp}_R}/${config_UserChoices_JobName}_${PeriodDateEnd}_${file_out}
885	if [ ! ${file_in} = ${file_outin} ] ; then
886	if ( ${ExitFlag} ) ; then
887	echo "IGCM_sys_Mv ${file_in} ${file_outin} not executed."
888	else
889	IGCM_sys_Mv ${file_in} ${file_outin}
890	fi
891	fi
892	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
893	fi
894
895	(( i=i+3 ))
896	done
897	else
898	if [ X${FileName0} != XNONE ] ; then
899	IGCM_debug_Exit "IGCM_comp_Finalize : No file in restart list for ${compname}."
900	else
901	IGCM_debug_Print 1 "IGCM_comp_Finalize : NONE specified in Restart List ${compname}."
902	fi
903	fi
904
905	# Save Output files
906	#------------------
907	IGCM_card_DefineArrayFromOption ${card} OutputFiles List
908	ListFilesName=${compname}_OutputFiles_List
909	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
910
911	if [ X${FileName0} != X${NULL_STR} ] ; then
912	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
913
914	(( i=0 ))
915	until [ $i -ge $NbFiles ]; do
916	SaveOnArchive=true
917	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
918	eval file_in=${file_in_}
919	(( i_ = i+1 ))
920	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
921	eval file_out=${file_out_}
922	(( i_ = i+2 ))
923	eval flag_post=\${${ListFilesName}[$i_]} > /dev/null 2>&1
924	#
925	generic_file_name=$( basename ${file_in} .nc )
926	nb_rebuild_file=$( ls \| grep "^${generic_file_name}_[0-9]*.nc" \| wc -l )
927	#
928	if ( [ ${nb_rebuild_file} -eq 1 ] && [ -f ${generic_file_name}_0000.nc ] ) ; then
929	IGCM_debug_Print 2 "Parallelism with 1 process. Rebuilding ${file_in} not needed"
930	IGCM_sys_Mv ${generic_file_name}_0000.nc ${file_in}
931	elif [ ${nb_rebuild_file} -gt 1 ] ; then
932	IGCM_debug_Print 2 "Parallelism detected rebuilding ${file_in} is needed"
933	if ( [ X${config_Post_RebuildFrequency} = X${NULL_STR} ] \|\| [ X${config_Post_RebuildFrequency} = XNONE ] ) ; then
934	IGCM_debug_Print 2 "Rebuilding ${file_in} online"
935	IGCM_sys_rebuild ${file_in} ${generic_file_name}_*.nc
936	else
937	IGCM_debug_Print 2 "Preparing offline rebuild for ${file_in}"
938	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
939	IGCM_sys_Mv ${generic_file_name}_????.nc ${RUN_DIR}/REBUILD_${PeriodDateBegin}
940
941	# Prepare headers for the shell dedicated to offline rebuild
942	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
943	if [ $DRYRUN -le 1 ]; then
944	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
945	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
946	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
947	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
948	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
949	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
950	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
951	echo "export R_SAVE=${R_SAVE} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
952	echo "export config_UserChoices_JobName=${config_UserChoices_JobName} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
953	fi
954	fi
955	# Prepare the shell dedicated to offline rebuild
956	if [ $DRYRUN -le 1 ]; then
957	echo "IGCM_sys_rebuild ${file_in} ${generic_file_name}_*.nc " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
958	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
959	fi
960	#
961	# Load Patch we need to apply and apply
962	if [ $DRYRUN -le 1 ]; then
963	if [ X$( eval echo \${${compname}_${flag_post}_Patches[0]} ) != X${NULL_STR} ]; then
964	for Patch in $( eval echo \${${compname}_${flag_post}_Patches[*]} ); do
965	echo ". ${libIGCM_POST}/libIGCM_post/IGCM_${Patch}.ksh" >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
966	echo "IGCM_${Patch} ${file_in} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
967	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
968	done
969	fi
970	fi
971	#
972	if [ $DRYRUN -le 1 ]; then
973	echo "IGCM_sys_Put_Out ${file_in} ${file_out} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
974	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
975	echo "IGCM_sys_Rm ${generic_file_name}_*.nc " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
976	fi
977	SaveOnArchive=false
978	fi
979	fi
980	#
981	if [ ${SaveOnArchive} = true ] ; then
982	#
983	# If we need to apply a patch we use TMP DIRECTORY before ARCHIVING if asynchronous rebuild is on
984	#
985	thereisapatch=$( eval echo \${${compname}_${flag_post}_Patches[0]} )
986
987	if ( [ ! X${thereisapatch} = X${NULL_STR} ] && [ ! X${config_Post_RebuildFrequency} = X ] && [ ! X${config_Post_RebuildFrequency} = XNONE ] ) ; then
988	if [ -f ${file_in} ] ; then
989	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
990
991	IGCM_sys_Mv ${file_in} ${RUN_DIR}/REBUILD_${PeriodDateBegin}
992	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=REBUILD_${PeriodDateBegin}/${file_in} > /dev/null 2>&1
993	#
994	if [ $DRYRUN -le 1 ]; then
995	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
996	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
997	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
998	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
999	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1000	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1001	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1002	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1003	fi
1004	#
1005	for Patch in $( eval echo \${${compname}_${flag_post}_Patches[*]} ); do
1006	echo ". ${libIGCM_POST}/libIGCM_post/IGCM_${Patch}.ksh " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1007	echo "IGCM_${Patch} ${file_in} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1008	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1009	done
1010	#
1011	echo "IGCM_sys_Put_Out ${file_in} ${file_out} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1012	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1013	#
1014	fi
1015	fi
1016	else
1017	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
1018	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
1019	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1020	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1021	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1022	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1023	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1024	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1025	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1026	fi
1027
1028	IGCM_sys_Put_Out ${file_in} ${file_out}
1029	[ $? -eq 0 ] && eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
1030	if [ ${nb_rebuild_file} -gt 1 ] ; then
1031	for DelFile in $( ls \| grep "${generic_file_name}[_0-9]*.nc" ) ; do
1032	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=${DelFile} > /dev/null 2>&1
1033	done
1034	fi
1035	fi
1036	fi
1037	(( i=i+3 ))
1038	done
1039	fi
1040
1041	# Save Output Text files of models
1042	#---------------------------------
1043
1044	IGCM_card_DefineArrayFromOption ${card} OutputText List
1045	ListTextName=${compname}_OutputText_List
1046
1047	eval TextName0=\${${ListTextName}[0]} > /dev/null 2>&1
1048	if [ X${TextName0} != X${NULL_STR} ] ; then
1049	eval NbFiles=\${#${ListTextName}[@]} > /dev/null 2>&1
1050
1051	(( i=0 ))
1052	until [ $i -eq $NbFiles ]; do
1053	eval file_in=\${${ListTextName}[$i]} > /dev/null 2>&1
1054	(( i=i+1 ))
1055
1056	unset list_file
1057	set +A list_file -- $( ls ${file_in}* \| sort 2>/dev/null )
1058	nlist_file=${#list_file[@]}
1059	if [ ${nlist_file} -gt 1 ] ; then
1060	if ( ${compactoutputs} ) ; then
1061	eval file_out=${PREFIX}_${file_in}
1062
1063	IGCM_debug_Print 2 "Parallelism of Text Output with ${nlist_file} files."
1064	IGCM_debug_Print 2 "Compact files in ${file_out} : " ${list_file[*]}
1065	echo ${list_file[*]} > ${file_out}
1066	echo "" >> ${file_out}
1067
1068	(( i_ = 0 ))
1069	for file in ${list_file[@]}
1070	do
1071	echo "_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ " >> ${file_out}
1072	echo "\| " ${i_} " " ${file} >> ${file_out}
1073	echo "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " >> ${file_out}
1074	cat ${file} \| sed "s/\(.*\)/${i_}\1/" ${file} >> ${file_out}
1075	echo "" >> ${file_out}
1076	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file}" > /dev/null 2>&1
1077	(( i_ = i_ + 1 ))
1078	done
1079	eval IGCM_sys_Put_Out ${file_out} \${R_OUT_${comp}_D}/${file_out}
1080	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_out}" > /dev/null 2>&1
1081
1082	if ( $ExecutionFail && [ X$( echo ${file_out} \| grep "_out" ) != X ] ) ; then
1083	IGCM_sys_Cp ${file_out} ${SUBMIT_DIR}
1084	fi
1085	else
1086	for file in ${list_file[@]}
1087	do
1088	eval IGCM_sys_Put_Out ${file} \${R_OUT_${comp}_D}/${PREFIX}_${file}
1089	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file}" > /dev/null 2>&1
1090	done
1091	if ( $ExecutionFail && [ X$( echo ${file} \| grep "_out" ) != X ] ) ; then
1092	IGCM_sys_Cp ${file} ${SUBMIT_DIR}/${PREFIX}_${file}
1093	fi
1094	fi
1095	else
1096	if ( [ -f ${file_in}_0000 ] \|\| [ -f ${file_in}0 ] ) ; then
1097	eval IGCM_sys_Mv ${file_in}* ${file_in}
1098	fi
1099	eval IGCM_sys_Put_Out ${file_in} \${R_OUT_${comp}_D}/${PREFIX}_${file_in}
1100	[ $? -eq 0 ] && eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
1101
1102	if ( $ExecutionFail && [ X$( echo ${file_in} \| grep "_out" ) != X ] ) ; then
1103	IGCM_sys_Cp ${file_in} ${SUBMIT_DIR}/${PREFIX}_${file_in}
1104	fi
1105	fi
1106	done
1107	fi
1108	done
1109
1110	IGCM_debug_PopStack "IGCM_comp_Finalize"
1111	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: