New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
user/flavoni/libIGCM/iom_put (diff) – NEMO

Changes between Version 14 and Version 15 of user/flavoni/libIGCM/iom_put


Ignore:
Timestamp:
2009-10-20T16:21:14+02:00 (15 years ago)
Author:
flavoni
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • user/flavoni/libIGCM/iom_put

    v14 v15  
    7979 IGCM_sys_Mv iodef.xml.tmp iodef.xml [[BR]] 
    8080 
     81 * ''' libIGCM_config.ksh'''  
    8182 
     83 # Determine number of day(s) in WriteFrequency :  [[BR]] 
     84 \${config_${comp}_WriteFrequency}  [[BR]] 
     85 case ${config_OCE_WriteFrequency} in  [[BR]] 
     86     *Y|*y)  [[BR]] 
     87      WriteFrequencyInYears=$( echo ${config_OCE_WriteFrequency} | sed -e 's/[yY]//' ) [[BR]] 
     88      IGCM_debug_Print 1 "Number of years for WriteFrequency : ${WriteFrequencyInYears}" [[BR]] 
     89      WriteFrequencyInDays=0  [[BR]] 
     90      i=0 [[BR]] 
     91      until [ $i -ge $WriteFrequencyInYears ] ; do [[BR]] 
     92      (( WriteFrequencyInDays = WriteFrequencyInDays + $( IGCM_date_DaysInYear $(( year + i )) ) )) [[BR]] 
     93      (( i=i+1 )) [[BR]] 
     94      done [[BR]] 
     95      ;; [[BR]] 
     96    *M|*m) [[BR]] 
     97      WriteFrequencyInMonths=$( echo ${config_OCE_WriteFrequency} | sed -e 's/[mM]//' ) [[BR]] 
     98      IGCM_debug_Print 1 "Number of months for WriteFrequency : ${WriteFrequencyInMonths}" [[BR]] 
     99      WriteFrequencyInDays=0 [[BR]] 
     100      i=0 [[BR]] 
     101      until [ $i -ge $WriteFrequencyInMonths ] ; do [[BR]] 
     102      if [ $(( month + i )) -lt 13 ] ; then [[BR]] 
     103      (( WriteFrequencyInDays  = WriteFrequencyInDays + $( IGCM_date_DaysInMonth $year $(( month + i )) ) )) [[BR]] 
     104      else [[BR]] 
     105      (( WriteFrequencyInDays  = WriteFrequencyInDays + $( IGCM_date_DaysInMonth $year $(( month + i - 12 )) ) )) [[BR]] 
     106      fi [[BR]] 
     107      (( i=i+1 )) [[BR]] 
     108      done [[BR]] 
     109      ;; [[BR]] 
     110    *D|*d) [[BR]] 
     111      WriteFrequencyInMonths=0 [[BR]] 
     112      WriteFrequencyInDays=$( echo ${config_OCE_WriteFrequency} | sed -e 's/[dD]//' );; [[BR]] 
     113      *) [[BR]] 
     114      IGCM_debug_Exit "IGCM_config_Analyse_PeriodLength " ${config_OCE_WriteFrequency} " invalid period length : choose in *Y, *M, *D." [[BR]] 
     115      IGCM_debug_Verif_Exit ;; [[BR]] 
     116     esac [[BR]] 
     117 
     118     IGCM_debug_Print 3 "WriteFrequencyInDays    : ${WriteFrequencyInDays}" 
     119