- Timestamp:
- Apr 1, 2019 12:34:01 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3744 r3844 21 21 ! ----------------- 22 22 ! 23 ! 23 24 ! Former revisions: 24 25 ! ----------------- 25 26 ! $Id$ 27 ! Bugfix in one of the checks. Typo removed. 28 ! 29 ! 3744 2019-02-15 18:38:58Z suehring 26 30 ! Enable mesoscale offline nesting for chemistry variables as well as 27 31 ! initialization of chemistry via dynamic input file. … … 3892 3896 'soil_type and water_type are '// & 3893 3897 'required. If urban-surface model is applied, ' // & 3894 'also building_type is trequired'3898 'also building_type is required' 3895 3899 CALL message( 'netcdf_data_input_mod', 'PA0554', 1, 2, 0, 6, 0 ) 3896 3900 ENDIF … … 4019 4023 !-- vegetation_type, pavement_type, building_type, or water_type 4020 4024 !-- must be set to a nonÂmissing value. 4021 IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill .AND. & 4022 pavement_type_f%var(j,i) == pavement_type_f%fill .AND. & 4023 building_type_f%var(j,i) == building_type_f%fill .AND. & 4024 water_type_f%var(j,i) == water_type_f%fill ) THEN 4025 WRITE( message_string, * ) 'At least one of the parameters '// & 4026 'vegetation_type, pavement_type, ' // & 4025 IF ( land_surface .AND. .NOT. urban_surface ) THEN 4026 IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill .AND.& 4027 pavement_type_f%var(j,i) == pavement_type_f%fill .AND.& 4028 water_type_f%var(j,i) == water_type_f%fill ) THEN 4029 WRITE( message_string, * ) & 4030 'At least one of the parameters '// & 4031 'vegetation_type, pavement_type, ' // & 4032 'or water_type must be set '// & 4033 'to a non-missing value. Grid point: ', j, i 4034 CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 ) 4035 ENDIF 4036 ELSEIF ( land_surface .AND. urban_surface ) THEN 4037 IF ( vegetation_type_f%var(j,i) == vegetation_type_f%fill .AND.& 4038 pavement_type_f%var(j,i) == pavement_type_f%fill .AND.& 4039 building_type_f%var(j,i) == building_type_f%fill .AND.& 4040 water_type_f%var(j,i) == water_type_f%fill ) THEN 4041 WRITE( message_string, * ) & 4042 'At least one of the parameters '// & 4043 'vegetation_type, pavement_type, ' // & 4027 4044 'building_type, or water_type must be set '// & 4028 4045 'to a non-missing value. Grid point: ', j, i 4029 CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 ) 4046 CALL message( 'netcdf_data_input_mod', 'PA0563', 2, 2, myid, 6, 0 ) 4047 ENDIF 4030 4048 ENDIF 4049 4031 4050 ! 4032 4051 !-- Note that a soil_type is required for each location (y,x) where
Note: See TracChangeset
for help on using the changeset viewer.