1 | #!/bin/ksh |
---|
2 | #----------------------------------- |
---|
3 | CPL_Initialize () |
---|
4 | { |
---|
5 | |
---|
6 | IGCM_debug_PushStack "CPL_Initialize" |
---|
7 | |
---|
8 | echo INITIALIZE CPL !!! |
---|
9 | |
---|
10 | #D- MPI context used to launch the coupled model |
---|
11 | LIBMPI=$(cat ${SUBMIT_DIR}/../.libmpi) |
---|
12 | echo LIBMPI=${LIBMPI} |
---|
13 | |
---|
14 | IGCM_sys_build_run_file ${LIBMPI} |
---|
15 | |
---|
16 | IGCM_debug_PopStack "CPL_Initialize" |
---|
17 | |
---|
18 | } |
---|
19 | |
---|
20 | #----------------------------------- |
---|
21 | CPL_Update () |
---|
22 | { |
---|
23 | |
---|
24 | IGCM_debug_PushStack "CPL_Update" |
---|
25 | |
---|
26 | ############ Update Time and Counters ############## |
---|
27 | ##-- Calcul de la duree du job (en secondes) |
---|
28 | (( D_JOB_SEC = 3600 * 24 * PeriodLengthInDays )) |
---|
29 | |
---|
30 | ############ Update Other Parameters ############## |
---|
31 | |
---|
32 | ############ Update Parameter Files ############## |
---|
33 | sed -e "s/<initial_date>/${PeriodDateBegin}/" \ |
---|
34 | -e "s/<total_time>/${D_JOB_SEC}/" \ |
---|
35 | -e "s/<lib_mpi>/${LIBMPI}/" \ |
---|
36 | -e "s/<nproc_atm>/${NUM_PROC_ATM}/g" \ |
---|
37 | -e "s/<nproc_oce>/${NUM_PROC_OCE}/g" \ |
---|
38 | namcouple > namcouple.tmp |
---|
39 | |
---|
40 | IGCM_sys_Mv namcouple.tmp namcouple |
---|
41 | # Unused files we want to remove |
---|
42 | eval FileToBeDeleted[${#FileToBeDeleted[@]}]=trace |
---|
43 | eval FileToBeDeleted[${#FileToBeDeleted[@]}]=gweights |
---|
44 | eval FileToBeDeleted[${#FileToBeDeleted[@]}]=mweights |
---|
45 | eval FileToBeDeleted[${#FileToBeDeleted[@]}]=anaisout |
---|
46 | |
---|
47 | IGCM_debug_PopStack "CPL_Update" |
---|
48 | } |
---|
49 | |
---|
50 | #----------------------------------- |
---|
51 | CPL_Finalize () |
---|
52 | { |
---|
53 | |
---|
54 | IGCM_debug_PushStack "CPL_Finalize" |
---|
55 | |
---|
56 | echo FINALIZE CPL !!! |
---|
57 | |
---|
58 | IGCM_debug_PopStack "CPL_Finalize" |
---|
59 | |
---|
60 | } |
---|