Changeset 723

Timestamp:

10/17/12 13:03:08 (12 years ago)

Author:

sdipsl

Message:

• reduce some variables scope. No side effect observed up to now. Luckily.

File:

• trunk/libIGCM/libIGCM_date/libIGCM_date.ksh (modified) (9 diffs)

trunk/libIGCM/libIGCM_date/libIGCM_date.ksh

@@ -44 +44 @@
   IGCM_debug_PushStack "IGCM_date_YearDigit" $@
 
+  typeset NUM
+
   NUM=$(( 10#${1} ))
   echo $( gawk "BEGIN { printf \"%0${dY}d\",${NUM} }" )
@@ -54 +56 @@
 {
   IGCM_debug_PushStack "IGCM_date_GregorianDigit" $@
+
+  typeset NUM
 
   NUM=$(( 10#${1} ))
@@ -377 +381 @@
   # Use IGCM_date_DaysInYear to get the number of days in the year and return a value
   # accordingly.
+
   IGCM_date_DaysInYear $y diy
   case $diy in
@@ -639 +644 @@
     IGCM_debug_Exit "IGCM_date_DaysBetweenJulianDate"
   fi
+
+  typeset jul1 jul2 yyyy1 yyyy2 ddd1 ddd2 res
 
   # This process subtracts arg2 from arg1. If arg2 is larger
@@ -684 +691 @@
   esac
 
-
   # if argument 2 was larger than argument 1 then
   # the arguments were reversed before calculating
@@ -728 +734 @@
     IGCM_debug_Exit "IGCM_date_DaysBetweenGregorianDate"
   fi
+
+  typeset grg1 grg2 jul1 jul2 res
 
   # convert each date to julian
@@ -834 +842 @@
 function IGCM_date_DaysInPreviousPeriod {
   IGCM_debug_PushStack "IGCM_date_DaysInPreviousPeriod" $@
-  typeset Length Period
+
+  typeset Length Period year0 year month i
+
   Period=${2}
   case ${Period} in
@@ -896 +906 @@
 function IGCM_date_DaysInNextPeriod {
   IGCM_debug_PushStack "IGCM_date_DaysInNextPeriod" $@
-  typeset Length Period
+
+  typeset Length Period year0 year month i
+
   Period=${2}
   case ${Period} in
@@ -953 +965 @@
 function IGCM_date_DaysInCurrentPeriod {
   IGCM_debug_PushStack "IGCM_date_DaysInCurrentPeriod" $@
-  typeset Length Period 
+
+  typeset Length Period year0 year month i
+
   Period=${2}
   case ${Period} in