Context Navigation

source: tags/libIGCM_v1_1/libIGCM_comp/libIGCM_comp.ksh @ 1137

Last change on this file since 1137 was 5, checked in by mmaipsl, 16 years ago
MM: correct Date, Author and Revision svn properties.
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 `Date Author Revision`
File size: 20.6 KB

Line
1	#!/bin/ksh
2
3	#**************************************************************
4	# Author: Sebastien Denvil, Martial Mancip
5	# Contact: Sebastien.Denvil@ipsl.jussieu.fr Martial.Mancip@ipsl.jussieu.fr
6	# $Date$
7	# $Author$
8	# $Revision$
9	# IPSL (2006)
10	# This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC
11	# History:
12	# Modification:
13	#
14	#**************************************************************
15
16	#========================================================================
17	function IGCM_comp_Initialize
18	{
19	IGCM_debug_PushStack "IGCM_comp_Initialize"
20
21	# Debug Print :
22	echo
23	IGCM_debug_Print 1 "IGCM_comp_Initialize :"
24	echo
25
26	typeset comp compname comptagname CompatibilityTag auxprint card_UserChoices first_option
27	for comp in ${config_ListOfComponents[*]} ; do
28	# Debug Print
29	IGCM_debug_Print 1 ${comp}
30	# Define component
31	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/config.card ListOfComponents ${comp}
32	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
33	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
34
35	# Read libIGCM compatibility version in ${compname}.card
36	card=${SUBMIT_DIR}/COMP/${compname}.card
37	IGCM_card_DefineVariableFromOption ${card} Compatibility libIGCM
38	eval CompatibilityTag=\${${compname}_Compatibility_libIGCM} > /dev/null 2>&1
39
40	if [ ! "${CompatibilityTag}" = "${libIGCM_CurrentTag}" ] ; then
41	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 ."
42	fi
43
44	# Manage component executable
45	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/config.card Executable ${comp}
46
47	# Read component Write Frequency in config.card
48	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} WriteFrequency
49	# Debug Print :
50	eval auxprint=\${config_${comp}_WriteFrequency}
51	IGCM_debug_Print 1 "Write frequency for ${compname} : ${auxprint} "
52	#2> /dev/null
53
54	# Debug Print :
55	IGCM_debug_Print 1 "Initialize following component library :"
56	IGCM_debug_Print 1 ${SUBMIT_DIR}/COMP/${compname}.driver
57	IGCM_debug_Print 3 "With tag : ${comptagname}"
58	# Source component library
59	. ${SUBMIT_DIR}/COMP/${compname}.driver
60
61	# Debug Print
62	IGCM_debug_Print 3 "Initialize ${comp} output directory."
63	# Define Dirs
64	eval R_OUT_${comp}=${R_SAVE}/${comp}
65	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}}
66
67	eval R_OUT_${comp}_O=\${R_OUT_${comp}}/Output
68	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_O}
69
70	eval R_OUT_${comp}_R=\${R_OUT_${comp}}/Restart
71	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_R}
72
73	eval R_OUT_${comp}_D=\${R_OUT_${comp}}/Debug
74	eval IGCM_sys_MkdirArchive \${R_OUT_${comp}_D}
75
76	eval R_OUT_${comp}_O_I=\${R_OUT_${comp}_O}/INS
77	eval R_OUT_${comp}_O_H=\${R_OUT_${comp}_O}/HF
78	eval R_OUT_${comp}_O_D=\${R_OUT_${comp}_O}/DA
79	eval R_OUT_${comp}_O_M=\${R_OUT_${comp}_O}/MO
80	eval R_OUT_${comp}_O_Y=\${R_OUT_${comp}_O}/YE
81
82
83	# Read UserChoices section of component card
84	IGCM_debug_Print 1 "DefineArrayFromOption : ${compname}_UserChoices ${card}"
85	IGCM_card_DefineArrayFromSection ${card} UserChoices
86	eval first_option=\${${compname}_UserChoices[0]} > /dev/null 2>&1
87	if [ X${first_option} != X"Error:" ] ; then
88	eval IGCM_debug_Print 2 "${compname}_UserChoices_Options:" \${${compname}_UserChoices[*]}
89	if [ X${card_UserChoices[0]} != X ] ; then
90	unset card_UserChoices
91	fi
92	eval set +A card_UserChoices -- \${${compname}_UserChoices[*]} > /dev/null 2>&1
93	typeset option
94	for option in ${card_UserChoices[*]} ; do
95	IGCM_card_DefineVariableFromOption ${card} UserChoices ${option}
96	eval IGCM_debug_Print 3 "${compname}_UserChoices_values: ${card_UserChoices[*]}"
97	done
98	fi
99
100	# Debug Print
101	IGCM_debug_Print 3 "Initialize ${compname} with driver."
102	# INIT component
103	${comp}_Initialize
104	echo
105	done
106	echo "-----"
107
108	echo
109	IGCM_debug_Print 1 "DefineArrayFromOption : ListOfComponents"
110	IGCM_debug_PrintVariables 3 config_ListOfComponents
111
112	IGCM_debug_PopStack "IGCM_comp_Initialize"
113	}
114
115	#=======================================================================
116	function IGCM_comp_PrepareDeletedFiles
117	{
118	IGCM_debug_PushStack "IGCM_comp_PrepareDeletedFiles" $@
119
120	if [ X${2} != X. ] ; then
121	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=$( basename ${2} ) > /dev/null 2>&1
122	else
123	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=$( basename ${1} ) > /dev/null 2>&1
124	fi
125
126	IGCM_debug_PopStack "IGCM_comp_PrepareDeletedFiles"
127	}
128
129	#=======================================================================
130	function IGCM_comp_GetInputInitialStateFiles
131	{
132	IGCM_debug_PushStack "IGCM_comp_GetInputInitialStateFiles"
133
134	# Debug Print :
135	echo
136	IGCM_debug_Print 1 "IGCM_comp_GetInputInitialStateFiles :"
137	echo
138
139	# Only the first time step need InitialStateFiles
140	# otherwise it's BoundaryConditions
141	if ( ${FirstInitialize} ) ; then
142	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
143	typeset file_in_ file_in file_out_ file_out do_init
144	for comp in ${config_ListOfComponents[*]} ; do
145	# Initialize
146	do_init="y"
147	# Do we need to bring initial state file for this component
148	if [ "${config_Restarts_OverRule}" = "y" ] ; then
149	eval do_init="n"
150	else
151	# Read component Restarts parameters
152	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} Restart
153	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
154	if [ "${do_start}" = "y" ] ; then
155	do_init="n"
156	else
157	do_init="y"
158	fi
159	fi
160
161	if [ "${do_init}" = "y" ] ; then
162	# Define component
163	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
164	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
165
166	# Debug Print :
167	IGCM_debug_Print 3 "Initialisation files ${compname}"
168
169	card=${SUBMIT_DIR}/COMP/${compname}.card
170
171	IGCM_card_DefineArrayFromOption ${card} InitialStateFiles List
172	ListFilesName=${compname}_InitialStateFiles_List
173
174	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
175	if [ X${FileName0} != X${NULL_STR} ] ; then
176	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
177
178	(( i=0 ))
179	until [ $i -ge $NbFiles ]; do
180	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
181	eval file_in=${file_in_}
182	(( i_ = i+1 ))
183	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
184	eval file_out=${file_out_}
185
186	IGCM_sys_Get ${file_in} ${file_out}
187
188	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
189
190	(( i=i+2 ))
191	done
192	fi
193	fi
194	done
195	fi
196	IGCM_debug_PopStack "IGCM_comp_GetInputInitialStateFiles"
197	}
198
199	#=======================================================================
200	function IGCM_comp_GetInputBoundaryFiles
201	{
202	IGCM_debug_PushStack "IGCM_comp_GetInputBoundaryFiles"
203
204	# Debug Print :
205	echo
206	IGCM_debug_Print 1 "IGCM_comp_GetInputBoundaryFiles :"
207	echo
208
209	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
210	typeset file_in_ file_in file_out_ file_out
211
212	if [ ${Period} = 1 ]; then
213	ListFixBoundary=" "
214	fi
215
216	for comp in ${config_ListOfComponents[*]} ; do
217
218	echo "-----"
219	# Define component
220	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
221	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
222
223	# Debug Print :
224	IGCM_debug_Print 3 "Boundary files ${compname}"
225
226	card=${SUBMIT_DIR}/COMP/${compname}.card
227
228	IGCM_card_DefineArrayFromOption ${card} BoundaryFiles List
229	ListFilesName=${compname}_BoundaryFiles_List
230	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
231
232	if [ X${FileName0} != X${NULL_STR} ] ; then
233	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
234
235	(( i=0 ))
236	until [ $i -ge $NbFiles ]; do
237	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
238	eval file_in=${file_in_}
239	(( i_ = i+1 ))
240	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
241	eval file_out=${file_out_}
242
243	IGCM_sys_Get ${file_in} ${file_out}
244
245	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
246
247	(( i=i+2 ))
248	done
249	fi
250
251	# Get non deleted files
252	if [ ${Period} = 1 ]; then
253
254	IGCM_card_DefineArrayFromOption ${card} BoundaryFiles ListNonDel
255	ListFilesName=${compname}_BoundaryFiles_ListNonDel
256	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
257
258	if [ X${FileName0} != X${NULL_STR} ] ; then
259	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
260
261	(( i=0 ))
262	until [ $i -ge $NbFiles ]; do
263	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
264	eval file_in=${file_in_}
265	(( i_ = i+1 ))
266	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
267	eval file_out=${file_out_}
268
269	IGCM_sys_Get ${file_in} ${file_out}
270
271	if [ X${file_out} != X. ] ; then
272	ListFixBoundary=${ListFixBoundary}" "${file_out}
273	else
274	ListFixBoundary=${ListFixBoundary}" "$( basename ${file_in} )
275	fi
276
277	(( i=i+2 ))
278	done
279	fi
280	fi
281	done
282
283	IGCM_debug_PopStack "IGCM_comp_GetInputBoundaryFiles"
284	}
285
286	#=======================================================================
287	function IGCM_comp_DelFixeBoundaryFiles
288	{
289	IGCM_debug_PushStack "IGCM_comp_DelFixeBoundaryFiles"
290
291	# Debug Print :
292	echo
293	IGCM_debug_Print 1 "IGCM_comp_DelFixeBoundaryFiles :"
294	echo
295
296	ls -l ${ListFixBoundary}
297	rm -f ${ListFixBoundary}
298
299	IGCM_debug_PopStack "IGCM_comp_DelFixeBoundaryFiles"
300	}
301
302	#=======================================================================
303	function IGCM_comp_GetInputParametersFiles
304	{
305	IGCM_debug_PushStack "IGCM_comp_GetInputParametersFiles"
306
307	# Debug Print :
308	echo
309	IGCM_debug_Print 1 "IGCM_comp_GetInputParametersFiles :"
310	echo
311
312	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_ file_in file_out
313	for comp in ${config_ListOfComponents[*]} ; do
314	# Define component
315	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
316	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
317
318	# Debug Print :
319	IGCM_debug_Print 3 "Parameters ${compname}"
320
321	card=${SUBMIT_DIR}/COMP/${compname}.card
322
323	IGCM_card_DefineArrayFromOption ${card} ParametersFiles List
324	ListFilesName=${compname}_ParametersFiles_List
325	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
326
327	if [ X${FileName0} != X${NULL_STR} ] ; then
328	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
329
330	(( i=0 ))
331	until [ $i -ge $NbFiles ]; do
332	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
333	eval file_in=${file_in_}
334	(( i_ = i+1 ))
335	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
336	eval file_out=${file_out_}
337
338	IGCM_sys_Cp ${file_in} ${file_out}
339
340	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
341
342	(( i=i+2 ))
343	done
344	fi
345	done
346
347	IGCM_debug_PopStack "IGCM_comp_GetInputParametersFiles"
348	}
349
350	#=======================================================================
351	function IGCM_comp_GetInputRestartFiles
352	{
353	IGCM_debug_PushStack "IGCM_comp_GetInputRestartFiles"
354
355	# Debug Print :
356	echo
357	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles :"
358	echo
359
360	typeset Date_tmp Date_r Path_r do_start CompOldName
361	typeset comp compname comptagname card ListFilesName FileName0 NbFiles i i_
362	typeset file_in file_out file_in_ file_out_ file_in_Name
363
364	for comp in ${config_ListOfComponents[*]} ; do
365	# Define component
366	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
367	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
368
369	# Debug Print :
370	IGCM_debug_Print 3 "restart ${compname}"
371
372	card=${SUBMIT_DIR}/COMP/${compname}.card
373
374	if ( ${FirstInitialize} ) ; then
375
376	if [ "${config_Restarts_OverRule}" = "y" ] ; then
377	eval config_${comp}_Restart="y"
378	eval config_${comp}_RestartDate=${config_Restarts_RestartDate}
379	eval config_${comp}_RestartJobName=${config_Restarts_RestartJobName}
380	eval config_${comp}_RestartPath=${config_Restarts_RestartPath}
381	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
382	eval CompOldName=${comp}
383	else
384	# Read component Restarts parameters
385	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} Restart
386	eval do_start=\${config_${comp}_Restart} > /dev/null 2>&1
387
388	if [ "${do_start}" = "y" ] ; then
389	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartDate
390	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartJobName
391	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} RestartPath
392	else
393	eval config_${comp}_RestartDate=-1
394	eval config_${comp}_RestartJobName=${NULL_STR}
395	eval config_${comp}_RestartPath=${NULL_STR}
396	fi
397	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card ${comp} OldName
398	eval CompOldName=\${config_${comp}_OldName}
399	if [ X${CompOldName} = X ] ; then
400	eval CompOldName=${comp}
401	fi
402	fi
403
404	if [ "${do_start}" = "y" ] ; then
405
406	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
407	ListFilesName=${compname}_RestartFiles_List
408	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
409
410	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
411	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
412
413	(( i=1 ))
414	until [ $i -gt $NbFiles ]; do
415	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
416	eval file_in=${file_in_}
417
418	(( i_ = i+1 ))
419	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
420	eval file_out=${file_out_}
421
422	eval Date_tmp=\${config_${comp}_RestartDate}
423	Date_r=$( IGCM_date_ConvertFormatToGregorian ${Date_tmp} )
424	eval Path_r=\${config_${comp}_RestartPath}/\${config_${comp}_RestartJobName}/${CompOldName}/Restart
425	eval file_in_Name=\${config_${comp}_RestartJobName}_${Date_r}_${file_in}
426
427	eval IGCM_sys_Get ${Path_r}/${file_in_Name} ${file_out}
428
429	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
430
431	(( i=i+3 ))
432	done
433	else
434	if [ X${FileName0} != XNONE ] ; then
435	IGCM_debug_Exit "IGCM_comp_GetInputRestartFiles : No file in list for ${compname}."
436	else
437	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles : NONE specified in Restart List ${compname}."
438	fi
439	fi
440	fi
441	else
442	# if not FirstInitialize
443
444	# Restore Restarts files
445	#-----------------------
446	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
447	ListFilesName=${compname}_RestartFiles_List
448	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
449
450	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
451	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
452
453	(( i=1 ))
454	until [ $i -gt $NbFiles ]; do
455	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
456	eval file_in=${file_in_}
457	(( i_ = i+1 ))
458	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
459	eval file_out=${file_out_}
460
461	file_in_Name=${run_Configuration_OldPrefix}_${file_in}
462	eval IGCM_sys_Get \${R_OUT_${comp}_R}/${file_in_Name} ${file_out}
463
464	IGCM_comp_PrepareDeletedFiles ${file_in} ${file_out}
465
466	(( i=i+3 ))
467	done
468	else
469	if [ X${FileName0} != XNONE ] ; then
470	IGCM_debug_Exit "IGCM_comp_GetInputRestartFiles : No file in list for ${compname}."
471	else
472	IGCM_debug_Print 1 "IGCM_comp_GetInputRestartFiles : NONE specified in Restart List ${compname}."
473	fi
474	fi
475	fi
476	done
477	IGCM_sys_Chmod -R u+rw .
478
479	IGCM_debug_PopStack "IGCM_comp_GetInputRestartFiles"
480	}
481
482	#=======================================================================
483	function IGCM_comp_Update
484	{
485	IGCM_debug_PushStack "IGCM_comp_Update"
486
487	# Debug Print :
488	echo
489	IGCM_debug_Print 1 "IGCM_comp_Update :"
490	echo
491
492	typeset ExeNameIn ExeNameOut
493	typeset comp compname comptagname
494	for comp in ${config_ListOfComponents[*]} ; do
495	# Define component
496	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
497	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
498
499	# Copy executable for this component
500	eval ExeNameIn=\${config_Executable_${comp}[0]}
501	eval ExeNameOut=\${config_Executable_${comp}[1]}
502	if [ -f ${R_EXE}/${ExeNameIn} ] ; then
503	eval IGCM_sys_Cp ${R_EXE}/${ExeNameIn} ${ExeNameOut}
504	if [ -f ${RUN_DIR}/${ExeNameOut} ] ; then
505	eval IGCM_sys_Chmod +rx ${RUN_DIR}/${ExeNameOut}
506	fi
507	fi
508
509	# Debug Print
510	IGCM_debug_Print 3 "Update ${compname} Parameter Files."
511	# UPDATE component
512	${comp}_Update
513
514	done
515
516	IGCM_debug_PopStack "IGCM_comp_Update"
517	}
518
519	#=======================================================================
520	function IGCM_comp_Finalize
521	{
522	IGCM_debug_PushStack "IGCM_comp_Finalize"
523
524	# Debug Print :
525	echo
526	IGCM_debug_Print 1 "IGCM_comp_Finalize :"
527	echo
528
529	typeset ListTextName TextName0
530	typeset comp compname comptagname card ListFilesName FileName0 NbFiles
531	typeset i i_ file_in file_in_ file_out file_out_ generic_file_name nb_rebuild_file
532	for comp in ${config_ListOfComponents[*]} ; do
533	# Define component
534	eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
535	eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
536
537	# Debug Print
538	IGCM_debug_Print 1 "Finalize ${compname} component."
539	# FINALIZE component
540	${comp}_Finalize
541
542	card=${SUBMIT_DIR}/COMP/${compname}.card
543
544	# Save Restarts files
545	#--------------------
546	IGCM_card_DefineArrayFromOption ${card} RestartFiles List
547	ListFilesName=${compname}_RestartFiles_List
548	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
549
550	if ( [ X${FileName0} != X${NULL_STR} ] && [ X${FileName0} != XNONE ] ) ; then
551	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
552
553	(( i=0 ))
554	until [ $i -ge $NbFiles ]; do
555	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
556	eval file_in=${file_in_}
557
558	(( i_ = i+1 ))
559	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
560	eval file_out=${file_out_}
561
562	eval IGCM_sys_Put_Rest ${file_in} \${R_OUT_${comp}_R}/${config_UserChoices_JobName}_${PeriodDateEnd}_${file_out}
563
564	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
565
566	(( i=i+3 ))
567	done
568	else
569	if [ X${FileName0} != XNONE ] ; then
570	IGCM_debug_Exit "IGCM_comp_Finalize : No file in restart list for ${compname}."
571	else
572	IGCM_debug_Print 1 "IGCM_comp_Finalize : NONE specified in Restart List ${compname}."
573	fi
574	fi
575
576	# Save Output files
577	#------------------
578	IGCM_card_DefineArrayFromOption ${card} OutputFiles List
579	ListFilesName=${compname}_OutputFiles_List
580	eval FileName0=\${${ListFilesName}[0]} > /dev/null 2>&1
581
582	if [ X${FileName0} != X${NULL_STR} ] ; then
583	eval NbFiles=\${#${ListFilesName}[@]} > /dev/null 2>&1
584
585	(( i=0 ))
586	until [ $i -ge $NbFiles ]; do
587	eval file_in_=\${${ListFilesName}[$i]} > /dev/null 2>&1
588	eval file_in=${file_in_}
589	(( i_ = i+1 ))
590	eval file_out_=\${${ListFilesName}[$i_]} > /dev/null 2>&1
591	eval file_out=${file_out_}
592
593	generic_file_name=$( basename ${file_in} .nc )
594	nb_rebuild_file=$( ls \| grep "${generic_file_name}[_0-9]*.nc" \| wc -l )
595	if [ ${nb_rebuild_file} -gt 1 ] ; then
596	IGCM_debug_Print 2 "Rebuilding ${file_in}"
597	IGCM_sys_rebuild ${file_in} ${generic_file_name}_*.nc
598	# DEBUG Rebuild :
599	#eval IGCM_sys_Cp ${generic_file_name}_*.nc \${R_OUT_${comp}_O_M}/
600	elif [ -f ${generic_file_name}_0000.nc ] ; then
601	IGCM_sys_Mv ${generic_file_name}_0000.nc ${file_in}
602	fi
603
604	IGCM_sys_Put_Out ${file_in} ${file_out}
605	if [ $? -eq 0 ] ; then
606	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
607	if [ ${nb_rebuild_file} -gt 1 ] ; then
608	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=$( ls \| grep "${generic_file_name}_[0-9]*.nc" ) > /dev/null 2>&1
609	fi
610	fi
611	(( i=i+3 ))
612	done
613	fi
614
615	# Save Output Text files of models
616	#---------------------------------
617
618	IGCM_card_DefineArrayFromOption ${card} OutputText List
619	ListTextName=${compname}_OutputText_List
620
621	eval TextName0=\${${ListTextName}[0]} > /dev/null 2>&1
622	if [ X${TextName0} != X${NULL_STR} ] ; then
623	eval NbFiles=\${#${ListTextName}[@]} > /dev/null 2>&1
624
625	(( i=0 ))
626	until [ $i -eq $NbFiles ]; do
627	eval file_in=\${${ListTextName}[$i]} > /dev/null 2>&1
628	(( i=i+1 ))
629
630	nb_text_file=$( ls ${file_in}* 2>/dev/null \| wc -l )
631	if [ ${nb_text_file} -gt 1 ] ; then
632	list_file=$( ls ${file_in}* )
633	for file in ${list_file}
634	do
635	eval IGCM_sys_Put_Out ${file} \${R_OUT_${comp}_D}/${PREFIX}_${file}
636	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file}" > /dev/null 2>&1
637	done
638	else
639	if ( [ -f ${file_in}_0000 ] \|\| [ -f ${file_in}0 ] ) ; then
640	eval IGCM_sys_Mv ${file_in}* ${file_in}
641	fi
642	eval IGCM_sys_Put_Out ${file_in} \${R_OUT_${comp}_D}/${PREFIX}_${file_in}
643	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${file_in}" > /dev/null 2>&1
644	fi
645	done
646	fi
647	done
648
649	IGCM_debug_PopStack "IGCM_comp_Finalize"
650	}

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

Download in other formats: