source: tags/libIGCM_v1/libIGCM_comp/libIGCM_comp.ksh @ 1456

Last change on this file since 1456 was 2, checked in by mmaipsl, 16 years ago

MM: import first trunk version of libIGCM.
File size: 20.7 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: 2008/01/28 02:50:21 $
7# $Name: libIGCM_v1 $
8# $Revision: 1.28 $
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#========================================================================
17function 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#=======================================================================
116function 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#=======================================================================
130function 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#=======================================================================
200function 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#=======================================================================
287function 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#=======================================================================
303function 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#=======================================================================
351function 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#=======================================================================
483function 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#=======================================================================
520function 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.