Changeset 3664 for palm

Timestamp:

Jan 9, 2019 2:00:37 PM (6 years ago)

Author:

forkel

Message:

Replaced misplaced location message by @todo

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Replaced misplaced location message by @todo
+! 
+! 
+! 3654 2019-01-07 16:31:57Z suehring
 ! Disable misplaced location message
 ! 
@@ -2590 +2594 @@
     INTEGER(iwp) ::  m    !<
     INTEGER(iwp) ::  lpr  !< running index chem spcs
-    LOGICAL      ::  ts_calc = .TRUE.
 
     !    REAL(wp),                                                                                      &
@@ -2621 +2624 @@
           ENDDO
        ENDDO
-    ELSEIF ( mode == 'time_series' .and. ts_calc )  THEN
-!        CALL location_message( 'Time series not calculated for chemistry', .TRUE. )
-       ts_calc = .FALSE.
+    ELSEIF ( mode == 'time_series' )  THEN
+!      @todo
     ENDIF