Changeset 1666 for palm


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

checking possible mismatch of current and required user interface revision

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r1640 r1666  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! +user_interface_current_revision, user_interface_required_revision
    2323!
    2424! Former revisions:
     
    543543    CHARACTER (LEN=9)    ::  simulated_time_chr
    544544    CHARACTER (LEN=11)   ::  topography_grid_convention = ' '
    545     CHARACTER (LEN=12)   ::  version = ' ', revision = ' '
     545    CHARACTER (LEN=12)   ::  version = ' ', revision = ' ', &
     546                             user_interface_current_revision = ' ', &
     547                             user_interface_required_revision = ' '
    546548    CHARACTER (LEN=16)   ::  conserve_volume_flow_mode = 'default', &
    547549                             loop_optimization = 'default', &
  • 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!
  • palm/trunk/SOURCE/user_parin.f90

    r1321 r1666  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! interface revision number is set
    2323!
    2424! Former revisions:
     
    7373    NAMELIST /userpar/  data_output_pr_user, data_output_user, region,         &
    7474                        data_output_masks_user
     75
     76!
     77!-- Set revision number of this default interface version. It will be checked within
     78!-- the main program (palm). Please change the revision number in case that the
     79!-- current revision does not match with previous revisions (e.g. if routines
     80!-- have been added/deleted or if parameter lists in subroutines have been changed).
     81    user_interface_current_revision = ' '
    7582
    7683!
Note: See TracChangeset for help on using the changeset viewer.