Changeset 4286 for palm/trunk/SOURCE/nesting_offl_mod.f90

Timestamp:

Oct 30, 2019 4:01:14 PM (4 years ago)

Author:

resler

Message:

Merge branch resler into trunk

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/nesting_offl_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Fix wrong checks of time from dynamic driver in nesting_offl_mod
+! 
+! 4273 2019-10-24 13:40:54Z monakurppa
 ! Add a logical switch nesting_offline_chem
 ! 
@@ -2032 +2035 @@
 !--    not for the soil/wall spinup. However, as the spinup time is added
 !--    to the end_time, this must be considered here. 
-       IF ( end_time - spinup_time >                                           &
-            nest_offl%time(nest_offl%nt-1) - time_utc_init )  THEN
+       IF ( end_time - spinup_time > nest_offl%time(nest_offl%nt-1) )  THEN
           message_string = 'end_time of the simulation exceeds the ' //        &
                            'time dimension in the dynamic input file.'
           CALL message( 'nesting_offl_init', 'PA0183', 1, 2, 0, 6, 0 ) 
-       ENDIF
-
-       IF ( nest_offl%time(0) /= time_utc_init )  THEN
-          message_string = 'Offline nesting: time dimension must start at ' // &
-                           ' time_utc_init.'
-          CALL message( 'nesting_offl_init', 'PA0676', 1, 2, 0, 6, 0 )
        ENDIF
 !