Context Navigation

source: trunk/libIGCM/libIGCM_config/libIGCM_config.ksh @ 616

Last change on this file since 616 was 616, checked in by sdipsl, 12 years ago
Merge libIGCM_MPI_OpenMP branch within the trunk trunk will shortly be tagged libIGCM_2.0_beta
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: 42.8 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_config_Initialize
16	{
17	IGCM_debug_PushStack "IGCM_config_Initialize"
18
19	# Debug Print :
20	echo
21	IGCM_debug_Print 1 "IGCM_config_Initialize"
22
23	if [ ! -r ${SUBMIT_DIR}/run.card ]; then
24	#================================================#
25	# The file run.card doesn't exist #
26	#================================================#
27	FirstInitialize=true
28	#copy initial run.card
29	IGCM_sys_Cp ${SUBMIT_DIR}/run.card.init ${SUBMIT_DIR}/run.card
30	IGCM_debug_Print 2 "run.card copied from run.card.init"
31	else
32	FirstInitialize=false
33	IGCM_debug_Print 2 "run.card exists"
34	fi
35
36	# Test modipsl tree existence.
37	IGCM_sys_TestDir ${MODIPSL}
38	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDir"
39	IGCM_sys_TestDir ${libIGCM}
40	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDir"
41	IGCM_sys_TestDir ${R_EXE}
42	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDir"
43	IGCM_sys_TestDir ${SUBMIT_DIR}
44	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDir"
45
46	if ( $DEBUG_debug ) ; then
47	echo "Keep trace of inital SUBMIT_DIR : "
48	ls -lta ${SUBMIT_DIR}
49	fi
50
51	#==================================
52
53	typeset option auxprint CompatibilityTag
54	# Read libIGCM compatibility version in config.card
55	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card Compatibility libIGCM
56	eval CompatibilityTag=${config_Compatibility_libIGCM} > /dev/null 2>&1
57
58	if [ ! "${CompatibilityTag}" = "${libIGCM_CurrentTag}" ] ; then
59	IGCM_debug_Exit "config.card is not compatible with libIGCM version ${libIGCM_CurrentTag} see libIGCM FAQ http://wiki.ipsl.jussieu.fr/wiki_ipsl/IGCMG/libIGCM/DocUtilisateur/FAQ ."
60	fi
61
62	#==================================
63	# Read UserChoices section:
64	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/config.card UserChoices
65
66	for option in ${config_UserChoices[*]} ; do
67	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card UserChoices ${option}
68	done
69	echo
70	IGCM_debug_Print 1 "DefineArrayFromOption : config_UserChoices"
71	# Name Space of this experience
72	if [ X${config_UserChoices_SpaceName} != X ] ; then
73	IGCM_debug_PrintVariables 3 config_UserChoices_SpaceName
74	fi
75	# Expericence class of the run
76	if [ X${config_UserChoices_ExperimentName} != X ] ; then
77	IGCM_debug_PrintVariables 3 config_UserChoices_ExperimentName
78	fi
79	IGCM_debug_PrintVariables 3 config_UserChoices_JobName
80	if [ 3 -le ${Verbosity} ] ; then
81	echo "--------------Debug3-->" "config_UserChoices_LongName="
82	echo "--------------Debug3-->" \"${config_UserChoices_LongName}\"
83	fi
84	IGCM_debug_PrintVariables 3 config_UserChoices_TagName
85	IGCM_debug_PrintVariables 3 config_UserChoices_CalendarType
86	IGCM_debug_PrintVariables 3 config_UserChoices_DateBegin
87	IGCM_debug_PrintVariables 3 config_UserChoices_DateEnd
88	IGCM_debug_PrintVariables 3 config_UserChoices_PeriodLength
89
90	#==================================
91	# Read Post section:
92	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/config.card Post
93	echo
94	IGCM_debug_Print 1 "DefineArrayFromOption : config_Post"
95
96	for option in ${config_Post[*]} ; do
97	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card Post ${option}
98	eval auxprint=\${config_Post_${option}}
99	IGCM_debug_Print 3 "${option} : ${auxprint}"
100	done
101
102	#==================================
103	# Define default value to keep compatibility with previous card: means before changes due to TGCC
104	[ X${config_Post_PackFrequency} = X ] && config_Post_PackFrequency=${config_Post_RebuildFrequency}
105
106	#==================================
107	# Read ListOfComponents section:
108	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/config.card ListOfComponents
109	for comp in ${config_ListOfComponents[*]} ; do
110	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/config.card ListOfComponents ${comp}
111	done
112
113	echo
114	IGCM_debug_Print 1 "DefineArrayFromSection : ListOfComponents"
115	IGCM_debug_Print 3 ${config_ListOfComponents[*]}
116
117	NbComponents=${#config_ListOfComponents[*]}
118
119	#==================================
120	# Define principal executable
121	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/config.card Executable
122	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card Executable Name
123
124	#==================================
125	# Define Outputs Name
126	IGCM_debug_Print 2 "Define Script_Output_Prefix and Exe_Output"
127	eval Script_Output_Prefix=${config_UserChoices_Script_Output_Prefix:='Script_Output'}
128	IGCM_debug_Print 3 "Script_Output_Prefix = ${Script_Output_Prefix}"
129	eval Exe_Output=out_${config_Executable_Name}
130	IGCM_debug_Print 3 "Exe_Output = ${Exe_Output}"
131
132	#===================================================================#
133	# Prepare variables available for ${COMP}.card and ${COMP}.driver #
134	# But available to any son functions #
135	#===================================================================#
136
137	# Convert yyyy-mm-dd date to gregorian yyyymmdd
138	DateBegin=$( IGCM_date_ConvertFormatToGregorian ${config_UserChoices_DateBegin} )
139	DateEnd=$( IGCM_date_ConvertFormatToGregorian ${config_UserChoices_DateEnd} )
140
141	# Period Length In Days between DateBegin and DateEnd
142	(( ExperienceLengthInDays=$( IGCM_date_DaysBetweenGregorianDate ${DateEnd} ${DateBegin} ) + 1 ))
143	if [ ${ExperienceLengthInDays} -lt 0 ] ; then
144	IGCM_debug_Print 1 "Problem with dates in config.card : ${DateEnd} < ${DateBegin} ! You must check that."
145	IGCM_debug_Exit "IGCM_config_Initialize" " Wrong Dates."
146	IGCM_debug_Verif_Exit
147	fi
148
149	# Day and Year of Initial State (Given in julian format)
150	InitDay=$(( $( IGCM_date_ConvertGregorianDateToJulian $DateBegin ) % 1000 ))
151	InitYear=$(( $( IGCM_date_ConvertGregorianDateToJulian $DateBegin ) / 1000 ))
152
153	#==================================
154	# Restarts : Gerneral rule or local for each component ?
155	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/config.card Restarts
156
157	echo
158	IGCM_debug_Print 1 "DefineArrayFromOption : config_Restarts"
159
160	for option in ${config_Restarts[*]} ; do
161	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/config.card Restarts ${option}
162	eval auxprint=\${config_Restarts_${option}}
163	IGCM_debug_Print 3 "${option} : ${auxprint}"
164	done
165
166	#================================================================#
167	# Test and Prepare directories #
168	#================================================================#
169
170	# ==> 4 kinds of input files :
171	# 1) R_INIT : Initial State Files (Etat0, carteveg)
172	# 2) R_BC : Boundary Conditions (Forcages, lai)
173	# 3) Parameters files (allready define through ${SUBMIT_DIR})
174	# 4) Restarts files (allready define in IGCM_config_Initialize)
175
176	# Here we offer the possibility to redefine R_INIT, R_BC
177	# and PeriodNb through config.card
178	R_INIT=${config_UserChoices_R_INIT:=${R_IN}/INIT}
179	IGCM_debug_Print 2 "(Re)Define R_INIT, R_BC and PeriodNb"
180	IGCM_debug_Print 3 "R_INIT=${R_INIT}"
181	R_BC=${config_UserChoices_R_BC:=${R_IN}/BC}
182	IGCM_debug_Print 3 "R_BC=${R_BC}"
183	PeriodNb=${config_UserChoices_PeriodNb:=${PeriodNb}}
184	IGCM_debug_Print 3 "Loop in main Job with ${PeriodNb} period(s)"
185
186	# Test Archive input/output.
187	IGCM_sys_TestDirArchive ${ARCHIVE}
188	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDirArchive"
189	IGCM_sys_TestDirArchive ${R_IN}
190	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDirArchive"
191
192	#====================================================
193	#R_SAVE : Job output directory
194	if ( [ ! X${config_UserChoices_SpaceName} = X ] && [ ! X${config_UserChoices_ExperimentName} = X ] ) ; then
195	FreeName=$( echo ${config_UserChoices_JobName} \| sed 's/.*_//' )
196	R_SAVE=${R_OUT}/${config_UserChoices_TagName}/${config_UserChoices_SpaceName}/${config_UserChoices_ExperimentName}/${FreeName}
197	R_FIGR=${R_FIG}/${config_UserChoices_TagName}/${config_UserChoices_SpaceName}/${config_UserChoices_ExperimentName}/${FreeName}
198	R_BUFR=${R_BUF}/${config_UserChoices_TagName}/${config_UserChoices_SpaceName}/${config_UserChoices_ExperimentName}/${FreeName}
199	R_DODS=${config_UserChoices_TagName}/${config_UserChoices_SpaceName}/${config_UserChoices_ExperimentName}/${FreeName}
200	else
201	R_SAVE=${R_OUT}/${config_UserChoices_TagName}/${config_UserChoices_JobName}
202	R_FIGR=${R_FIG}/${config_UserChoices_TagName}/${config_UserChoices_JobName}
203	R_BUFR=${R_BUF}/${config_UserChoices_TagName}/${config_UserChoices_JobName}
204	R_DODS=${config_UserChoices_TagName}/${config_UserChoices_JobName}
205	fi
206
207	if ( ${FirstInitialize} ) ; then
208	IGCM_sys_MkdirArchive ${R_SAVE}
209	IGCM_sys_Mkdir ${R_BUFR}
210	else
211	IGCM_sys_TestDirArchive ${R_SAVE}
212	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDirArchive ${R_SAVE}"
213
214	IGCM_sys_TestDir ${R_BUFR}
215	[ $? != 0 ] && IGCM_debug_Exit "IGCM_sys_TestDir ${R_BUFR}"
216
217	#Test state of run in run.card
218	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration PeriodState
219
220	if ( [ ${run_Configuration_PeriodState} != "Start" ] && [ ${run_Configuration_PeriodState} != "Running" ] && [ ${run_Configuration_PeriodState} != "OnQueue" ] && [ ${run_Configuration_PeriodState} != "Continue" ] ) ; then
221	echo
222	IGCM_debug_Print 1 "!! Error in run.card with PeriodState : " ${run_Configuration_PeriodState} "!!"
223	IGCM_debug_Print 1 "Try running ${libIGCM}/clean_month.job to fix this"
224	IGCM_debug_Exit
225	IGCM_debug_Verif_Exit
226	fi
227	fi
228
229	#====================================================
230	# Define REBUILD_DIR : where we store files needing rebuild process
231	if [ X${config_Post_RebuildFromArchive} = Xtrue ] ; then
232	REBUILD_DIR=${R_SAVE}/TMP
233	IGCM_sys_MkdirArchive ${REBUILD_DIR}
234	else
235	REBUILD_DIR=${BIG_DIR}/${config_UserChoices_TagName}/${config_UserChoices_JobName}
236	IGCM_sys_MkdirWork ${REBUILD_DIR}
237	fi
238
239	#====================================================
240	# Experience type : DEB(ug), DEV(elopment), RUN
241	if [ X${JobType} != XRUN ] ; then
242	echo
243	echo "===================================================="
244	echo "libIGCM JOB is NOT in RUN type mode."
245	echo "!! OUTPUT files will NOT be PROTECTED !!"
246	echo "Be carefull : you can ERASE the result of this job !"
247
248	case ${JobType} in
249	DEB)
250	echo "DEBUG mode : activation of 'set -vx' mode."
251	echo "DEBUG mode : no protection for output files."
252	echo "DEBUG mode : if active force asynchronous rebuild frequency to PeriodLength frequency."
253	;;
254	DEV)
255	echo "DEVelopment mode : no protection for output files."
256	echo "DEVelopment mode : if active force asynchronous rebuild frequency to PeriodLength frequency."
257	;;
258	esac
259
260	if ( [ X${config_Post_RebuildFrequency} != XNONE ] && [ ${DRYRUN} -eq 0 ] ) ; then
261	if [ X${config_Post_RebuildFrequency} != X${config_UserChoices_PeriodLength} ] ; then
262	echo "------------"
263	echo "WARNING : Job is NOT in RUN mode then we will force REBUILD Frequency"
264	echo " to PeriodLength : ${config_UserChoices_PeriodLength}"
265	echo "------------"
266	config_Post_RebuildFrequency=${config_UserChoices_PeriodLength}
267	fi
268	fi
269	echo "===================================================="
270	echo
271	fi
272
273	#====================================================
274	#R_OUT_KSH : Storage place for job output
275	#R_OUT_EXE : Storage place for binary used during simulation
276	R_OUT_KSH=${R_SAVE}/Out
277	R_OUT_EXE=${R_SAVE}/Exe
278
279	#====================================================
280	#R_BUF_KSH : Buffer place for job output
281	#R_BUF_EXE : Buffer place for binary used during simulation
282	R_BUF_KSH=${R_BUFR}/Out
283	R_BUF_EXE=${R_BUFR}/Exe
284
285	IGCM_debug_PopStack "IGCM_config_Initialize"
286	}
287
288	#===================================
289	function IGCM_config_Analyse_PeriodLength
290	{
291	IGCM_debug_PushStack "IGCM_config_Analyse_PeriodLength"
292
293	typeset i
294
295	# Determine number of day(s) in PeriodLength :
296	case ${config_UserChoices_PeriodLength} in
297	Y\|y)
298	PeriodLengthInYears=$( echo ${config_UserChoices_PeriodLength} \| sed -e 's/[yY]//' )
299	IGCM_debug_Print 2 "Number of years for PeriodLength : ${PeriodLengthInYears}"
300	PeriodLengthInDays=0
301	i=0
302	until [ $i -ge $PeriodLengthInYears ] ; do
303	(( PeriodLengthInDays = PeriodLengthInDays + $( IGCM_date_DaysInYear $(( year + i )) ) ))
304	(( i=i+1 ))
305	done
306	;;
307	M\|m)
308	PeriodLengthInMonths=$( echo ${config_UserChoices_PeriodLength} \| sed -e 's/[mM]//' )
309	IGCM_debug_Print 2 "Number of months for PeriodLength : ${PeriodLengthInMonths}"
310	PeriodLengthInDays=0
311	i=0
312	until [ $i -ge $PeriodLengthInMonths ] ; do
313	if [ $(( month + i )) -lt 13 ] ; then
314	(( PeriodLengthInDays = PeriodLengthInDays + $( IGCM_date_DaysInMonth $year $(( month + i )) ) ))
315	else
316	(( PeriodLengthInDays = PeriodLengthInDays + $( IGCM_date_DaysInMonth $year $(( month + i - 12 )) ) ))
317	fi
318	(( i=i+1 ))
319	done
320	;;
321	D\|d)
322	PeriodLengthInMonths=0
323	PeriodLengthInDays=$( echo ${config_UserChoices_PeriodLength} \| sed -e 's/[dD]//' );;
324	*)
325	IGCM_debug_Exit "IGCM_config_Analyse_PeriodLength " ${config_UserChoices_PeriodLength} " invalid period length : choose in Y, M, *D."
326	IGCM_debug_Verif_Exit ;;
327	esac
328
329	IGCM_debug_PopStack "IGCM_config_Analyse_PeriodLength"
330	}
331
332	#===================================
333	function IGCM_config_Check
334	{
335	IGCM_debug_PushStack "IGCM_config_Check"
336
337	# If one of the following modulo is not zero :
338	# we will issue an error then explain and exit in
339	# AA_job IGCM_debug_Verif_Exit call before binary submission
340
341	echo
342	IGCM_debug_Print 1 "IGCM_config_Check"
343	echo
344
345	typeset i
346
347	# Check RebuildFrequency against key frequencies : PeriodLength ; PackFrequency ; TimeSeriesFrequency ; SeasonalFrequency
348	if ( [ ! X${config_Post_RebuildFrequency} = X${NULL_STR} ] && [ ! X${config_Post_RebuildFrequency} = XNONE ] ) ; then
349	AsynchronousRebuild=true
350	IGCM_debug_Print 1 "Asynchronous rebuild has been activated."
351	echo
352	# modulo (RebuildFrequency and PeriodLength/TimeSeriesFrequency/SeasonalFrequency) must be zero
353	IGCM_debug_Print 1 "Check coherence between RebuildFrequency and PeriodLength"
354	IGCM_post_CheckModuloFrequency config_Post_RebuildFrequency config_UserChoices_PeriodLength
355	IGCM_debug_Print 1 "Check coherence between PackFrequency and RebuildFrequency"
356	IGCM_post_CheckModuloFrequency config_Post_PackFrequency config_Post_RebuildFrequency
357	IGCM_debug_Print 1 "Check coherence between TimeSeriesFrequency and RebuildFrequency"
358	IGCM_post_CheckModuloFrequency config_Post_TimeSeriesFrequency config_Post_RebuildFrequency
359	IGCM_debug_Print 1 "Check coherence between SeasonalFrequency and RebuildFrequency"
360	IGCM_post_CheckModuloFrequency config_Post_SeasonalFrequency config_Post_RebuildFrequency
361	else
362	AsynchronousRebuild=false
363	IGCM_debug_Print 1 "Asynchronous rebuild has not been activated"
364	IGCM_debug_Print 1 "Proceed with standard post-treatment pathway"
365	echo
366	#modulo (PeriodLength and TimeSeriesFrequency/SeasonalFrequency) must be zero
367	IGCM_debug_Print 1 "Check coherence between TimeSeriesFrequency and PeriodLength"
368	IGCM_post_CheckModuloFrequency config_Post_TimeSeriesFrequency config_UserChoices_PeriodLength
369	IGCM_debug_Print 1 "Check coherence between SeasonalFrequency and PeriodLength"
370	IGCM_post_CheckModuloFrequency config_Post_SeasonalFrequency config_UserChoices_PeriodLength
371	fi
372
373	# Check PackFrequency against other key frequencies
374	# Modulo (PackFrequency and TimeSeriesFrequency/SeasonalFrequency and PeriodLenght) must be zero
375	if ( [ ! X${config_Post_PackFrequency} = X${NULL_STR} ] && [ ! X${config_Post_PackFrequency} = XNONE ] ) ; then
376	Pack=true
377	#
378	IGCM_debug_Print 1 "Check coherence between PackFrequency and PeriodLength"
379	IGCM_post_CheckModuloFrequency config_Post_PackFrequency config_UserChoices_PeriodLength
380	IGCM_debug_Print 1 "Check coherence between TimeSeriesFrequency and PackFrequency"
381	IGCM_post_CheckModuloFrequency config_Post_TimeSeriesFrequency config_Post_PackFrequency
382	IGCM_debug_Print 1 "Check coherence between SeasonalFrequency and PackFrequency"
383	IGCM_post_CheckModuloFrequency config_Post_SeasonalFrequency config_Post_PackFrequency
384	else
385	Pack=false
386	fi
387
388	#modulo (TimeSeriesFrequency and all Chunck2D) must be zero
389	NbJob=${#CHUNCK2D_SIZE[@]}
390	i=0
391	until [ $i -ge $NbJob ]; do
392	value=${CHUNCK2D_SIZE[${i}]}
393	IGCM_debug_Print 1 "Check coherence between All Chunck2D frequency and TimeSeriesFrequency"
394	IGCM_post_CheckModuloFrequency value config_Post_TimeSeriesFrequency
395	case ${value} in
396	Y\|y) ;;
397	) IGCM_debug_Print 1 "All ChunckJob2D frequency must be expressed in year Y\|*y in comp.card"
398	IGCM_debug_Exit "This will stop the job" ;;
399	esac
400	(( i=i+1 ))
401	done
402
403	#modulo (TimeSeriesFrequency and all Chunck3D) must be zero
404	NbJob=${#CHUNCK3D_SIZE[@]}
405	i=0
406	until [ $i -ge $NbJob ]; do
407	value=${CHUNCK3D_SIZE[${i}]}
408	IGCM_debug_Print 1 "Check coherence between All Chunck3D frequency and TimeSeriesFrequency"
409	IGCM_post_CheckModuloFrequency value config_Post_TimeSeriesFrequency
410	case ${value} in
411	Y\|y) ;;
412	) IGCM_debug_Print 1 "All ChunckJob3D frequency must be expressed in year Y\|*y in comp.card"
413	IGCM_debug_Exit "This will stop the job" ;;
414	esac
415	(( i=i+1 ))
416	done
417
418	IGCM_debug_PopStack "IGCM_config_Check"
419	}
420
421	#===================================
422	function IGCM_config_PeriodStart
423	{
424	IGCM_debug_PushStack "IGCM_config_PeriodStart"
425
426	echo
427	IGCM_debug_Print 1 "IGCM_config_PeriodStart"
428	echo
429
430	if ( ${FirstInitialize} ) ; then
431	#================================================#
432	# Initialize date/period information #
433	#================================================#
434
435	IGCM_date_GetYearMonthDay $DateBegin year month day
436	IGCM_config_Analyse_PeriodLength
437
438	eval PeriodDateBegin=${DateBegin} > /dev/null 2>&1
439	PeriodDateEnd=$( IGCM_date_AddDaysToGregorianDate ${DateBegin} $(( ${PeriodLengthInDays} - 1 )) )
440	eval CumulPeriod=1 > /dev/null 2>&1
441
442	#=================================================#
443	# Write updated run.card #
444	#=================================================#
445
446	#Correct run.card Configuration for this period
447	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodDateBegin ${PeriodDateBegin}
448	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodDateEnd ${PeriodDateEnd}
449	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration CumulPeriod ${CumulPeriod}
450	if [ X$( grep "SubmitPath" ${SUBMIT_DIR}/run.card ) != X ] ; then
451	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration SubmitPath ${SUBMIT_DIR}
452	fi
453
454	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodState "Running"
455
456	else
457	#================================================#
458	# The file run.card allready exist #
459	#================================================#
460
461	#Test state of run in run.card
462	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration PeriodState
463	if ( [ ${run_Configuration_PeriodState} != "Running" ] && [ ${run_Configuration_PeriodState} != "OnQueue" ] && [ ${run_Configuration_PeriodState} != "Continue" ] ) ; then
464	echo
465	IGCM_debug_Print 1 "!! Error in run.card with PeriodState : " ${run_Configuration_PeriodState} "!!"
466	IGCM_debug_Print 1 "Try running ${libIGCM}/clean_month.job to fix this"
467	echo
468	IGCM_debug_Exit
469	IGCM_debug_Verif_Exit
470	fi
471
472	#===================================#
473	# Read updated run.card #
474	#===================================#
475
476	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration OldPrefix
477	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration PeriodDateBegin
478	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration PeriodDateEnd
479	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/run.card Configuration CumulPeriod
480
481	PeriodDateBegin=$( IGCM_date_ConvertFormatToGregorian ${run_Configuration_PeriodDateBegin} )
482	PeriodDateEnd=$( IGCM_date_ConvertFormatToGregorian ${run_Configuration_PeriodDateEnd} )
483	eval CumulPeriod="${run_Configuration_CumulPeriod}" > /dev/null 2>&1
484
485	LastPeriodDateEnd=$( echo ${run_Configuration_OldPrefix} \| sed -e "s/${config_UserChoices_JobName}_//" )
486
487	typeset LastDate
488	set +A LastDate -- $( echo ${LastPeriodDateEnd} \| sed -e "s/\([0-9]\{${dY}\}\)\([0-9]\{2\}\)\([0-9]\{2\}\)/\1 \2 \3/" )
489	LastYearDateEnd=${LastDate[0]}
490	LastMonthDateEnd=${LastDate[1]}
491	LastDayDateEnd=${LastDate[2]}
492
493	if [ ${Period} = 1 ]; then
494	# save last Job output
495	typeset LastPeriod iLastPeriod Last_Script_Output_Name
496	(( LastPeriod=CumulPeriod-PeriodNb ))
497	iLastPeriod=$( printf "%06d" ${LastPeriod} )
498	Last_Script_Output_Name="${Script_Output_Prefix}_${config_UserChoices_JobName}.${iLastPeriod}"
499	Last_run_card="run.card.${iLastPeriod}"
500	#eval ls -l ${SUBMIT_DIR}/${Last_Script_Output_Name}
501	#eval IGCM_sys_Put_Out ${SUBMIT_DIR}/${Last_Script_Output_Name} ${R_BUF_KSH}/${Last_Script_Output_Name} > /dev/null 2>&1
502	IGCM_debug_Print 2 "Try to save previous ksh job output"
503	IGCM_sys_Cd ${SUBMIT_DIR}/
504	IGCM_sys_PutBuffer_Out ${Last_Script_Output_Name} ${R_BUF_KSH}/${Last_Script_Output_Name}.$$ rw
505
506	IGCM_card_CheckConflict run.card
507	IGCM_sys_PutBuffer_Out ${SUBMIT_DIR}/run.card ${R_BUF_KSH}/${Last_run_card}.$$ rw
508
509	IGCM_sys_Cd ${RUN_DIR}
510	else
511	unset FileToBeDeleted
512	fi
513
514	IGCM_date_GetYearMonthDay $PeriodDateBegin year month day
515	IGCM_config_Analyse_PeriodLength
516
517	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodState "Running"
518
519	fi
520	OldPrefix=${config_UserChoices_JobName}_${PeriodDateEnd}
521
522	# BEGIN: SHOULD GO IN A FUNCTION FROM libIGCM_date.ksh
523	# Compute year_m1 and year_p1 (year minus 1Y and year plus 1Y)
524	year_m1=$(( year - 1 ))
525	year_p1=$(( year + 1 ))
526	# Compute month_m1 (month minus 1M)
527	# Compute yyyymm_m1 (yyyymm minus 1M)
528	month_m1=$(( month - 1 ))
529	if [ ${month_m1} = 0 ]; then
530	month_m1=12
531	yyyymm_m1=${year_m1}12
532	elif [ ${month_m1} -le 9 ]; then
533	month_m1=0${month_m1}
534	yyyymm_m1=${year}${month_m1}
535	else
536	yyyymm_m1=${year}${month_m1}
537	fi
538	# Compute month_p1 (month plus 1M)
539	# Compute yyyymm_p1 (yyyymm plus 1M)
540	month_p1=$(( month + 1 ))
541	if [ ${month_p1} = 13 ]; then
542	month_p1=01
543	yyyymm_p1=${year_p1}01
544	elif [ ${month_p1} -le 9 ]; then
545	month_p1=0${month_p1}
546	yyyymm_p1=${year}${month_p1}
547	else
548	yyyymm_p1=${year}${month_p1}
549	fi
550	#IGCM_debug_Print 1 "jg 1 month_m1 = ${month_m1} month_p1 = ${month_p1} "
551	#IGCM_debug_Print 1 "jg 1 calculate yyyymm_m1 = ${yyyymm_m1} "
552	#IGCM_debug_Print 1 "jg 1 calculate yyyymm_p1 = ${yyyymm_p1} "
553
554	# END: SHOULD GO IN A FUNCTION FROM libIGCM_date.ksh
555
556	#===================================================================#
557	# Prepare variables available for ${COMP}.card and ${COMP}.driver #
558	# But available to any son functions #
559	#===================================================================#
560
561	# Period Length In Days between DateBegin and DateCurrent (at end of period == PeriodDateEnd !)
562	(( SimulationLengthInDays = $( IGCM_date_DaysBetweenGregorianDate ${PeriodDateEnd} ${DateBegin} ) + 1 ))
563
564	# Debug Print :
565	IGCM_debug_Print 1 "IGCM_config_PeriodStart : Before Execution"
566	IGCM_debug_Print 1 "Year of simulation : ${year}"
567	IGCM_debug_Print 1 "Month of simulation : ${month}"
568	IGCM_debug_Print 1 "PeriodLengthInDays : ${PeriodLengthInDays}"
569	IGCM_debug_Print 1 "PeriodDateBegin : ${PeriodDateBegin}"
570	IGCM_debug_Print 1 "PeriodDateEnd : ${PeriodDateEnd}"
571	IGCM_debug_Print 1 "SimulationLengthInDays : ${SimulationLengthInDays}"
572	IGCM_debug_Print 1 "ExperienceLengthInDays : ${ExperienceLengthInDays}"
573
574	#================================================================#
575	# Prepare variables available for comp_finalyze #
576	#================================================================#
577
578	# Period for save files
579	eval DatesPeriod=${PeriodDateBegin}_${PeriodDateEnd} > /dev/null 2>&1
580
581	# Prefix for save files of this period
582	eval PREFIX=${config_UserChoices_JobName}_${DatesPeriod} > /dev/null 2>&1
583
584	# List of files that will be deleted in RUN_DIR after run
585	[ -f stack ] && FileToBeDeleted[0]="stack"
586
587	# Test if the same run as already been saved :
588	if [ X${JobType} = XRUN ] ; then
589	if [ ${DRYRUN} -le 0 ] ; then
590	if ( IGCM_sys_TestFileBuffer ${R_BUF_KSH}/${PREFIX}_${Exe_Output} ) ; then
591	IGCM_debug_Exit "IGCM_config_PeriodStart" "You are currently RErunning an old job."
592	IGCM_debug_Print 1 "Because of readonly permissions, you can't RErun a job when saved files"
593	IGCM_debug_Print 1 " are still in the ARCHIVE directory. You must deleted those files, or "
594	IGCM_debug_Print 1 " the whole ${R_SAVE} tree. See clean_month.job in ${libIGCM} directory."
595	IGCM_debug_Print 1 " This exit has been initiated because at least ${R_BUF_KSH}/${PREFIX}_${Exe_Output} exists."
596	IGCM_debug_Verif_Exit
597	fi
598	fi
599	else
600	if ( IGCM_sys_TestFileBuffer ${R_BUF_KSH}/${PREFIX}_${Exe_Output} ) ; then
601	IGCM_debug_Print 1 "IGCM_config_PeriodStart" "RErun an old job. Allowed in DEBUG or DEV mode."
602	fi
603	fi
604
605	typeset ExeNameIn ExeNameFirst CompNameFirst
606	typeset comp i
607	typeset tempvar tempvarMPI tempvarNOD NbElts j NbExec
608
609	(( PROCESSUS_NUMBER = 0 ))
610	(( i=0 ))
611	(( NbExec=0 ))
612
613	OK_PARA_MPI=false
614	OK_PARA_OMP=false
615	OK_PARA_NOD=false
616	OK_PARA_MPMD=false
617
618	for comp in ${config_ListOfComponents[*]} ; do
619
620	IGCM_debug_Print 1 ${comp}
621
622	eval ExeNameIn=\${config_Executable_${comp}[0]}
623
624	# NO order in config.card for parallelized values !
625	# just use suffix : MPI , OMP and NOD (for number of NODes.)
626
627	# NOD is the number of NODes allocated
628	eval ${comp}_PROC_NOD=0
629
630	# MPI is the number of MPI processus per nodes
631	eval ${comp}_PROC_MPI=0
632
633	# OMP is the number of OpenMP threads per MPI processus
634	eval ${comp}_PROC_OMP=0
635
636	# Only if we really have an executable for the component :
637	if [ X${ExeNameIn} != X\"\" ] ; then
638
639	# Keep the first executable found and the first CompName
640	ExeNameFirst=${ExeNameIn}
641	CompNameFirst=${comp}
642
643	# Are we a second executable?
644	(( NbExec = NbExec + 1 ))
645
646	# set 1 MPI task, 1 OpenMP thread and 1 node as default
647	eval ${comp}_PROC_MPI=1
648	eval ${comp}_PROC_OMP=1
649	eval ${comp}_PROC_NOD=1
650
651	eval NbElts=\${#config_Executable_${comp}[@]}
652
653	if [ ${NbElts} -ge 2 ] ; then
654	(( j = 2 ))
655
656	while [ $j -lt ${NbElts} ] ; do
657	eval tempvar=\${config_Executable_${comp}[${j}]}
658
659	if [ X${tempvar} = X ] ; then
660	echo "Error reading MPI/OMP parameters !!!"
661	echo "Check your config.card."
662	exit 1
663	fi
664
665	eval IGCM_debug_Print 2 ${tempvar}
666
667	case ${tempvar} in
668	[mM][pP][iI])
669	# Read MPI parameter for composante
670	eval ${comp}_PROC_MPI=$( echo ${tempvar} \| tr '[a-z]' '[A-Z]' \| sed -e "s/MPI//" )
671	OK_PARA_MPI=true;;
672	[oO][mM][pP])
673	# Read OMP parameter for composante
674	eval ${comp}_PROC_OMP=$( echo ${tempvar} \| tr '[a-z]' '[A-Z]' \| sed -e "s/OMP//" )
675	OK_PARA_OMP=true;;
676	[nN][oO][dD])
677	# Read NOD (NumBer of Nodes) parameter for composante
678	eval ${comp}_PROC_NOD=$( echo ${tempvar} \| tr '[a-z]' '[A-Z]' \| sed -e "s/NOD//" )
679	OK_PARA_NOD=true
680	OK_PARA_MPI=true;;
681	esac
682
683	(( j = j + 1 ))
684	done
685
686	fi
687
688	eval tempvarMPI=\${${comp}_PROC_MPI}
689	eval tempvarNOD=\${${comp}_PROC_NOD}
690	eval tempvarOMP=\${${comp}_PROC_OMP}
691
692	(( PROCESSUS_NUMBER = PROCESSUS_NUMBER + tempvarMPI * tempvarNOD * tempvarOMP ))
693
694	fi
695
696	(( i=i+1 ))
697	done
698
699	# set MPMD mode if more than 2 executable names.
700	[ ${NbExec} -ge 2 ] && OK_PARA_MPMD=true
701
702	# Verification of BATCH_NUM_PROC_TOT total number of processors set in job header.
703	if [ X${BATCH_NUM_PROC_TOT} != X ] ; then
704	# BATCH_NUM_PROC_TOT is set
705	if ( ${OK_PARA_MPI} ) ; then
706	IGCM_debug_Print 1 "MPI/OMP/NOD found into config.card and BATCH_NUM_PROC_TOT = ${BATCH_NUM_PROC_TOT} "
707	else
708	# with previous method.
709	if [ ${BATCH_NUM_PROC_TOT} -gt 1 ] ; then
710	# with more than 1 proc
711	if ( ${OK_PARA_MPMD} ) ; then
712	# with MPMD ie CPL/oasis method
713	echo "We will use default number of MPI tasks for this machine : "
714	echo "${DEFAULT_NUM_PROC_OCE} for OCE; "
715	echo "${DEFAULT_NUM_PROC_CPL} for CPL; "
716	echo "${DEFAULT_NUM_PROC_ATM} for ATM; "
717	echo "${DEFAULT_NUM_PROC_TOTAL} for the total number of processors; "
718	OK_PARA_MPI=true
719	CPL_PROC_MPI=${DEFAULT_NUM_PROC_CPL}
720	OCE_PROC_MPI=${DEFAULT_NUM_PROC_OCE}
721	ATM_PROC_MPI=${DEFAULT_NUM_PROC_ATM}
722	NUM_PROC_CPL=${DEFAULT_NUM_PROC_CPL} # for backward compatibility
723	NUM_PROC_OCE=${DEFAULT_NUM_PROC_OCE} # for backward compatibility
724	NUM_PROC_ATM=${DEFAULT_NUM_PROC_ATM} # for backward compatibility
725	PROCESSUS_NUMBER=${DEFAULT_NUM_PROC_TOTAL}
726	else
727	# with have only one executable
728	echo "We will use ${BATCH_NUM_PROC_TOT} MPI tasks for ${CompNameFirst} : ${config_Executable_Name} "
729	OK_PARA_MPI=true
730	eval ${CompNameFirst}_PROC_MPI=${BATCH_NUM_PROC_TOT}
731	PROCESSUS_NUMBER=${BATCH_NUM_PROC_TOT}
732	fi
733	else
734	PROCESSUS_NUMBER=1
735	fi
736	fi
737	# Verification with PBS parameter
738	if [ ${BATCH_NUM_PROC_TOT} -ne ${PROCESSUS_NUMBER} ] ; then
739	echo "Warning with parallelization parameters !"
740	echo "Job header variable BATCH_NUM_PROC_TOT = ${BATCH_NUM_PROC_TOT} "
741	echo "is the total number of _processors_ reserved."
742	echo "It is not equal to the sum of _processus_ = ${PROCESSUS_NUMBER}."
743	echo "We stop now."
744	exit 1
745	fi
746	else # BATCH_NUM_PROC_TOT=""
747	if ( ${OK_PARA_MPI} ) ; then
748	echo "You have not given a value of ${BATCH_NUM_PROC_TOT} processors,"
749	echo "but you have filled the parallel parameter in config->Executable->list."
750	echo "Please add BATCH_NUM_PROC_TOT variable in job header."
751	echo "We stop now."
752	exit 1
753	else
754	# sequential case !
755	if [ ${PROCESSUS_NUMBER} -eq 0 ] ; then
756	(( PROCESSUS_NUMBER = 1 ))
757	echo "PROCESSUS_NUMBER is all 0 (sequential use of old definition in config->Executable->list)."
758	echo "We set it to 1."
759	fi
760	fi
761	fi
762
763	IGCM_debug_Print 1 "MPI/OMP treatment PROCESSUS_NUMBER = ${PROCESSUS_NUMBER}"
764
765	IGCM_sys_build_execution_scripts
766
767	ExecutionFail=false
768
769	IGCM_debug_PopStack "IGCM_config_PeriodStart"
770	}
771
772	#===================================
773	function IGCM_config_SaveSourceModifications
774	{
775	IGCM_debug_PushStack "IGCM_config_SaveSourceModifications"
776
777	typeset ExeOutDateMax listVarEnv
778	ExeOutDateMax=$1
779
780	listVarEnv="ExeOutDateMax,R_OUT_EXE,PREFIX,SUBMIT_DIR"
781	IGCM_sys_RshMaster "\
782	. ${libIGCM}/libIGCM_sys/libIGCM_sys.ksh; \
783	export ExeOutDateMax=${ExeOutDateMax};\
784	export R_OUT_EXE=${R_OUT_EXE};\
785	export PREFIX=${PREFIX};\
786	export SUBMIT_DIR=${SUBMIT_DIR};\
787	export listVarEnv=${listVarEnv};\
788	Script_Output=out_SaveSourceModifications;\
789	IGCM_sys_Qsub ${libIGCM}/SaveSourceModifications.job ${ExeOutDateMax} ${R_OUT_EXE} ${PREFIX} ${SUBMIT_DIR}"
790
791	IGCM_debug_PopStack "IGCM_config_SaveSourceModifications"
792	}
793
794	#===================================
795	function IGCM_config_PeriodEnd
796	{
797	IGCM_debug_PushStack "IGCM_config_PeriodEnd"
798
799	echo
800	IGCM_debug_Print 1 "IGCM_config_PeriodEnd"
801	echo
802
803	#==================================#
804	# Save Job output #
805	#==================================#
806	IGCM_sys_PutBuffer_Out ${Exe_Output} ${R_BUF_KSH}/${PREFIX}_${Exe_Output}
807	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${Exe_Output}"
808
809	IGCM_card_CheckConflict run.card
810	IGCM_sys_PutBuffer_Out ${SUBMIT_DIR}/run.card ${R_BUF_KSH}/run.card rw
811
812	IGCM_debug_Print 1 "Check components binary : size and creation date"
813
814	typeset LS_comp LS_bin ExeDate ExeCpuLog NextExeSize LastCompExeSize
815	typeset comp i
816	typeset ExeNameIn ExeNameOut UpdateExe ExeSecDateMax
817
818	#==================================#
819	# Get last Exe Size #
820	#==================================#
821
822	(( i=0 ))
823	if ( ${FirstInitialize} ) ; then
824	run_Log_LastExeSize=""
825	for comp in ${config_ListOfComponents[*]} ; do
826	run_Log_LastExeSize[$i]=0
827	(( i=i+1 ))
828	done
829	else
830	IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/run.card Log LastExeSize
831	fi
832	#==================================#
833	# And Build ExeDate #
834	#==================================#
835
836	# ExeDate = ATM_Jun_12_09:34-SRF_Jun_12_09:34-OCE_Jun_12_09:34-ICE_Jun_12_09:34-CPL_Jun_12_09:33
837	# Would be nice to have next line but no way to format ls output (need to ls -l --time-style "+%Y-%m-%dT%H:%M")
838	# ExeDate = ATM_2009-06-12T09:34+SRF_2009-06-12T09:34+OCE_2009-06-12T09:34+ICE_2009-06-12T09:34+CPL_2009-06-12T09:34
839	ExeDate=""
840	NextExeSize="( "
841	(( i=0 ))
842	UpdateExe=false
843	(( ExeSecDateMax = 0 ))
844	for comp in ${config_ListOfComponents[*]} ; do
845
846	IGCM_debug_Print 3 ${comp}
847
848	eval ExeNameIn=\${config_Executable_${comp}[0]}
849	eval ExeNameOut=\${config_Executable_${comp}[1]}
850	# Only if we really have an executable for the component :
851	if [ X${ExeNameIn} = X\"\" ] ; then
852	# If there is no exe file for this component
853	(( ExeSize=0 ))
854	else
855	eval LS_bin=${R_EXE}/${ExeNameIn}
856	IGCM_sys_FileSize ${LS_bin} ExeSize
857
858	set +A LS_comp -- $( LC_TIME=en_US ls -l ${LS_bin} )
859	if [ X${ExeDate} = X ] ; then
860	# First component exe date
861	ExeDate=${comp}_${LS_comp[5]}_${LS_comp[6]}
862	else
863	ExeDate=${ExeDate}-${comp}_${LS_comp[5]}_${LS_comp[6]}
864	fi
865	ExeDate=${ExeDate}_${LS_comp[7]}
866	fi
867
868	if [ ${i} -eq 0 ] ; then
869	# First component
870	NextExeSize="( "${ExeSize}
871	else
872	NextExeSize=${NextExeSize}", "${ExeSize}
873	fi
874	eval LastCompExeSize=${run_Log_LastExeSize[$i]}
875	(( i=i+1 ))
876
877	if [ ${ExeSize} -ne ${LastCompExeSize} ] ; then
878	if ( ${FirstInitialize} ) ; then
879	IGCM_debug_Print 1 "Save first ${ExeNameIn} in ${R_OUT_EXE} !"
880	else
881	IGCM_debug_Print 1 "${ExeNameIn} has changed in ${R_EXE} !"
882	IGCM_debug_Print 1 "Save latest ${ExeNameIn} in ${R_OUT_EXE} !"
883	eval FileToBeDeleted[${#FileToBeDeleted[@]}]=${ExeNameOut}
884	fi
885	eval IGCM_sys_Put_Out ${ExeNameOut} ${R_OUT_EXE}/${PREFIX}_${ExeNameIn} rw
886	UpdateExe=true
887
888	IGCM_sys_GetDate_FichWork ${LS_bin} ExeSecDate
889	if [ $ExeSecDateMax -lt $ExeSecDate ] ; then
890	ExeSecDateMax=$ExeSecDate
891	fi
892	fi
893	done
894
895	# SD : switch off for now
896	# if ( ${UpdateExe} ) ; then
897	# echo "Launch SaveSourceModifications."
898	# IGCM_config_SaveSourceModifications ${ExeSecDateMax}
899	# fi
900
901	NextExeSize=${NextExeSize}" )"
902	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Log LastExeSize "${NextExeSize}"
903
904	if [ ${DRYRUN} -le 1 ] ; then
905	tail -1500 ${Exe_Output} > ${Exe_Output}_tail.txt
906	ExeCpuLog=$( gawk -f ${libIGCM}/libIGCM_sys/IGCM_add_out.awk ${Exe_Output}_tail.txt )
907	RET=$?
908	if [ $RET -eq 0 ] ; then
909	# ExeCpuLog variable contents 5 fields
910	echo "${CumulPeriod} ${PeriodDateBegin} ${PeriodDateEnd} ${ExeCpuLog} ${ExeDate}" \| \
911	gawk '{printf("# %11d \| %15s \| %15s \| %19s \| %19s \| %15.5f \| %15.5f \| %15.5f \| %s\n", \
912	$1,$2,$3,$4,$5,$6,$7,$8,$9)}' >> ${SUBMIT_DIR}/run.card
913	fi
914	eval FileToBeDeleted[${#FileToBeDeleted[@]}]="${Exe_Output}_tail.txt"
915	fi
916
917	# All was right ? no ? then we stop.
918	IGCM_debug_Verif_Exit
919
920	# If all was OK, we can delete all files not necessary for next Job
921	echo
922	IGCM_debug_Print 1 "Files that will be deleted before next period-run : "
923
924	if [ ${DRYRUN} -le 2 ] ; then
925	for f in ${FileToBeDeleted[@]} ; do [ -f ${f} ] && ls -la $f ; [ -f ${f} ] && rm -f $f ; done
926	else
927	echo ${FileToBeDeleted[@]}
928	fi
929
930	#=================================================#
931	# Modification of libIGCM behaviour #
932	#=================================================#
933
934	# To use this function, one must copy libIGCM.card from ${libIGCM} directory
935	# and put it in ${SUBMIT_DIR} directory. After modifications of ${SUBMIT_DIR}/libIGCM.card,
936	# variables define inside [UserChanges] will be modified for next Period of libIGCM main loop.
937	if [ -f ${SUBMIT_DIR}/libIGCM.card ] ; then
938	echo
939	echo "########################################################################"
940	echo "!!! Modification of libIGCM behaviour !!!"
941	echo
942
943	IGCM_debug_Print 1 "DefineArrayFromOption : libIGCM_UserChanges in libIGCM.card"
944	IGCM_card_DefineArrayFromSection ${SUBMIT_DIR}/libIGCM.card UserChanges
945	IGCM_debug_Print 2 "libIGCM_UserChanges" ${libIGCM_UserChanges[*]}
946
947	# Special treatments for libIGCM internals
948	for option in ${libIGCM_UserChanges[*]} ; do
949	IGCM_card_DefineVariableFromOption ${SUBMIT_DIR}/libIGCM.card UserChanges ${option}
950
951	echo "We will change : ${option}."
952	eval echo "Previous value : " \${${option}}
953	eval echo "Change to : " \${libIGCM_UserChanges_${option}}
954
955	eval ${option}=\${libIGCM_UserChanges_${option}}
956
957	case ${option} in
958	config_UserChoices_DateEnd)
959	IGCM_debug_PrintVariables 1 config_UserChoices_DateEnd
960	DateEnd=$( IGCM_date_ConvertFormatToGregorian ${config_UserChoices_DateEnd} )
961
962	# Period Length In Days between DateBegin and DateEnd
963	(( ExperienceLengthInDays=$( IGCM_date_DaysBetweenGregorianDate ${DateEnd} ${DateBegin} ) + 1 ))
964	if [ ${ExperienceLengthInDays} -lt 0 ] ; then
965	IGCM_debug_Print 1 "Problem with dates in libIGCM.card : ${DateEnd} < ${DateBegin} ! You must check that."
966	IGCM_debug_Exit "IGCM_PeriodEnd" " Wrong Dates."
967	IGCM_debug_Verif_Exit
968	fi
969	;;
970	config_UserChoices_PeriodLength)
971	IGCM_debug_Print 1 "Change config_UserChoices_PeriodLength=${config_UserChoices_PeriodLength}"
972	;;
973	PeriodNb)
974	IGCM_debug_Print 1 "Loop in main Job with ${PeriodNb} period(s)"
975	;;
976	config_Post_RebuildFrequency)
977	IGCM_debug_Print 1 "Change config_Post_RebuildFrequency=${config_Post_RebuildFrequency} : IGCM_post_Configure"
978	IGCM_post_Configure
979	;;
980	config_Post_TimeSeriesFrequency)
981	IGCM_debug_Print 1 "Change config_Post_TimeSeriesFrequency = ${config_Post_TimeSeriesFrequency} : IGCM_post_Initialize"
982	IGCM_post_Configure
983	;;
984	config_Post_SeasonalFrequency)
985	IGCM_debug_Print 1 "Change config_Post_SeasonalFrequency = ${config_Post_SeasonalFrequency} : IGCM_post_Initialize"
986	IGCM_post_Configure
987	;;
988	esac
989	done
990
991	echo
992	echo "########################################################################"
993	echo
994	fi
995
996	#=================================================#
997	# Determine next computed period #
998	#=================================================#
999
1000	PeriodDateBegin=$( IGCM_date_AddDaysToGregorianDate ${PeriodDateEnd} 1 )
1001	IGCM_date_GetYearMonthDay $PeriodDateBegin year month day
1002	year_m1=$(( year - 1 ))
1003	year_p1=$(( year + 1 ))
1004	IGCM_config_Analyse_PeriodLength
1005	PeriodDateEnd=$( IGCM_date_AddDaysToGregorianDate ${PeriodDateBegin} $(( ${PeriodLengthInDays} - 1 )) )
1006
1007	# Debug Print :
1008	echo
1009	IGCM_debug_Print 1 "IGCM_config_PeriodEnd : Preparing Next Execution"
1010	IGCM_debug_Print 1 "PeriodDateBegin : ${PeriodDateBegin}"
1011	IGCM_debug_Print 1 "PeriodDateEnd : ${PeriodDateEnd}"
1012	IGCM_debug_Print 1 "PeriodLengthInDays : ${PeriodLengthInDays}"
1013
1014	PeriodDateBegin=$( IGCM_date_ConvertFormatToHuman ${PeriodDateBegin} )
1015	PeriodDateEnd=$( IGCM_date_ConvertFormatToHuman ${PeriodDateEnd} )
1016
1017	(( CumulPeriod = CumulPeriod + 1 ))
1018
1019	# Debug Print :
1020	echo
1021	IGCM_debug_Print 3 "PeriodDateBegin Human : ${PeriodDateBegin}"
1022	IGCM_debug_Print 3 "PeriodDateEnd Human : ${PeriodDateEnd}"
1023	IGCM_debug_Print 3 "CumulPeriod : ${CumulPeriod}"
1024
1025	#=================================================#
1026	# Write updated run.card #
1027	#=================================================#
1028
1029	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration OldPrefix ${OldPrefix}
1030	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodDateBegin ${PeriodDateBegin}
1031	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodDateEnd ${PeriodDateEnd}
1032	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration CumulPeriod ${CumulPeriod}
1033
1034	if ( ${FirstInitialize} ) ; then
1035	# It's no more the first time
1036	FirstInitialize=false
1037	fi
1038
1039	IGCM_debug_PopStack "IGCM_config_PeriodEnd"
1040	}
1041
1042	#===================================
1043	function IGCM_config_Finalize
1044	{
1045	IGCM_debug_PushStack "IGCM_config_Finalize"
1046
1047	echo
1048	IGCM_debug_Print 1 "IGCM_config_Finalize"
1049	echo
1050
1051	if [ ${SimulationLengthInDays} -ge ${ExperienceLengthInDays} ] ; then
1052	#==========================#
1053	# End of entire simulation #
1054	#==========================#
1055
1056	# Mail notification
1057	IGCM_sys_SendMail
1058
1059	#
1060	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodState "Completed"
1061	IGCM_debug_Print 1 "Normal End of computation."
1062	if ( $DEBUG_debug ) ; then
1063	echo
1064	IGCM_debug_Print 1 "Your files on ${R_SAVE} :"
1065	IGCM_sys_Tree ${R_SAVE}
1066
1067	IGCM_debug_Print 1 "Your files on ${R_BUFR} :"
1068	IGCM_sys_Tree ${R_BUFR}
1069	fi
1070	else
1071	#=================#
1072	# Submit next job #
1073	#=================#
1074
1075	IGCM_card_WriteOption ${SUBMIT_DIR}/run.card Configuration PeriodState "OnQueue"
1076
1077	# Name of next Ksh Script output :
1078	eval Script_Output="${Script_Output_Prefix}_${config_UserChoices_JobName}.$( printf "%06d" ${CumulPeriod} )"
1079
1080	IGCM_debug_Print 1 "Submit next job"
1081	# SUBMIT NEXT JOB from SUBMIT_DIR and come back in RUN_DIR
1082	IGCM_sys_Cd ${SUBMIT_DIR}
1083	# Keep only the 5 latest ${Script_Output_Prefix}_${config_UserChoices_JobName}
1084	ScriptTot=$( ls ${Script_Output_Prefix}_${config_UserChoices_JobName}.?????? 2>/dev/null \| wc -l )
1085	[ ${ScriptTot} -gt 5 ] && rm -f $( ls ${Script_Output_Prefix}_${config_UserChoices_JobName}.?????? \| head -$(( ${ScriptTot} - 5 )) )
1086	# Submit next job and come back
1087	IGCM_sys_Qsub ${SUBMIT_DIR}/Job_${config_UserChoices_JobName}
1088	IGCM_sys_Cd -
1089	fi
1090
1091	# Supress Non Deleted Boundary files
1092	if [ ${DRYRUN} -le 2 ] ; then
1093	IGCM_comp_DelFixeBoundaryFiles
1094	ls -la
1095	fi
1096
1097	# Clean ${RUN_DIR}=${RUN_DIR_PATH}/${config_UserChoices_TagName}/${config_UserChoices_JobName}
1098	# Only for production run (No clean up in DEV or DEB mode)
1099	# and command sent from .. directory.
1100	IGCM_sys_Cd ..
1101	[ X${JobType} = XRUN ] && IGCM_sys_Rm -rf ${RUN_DIR}
1102
1103	IGCM_debug_PopStack "IGCM_config_Finalize"
1104	}
1105
1106	#===================================

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

Download in other formats: