Changeset 3518 for palm/trunk/SOURCE/netcdf_data_input_mod.f90
- Timestamp:
- Nov 12, 2018 6:10:23 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3516 r3518 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Additional checks 28 ! 29 ! 3516 2018-11-12 15:49:39Z gronemeier 27 30 ! bugfix: - difference in z coordinate between file and PALM must be <1e-6 28 31 ! - output of error 553 for all PEs … … 2583 2586 CALL inquire_variable_names( id_uvem, var_names ) 2584 2587 ! 2585 !2586 2588 !-- uvem integration 2587 2589 IF ( check_existence( var_names, 'int_factors' ) ) THEN … … 2596 2598 ENDIF 2597 2599 ! 2598 !2599 !2600 2600 !-- uvem irradiance 2601 2601 IF ( check_existence( var_names, 'irradiance' ) ) THEN … … 2610 2610 ENDIF 2611 2611 ! 2612 !2613 !2614 2612 !-- uvem porjection areas 2615 2613 IF ( check_existence( var_names, 'projarea' ) ) THEN … … 2624 2622 ENDIF 2625 2623 ! 2626 !2627 !2628 2624 !-- uvem radiance 2629 2625 IF ( check_existence( var_names, 'radiance' ) ) THEN … … 2637 2633 uvem_radiance_f%from_file = .FALSE. 2638 2634 ENDIF 2639 !2640 !2641 2635 ! 2642 2636 !-- Read building obstruction … … 2661 2655 building_obstruction_f%from_file = .FALSE. 2662 2656 ENDIF 2663 !2664 !2665 !2666 2657 ! 2667 2658 !-- Close uvem lookup table input file … … 4038 4029 ENDIF 4039 4030 ! 4031 !-- Buildings require a type in case of urban-surface model. 4032 IF ( buildings_f%from_file .AND. .NOT. building_type_f%from_file ) THEN 4033 message_string = 'If buildings are provided, also building_type ' // & 4034 'is required' 4035 CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, myid, 6, 0 ) 4036 ENDIF 4037 ! 4038 !-- Buildings require an ID. 4039 IF ( buildings_f%from_file .AND. .NOT. building_id_f%from_file ) THEN 4040 message_string = 'If buildings are provided, also building_id ' // & 4041 'is required' 4042 CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, myid, 6, 0 ) 4043 ENDIF 4044 ! 4040 4045 !-- If building_type is zero at any location, building_pars is required. 4041 4046 IF ( building_type_f%from_file ) THEN … … 4049 4054 ENDIF 4050 4055 ! 4051 !-- If building_type is provided, also building_id is needed 4056 !-- If building_type is provided, also building_id is needed (due to the 4057 !-- filtering algorithm). 4052 4058 IF ( building_type_f%from_file .AND. .NOT. building_id_f%from_file ) & 4053 4059 THEN
Note: See TracChangeset
for help on using the changeset viewer.