Changeset 2947


Ignore:
Timestamp:
Apr 4, 2018 6:01:41 PM (7 years ago)
Author:
suehring
Message:

Checks for dynamic input further revised

File:
1 edited

Legend:

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

    r2946 r2947  
    2525! -----------------
    2626! $Id$
     27! Checks for dynamic input revised
     28!
     29! 2946 2018-04-04 17:01:23Z suehring
    2730! Bugfix for revision 2945, perform checks only if dynamic input file is
    2831! available.
     
    19641967
    19651968       USE indices,                                                            &
    1966            ONLY:  nx, nxl, nxlu, nxr, ny, nyn, nys, nysv, nzb, nzt
     1969           ONLY:  nx, nxl, nxlu, nxr, ny, nyn, nys, nysv, nzb, nz, nzt
    19671970
    19681971       IMPLICIT NONE
     
    20242027             CALL get_dimension_length( id_dynamic, init_3d%ny,  'y'  )
    20252028             CALL get_dimension_length( id_dynamic, init_3d%nyv, 'yv' )
     2029
     2030!
     2031!--          Check for correct horizontal and vertical dimension. Please note,
     2032!--          checks are performed directly here and not called from
     2033!--          check_parameters as some varialbes are still not allocated there. 
     2034!--          Moreover, please note, u- and v-grid has 1 grid point less on
     2035!--          Inifor grid.
     2036             IF ( init_3d%nx-1 /= nx  .OR.  init_3d%nxu-1 /= nx - 1  .OR.      &
     2037                  init_3d%ny-1 /= ny  .OR.  init_3d%nyv-1 /= ny - 1 )  THEN
     2038                message_string = 'Number of inifor horizontal grid points  '// &
     2039                                 'does not match the number of numeric grid '//&
     2040                                 'points.'
     2041                CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
     2042             ENDIF
     2043
     2044             IF ( init_3d%nzu-1 /= nz )  THEN
     2045                message_string = 'Number of inifor vertical grid points ' //   &
     2046                                 'does not match the number of numeric grid '//&
     2047                                 'points.'
     2048                CALL message( 'netcdf_data_input_mod', 'NDI003', 1, 2, 0, 6, 0 )
     2049             ENDIF
    20262050!
    20272051!--          Read vertical dimensions. Later, these are required for eventual
     
    27822806           ONLY:  initializing_actions, forcing, message_string
    27832807
    2784        USE indices,                                                            &
    2785            ONLY:  nx, ny, nz
    2786 
    27872808       IMPLICIT NONE
    27882809
     
    28032824                           TRIM( coupling_char )
    28042825          CALL message( 'netcdf_data_input_mod', 'NDI010', 1, 2, 0, 6, 0 )
    2805        ENDIF
    2806 !
    2807 !--    Check for correct horizontal and vertical dimension.
    2808 !--    Please note, u- and v-grid has 1 grid point less on Inifor grid.
    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 
    28242826       ENDIF
    28252827
Note: See TracChangeset for help on using the changeset viewer.