Changeset 4169 for palm/trunk


Ignore:
Timestamp:
Aug 19, 2019 1:54:35 PM (5 years ago)
Author:
suehring
Message:

Check added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/nesting_offl_mod.f90

    r4168 r4169  
    2525! -----------------
    2626! $Id$
     27! Additional check added.
     28!
     29! 4168 2019-08-16 13:50:17Z suehring
    2730! Replace function get_topography_top_index by topo_top_ind
    2831!
     
    107110
    108111    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,                                                   &
    111121               debug_output_timestep,                                          &
     122               end_time,                                                       &
    112123               humidity,                                                       &
    113124               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
    116136               
    117137    USE cpulog,                                                                &
     
    10601080       USE basic_constants_and_equations_mod,                                  &
    10611081           ONLY:  pi
    1062            
    1063        USE control_parameters,                                                 &
    1064            ONLY:  rayleigh_damping_height, rayleigh_damping_factor
    10651082       
    10661083       USE kinds
     
    11031120!------------------------------------------------------------------------------!
    11041121    SUBROUTINE nesting_offl_check_parameters
    1105    
    1106        USE control_parameters,                                                    &
    1107         ONLY:  child_domain, message_string, nesting_offline
    11081122
    11091123       IMPLICIT NONE
    11101124!
    1111 !--    Perform checks
     1125!--    Check if offline nesting is applied in nested child domain.
    11121126       IF ( nesting_offline  .AND.  child_domain )  THEN
    11131127          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     
    11171130
    11181131    END SUBROUTINE nesting_offl_check_parameters
     
    13341347       CALL netcdf_data_input_offline_nesting
    13351348!
     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!
    13361359!--    Initialize boundary data. Please note, do not initialize boundaries in
    13371360!--    case of restart runs. This case the boundaries are already initialized
Note: See TracChangeset for help on using the changeset viewer.