Changeset 3665 for palm/trunk/SOURCE/date_and_time_mod.f90

Timestamp:

Jan 10, 2019 8:28:24 AM (6 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:

• palm/trunk/SOURCE/date_and_time_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/date_and_time_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! further tabs removed, unused variables removed
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! further tabs removed
 ! 
@@ -100 +103 @@
     INTEGER(iwp)        ::  hour_call_emis=0                        !< index used to call the emissions just once every hour
 
-    INTEGER(iwp)        ::  ihour            
     INTEGER(iwp)        ::  index_mm                                !< index months of the default emission mode
     INTEGER(iwp)        ::  index_dd                                !< index days of the default emission mode
     INTEGER(iwp)        ::  index_hh                                !< index hours of the emission mode
-    INTEGER(iwp)        ::  hours_since_reference_point             !< hours of current simulation
 
     REAL(wp)            ::  time_utc                     !< current model time in UTC
@@ -297 +298 @@
 
 !--    Variables Definition
-       INTEGER                          :: i_mon       !< Index for going through the different months
+       INTEGER :: i_mon       !< Index for going through the different months
 
        !> Update simulation time in seconds
@@ -494 +495 @@
     !> ------------------------------------------------------------------------
 
-    INTEGER                          :: weekday
+    INTEGER                          :: weekday
 
     !> CONSTANTS
@@ -542 +543 @@
 
     !> IN/OUTPUT
-    INTEGER, INTENT(INOUT)              :: mo          !> Month
-    INTEGER, INTENT(INOUT)              :: hh          !> Hour
-    INTEGER, INTENT(INOUT)              :: dd          !> Day
-    INTEGER, INTENT(INOUT)              :: index_hh    !> Index Hour
+    INTEGER, INTENT(INOUT)              :: mo          !> Month
+    INTEGER, INTENT(INOUT)              :: hh          !> Hour
+    INTEGER, INTENT(INOUT)              :: dd          !> Day
+    INTEGER, INTENT(INOUT)              :: index_hh    !> Index Hour
  
     !> Additional Variables for calculateing indices
-    INTEGER                             :: index_mm    !> Index Month
-    INTEGER                             :: index_dd    !> Index Day
-    INTEGER                             :: i_mon       !> Index for going through the different months
-    INTEGER                             :: sum_dd      !> Sum days
+    INTEGER                             :: index_mm    !> Index Month
+    INTEGER                             :: index_dd    !> Index Day
+    INTEGER                             :: i_mon       !> Index for going through the different months
+    INTEGER                             :: sum_dd      !> Sum days
 
     !> CONSTANTS
-    INTEGER, PARAMETER                  :: nmonth=12
-    INTEGER, PARAMETER                  :: nday = 7
-    INTEGER, PARAMETER                  :: nhour = 24
+    INTEGER, PARAMETER                  :: nhour = 24
     INTEGER, PARAMETER, DIMENSION(12)   :: days = (/31,28,31,30,31,30,31,31,30,31,30,31/) ! no leap year