Ignore:
Timestamp:
Aug 6, 2019 9:11:47 AM (2 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r4126 r4144  
    2525! -----------------
    2626! $Id$
     27! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
     28!
     29! 4126 2019-07-30 11:09:11Z gronemeier
    2730! renamed routine to calculate uv exposure
    2831!
     
    15651568!
    15661569!--       Call emission routine only once an hour
    1567           IF (hour_of_year  .GT.  hour_call_emis )  THEN
     1570          IF ( hour_of_year  >  hour_call_emis )  THEN
    15681571             CALL chem_emissions_setup( chem_emis_att, chem_emis, n_matched_vars )
    15691572             hour_call_emis = hour_of_year
Note: See TracChangeset for help on using the changeset viewer.