Changeset 4169 for palm/trunk/SOURCE/nesting_offl_mod.f90
- Timestamp:
- Aug 19, 2019 1:54:35 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nesting_offl_mod.f90
r4168 r4169 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Additional check added. 28 ! 29 ! 4168 2019-08-16 13:50:17Z suehring 27 30 ! Replace function get_topography_top_index by topo_top_ind 28 31 ! … … 107 110 108 111 USE control_parameters, & 109 ONLY: air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, & 110 bc_dirichlet_s, dt_3d, dz, constant_diffusion, & 112 ONLY: air_chemistry, & 113 bc_dirichlet_l, & 114 bc_dirichlet_n, & 115 bc_dirichlet_r, & 116 bc_dirichlet_s, & 117 dt_3d, & 118 dz, & 119 constant_diffusion, & 120 child_domain, & 111 121 debug_output_timestep, & 122 end_time, & 112 123 humidity, & 113 124 initializing_actions, & 114 message_string, nesting_offline, neutral, passive_scalar, & 115 rans_mode, rans_tke_e, time_since_reference_point, volume_flow 125 message_string, & 126 nesting_offline, & 127 neutral, & 128 passive_scalar, & 129 rans_mode, & 130 rans_tke_e, & 131 rayleigh_damping_factor, & 132 rayleigh_damping_height, & 133 spinup_time, & 134 time_since_reference_point, & 135 volume_flow 116 136 117 137 USE cpulog, & … … 1060 1080 USE basic_constants_and_equations_mod, & 1061 1081 ONLY: pi 1062 1063 USE control_parameters, &1064 ONLY: rayleigh_damping_height, rayleigh_damping_factor1065 1082 1066 1083 USE kinds … … 1103 1120 !------------------------------------------------------------------------------! 1104 1121 SUBROUTINE nesting_offl_check_parameters 1105 1106 USE control_parameters, &1107 ONLY: child_domain, message_string, nesting_offline1108 1122 1109 1123 IMPLICIT NONE 1110 1124 ! 1111 !-- Perform checks1125 !-- Check if offline nesting is applied in nested child domain. 1112 1126 IF ( nesting_offline .AND. child_domain ) THEN 1113 1127 message_string = 'Offline nesting is only applicable in root model.' 1114 CALL message( 'stg_check_parameters', 'PA0622', 1, 2, 0, 6, 0 ) 1115 ENDIF 1116 1128 CALL message( 'offline_nesting_check_parameters', 'PA0622', 1, 2, 0, 6, 0 ) 1129 ENDIF 1117 1130 1118 1131 END SUBROUTINE nesting_offl_check_parameters … … 1334 1347 CALL netcdf_data_input_offline_nesting 1335 1348 ! 1349 !-- Check if sufficient time steps are provided to cover the entire 1350 !-- simulation. Note, dynamic input is only required for the 3D simulation, 1351 !-- not for the soil/wall spinup. However, as the spinup time is added 1352 !-- to the end_time, this must be considered here. 1353 IF ( end_time - spinup_time > nest_offl%time(nest_offl%nt-1) ) THEN 1354 message_string = 'end_time > provided time in offline nesting.' 1355 CALL message( 'offline_nesting_check_parameters', 'PA0183', & 1356 1, 2, 0, 6, 0 ) 1357 ENDIF 1358 ! 1336 1359 !-- Initialize boundary data. Please note, do not initialize boundaries in 1337 1360 !-- case of restart runs. This case the boundaries are already initialized
Note: See TracChangeset
for help on using the changeset viewer.