Changeset 3089 for palm


Ignore:
Timestamp:
Jun 27, 2018 1:20:38 PM (6 years ago)
Author:
suehring
Message:

Revise call for message routine in case of local data inconsistencies

File:
1 edited

Legend:

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

    r3054 r3089  
    2525! -----------------
    2626! $Id$
     27! Revise call for message routine in case of local data inconsistencies.
     28!
     29! 3054 2018-06-01 16:08:59Z gronemeier
    2730! Bugfix: force an MPI abort if errors occur while reading building heights
    2831! from ASCII file
     
    28802883          message_string = 'NetCDF variable zt is not ' //                     &
    28812884                           'allowed to have missing data'
    2882           CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, 0, 6, 0 )
     2885          CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, myid, 6, 0 )
    28832886       ENDIF
    28842887!
     
    29312934                message_string = 'If vegegation_type = 0 at any location, ' // &
    29322935                                 'vegetation_pars is required'
    2933                 CALL message( 'netcdf_data_input_mod', 'NDI017', 2, 2, 0, 6, 0 )
     2936                CALL message( 'netcdf_data_input_mod', 'NDI017', 2, 2, -1, 6, 0 )
    29342937             ENDIF
    29352938             IF ( .NOT. root_area_density_lsm_f%from_file )  THEN
    29362939                message_string = 'If vegegation_type = 0 at any location, ' // &
    29372940                                 'root_area_dens_s is required'
    2938                 CALL message( 'netcdf_data_input_mod', 'NDI018', 2, 2, 0, 6, 0 )
     2941                CALL message( 'netcdf_data_input_mod', 'NDI018', 2, 2, myid, 6, 0 )
    29392942             ENDIF
    29402943          ENDIF
     
    29562959             message_string = 'If soil_type = 0 at any location, ' //          &
    29572960                              'soil_pars is required'
    2958              CALL message( 'netcdf_data_input_mod', 'NDI019', 2, 2, 0, 6, 0 )
     2961             CALL message( 'netcdf_data_input_mod', 'NDI019', 2, 2, myid, 6, 0 )
    29592962          ENDIF
    29602963       ENDIF
     
    29662969                message_string = 'If building_type = 0 at any location, ' //   &
    29672970                                 'building_pars is required'
    2968                 CALL message( 'netcdf_data_input_mod', 'NDI020', 2, 2, 0, 6, 0 )
     2971                CALL message( 'netcdf_data_input_mod', 'NDI020', 2, 2, myid, 6, 0 )
    29692972             ENDIF
    29702973          ENDIF
     
    29772980                message_string = 'If albedo_type = 0 at any location, ' //     &
    29782981                                 'albedo_pars is required'
    2979                 CALL message( 'netcdf_data_input_mod', 'NDI021', 2, 2, 0, 6, 0 )
     2982                CALL message( 'netcdf_data_input_mod', 'NDI021', 2, 2, myid, 6, 0 )
    29802983             ENDIF
    29812984          ENDIF
     
    29882991                message_string = 'If pavement_type = 0 at any location, ' //   &
    29892992                                 'pavement_pars is required'
    2990                 CALL message( 'netcdf_data_input_mod', 'NDI022', 2, 2, 0, 6, 0 )
     2993                CALL message( 'netcdf_data_input_mod', 'NDI022', 2, 2, myid, 6, 0 )
    29912994             ENDIF
    29922995          ENDIF
     
    30003003                message_string = 'If pavement_type = 0 at any location, ' //   &
    30013004                                 'pavement_subsurface_pars is required'
    3002                 CALL message( 'netcdf_data_input_mod', 'NDI023', 2, 2, 0, 6, 0 )
     3005                CALL message( 'netcdf_data_input_mod', 'NDI023', 2, 2, myid, 6, 0 )
    30033006             ENDIF
    30043007          ENDIF
     
    30113014                message_string = 'If water_type = 0 at any location, ' //      &
    30123015                                 'water_pars is required'
    3013                 CALL message( 'netcdf_data_input_mod', 'NDI024', 2, 2, 0, 6, 0 )
     3016                CALL message( 'netcdf_data_input_mod', 'NDI024', 2, 2,myid, 6, 0 )
    30143017             ENDIF
    30153018          ENDIF
     
    30313034                                 'building_type, or water_type must be set '// &
    30323035                                 'to a non-missing value. Grid point: ', j, i
    3033                 CALL message( 'netcdf_data_input_mod', 'NDI025', 2, 2, 0, 6, 0 )
     3036                CALL message( 'netcdf_data_input_mod', 'NDI025', 2, 2, myid, 6, 0 )
    30343037             ENDIF
    30353038!
     
    30523055                                 'pavement_type is a non-missing value.'
    30533056                   CALL message( 'netcdf_data_input_mod', 'NDI026',            &
    3054                                   2, 2, 0, 6, 0 )
     3057                                  2, 2, myid, 6, 0 )
    30553058                ENDIF
    30563059             ENDIF
     
    30733076                                 'must be provided.'
    30743077                   CALL message( 'netcdf_data_input_mod', 'NDI027',            &
    3075                                   2, 2, 0, 6, 0 )
     3078                                  2, 2, myid, 6, 0 )
    30763079                ELSEIF ( ANY ( surface_fraction_f%frac(:,j,i) ==               &
    30773080                               surface_fraction_f%fill ) )  THEN
     
    30803083                                 'must be provided.'
    30813084                   CALL message( 'netcdf_data_input_mod', 'NDI027',            &
    3082                                   2, 2, 0, 6, 0 )
     3085                                  2, 2, myid, 6, 0 )
    30833086                ENDIF
    30843087             ENDIF
     
    30933096                   message_string = 'surface_fraction must not exceed 1'
    30943097                   CALL message( 'netcdf_data_input_mod', 'NDI028',            &
    3095                                   2, 2, 0, 6, 0 )
     3098                                  2, 2, myid, 6, 0 )
    30963099                ENDIF
    30973100!
     
    31193122                             ' ), but surface fraction is 0 for the given type.'
    31203123                   CALL message( 'netcdf_data_input_mod', 'NDI029',            &
    3121                                   2, 2, 0, 6, 0 )
     3124                                  2, 2, myid, 6, 0 )
    31223125                ENDIF
    31233126!
     
    31463149                             'given type.'
    31473150                   CALL message( 'netcdf_data_input_mod', 'NDI030',            &
    3148                                   2, 2, 0, 6, 0 )
     3151                                  2, 2, myid, 6, 0 )
    31493152                ENDIF
    31503153             ENDIF
     
    31613164                                       'this location must be set.'
    31623165                      CALL message( 'netcdf_data_input_mod', 'NDI031',         &
    3163                                      2, 2, 0, 6, 0 )
     3166                                     2, 2, myid, 6, 0 )
    31643167                   ENDIF
    31653168                ENDIF
     
    31763179                                       'must be set at this location.'
    31773180                      CALL message( 'netcdf_data_input_mod', 'NDI032',         &
    3178                                      2, 2, 0, 6, 0 )
     3181                                     2, 2, myid, 6, 0 )
    31793182                   ENDIF
    31803183                ENDIF
     
    32003203                                    'soil_pars at this location must be set.'
    32013204                   CALL message( 'netcdf_data_input_mod', 'NDI033',            &
    3202                                   2, 2, 0, 6, 0 )
     3205                                  2, 2, myid, 6, 0 )
    32033206                ENDIF
    32043207             ENDIF
     
    32153218                                       'location must be set.'
    32163219                      CALL message( 'netcdf_data_input_mod', 'NDI034',         &
    3217                                      2, 2, 0, 6, 0 )
     3220                                     2, 2, myid, 6, 0 )
    32183221                   ENDIF
    32193222                ENDIF
     
    32323235                                         'i, j = ', i, j
    32333236                      CALL message( 'netcdf_data_input_mod', 'NDI035',         &
    3234                                      2, 2, 0, 6, 0 )
     3237                                     2, 2, myid, 6, 0 )
    32353238                   ENDIF
    32363239                ENDIF
     
    32443247                                         'i, j = ', i, j
    32453248                      CALL message( 'netcdf_data_input_mod', 'NDI035',         &
    3246                                      2, 2, 0, 6, 0 )
     3249                                     2, 2, myid, 6, 0 )
    32473250                   ENDIF
    32483251                ENDIF
     
    32593262                                         '( and vice versa ). i, j = ', i, j
    32603263                      CALL message( 'netcdf_data_input_mod', 'NDI036',         &
    3261                                      2, 2, 0, 6, 0 )
     3264                                     2, 2, myid, 6, 0 )
    32623265                   ENDIF
    32633266                ELSEIF ( buildings_f%lod == 2 )  THEN
     
    32683271                                         '( and vice versa ). i, j = ', i, j
    32693272                      CALL message( 'netcdf_data_input_mod', 'NDI036',         &
    3270                                      2, 2, 0, 6, 0 )
     3273                                     2, 2, myid, 6, 0 )
    32713274                   ENDIF
    32723275                ENDIF
     
    32823285                                                 'requires an ID.', i, j
    32833286                      CALL message( 'netcdf_data_input_mod', 'NDI036',         &
    3284                                      2, 2, 0, 6, 0 )
     3287                                     2, 2, myid, 6, 0 )
    32853288                   ENDIF
    32863289                ELSEIF ( buildings_f%lod == 2 )  THEN
     
    32903293                                                 'requires an ID.', i, j
    32913294                      CALL message( 'netcdf_data_input_mod', 'NDI036',         &
    3292                                      2, 2, 0, 6, 0 )
     3295                                     2, 2, myid, 6, 0 )
    32933296                   ENDIF
    32943297                ENDIF
     
    33053308                                       'location must be set.'
    33063309                      CALL message( 'netcdf_data_input_mod', 'NDI037',         &
    3307                                      2, 2, 0, 6, 0 )
     3310                                     2, 2, myid, 6, 0 )
    33083311                   ENDIF
    33093312                ENDIF
     
    33213324                                       'location must be set.'
    33223325                      CALL message( 'netcdf_data_input_mod', 'NDI038',         &
    3323                                      2, 2, 0, 6, 0 )
     3326                                     2, 2, myid, 6, 0 )
    33243327                   ENDIF
    33253328                ENDIF
     
    33383341                                       'location must be set.'
    33393342                      CALL message( 'netcdf_data_input_mod', 'NDI039',         &
    3340                                      2, 2, 0, 6, 0 )
     3343                                     2, 2, myid, 6, 0 )
    33413344                   ENDIF
    33423345                ENDIF
     
    33543357                                       'location must be set.'
    33553358                      CALL message( 'netcdf_data_input_mod', 'NDI040',         &
    3356                                      2, 2, 0, 6, 0 )
     3359                                     2, 2, myid, 6, 0 )
    33573360                   ENDIF
    33583361                ENDIF
Note: See TracChangeset for help on using the changeset viewer.