Context Navigation

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

Last change on this file since 429 was 429, checked in by mmaipsl, 13 years ago
Compact text output in case of a parallel run. Please see this link for documentation : https://forge.ipsl.jussieu.fr/libigcm/wiki/libIGCM/DocUtilisateur/FAQ?version=18#Compressiondunombredefichiers
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.1 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	for comp in ${config_ListOfComponents[*]} ; do
823	# Define component
824	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
825	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
826
827	# Debug Print
828	IGCM_debug_Print 1 "Finalize ${compname} component."
829	# FINALIZE component
830	${comp}_Finalize
831
832	card=${SUBMIT_DIR}/COMP/${compname}.card
833
834	# Save Restarts files
835	#--------------------
836	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
837	ListFilesName=${compname}_RestartFiles_List
838	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
839
840	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
841	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
842
843	(( i=0 ))
844	until [ $i -ge $NbFiles ]; do
845	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
846	eval file_in=${file_in_}
847
848	(( i_ = i+1 ))
849	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
850	eval file_out=${file_out_}
851
852	(( i_ = i+2 ))
853	eval file_outin_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
854	eval file_outin=${file_outin_}
855
856	generic_restart_file_name_in=$( basename ${file_in} .nc )
857	generic_restart_file_name_out=$( basename ${config_UserChoices_JobName}_${PeriodDateEnd}_${file_out} .nc )
858	generic_restart_file_name_outin=$( basename ${file_outin} .nc )
859
860	nb_restart_file=$( ls ${generic_restart_file_name_in}_????.nc 2>/dev/null \| wc -l )
861	if [ ${nb_restart_file} -gt 1 ] ; then
862	j=0
863	until [ $j -ge $nb_restart_file ]; do
864	j4=${j}
865	eval IGCM_sys_Put_Rest ${generic_restart_file_name_in}_${j4}.nc \${R_OUT_${comp}_R}/${generic_restart_file_name_out}_${j4}.nc
866	if [ ! ${file_in} = ${file_outin} ] ; then
867	if ( ${ExitFlag} ) ; then
868	echo "IGCM_sys_Mv ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_outin}_${j4}.nc not executed."
869	else
870	IGCM_sys_Mv ${generic_restart_file_name_in}_${j4}.nc ${generic_restart_file_name_outin}_${j4}.nc
871	fi
872	fi
873	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${generic_restart_file_name_in}_${j4}.nc" > /dev/null 2>&1
874	(( j=j+1 ))
875	done
876	else
877	eval IGCM_sys_Put_Rest ${file_in} \${R_OUT_${comp}_R}/${config_UserChoices_JobName}_${PeriodDateEnd}_${file_out}
878	if [ ! ${file_in} = ${file_outin} ] ; then
879	if ( ${ExitFlag} ) ; then
880	echo "IGCM_sys_Mv ${file_in} ${file_outin} not executed."
881	else
882	IGCM_sys_Mv ${file_in} ${file_outin}
883	fi
884	fi
885	#eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
886	fi
887
888	(( i=i+3 ))
889	done
890	else
891	if [ X${FileName0} != XNONE ] ; then
892	IGCM_debug_Exit "IGCM_comp_Finalize : No file in restart list for ${compname}."
893	else
894	IGCM_debug_Print 1 "IGCM_comp_Finalize : NONE specified in Restart List ${compname}."
895	fi
896	fi
897
898	# Save Output files
899	#------------------
900	IGCM_card_DefineArrayFromOption ${card} OutputFiles List
901	ListFilesName=${compname}_OutputFiles_List
902	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
903
904	if [ X${FileName0} != X${NULL_STR} ] ; then
905	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
906
907	(( i=0 ))
908	until [ $i -ge $NbFiles ]; do
909	SaveOnArchive=true
910	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
911	eval file_in=${file_in_}
912	(( i_ = i+1 ))
913	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
914	eval file_out=${file_out_}
915	(( i_ = i+2 ))
916	eval flag_post=\${${ListFilesName}[$i_]} > /dev/null 2>&1
917	#
918	generic_file_name=$( basename ${file_in} .nc )
919	nb_rebuild_file=$( ls \| grep "^${generic_file_name}_[0-9]*.nc" \| wc -l )
920	#
921	if ( [ ${nb_rebuild_file} -eq 1 ] && [ -f ${generic_file_name}_0000.nc ] ) ; then
922	IGCM_debug_Print 2 "Parallelism with 1 process. Rebuilding ${file_in} not needed"
923	IGCM_sys_Mv ${generic_file_name}_0000.nc ${file_in}
924	elif [ ${nb_rebuild_file} -gt 1 ] ; then
925	IGCM_debug_Print 2 "Parallelism detected rebuilding ${file_in} is needed"
926	if ( [ X${config_Post_RebuildFrequency} = X${NULL_STR} ] \|\| [ X${config_Post_RebuildFrequency} = XNONE ] ) ; then
927	IGCM_debug_Print 2 "Rebuilding ${file_in} online"
928	IGCM_sys_rebuild ${file_in} ${generic_file_name}_*.nc
929	else
930	IGCM_debug_Print 2 "Preparing offline rebuild for ${file_in}"
931	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
932	IGCM_sys_Mv ${generic_file_name}_????.nc ${RUN_DIR}/REBUILD_${PeriodDateBegin}
933
934	# Prepare headers for the shell dedicated to offline rebuild
935	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
936	if [ $DRYRUN -le 1 ]; then
937	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
938	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
939	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
940	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
941	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
942	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
943	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
944	echo "export R_SAVE=${R_SAVE} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
945	echo "export config_UserChoices_JobName=${config_UserChoices_JobName} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
946	fi
947	fi
948	# Prepare the shell dedicated to offline rebuild
949	if [ $DRYRUN -le 1 ]; then
950	echo "IGCM_sys_rebuild ${file_in} ${generic_file_name}_*.nc " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
951	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
952	fi
953	#
954	# Load Patch we need to apply and apply
955	if [ $DRYRUN -le 1 ]; then
956	if [ X$( eval echo \${${compname}_${flag_post}_Patches[0]} ) != X${NULL_STR} ]; then
957	for Patch in $( eval echo \${${compname}_${flag_post}_Patches[*]} ); do
958	echo ". ${libIGCM_POST}/libIGCM_post/IGCM_${Patch}.ksh" >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
959	echo "IGCM_${Patch} ${file_in} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
960	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
961	done
962	fi
963	fi
964	#
965	if [ $DRYRUN -le 1 ]; then
966	echo "IGCM_sys_Put_Out ${file_in} ${file_out} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
967	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
968	echo "IGCM_sys_Rm ${generic_file_name}_*.nc " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
969	fi
970	SaveOnArchive=false
971	fi
972	fi
973	#
974	if [ ${SaveOnArchive} = true ] ; then
975	#
976	# If we need to apply a patch we use TMP DIRECTORY before ARCHIVING if asynchronous rebuild is on
977	#
978	thereisapatch=$( eval echo \${${compname}_${flag_post}_Patches[0]} )
979
980	if ( [ ! X${thereisapatch} = X${NULL_STR} ] && [ ! X${config_Post_RebuildFrequency} = X ] && [ ! X${config_Post_RebuildFrequency} = XNONE ] ) ; then
981	if [ -f ${file_in} ] ; then
982	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
983
984	IGCM_sys_Mv ${file_in} ${RUN_DIR}/REBUILD_${PeriodDateBegin}
985	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=REBUILD_${PeriodDateBegin}/${file_in} > /dev/null 2>&1
986	#
987	if [ $DRYRUN -le 1 ]; then
988	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
989	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
990	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
991	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
992	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
993	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
994	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
995	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
996	fi
997	#
998	for Patch in $( eval echo \${${compname}_${flag_post}_Patches[*]} ); do
999	echo ". ${libIGCM_POST}/libIGCM_post/IGCM_${Patch}.ksh " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1000	echo "IGCM_${Patch} ${file_in} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1001	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1002	done
1003	#
1004	echo "IGCM_sys_Put_Out ${file_in} ${file_out} " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1005	echo "IGCM_debug_Verif_Exit_Post " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1006	#
1007	fi
1008	fi
1009	else
1010	[ ! -d ${RUN_DIR}/REBUILD_${PeriodDateBegin} ] && IGCM_sys_Mkdir ${RUN_DIR}/REBUILD_${PeriodDateBegin}
1011	if [ ! -f ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh ] ; then
1012	echo "#!/bin/ksh " > ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1013	echo "function IGCM_FlushRebuild " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1014	echo "{ " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1015	echo "IGCM_debug_PushStack \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1016	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1017	echo "IGCM_debug_Print 1 \"IGCM_FlushRebuild\" " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1018	echo "echo " >> ${RUN_DIR}/REBUILD_${PeriodDateBegin}/rebuild.ksh
1019	fi
1020
1021	IGCM_sys_Put_Out ${file_in} ${file_out}
1022	[ $? -eq 0 ] && eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
1023	if [ ${nb_rebuild_file} -gt 1 ] ; then
1024	for DelFile in $( ls \| grep "${generic_file_name}[_0-9]*.nc" ) ; do
1025	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=${DelFile} > /dev/null 2>&1
1026	done
1027	fi
1028	fi
1029	fi
1030	(( i=i+3 ))
1031	done
1032	fi
1033
1034	# Save Output Text files of models
1035	#---------------------------------
1036
1037	IGCM_card_DefineArrayFromOption ${card} OutputText List
1038	ListTextName=${compname}_OutputText_List
1039
1040	eval TextName0=\${${ListTextName}[0]} > /dev/null 2>&1
1041	if [ X${TextName0} != X${NULL_STR} ] ; then
1042	eval NbFiles=\${#${ListTextName}[@]} > /dev/null 2>&1
1043
1044	compactoutputs=false
1045
1046	(( i=0 ))
1047	until [ $i -eq $NbFiles ]; do
1048	eval file_in=\${${ListTextName}[$i]} > /dev/null 2>&1
1049	(( i=i+1 ))
1050
1051	unset list_file
1052	set +A list_file -- $( ls ${file_in}* 2>/dev/null )
1053	nlist_file=${#list_file[@]}
1054	if [ ${nlist_file} -gt 1 ] ; then
1055	if [ X${JobType} != XRUN ] ; then
1056	compactoutputs=true
1057	elif [ X${config_UserChoices_CompactText} != Xn ] ; then
1058	compactoutputs=true
1059	fi
1060
1061	if ( ${compactoutputs} ) ; then
1062	eval file_out=${PREFIX}_${file_in}
1063
1064	echo ${list_file[*]} > ${file_out}
1065	echo "" >> ${file_out}
1066
1067	(( i_ = 0 ))
1068	for file in ${list_file[@]}
1069	do
1070	echo "_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ " >> ${file_out}
1071	echo "\| " ${i_} " " ${file} >> ${file_out}
1072	echo "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " >> ${file_out}
1073	cat ${file} \| sed "s/\(.*\)/${i_}\1/" ${file} >> ${file_out}
1074	echo "" >> ${file_out}
1075	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file}" > /dev/null 2>&1
1076	(( i_ = i_ + 1 ))
1077	done
1078	eval IGCM_sys_Put_Out ${file_out} \${R_OUT_${comp}_D}/${file_out}
1079	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_out}" > /dev/null 2>&1
1080	else
1081	for file in ${list_file[@]}
1082	do
1083	eval IGCM_sys_Put_Out ${file} \${R_OUT_${comp}_D}/${PREFIX}_${file}
1084	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file}" > /dev/null 2>&1
1085	done
1086	fi
1087	else
1088	if ( [ -f ${file_in}_0000 ] \|\| [ -f ${file_in}0 ] ) ; then
1089	eval IGCM_sys_Mv ${file_in}* ${file_in}
1090	fi
1091	eval IGCM_sys_Put_Out ${file_in} \${R_OUT_${comp}_D}/${PREFIX}_${file_in}
1092	[ $? -eq 0 ] && eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
1093	fi
1094	done
1095	fi
1096	done
1097
1098	IGCM_debug_PopStack "IGCM_comp_Finalize"
1099	}

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

Download in other formats: