Ignore:
Timestamp:
Jan 10, 2019 8:28:24 AM (3 years ago)
Author:
raasch
Message:

dummy statements added to avoid compiler warnings about unused variables, unused variables removed, ssh-call for submitting batch jobs on remote systems modified again to avoid output of login messages on specific systems

File:
1 edited

Legend:

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

    r3655 r3665  
    2525! -----------------
    2626! $Id$
     27! further tabs removed, unused variables removed
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! further tabs removed
    2831!
     
    100103    INTEGER(iwp)        ::  hour_call_emis=0                        !< index used to call the emissions just once every hour
    101104
    102     INTEGER(iwp)        ::  ihour           
    103105    INTEGER(iwp)        ::  index_mm                                !< index months of the default emission mode
    104106    INTEGER(iwp)        ::  index_dd                                !< index days of the default emission mode
    105107    INTEGER(iwp)        ::  index_hh                                !< index hours of the emission mode
    106     INTEGER(iwp)        ::  hours_since_reference_point             !< hours of current simulation
    107108
    108109    REAL(wp)            ::  time_utc                     !< current model time in UTC
     
    297298
    298299!--    Variables Definition
    299        INTEGER                          :: i_mon       !< Index for going through the different months
     300       INTEGER :: i_mon       !< Index for going through the different months
    300301
    301302       !> Update simulation time in seconds
     
    494495    !> ------------------------------------------------------------------------
    495496
    496     INTEGER                          :: weekday
     497    INTEGER                          :: weekday
    497498
    498499    !> CONSTANTS
     
    542543
    543544    !> IN/OUTPUT
    544     INTEGER, INTENT(INOUT)              :: mo          !> Month
    545     INTEGER, INTENT(INOUT)              :: hh          !> Hour
    546     INTEGER, INTENT(INOUT)              :: dd          !> Day
    547     INTEGER, INTENT(INOUT)              :: index_hh    !> Index Hour
     545    INTEGER, INTENT(INOUT)              :: mo          !> Month
     546    INTEGER, INTENT(INOUT)              :: hh          !> Hour
     547    INTEGER, INTENT(INOUT)              :: dd          !> Day
     548    INTEGER, INTENT(INOUT)              :: index_hh    !> Index Hour
    548549 
    549550    !> Additional Variables for calculateing indices
    550     INTEGER                             :: index_mm    !> Index Month
    551     INTEGER                             :: index_dd    !> Index Day
    552     INTEGER                             :: i_mon       !> Index for going through the different months
    553     INTEGER                             :: sum_dd      !> Sum days
     551    INTEGER                             :: index_mm    !> Index Month
     552    INTEGER                             :: index_dd    !> Index Day
     553    INTEGER                             :: i_mon       !> Index for going through the different months
     554    INTEGER                             :: sum_dd      !> Sum days
    554555
    555556    !> CONSTANTS
    556     INTEGER, PARAMETER                  :: nmonth=12
    557     INTEGER, PARAMETER                  :: nday = 7
    558     INTEGER, PARAMETER                  :: nhour = 24
     557    INTEGER, PARAMETER                  :: nhour = 24
    559558    INTEGER, PARAMETER, DIMENSION(12)   :: days = (/31,28,31,30,31,30,31,31,30,31,30,31/) ! no leap year
    560559   
Note: See TracChangeset for help on using the changeset viewer.