Changeset 4144 for palm/trunk/SOURCE/chem_emissions_mod.f90

Timestamp:

Aug 6, 2019 9:11:47 AM (5 years ago)

Author:

raasch

Message:

relational operators .EQ., .NE., etc. replaced by ==, /=, etc.

File:

• palm/trunk/SOURCE/chem_emissions_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
+! 
+! 4055 2019-06-27 09:47:29Z suehring
 ! - replaced local thermo. constants w/ module definitions in
 !   basic_constants_and_equations_mod (rgas_univ, p_0, r_d_cp) 
@@ -724 +727 @@
                 END DO     ! ind_mod
 
-             ELSE  ! if len_index_voc .le. 0
+             ELSE  ! if len_index_voc <= 0
 
 !