Changeset 4286 for palm/trunk/SOURCE/nesting_offl_mod.f90
- Timestamp:
- Oct 30, 2019 4:01:14 PM (5 years ago)
- Location:
- palm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk
- Property svn:mergeinfo changed
/palm/branches/resler merged: 4248,4252-4253,4263,4283-4285
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE
- Property svn:mergeinfo changed
/palm/branches/resler/SOURCE merged: 4248,4252-4253,4263,4283-4285
- Property svn:mergeinfo changed
-
palm/trunk/SOURCE/nesting_offl_mod.f90
r4273 r4286 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Fix wrong checks of time from dynamic driver in nesting_offl_mod 28 ! 29 ! 4273 2019-10-24 13:40:54Z monakurppa 27 30 ! Add a logical switch nesting_offline_chem 28 31 ! … … 2032 2035 !-- not for the soil/wall spinup. However, as the spinup time is added 2033 2036 !-- to the end_time, this must be considered here. 2034 IF ( end_time - spinup_time > & 2035 nest_offl%time(nest_offl%nt-1) - time_utc_init ) THEN 2037 IF ( end_time - spinup_time > nest_offl%time(nest_offl%nt-1) ) THEN 2036 2038 message_string = 'end_time of the simulation exceeds the ' // & 2037 2039 'time dimension in the dynamic input file.' 2038 2040 CALL message( 'nesting_offl_init', 'PA0183', 1, 2, 0, 6, 0 ) 2039 ENDIF2040 2041 IF ( nest_offl%time(0) /= time_utc_init ) THEN2042 message_string = 'Offline nesting: time dimension must start at ' // &2043 ' time_utc_init.'2044 CALL message( 'nesting_offl_init', 'PA0676', 1, 2, 0, 6, 0 )2045 2041 ENDIF 2046 2042 !
Note: See TracChangeset
for help on using the changeset viewer.