Changeset 3421 for palm/trunk/SOURCE/netcdf_data_input_mod.f90
- Timestamp:
- Oct 24, 2018 6:39:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3404 r3421 25 25 ! ----------------- 26 26 ! $Id$ 27 ! add default values of origin_x/y/z 28 ! 29 ! 3404 2018-10-23 13:29:11Z suehring 27 30 ! Consider time-dependent geostrophic wind components in offline nesting 28 31 ! … … 328 331 LOGICAL :: from_file_w = .FALSE. !< flag indicating whether w is already initialized from file 329 332 330 REAL(wp) :: fill_msoil !< fill value for soil moisture331 REAL(wp) :: fill_pt !< fill value for pt332 REAL(wp) :: fill_q !< fill value for q333 REAL(wp) :: fill_tsoil !< fill value for soil temperature334 REAL(wp) :: fill_u !< fill value for u335 REAL(wp) :: fill_v !< fill value for v336 REAL(wp) :: fill_w !< fill value for w337 REAL(wp) :: latitude !< latitude of the southern model boundary338 REAL(wp) :: longitude !< longitude of the western model boundary339 REAL(wp) :: origin_x !< x position of the western model boundary340 REAL(wp) :: origin_y !< y position of the northern model boundary341 REAL(wp) :: origin_z !< reference height of input data342 REAL(wp) :: rotation_angle 333 REAL(wp) :: fill_msoil !< fill value for soil moisture 334 REAL(wp) :: fill_pt !< fill value for pt 335 REAL(wp) :: fill_q !< fill value for q 336 REAL(wp) :: fill_tsoil !< fill value for soil temperature 337 REAL(wp) :: fill_u !< fill value for u 338 REAL(wp) :: fill_v !< fill value for v 339 REAL(wp) :: fill_w !< fill value for w 340 REAL(wp) :: latitude !< latitude of the southern model boundary 341 REAL(wp) :: longitude !< longitude of the western model boundary 342 REAL(wp) :: origin_x = 0.0_wp !< x position of the western model boundary (default: Hannover) 343 REAL(wp) :: origin_y = 0.0_wp !< y position of the northern model boundary (default: Hannover) 344 REAL(wp) :: origin_z = 0.0_wp !< reference height of input data (default: Hannover) 345 REAL(wp) :: rotation_angle = 0.0_wp !< rotation angle of input data 343 346 344 347 REAL(wp), DIMENSION(:), ALLOCATABLE :: msoil_1d !< initial vertical profile of soil moisture
Note: See TracChangeset
for help on using the changeset viewer.