Changeset 1038 for CONFIG/IPSLCM/IPSLCM5A/piControl/COMP/orchidee.driver

Timestamp:

05/25/10 10:42:13 (15 years ago)

Author:

mmaipsl

Message:

Change WRITE_STEP for SECHIBA and STOMATE to -1 (real monthly mean) if asked write frequency is "1M".

File:

• CONFIG/IPSLCM/IPSLCM5A/piControl/COMP/orchidee.driver (modified) (2 diffs)

CONFIG/IPSLCM/IPSLCM5A/piControl/COMP/orchidee.driver

@@ -34 +34 @@
     typeset SECHIBA_WRITE_STEP
 
-    case ${config_SRF_WriteFrequency} in
+    SRF_WriteFrequency=$( echo ${config_SRF_WriteFrequency} | sed -e 's/\([0-9]*[yYmMdDs]\).*/\1/' ) 
+    case ${SRF_WriteFrequency} in
         *Y|*y) 
-            WriteInYears=$( echo ${1} | awk -F '[yY]' "{print ${config_SRF_WriteFrequency}}" )
-            PeriodLengthInYears=$( echo ${1} | awk -F '[yY]' "{print ${config_UserChoices_PeriodLength}}" )
+            WriteInYears=$( echo ${SRF_WriteFrequency} | awk -F '[yY]' '{print $1}' )
+            PeriodLengthInYears=$( echo ${config_UserChoices_PeriodLength} | awk -F '[yY]' '{print $1}' )
             (( SECHIBA_WRITE_STEP = PeriodLengthInDays * WriteInYears / PeriodLengthInYears * 86400 )) ;;
-        *M|*m) 
-            WriteInMonths=$( echo ${1} | awk -F '[mM]' "{print ${config_SRF_WriteFrequency}}" )
+        1M)
             case ${config_UserChoices_PeriodLength} in
             *Y|*y)
-                PeriodLengthInYears=$( echo ${1} | awk -F '[yY]' "{print ${config_UserChoices_PeriodLength}}" )
+                SECHIBA_WRITE_STEP=-1.
+                ;;
+            *M|*m)
+                SECHIBA_WRITE_STEP=-1.
+                ;;
+            *)
+                (( SECHIBA_WRITE_STEP = $( IGCM_date_DaysInMonth $year $month ) * 86400 ))
+                ;;
+            esac
+            ;;
+        *M|*m) 
+            WriteInMonths=$( echo ${SRF_WriteFrequency} | awk -F '[mM]' '{print $1}' )
+            case ${config_UserChoices_PeriodLength} in
+            *Y|*y)
+                PeriodLengthInYears=$( echo ${config_UserChoices_PeriodLength} | awk -F '[yY]' '{print $1}' )
                 (( SECHIBA_WRITE_STEP = PeriodLengthInDays * 86400 / PeriodLengthInYears / 12  ))
                 ;;
             *M|*m)
-                PeriodLengthInMonths=$( echo ${1} | awk -F '[mM]' "{print ${config_UserChoices_PeriodLength}}" )
+                PeriodLengthInMonths=$( echo ${config_UserChoices_PeriodLength} | awk -F '[mM]' '{print $1}' )
                 (( SECHIBA_WRITE_STEP = PeriodLengthInDays * WriteInMonths  * 86400 / PeriodLengthInMonths  ))
                 ;;
@@ -60 +74 @@
             (( SECHIBA_WRITE_STEP = 86400 )) ;;
         *s)
-            WriteInSeconds=$( echo ${1} | awk -F '[s]' "{print ${config_SRF_WriteFrequency}}" )
+            WriteInSeconds=$( echo ${SRF_WriteFrequency} | awk -F '[s]' '{print $1}' )
             (( SECHIBA_WRITE_STEP = WriteInSeconds )) ;;
         *) 
-            IGCM_debug_Exit "SRF_Update " ${config_SRF_WriteFrequency} " invalid WriteFrequency : choose in 1Y, 1M, 5D, 1D." 
+            IGCM_debug_Exit "SRF_Update " ${SRF_WriteFrequency} " invalid WriteFrequency : choose in 1Y, 1M, 5D, 1D." 
             IGCM_debug_Verif_Exit ;;
     esac