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

Timestamp:

Dec 10, 2018 7:05:46 AM (5 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/date_and_time_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! further tabs removed
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! Tabs removed
 ! 
@@ -509 +512 @@
     SELECT CASE(TRIM(daytype_mdh))
 
-                   CASE ("workday")
-               
-                   index_hh = nmonth+ nday + hh 
-
-                   CASE ("weekend")
-               
-                   index_hh = nmonth+ nday + nhour + hh 
-
-                   CASE ("holiday")
-               
-                   index_hh = nmonth+ nday + 2*nhour + hh 
+       CASE ("workday")
+       
+          index_hh = nmonth+ nday + hh 
+
+       CASE ("weekend")
+       
+          index_hh = nmonth+ nday + nhour + hh 
+
+       CASE ("holiday")
+       
+          index_hh = nmonth+ nday + 2*nhour + hh 
+
     END SELECT
 
@@ -566 +570 @@
     ELSE 
 
-    DO i_mon=1,index_mm
-       
-       sum_dd=sum_dd+days(i_mon)
-
-    ENDDO
+       DO i_mon=1,index_mm
+
+         sum_dd=sum_dd+days(i_mon)
+
+       ENDDO
       
-    index_hh=(sum_dd*nhour)+(index_dd*nhour)+(hh)
+       index_hh=(sum_dd*nhour)+(index_dd*nhour)+(hh)
 
     ENDIF