Changeset 269 for trunk

Timestamp:

05/06/10 16:28:09 (14 years ago)

Author:

mmaipsl

Message:

BIG IMPROVMENT :
Add new function IGCM_comp_PeriodStart to the main loop.
This function is called after IGCM_config_PeriodStart, then all Period and date
variables will be set correctly. And it is used before libIGCM read INIT and BC component's lists.
It will read new (and optionnal) component function ${compname}_PeriodStart function
in each ${compname}.driver files. Those new functions will give you the possibility
to set some variables used inside BC or INIT list.
For example :
in my orchidee.card, I want to change a file in BC list during the run and that depends on the year
[BoundaryFiles?]
List= (${BC_SRF_PFTmap} PFTmap.nc)
ListNonDel?= ()
(! remark that I must have suppressed the comma in the List !)

I set this variable in my orchidee.driver like that :
function SRF_PeriodStart
{

IGCM_debug_PushStack "SRF_PeriodStart"
if [ ${year} -gt 1994 ] ; then

PFTmap="${R_BC}/SRF/${config_UserChoices_TagName}/ORCHIDEE_PFTmap_2006to2100_AR5_RCP8.5_MESSAGE.nc"
if [ ${year} -eq 1995 ] ; then

IGCM_sys_Rm -f PFTmap.nc
BC_SRF_PFTmap=${PFTmap}

fi

else

PFTmap="${R_BC}/SRF/${config_UserChoices_TagName}/ORCHIDEE_PFTmap_1850to2005_AR5_LUHa.rc2.nc"

fi
IGCM_debug_PopStack "SRF_PeriodStart"

}

Then I can change the LAND USE file without stopping my job.

Location:

trunk/libIGCM

Files:

• AA_job (modified) (1 diff)
• libIGCM_comp/libIGCM_comp.ksh (modified) (1 diff)

trunk/libIGCM/AA_job

@@ -292 +292 @@
     #D-
     # ------------------------------------------------------------------
+    #D- Optionnal function in driver 
+    #D- to set special variables used in forward lists (Param, Init or Bc).
+    # ------------------------------------------------------------------
+    IGCM_comp_PeriodStart
+    
+    #D-
+    # ------------------------------------------------------------------
     #D- Get parameters text files updated by job (.def, namelist ...)
     #D- READ AND USE BY GCM AT EACH EXECUTION.

trunk/libIGCM/libIGCM_comp/libIGCM_comp.ksh

@@ -709 +709 @@
 
 #=======================================================================
+function IGCM_comp_PeriodStart
+{
+    IGCM_debug_PushStack "IGCM_comp_PeriodStart"
+
+    # Debug Print :
+    echo
+    IGCM_debug_Print 1 "IGCM_comp_PeriodStart :"
+    echo
+
+    typeset ExeNameIn ExeNameOut 
+    typeset comp compname comptagname
+    for comp in ${config_ListOfComponents[*]} ; do
+        # Define component 
+        eval compname=\${config_ListOfComponents_${comp}[0]} > /dev/null 2>&1
+        eval comptagname=\${config_ListOfComponents_${comp}[1]} > /dev/null 2>&1
+
+        # Copy executable for this component
+        eval ExeNameIn=\${config_Executable_${comp}[0]}
+        eval ExeNameOut=\${config_Executable_${comp}[1]}
+
+        # Debug Print
+        IGCM_debug_Print 3 "PeriodStart ${compname} Driver Function (if any)."
+        # UPDATE component
+        ${comp}_PeriodStart 2> /dev/null
+
+    done
+
+    IGCM_debug_PopStack "IGCM_comp_PeriodStart"
+}
+
+#=======================================================================
 function IGCM_comp_Update
 {