Changeset 4227 for palm/trunk/SOURCE/nesting_offl_mod.f90
- Timestamp:
- Sep 10, 2019 6:04:34 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nesting_offl_mod.f90
r4226 r4227 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! implement new palm_date_time_mod 23 23 ! 24 24 ! Former revisions: … … 164 164 log_point_s 165 165 166 USE date_and_time_mod, &167 ONLY: time_utc_init168 169 166 USE grid_variables 170 167 … … 191 188 pids_id 192 189 190 USE palm_date_time_mod, & 191 ONLY: get_date_time 192 193 193 USE pegrid 194 194 … … 274 274 275 275 REAL(wp) :: fac_dt !< interpolation factor 276 REAL(wp) :: time_utc_init !< time in seconds-of-day of origin_date_time 276 277 REAL(wp) :: zi_ribulk = 0.0_wp !< boundary-layer depth according to bulk Richardson criterion, i.e. the height where Ri_bulk exceeds the critical 277 278 !< bulk Richardson number of 0.2 … … 1800 1801 INTEGER(iwp) :: n !< running index for chemical species 1801 1802 1803 ! 1804 !-- Get time_utc_init from origin_date_time 1805 CALL get_date_time( 0.0_wp, second_of_day = time_utc_init ) 1802 1806 1803 1807 !-- Allocate arrays for geostrophic wind components. Arrays will
Note: See TracChangeset
for help on using the changeset viewer.