Changeset 3089 for palm/trunk
- Timestamp:
- Jun 27, 2018 1:20:38 PM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (30 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3054 r3089 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Revise call for message routine in case of local data inconsistencies. 28 ! 29 ! 3054 2018-06-01 16:08:59Z gronemeier 27 30 ! Bugfix: force an MPI abort if errors occur while reading building heights 28 31 ! from ASCII file … … 2880 2883 message_string = 'NetCDF variable zt is not ' // & 2881 2884 '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 ) 2883 2886 ENDIF 2884 2887 ! … … 2931 2934 message_string = 'If vegegation_type = 0 at any location, ' // & 2932 2935 '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 ) 2934 2937 ENDIF 2935 2938 IF ( .NOT. root_area_density_lsm_f%from_file ) THEN 2936 2939 message_string = 'If vegegation_type = 0 at any location, ' // & 2937 2940 '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 ) 2939 2942 ENDIF 2940 2943 ENDIF … … 2956 2959 message_string = 'If soil_type = 0 at any location, ' // & 2957 2960 '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 ) 2959 2962 ENDIF 2960 2963 ENDIF … … 2966 2969 message_string = 'If building_type = 0 at any location, ' // & 2967 2970 '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 ) 2969 2972 ENDIF 2970 2973 ENDIF … … 2977 2980 message_string = 'If albedo_type = 0 at any location, ' // & 2978 2981 '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 ) 2980 2983 ENDIF 2981 2984 ENDIF … … 2988 2991 message_string = 'If pavement_type = 0 at any location, ' // & 2989 2992 '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 ) 2991 2994 ENDIF 2992 2995 ENDIF … … 3000 3003 message_string = 'If pavement_type = 0 at any location, ' // & 3001 3004 '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 ) 3003 3006 ENDIF 3004 3007 ENDIF … … 3011 3014 message_string = 'If water_type = 0 at any location, ' // & 3012 3015 '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 ) 3014 3017 ENDIF 3015 3018 ENDIF … … 3031 3034 'building_type, or water_type must be set '// & 3032 3035 '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 ) 3034 3037 ENDIF 3035 3038 ! … … 3052 3055 'pavement_type is a non-missing value.' 3053 3056 CALL message( 'netcdf_data_input_mod', 'NDI026', & 3054 2, 2, 0, 6, 0 )3057 2, 2, myid, 6, 0 ) 3055 3058 ENDIF 3056 3059 ENDIF … … 3073 3076 'must be provided.' 3074 3077 CALL message( 'netcdf_data_input_mod', 'NDI027', & 3075 2, 2, 0, 6, 0 )3078 2, 2, myid, 6, 0 ) 3076 3079 ELSEIF ( ANY ( surface_fraction_f%frac(:,j,i) == & 3077 3080 surface_fraction_f%fill ) ) THEN … … 3080 3083 'must be provided.' 3081 3084 CALL message( 'netcdf_data_input_mod', 'NDI027', & 3082 2, 2, 0, 6, 0 )3085 2, 2, myid, 6, 0 ) 3083 3086 ENDIF 3084 3087 ENDIF … … 3093 3096 message_string = 'surface_fraction must not exceed 1' 3094 3097 CALL message( 'netcdf_data_input_mod', 'NDI028', & 3095 2, 2, 0, 6, 0 )3098 2, 2, myid, 6, 0 ) 3096 3099 ENDIF 3097 3100 ! … … 3119 3122 ' ), but surface fraction is 0 for the given type.' 3120 3123 CALL message( 'netcdf_data_input_mod', 'NDI029', & 3121 2, 2, 0, 6, 0 )3124 2, 2, myid, 6, 0 ) 3122 3125 ENDIF 3123 3126 ! … … 3146 3149 'given type.' 3147 3150 CALL message( 'netcdf_data_input_mod', 'NDI030', & 3148 2, 2, 0, 6, 0 )3151 2, 2, myid, 6, 0 ) 3149 3152 ENDIF 3150 3153 ENDIF … … 3161 3164 'this location must be set.' 3162 3165 CALL message( 'netcdf_data_input_mod', 'NDI031', & 3163 2, 2, 0, 6, 0 )3166 2, 2, myid, 6, 0 ) 3164 3167 ENDIF 3165 3168 ENDIF … … 3176 3179 'must be set at this location.' 3177 3180 CALL message( 'netcdf_data_input_mod', 'NDI032', & 3178 2, 2, 0, 6, 0 )3181 2, 2, myid, 6, 0 ) 3179 3182 ENDIF 3180 3183 ENDIF … … 3200 3203 'soil_pars at this location must be set.' 3201 3204 CALL message( 'netcdf_data_input_mod', 'NDI033', & 3202 2, 2, 0, 6, 0 )3205 2, 2, myid, 6, 0 ) 3203 3206 ENDIF 3204 3207 ENDIF … … 3215 3218 'location must be set.' 3216 3219 CALL message( 'netcdf_data_input_mod', 'NDI034', & 3217 2, 2, 0, 6, 0 )3220 2, 2, myid, 6, 0 ) 3218 3221 ENDIF 3219 3222 ENDIF … … 3232 3235 'i, j = ', i, j 3233 3236 CALL message( 'netcdf_data_input_mod', 'NDI035', & 3234 2, 2, 0, 6, 0 )3237 2, 2, myid, 6, 0 ) 3235 3238 ENDIF 3236 3239 ENDIF … … 3244 3247 'i, j = ', i, j 3245 3248 CALL message( 'netcdf_data_input_mod', 'NDI035', & 3246 2, 2, 0, 6, 0 )3249 2, 2, myid, 6, 0 ) 3247 3250 ENDIF 3248 3251 ENDIF … … 3259 3262 '( and vice versa ). i, j = ', i, j 3260 3263 CALL message( 'netcdf_data_input_mod', 'NDI036', & 3261 2, 2, 0, 6, 0 )3264 2, 2, myid, 6, 0 ) 3262 3265 ENDIF 3263 3266 ELSEIF ( buildings_f%lod == 2 ) THEN … … 3268 3271 '( and vice versa ). i, j = ', i, j 3269 3272 CALL message( 'netcdf_data_input_mod', 'NDI036', & 3270 2, 2, 0, 6, 0 )3273 2, 2, myid, 6, 0 ) 3271 3274 ENDIF 3272 3275 ENDIF … … 3282 3285 'requires an ID.', i, j 3283 3286 CALL message( 'netcdf_data_input_mod', 'NDI036', & 3284 2, 2, 0, 6, 0 )3287 2, 2, myid, 6, 0 ) 3285 3288 ENDIF 3286 3289 ELSEIF ( buildings_f%lod == 2 ) THEN … … 3290 3293 'requires an ID.', i, j 3291 3294 CALL message( 'netcdf_data_input_mod', 'NDI036', & 3292 2, 2, 0, 6, 0 )3295 2, 2, myid, 6, 0 ) 3293 3296 ENDIF 3294 3297 ENDIF … … 3305 3308 'location must be set.' 3306 3309 CALL message( 'netcdf_data_input_mod', 'NDI037', & 3307 2, 2, 0, 6, 0 )3310 2, 2, myid, 6, 0 ) 3308 3311 ENDIF 3309 3312 ENDIF … … 3321 3324 'location must be set.' 3322 3325 CALL message( 'netcdf_data_input_mod', 'NDI038', & 3323 2, 2, 0, 6, 0 )3326 2, 2, myid, 6, 0 ) 3324 3327 ENDIF 3325 3328 ENDIF … … 3338 3341 'location must be set.' 3339 3342 CALL message( 'netcdf_data_input_mod', 'NDI039', & 3340 2, 2, 0, 6, 0 )3343 2, 2, myid, 6, 0 ) 3341 3344 ENDIF 3342 3345 ENDIF … … 3354 3357 'location must be set.' 3355 3358 CALL message( 'netcdf_data_input_mod', 'NDI040', & 3356 2, 2, 0, 6, 0 )3359 2, 2, myid, 6, 0 ) 3357 3360 ENDIF 3358 3361 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.
