Ignore:
Timestamp:
Dec 10, 2018 7:05:46 AM (3 years ago)
Author:
raasch
Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/date_and_time_mod.f90

    r3467 r3614  
    2525! -----------------
    2626! $Id$
     27! further tabs removed
     28!
     29! 3467 2018-10-30 19:05:21Z suehring
    2730! Tabs removed
    2831!
     
    509512    SELECT CASE(TRIM(daytype_mdh))
    510513
    511                    CASE ("workday")
    512                
    513                    index_hh = nmonth+ nday + hh
    514 
    515                    CASE ("weekend")
    516                
    517                    index_hh = nmonth+ nday + nhour + hh
    518 
    519                    CASE ("holiday")
    520                
    521                    index_hh = nmonth+ nday + 2*nhour + hh
     514       CASE ("workday")
     515       
     516          index_hh = nmonth+ nday + hh
     517
     518       CASE ("weekend")
     519       
     520          index_hh = nmonth+ nday + nhour + hh
     521
     522       CASE ("holiday")
     523       
     524          index_hh = nmonth+ nday + 2*nhour + hh
     525
    522526    END SELECT
    523527
     
    566570    ELSE
    567571
    568     DO i_mon=1,index_mm
    569        
    570        sum_dd=sum_dd+days(i_mon)
    571 
    572     ENDDO
     572       DO i_mon=1,index_mm
     573
     574         sum_dd=sum_dd+days(i_mon)
     575
     576       ENDDO
    573577     
    574     index_hh=(sum_dd*nhour)+(index_dd*nhour)+(hh)
     578       index_hh=(sum_dd*nhour)+(index_dd*nhour)+(hh)
    575579
    576580    ENDIF
Note: See TracChangeset for help on using the changeset viewer.