Ignore:
Timestamp:
Apr 4, 2018 5:01:23 PM (3 years ago)
Author:
suehring
Message:

Bugfix for revision 2945, perform checks only if dynamic input file is available; remove unused module load

File:
1 edited

Legend:

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

    r2945 r2946  
    2525! -----------------
    2626! $Id$
     27! Bugfix for revision 2945, perform checks only if dynamic input file is
     28! available.
     29!
     30! 2945 2018-04-04 16:27:14Z suehring
    2731! - Mimic for topography input slightly revised, in order to enable consistency
    2832!   checks
     
    28032807!--    Check for correct horizontal and vertical dimension.
    28042808!--    Please note, u- and v-grid has 1 grid point less on Inifor grid.
    2805        IF ( init_3d%nx-1 /= nx  .OR.  init_3d%nxu-1 /= nx - 1  .OR.            &
    2806             init_3d%ny-1 /= ny  .OR.  init_3d%nyv-1 /= ny - 1 )  THEN
    2807           message_string = 'Number of inifor horizontal grid points does '  // &
    2808                            'not match the number of numeric grid points.'
    2809           CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
    2810        ENDIF
    2811 
    2812        IF ( init_3d%nzu /= nz )  THEN
    2813           message_string = 'Number of inifor vertical grid points does '  // &
    2814                            'not match the number of numeric grid points.'
    2815           CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
     2809       IF ( input_pids_dynamic )  THEN
     2810
     2811          IF ( init_3d%nx-1 /= nx  .OR.  init_3d%nxu-1 /= nx - 1  .OR.         &
     2812               init_3d%ny-1 /= ny  .OR.  init_3d%nyv-1 /= ny - 1 )  THEN
     2813             message_string = 'Number of inifor horizontal grid points does '//&
     2814                              'not match the number of numeric grid points.'
     2815             CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
     2816          ENDIF
     2817
     2818          IF ( init_3d%nzu /= nz )  THEN
     2819             message_string = 'Number of inifor vertical grid points does ' // &
     2820                              'not match the number of numeric grid points.'
     2821             CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
     2822          ENDIF
     2823
    28162824       ENDIF
    28172825
Note: See TracChangeset for help on using the changeset viewer.