Changeset 3755 for CONFIG/UNIFORM/v6/IPSLCM6/GENERAL/DRIVER/lmdz.driver

Timestamp:

04/13/18 12:15:15 (6 years ago)

Author:

lfairhead

Message:

Modifications to read orbital parameters in text files. If files not present, values
are the defaults given in the config*def file

14. Lebas

File:

• CONFIG/UNIFORM/v6/IPSLCM6/GENERAL/DRIVER/lmdz.driver (modified) (1 diff)

CONFIG/UNIFORM/v6/IPSLCM6/GENERAL/DRIVER/lmdz.driver

@@ -159 +159 @@
     IGCM_comp_modifyDefFile nonblocker config.def solaire $value
 
+    # Read value for eccentricity from file Eccentricity.txt. If file not existing, take DEFAULT value from file.
+    if [ -f Eccentricity.txt ] ; then
+        value=`grep Annee_${year} Eccentricity.txt | awk -F= '{print $2}'`
+        if [ X"${value}" = X ] ; then
+            # The grep returned empty variable, stop execution
+            IGCM_debug_Exit "The file Eccentricity.txt do not contain the current year."
+            IGCM_debug_Verif_Exit
+        fi
+    else
+        value=DEFAULT
+    fi
+    IGCM_comp_modifyDefFile nonblocker config.def R_ecc $value
+
+    # Read value for obliquity from file Obliquity.txt. If file not existing, take DEFAULT value from file.
+    if [ -f Obliquity.txt ] ; then
+        value=`grep Annee_${year} Obliquity.txt | awk -F= '{print $2}'`
+        if [ X"${value}" = X ] ; then
+            # The grep returned empty variable, stop execution
+            IGCM_debug_Exit "The file Obliquity.txt do not contain the current year."
+            IGCM_debug_Verif_Exit
+        fi
+    else
+        value=DEFAULT
+    fi
+    IGCM_comp_modifyDefFile nonblocker config.def R_incl $value
+
+    # Read value for perihelie from file Perihelie.txt. If file not existing, take DEFAULT value from file.
+    if [ -f Perihelie.txt ] ; then
+        value=`grep Annee_${year} Perihelie.txt | awk -F= '{print $2}'`
+        if [ X"${value}" = X ] ; then
+            # The grep returned empty variable, stop execution
+            IGCM_debug_Exit "The file Perihelie.txt do not contain the current year."
+            IGCM_debug_Verif_Exit
+        fi
+    else
+        value=DEFAULT
+    fi
+    IGCM_comp_modifyDefFile nonblocker config.def R_peri $value
 
     # Read value for co2_ppm from file CO2.txt. If file not existing, take DEFAULT value from file.