1 | #!/bin/ksh |
---|
2 | |
---|
3 | #----------------------------------- |
---|
4 | function MBG_Initialize |
---|
5 | { |
---|
6 | IGCM_debug_PushStack "MBG_Initialize" |
---|
7 | IGCM_debug_PopStack "MBG_Initialize" |
---|
8 | } |
---|
9 | |
---|
10 | #----------------------------------- |
---|
11 | function MBG_Update |
---|
12 | { |
---|
13 | IGCM_debug_PushStack "MBG_Update" |
---|
14 | |
---|
15 | |
---|
16 | ##--Write Frequency Purpose |
---|
17 | Nbfreq=$( echo ${config_MBG_WriteFrequency} | wc -w ) |
---|
18 | typeset -Z1 i=1 |
---|
19 | while [ $i -le ${Nbfreq} ]; do |
---|
20 | topfrequency=$( echo ${config_MBG_WriteFrequency} | awk -v var="$i" "-F " '{print $var}' ) |
---|
21 | topfactor=$( echo ${topfrequency} | sed -e "s/[yYmMdD]//" ) |
---|
22 | case ${topfrequency} in |
---|
23 | *Y|*y) |
---|
24 | eval PREFIX_WFT${i}=${config_UserChoices_JobName}_${topfactor}y_${DatesPeriod} ; |
---|
25 | eval R_OUT_MBG_WFT${i}=${R_OUT_MBG_O_Y} ; |
---|
26 | eval WFT${i}=${topfactor}Y ;; |
---|
27 | *M|*m) |
---|
28 | eval PREFIX_WFT${i}=${config_UserChoices_JobName}_${topfactor}m_${DatesPeriod} ; |
---|
29 | eval R_OUT_MBG_WFT${i}=${R_OUT_MBG_O_M} ; |
---|
30 | eval WFT${i}=${topfactor}M ;; |
---|
31 | *D|*d) |
---|
32 | eval PREFIX_WFT${i}=${config_UserChoices_JobName}_${topfactor}d_${DatesPeriod} ; |
---|
33 | eval R_OUT_MBG_WFT${i}=${R_OUT_MBG_O_D} ; |
---|
34 | eval WFT${i}=${topfactor}D ;; |
---|
35 | *) |
---|
36 | esac |
---|
37 | let i=$i+1 |
---|
38 | done |
---|
39 | |
---|
40 | ##-- Restart configuration |
---|
41 | if ( [ "${CumulPeriod}" -eq 1 ] && [ "${config_MBG_Restart}" = "n" ] ) ; then |
---|
42 | |
---|
43 | #echo "NO RESTART FOR TOP" |
---|
44 | TOP_LRSTTR=.FALSE. |
---|
45 | TOP_NRSTTR=0 |
---|
46 | |
---|
47 | elif ( [ "${CumulPeriod}" -eq 1 ] && [ "${config_MBG_Restart}" = "y" ] ) ; then |
---|
48 | |
---|
49 | #echo "RESTART TOP" |
---|
50 | TOP_LRSTTR=.TRUE. |
---|
51 | TOP_NRSTTR=0 |
---|
52 | |
---|
53 | else |
---|
54 | |
---|
55 | #echo "RESTART TOP" |
---|
56 | TOP_LRSTTR=.TRUE. |
---|
57 | TOP_NRSTTR=2 |
---|
58 | |
---|
59 | fi |
---|
60 | |
---|
61 | # on force les sorties PISCES comme les sorties OPA |
---|
62 | |
---|
63 | IGCM_comp_modifyNamelist blocker namelist_top_cfg ln_rsttr ${TOP_LRSTTR} |
---|
64 | IGCM_comp_modifyNamelist blocker namelist_top_cfg nn_rsttr ${TOP_NRSTTR} |
---|
65 | |
---|
66 | IGCM_debug_PopStack "MBG_Update" |
---|
67 | } |
---|
68 | |
---|
69 | #----------------------------------- |
---|
70 | function MBG_Finalize |
---|
71 | { |
---|
72 | IGCM_debug_PushStack "MBG_Finalize" |
---|
73 | |
---|
74 | echo FINALIZE MBG !!! |
---|
75 | |
---|
76 | IGCM_debug_PopStack "MBG_Finalize" |
---|
77 | } |
---|
78 | |
---|