Changeset 522 for trunk/libIGCM/libIGCM_date/libIGCM_date.ksh

Timestamp:

12/02/11 19:17:07 (12 years ago)

Author:

sdipsl

Message:

Source driver from ${SUBMIT_DIR}/DRIVER/ if it exists ; otherwise back to default
Add yyyymm_m1, yyyymm_p1, month_m1, month_p1 and day as available global variables. Needed by LMDZ-REPROBUS
Add IGCM_date_GetYearMonthDay function
JG

File:

• trunk/libIGCM/libIGCM_date/libIGCM_date.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_date/libIGCM_date.ksh

@@ -159 +159 @@
 
     IGCM_debug_PopStack "IGCM_date_GetYearMonth"
+}
+
+#==================================================================
+function IGCM_date_GetYearMonthDay
+{
+    IGCM_debug_PushStack "IGCM_date_GetYearMonthDay" $@
+
+    # from a yyyymmdd date format return 
+    # a yyyy year, mm month and dd day
+    # usage IGCM_date_GetYearMonthDay yyyymmdd year_var month_var day_var
+
+    # if there is no argument on the command line, 
+    # then assume that a yyyymmdd formated date is being 
+    # piped in
+    typeset dt
+    if [ $# = 0 ]
+        then
+        read dt
+    else
+        dt=$1
+    fi
+
+    # break the yyyymmdd into separate parts for year, month and day
+    eval $2=$( echo $( IGCM_date_GregorianDigit ${dt} ) \
+        | sed -e "s/\([0-9]\{${dY}\}\)\([0-9]\{2\}\)\([0-9]\{2\}\)/\1/" )
+    eval $3=$( echo $( IGCM_date_GregorianDigit ${dt} ) \
+        | sed -e "s/\([0-9]\{${dY}\}\)\([0-9]\{2\}\)\([0-9]\{2\}\)/\2/" )
+    eval $4=$( echo $( IGCM_date_GregorianDigit ${dt} ) \
+        | sed -e "s/\([0-9]\{${dY}\}\)\([0-9]\{2\}\)\([0-9]\{2\}\)/\3/" )
+
+    IGCM_debug_PopStack "IGCM_date_GetYearMonthDay"
 }