Changeset 274 for palm/trunk/SOURCE/netcdf.f90
- Timestamp:
- Mar 26, 2009 3:11:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf.f90
r263 r274 110 110 j = INDEX( netcdf_precision(i), '_' ) 111 111 IF ( j == 0 ) THEN 112 WRITE ( message_string, * ) 'netcdf_precision must contain a "_"', &113 ' netcdf_precision(', i, ')="',&112 WRITE ( message_string, * ) 'netcdf_precision must contain a ', & 113 '"_"netcdf_precision(', i, ')="', & 114 114 TRIM( netcdf_precision(i) ),'"' 115 115 CALL message( 'define_netcdf_header', 'PA0241', 1, 2, 0, 6, 0 ) … … 153 153 154 154 CASE DEFAULT 155 WRITE ( message_string, * ) 'unknown variable in inipar assignment:',&156 'netcdf_precision(', i, ')="',&155 WRITE ( message_string, * ) 'unknown variable in inipar ', & 156 'assignment: netcdf_precision(', i, ')="', & 157 157 TRIM( netcdf_precision(i) ),'"' 158 CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 ) 158 CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 ) 159 159 160 160 END SELECT … … 418 418 WRITE ( message_string, * ) 'no grid defined for', & 419 419 ' variable ', TRIM( do3d(av,i) ) 420 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 420 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 421 421 ENDIF 422 422 … … 950 950 WRITE ( message_string, * ) 'no grid defined for', & 951 951 ' variable ', TRIM( do2d(av,i) ) 952 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 952 CALL message( 'define_netcdf_header', 'PA0244',& 953 0, 1, 0, 6, 0 ) 953 954 ENDIF 954 955 … … 1189 1190 IF ( section(i,1) /= -1 ) THEN 1190 1191 IF ( zu(section(i,1)) /= netcdf_data(i) ) THEN 1191 message_string = 'NetCDF file for cross-sections ' // & 1192 TRIM( var ) // ' from previuos run found,' // & 1193 '&but this file cannot be extended' // & 1194 ' due to mismatch in cross' // & 1195 '§ion levels.' // & 1196 '&New file is created instead.' 1197 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 1192 message_string = 'NetCDF file for cross-sections ' // & 1193 TRIM( var ) // ' from previuos run found,' // & 1194 '&but this file cannot be extended' // & 1195 ' due to mismatch in cross' // & 1196 '§ion levels.' // & 1197 '&New file is created instead.' 1198 CALL message( 'define_netcdf_header', 'PA0251', & 1199 0, 1, 0, 6, 0 ) 1198 1200 extend = .FALSE. 1199 1201 RETURN … … 1201 1203 ELSE 1202 1204 IF ( -1.0 /= netcdf_data(i) ) THEN 1203 message_string = 'NetCDF file for cross-sections ' // & 1204 TRIM( var ) // ' from previuos run found,' // & 1205 '&but this file cannot be extended' // & 1206 ' due to mismatch in cross' // & 1207 '§ion levels.' // & 1208 '&New file is created instead.' 1209 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 1205 message_string = 'NetCDF file for cross-sections ' // & 1206 TRIM( var ) // ' from previuos run found,' // & 1207 '&but this file cannot be extended' // & 1208 ' due to mismatch in cross' // & 1209 '§ion levels.' // & 1210 '&New file is created instead.' 1211 CALL message( 'define_netcdf_header', 'PA0251',& 1212 0, 1, 0, 6, 0 ) 1210 1213 extend = .FALSE. 1211 1214 RETURN … … 1501 1504 WRITE ( message_string, * ) 'no grid defined for', & 1502 1505 ' variable ', TRIM( do2d(av,i) ) 1503 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 1506 CALL message( 'define_netcdf_header', 'PA0244',& 1507 0, 1, 0, 6, 0 ) 1504 1508 ENDIF 1505 1509 … … 1708 1712 IF ( section(i,2) /= -1 ) THEN 1709 1713 IF ( ( section(i,2) * dy ) /= netcdf_data(i) ) THEN 1710 message_string = 'NetCDF file for cross-sections ' // & 1711 TRIM( var ) // ' from previuos run found,' // & 1712 '&but this file cannot be extended' // & 1713 ' due to mismatch in cross' // & 1714 '§ion levels.' // & 1715 '&New file is created instead.' 1716 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 1714 message_string = 'NetCDF file for cross-sections ' // & 1715 TRIM( var ) // ' from previuos run found,' // & 1716 '&but this file cannot be extended' // & 1717 ' due to mismatch in cross' // & 1718 '§ion levels.' // & 1719 '&New file is created instead.' 1720 CALL message( 'define_netcdf_header', 'PA0251', & 1721 0, 1, 0, 6, 0 ) 1717 1722 extend = .FALSE. 1718 1723 RETURN … … 1720 1725 ELSE 1721 1726 IF ( -1.0 /= netcdf_data(i) ) THEN 1722 message_string = 'NetCDF file for cross-sections ' // & 1723 TRIM( var ) // ' from previuos run found,' // & 1724 '&but this file cannot be extended' // & 1725 ' due to mismatch in cross' // & 1726 '§ion levels.' // & 1727 '&New file is created instead.' 1728 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 1727 message_string = 'NetCDF file for cross-sections ' // & 1728 TRIM( var ) // ' from previuos run found,' // & 1729 '&but this file cannot be extended' // & 1730 ' due to mismatch in cross' // & 1731 '§ion levels.' // & 1732 '&New file is created instead.' 1733 CALL message( 'define_netcdf_header', 'PA0251', & 1734 0, 1, 0, 6, 0 ) 1729 1735 extend = .FALSE. 1730 1736 RETURN … … 2020 2026 WRITE ( message_string, * ) 'no grid defined for', & 2021 2027 ' variable ', TRIM( do2d(av,i) ) 2022 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 2028 CALL message( 'define_netcdf_header', 'PA0244',& 2029 0, 1, 0, 6, 0 ) 2023 2030 ENDIF 2024 2031 … … 2225 2232 IF ( section(i,3) /= -1 ) THEN 2226 2233 IF ( ( section(i,3) * dx ) /= netcdf_data(i) ) THEN 2227 message_string = 'NetCDF file for cross-sections ' // & 2228 TRIM( var ) // ' from previuos run found,' // & 2229 '&but this file cannot be extended' // & 2230 ' due to mismatch in cross' // & 2231 '§ion levels.' // & 2232 '&New file is created instead.' 2233 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 2234 message_string = 'NetCDF file for cross-sections ' // & 2235 TRIM( var ) // ' from previuos run found,' // & 2236 '&but this file cannot be extended' // & 2237 ' due to mismatch in cross' // & 2238 '§ion levels.' // & 2239 '&New file is created instead.' 2240 CALL message( 'define_netcdf_header', 'PA0251', & 2241 0, 1, 0, 6, 0 ) 2234 2242 extend = .FALSE. 2235 2243 RETURN … … 2237 2245 ELSE 2238 2246 IF ( -1.0 /= netcdf_data(i) ) THEN 2239 message_string = 'NetCDF file for cross-sections ' // & 2240 TRIM( var ) // ' from previuos run found,' // & 2241 '&but this file cannot be extended' // & 2242 ' due to mismatch in cross' // & 2243 '§ion levels.' // & 2244 '&New file is created instead.' 2245 CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 ) 2247 message_string = 'NetCDF file for cross-sections ' // & 2248 TRIM( var ) // ' from previuos run found,' // & 2249 '&but this file cannot be extended' // & 2250 ' due to mismatch in cross' // & 2251 '§ion levels.' // & 2252 '&New file is created instead.' 2253 CALL message( 'define_netcdf_header', 'PA0251', & 2254 0, 1, 0, 6, 0 ) 2246 2255 extend = .FALSE. 2247 2256 RETURN … … 3216 3225 IF ( averaging_interval_sp /= 0.0 ) THEN 3217 3226 WRITE (time_average_text,'('', '',F7.1,'' s average'')') & 3218 3227 averaging_interval_sp 3219 3228 nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', & 3220 3229 TRIM( run_description_header ) // &
Note: See TracChangeset
for help on using the changeset viewer.