Ignore:
Timestamp:
Sep 23, 2015 7:31:10 AM (6 years ago)
Author:
raasch
Message:

checking possible mismatch of current and required user interface revision

File:
1 edited

Legend:

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

    r1539 r1666  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! check for user's interface version added
    2323!
    2424! Former revisions:
     
    9999    USE control_parameters,                                                    &
    100100        ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
    101                io_blocks, io_group, large_scale_forcing, nudging,              &
    102                simulated_time, simulated_time_chr, version, wall_heatflux, write_binary
     101               io_blocks, io_group, large_scale_forcing, message_string,       &
     102               nudging, simulated_time, simulated_time_chr,                    &
     103               user_interface_current_revision,                                &
     104               user_interface_required_revision, version, wall_heatflux,       &
     105               write_binary
    103106
    104107    USE cpulog,                                                                &
     
    110113
    111114    USE indices,                                                               &
    112         ONLY:  ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u, nzb_diff_v,     &
    113                nzb_s_inner, nzb_s_outer, nzb_u_inner, nzb_u_outer, nzb_v_inner,&
    114                nzb_v_outer, nzb_w_inner, nzb_w_outer, rflags_invers,           &
    115                rflags_s_inner, wall_flags_0, wall_flags_00
     115        ONLY:  ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer,   &
     116               nzb_diff_u, nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner,  &
     117               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
     118               nzb_w_outer, rflags_invers, rflags_s_inner, wall_flags_0,       &
     119               wall_flags_00
    116120
    117121    USE kinds
     
    149153
    150154    version = 'PALM 4.0'
     155    user_interface_required_revision = 'r1663'
    151156
    152157#if defined( __parallel )
     
    231236!-- Read control parameters from NAMELIST files and read environment-variables
    232237    CALL parin
     238
     239!
     240!-- Check for the user's interface version
     241    IF ( user_interface_current_revision /= user_interface_required_revision )  &
     242    THEN
     243       message_string = 'current user-interface revision "' //                  &
     244                        TRIM( user_interface_current_revision ) // '" does ' // &
     245                        'not match the required revision ' //                   &
     246                        TRIM( user_interface_required_revision )
     247        CALL message( 'palm', 'PA0169', 0, 1, 0, 6, 0 )
     248    ENDIF
    233249
    234250!
Note: See TracChangeset for help on using the changeset viewer.