[1] | 1 | #if defined( __ibmy_special ) |
---|
| 2 | @PROCESS NOOPTimize |
---|
| 3 | #endif |
---|
| 4 | SUBROUTINE define_netcdf_header( callmode, extend, av ) |
---|
| 5 | |
---|
| 6 | !------------------------------------------------------------------------------! |
---|
| 7 | ! Current revisions: |
---|
| 8 | ! ------------------ |
---|
[288] | 9 | ! NetCDF unit attribute in timeseries output in case of statistic |
---|
| 10 | ! regions added. |
---|
[263] | 11 | ! Output of NetCDF messages with aid of message handling routine. |
---|
[257] | 12 | ! Output of messages replaced by message handling routine. |
---|
[175] | 13 | ! |
---|
[257] | 14 | ! |
---|
[1] | 15 | ! Former revisions: |
---|
| 16 | ! ----------------- |
---|
[3] | 17 | ! $Id: netcdf.f90 288 2009-04-09 11:20:12Z letzel $ |
---|
[77] | 18 | ! |
---|
[226] | 19 | ! 216 2008-11-25 07:12:43Z raasch |
---|
| 20 | ! Origin of the xy-coordinate system shifted from the center of the first |
---|
| 21 | ! grid cell (indices i=0, j=0) to the south-left corner of this cell. |
---|
| 22 | ! |
---|
[198] | 23 | ! 189 2008-08-13 17:09:26Z letzel |
---|
| 24 | ! consistently allow 100 spectra levels instead of 10 |
---|
| 25 | ! bug fix in the determination of the number of output heights for spectra, |
---|
| 26 | ! +user-defined spectra |
---|
| 27 | ! |
---|
[98] | 28 | ! 97 2007-06-21 08:23:15Z raasch |
---|
| 29 | ! Grids defined for rho and sa |
---|
| 30 | ! |
---|
[77] | 31 | ! 48 2007-03-06 12:28:36Z raasch |
---|
| 32 | ! Output topography height information (zu_s_inner, zw_s_inner) to 2d-xy and 3d |
---|
| 33 | ! datasets |
---|
| 34 | ! |
---|
[3] | 35 | ! RCS Log replace by Id keyword, revision history cleaned up |
---|
| 36 | ! |
---|
[1] | 37 | ! Revision 1.12 2006/09/26 19:35:16 raasch |
---|
| 38 | ! Bugfix yv coordinates for yz cross sections |
---|
| 39 | ! |
---|
| 40 | ! Revision 1.1 2005/05/18 15:37:16 raasch |
---|
| 41 | ! Initial revision |
---|
| 42 | ! |
---|
| 43 | ! |
---|
| 44 | ! Description: |
---|
| 45 | ! ------------ |
---|
| 46 | ! In case of extend = .FALSE.: |
---|
| 47 | ! Define all necessary dimensions, axes and variables for the different |
---|
| 48 | ! NetCDF datasets. This subroutine is called from check_open after a new |
---|
| 49 | ! dataset is created. It leaves the open NetCDF files ready to write. |
---|
| 50 | ! |
---|
| 51 | ! In case of extend = .TRUE.: |
---|
| 52 | ! Find out if dimensions and variables of an existing file match the values |
---|
| 53 | ! of the actual run. If so, get all necessary informations (ids, etc.) from |
---|
| 54 | ! this file. |
---|
| 55 | ! |
---|
| 56 | ! Parameter av can assume values 0 (non-averaged data) and 1 (time averaged |
---|
| 57 | ! data) |
---|
| 58 | !------------------------------------------------------------------------------! |
---|
| 59 | #if defined( __netcdf ) |
---|
| 60 | |
---|
| 61 | USE arrays_3d |
---|
| 62 | USE constants |
---|
| 63 | USE control_parameters |
---|
| 64 | USE grid_variables |
---|
| 65 | USE indices |
---|
| 66 | USE netcdf_control |
---|
| 67 | USE pegrid |
---|
| 68 | USE particle_attributes |
---|
| 69 | USE profil_parameter |
---|
| 70 | USE spectrum |
---|
| 71 | USE statistics |
---|
| 72 | |
---|
| 73 | |
---|
| 74 | IMPLICIT NONE |
---|
| 75 | |
---|
| 76 | CHARACTER (LEN=2) :: suffix |
---|
| 77 | CHARACTER (LEN=2), INTENT (IN) :: callmode |
---|
| 78 | CHARACTER (LEN=3) :: suffix1 |
---|
| 79 | CHARACTER (LEN=4) :: grid_x, grid_y, grid_z |
---|
| 80 | CHARACTER (LEN=6) :: mode |
---|
| 81 | CHARACTER (LEN=10) :: netcdf_var_name, netcdf_var_name_base, & |
---|
| 82 | precision, var |
---|
| 83 | CHARACTER (LEN=80) :: time_average_text |
---|
| 84 | CHARACTER (LEN=2000) :: var_list, var_list_old |
---|
| 85 | |
---|
| 86 | INTEGER :: av, i, id_x, id_y, id_z, j, ns, ns_old, nz_old |
---|
| 87 | |
---|
| 88 | INTEGER, DIMENSION(1) :: id_dim_time_old, id_dim_x_yz_old, & |
---|
| 89 | id_dim_y_xz_old, id_dim_zu_sp_old, & |
---|
| 90 | id_dim_zu_xy_old, id_dim_zu_3d_old |
---|
| 91 | |
---|
| 92 | LOGICAL :: found |
---|
| 93 | |
---|
| 94 | LOGICAL, INTENT (INOUT) :: extend |
---|
| 95 | |
---|
| 96 | LOGICAL, SAVE :: init_netcdf = .FALSE. |
---|
| 97 | |
---|
| 98 | REAL, DIMENSION(1) :: last_time_coordinate |
---|
| 99 | |
---|
| 100 | REAL, DIMENSION(:), ALLOCATABLE :: netcdf_data |
---|
| 101 | |
---|
| 102 | |
---|
| 103 | ! |
---|
| 104 | !-- Initializing actions (return to calling routine check_parameters afterwards) |
---|
| 105 | IF ( .NOT. init_netcdf ) THEN |
---|
| 106 | ! |
---|
| 107 | !-- Check and set accuracy for NetCDF output. First set default value |
---|
| 108 | nc_precision = NF90_REAL4 |
---|
| 109 | |
---|
| 110 | i = 1 |
---|
| 111 | DO WHILE ( netcdf_precision(i) /= ' ' ) |
---|
| 112 | j = INDEX( netcdf_precision(i), '_' ) |
---|
| 113 | IF ( j == 0 ) THEN |
---|
[274] | 114 | WRITE ( message_string, * ) 'netcdf_precision must contain a ', & |
---|
| 115 | '"_"netcdf_precision(', i, ')="', & |
---|
[257] | 116 | TRIM( netcdf_precision(i) ),'"' |
---|
| 117 | CALL message( 'define_netcdf_header', 'PA0241', 1, 2, 0, 6, 0 ) |
---|
[1] | 118 | ENDIF |
---|
| 119 | |
---|
| 120 | var = netcdf_precision(i)(1:j-1) |
---|
| 121 | precision = netcdf_precision(i)(j+1:) |
---|
| 122 | |
---|
| 123 | IF ( precision == 'NF90_REAL4' ) THEN |
---|
| 124 | j = NF90_REAL4 |
---|
| 125 | ELSEIF ( precision == 'NF90_REAL8' ) THEN |
---|
| 126 | j = NF90_REAL8 |
---|
| 127 | ELSE |
---|
[257] | 128 | WRITE ( message_string, * ) 'illegal netcdf precision: ', & |
---|
| 129 | 'netcdf_precision(', i, ')="', & |
---|
| 130 | TRIM( netcdf_precision(i) ),'"' |
---|
| 131 | CALL message( 'define_netcdf_header', 'PA0242', 1, 2, 0, 6, 0 ) |
---|
[1] | 132 | ENDIF |
---|
| 133 | |
---|
| 134 | SELECT CASE ( var ) |
---|
| 135 | CASE ( 'xy' ) |
---|
| 136 | nc_precision(1) = j |
---|
| 137 | CASE ( 'xz' ) |
---|
| 138 | nc_precision(2) = j |
---|
| 139 | CASE ( 'yz' ) |
---|
| 140 | nc_precision(3) = j |
---|
| 141 | CASE ( '2d' ) |
---|
| 142 | nc_precision(1:3) = j |
---|
| 143 | CASE ( '3d' ) |
---|
| 144 | nc_precision(4) = j |
---|
| 145 | CASE ( 'pr' ) |
---|
| 146 | nc_precision(5) = j |
---|
| 147 | CASE ( 'ts' ) |
---|
| 148 | nc_precision(6) = j |
---|
| 149 | CASE ( 'sp' ) |
---|
| 150 | nc_precision(7) = j |
---|
| 151 | CASE ( 'prt' ) |
---|
| 152 | nc_precision(8) = j |
---|
| 153 | CASE ( 'all' ) |
---|
| 154 | nc_precision = j |
---|
| 155 | |
---|
| 156 | CASE DEFAULT |
---|
[274] | 157 | WRITE ( message_string, * ) 'unknown variable in inipar ', & |
---|
| 158 | 'assignment: netcdf_precision(', i, ')="', & |
---|
[257] | 159 | TRIM( netcdf_precision(i) ),'"' |
---|
[274] | 160 | CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 ) |
---|
[1] | 161 | |
---|
| 162 | END SELECT |
---|
| 163 | |
---|
| 164 | i = i + 1 |
---|
| 165 | IF ( i > 10 ) EXIT |
---|
| 166 | ENDDO |
---|
| 167 | |
---|
| 168 | init_netcdf = .TRUE. |
---|
| 169 | |
---|
| 170 | RETURN |
---|
| 171 | |
---|
| 172 | ENDIF |
---|
| 173 | |
---|
| 174 | ! |
---|
| 175 | !-- Determine the mode to be processed |
---|
| 176 | IF ( extend ) THEN |
---|
| 177 | mode = callmode // '_ext' |
---|
| 178 | ELSE |
---|
| 179 | mode = callmode // '_new' |
---|
| 180 | ENDIF |
---|
| 181 | |
---|
| 182 | ! |
---|
| 183 | !-- Select the mode to be processed. Possibilities are xy, xz, yz, pr and ts. |
---|
| 184 | SELECT CASE ( mode ) |
---|
| 185 | |
---|
| 186 | CASE ( '3d_new' ) |
---|
| 187 | |
---|
| 188 | ! |
---|
| 189 | !-- Define some global attributes of the dataset |
---|
| 190 | nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'Conventions', & |
---|
| 191 | 'COARDS' ) |
---|
[263] | 192 | CALL handle_netcdf_error( 'netcdf', 62 ) |
---|
[1] | 193 | |
---|
| 194 | IF ( av == 0 ) THEN |
---|
| 195 | time_average_text = ' ' |
---|
| 196 | ELSE |
---|
| 197 | WRITE (time_average_text, '('', '',F7.1,'' s average'')') & |
---|
| 198 | averaging_interval |
---|
| 199 | ENDIF |
---|
| 200 | nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', & |
---|
| 201 | TRIM( run_description_header ) // & |
---|
| 202 | TRIM( time_average_text ) ) |
---|
[263] | 203 | CALL handle_netcdf_error( 'netcdf', 63 ) |
---|
[1] | 204 | IF ( av == 1 ) THEN |
---|
| 205 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval |
---|
| 206 | nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'time_avg', & |
---|
| 207 | TRIM( time_average_text ) ) |
---|
[263] | 208 | CALL handle_netcdf_error( 'netcdf', 63 ) |
---|
[1] | 209 | ENDIF |
---|
| 210 | |
---|
| 211 | ! |
---|
| 212 | !-- Define time coordinate for volume data (unlimited dimension) |
---|
| 213 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'time', NF90_UNLIMITED, & |
---|
| 214 | id_dim_time_3d(av) ) |
---|
[263] | 215 | CALL handle_netcdf_error( 'netcdf', 64 ) |
---|
[1] | 216 | |
---|
| 217 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'time', NF90_DOUBLE, & |
---|
| 218 | id_dim_time_3d(av), id_var_time_3d(av) ) |
---|
[263] | 219 | CALL handle_netcdf_error( 'netcdf', 65 ) |
---|
[1] | 220 | |
---|
| 221 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_time_3d(av), 'units', & |
---|
| 222 | 'seconds') |
---|
[263] | 223 | CALL handle_netcdf_error( 'netcdf', 66 ) |
---|
[1] | 224 | |
---|
| 225 | ! |
---|
| 226 | !-- Define spatial dimensions and coordinates: |
---|
| 227 | !-- Define vertical coordinate grid (zu grid) |
---|
| 228 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zu_3d', nz_do3d-nzb+1, & |
---|
| 229 | id_dim_zu_3d(av) ) |
---|
[263] | 230 | CALL handle_netcdf_error( 'netcdf', 67 ) |
---|
[1] | 231 | |
---|
| 232 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zu_3d', NF90_DOUBLE, & |
---|
| 233 | id_dim_zu_3d(av), id_var_zu_3d(av) ) |
---|
[263] | 234 | CALL handle_netcdf_error( 'netcdf', 68 ) |
---|
[1] | 235 | |
---|
| 236 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zu_3d(av), 'units', & |
---|
| 237 | 'meters' ) |
---|
[263] | 238 | CALL handle_netcdf_error( 'netcdf', 69 ) |
---|
[1] | 239 | |
---|
| 240 | ! |
---|
| 241 | !-- Define vertical coordinate grid (zw grid) |
---|
| 242 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zw_3d', nz_do3d-nzb+1, & |
---|
| 243 | id_dim_zw_3d(av) ) |
---|
[263] | 244 | CALL handle_netcdf_error( 'netcdf', 70 ) |
---|
[1] | 245 | |
---|
| 246 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zw_3d', NF90_DOUBLE, & |
---|
| 247 | id_dim_zw_3d(av), id_var_zw_3d(av) ) |
---|
[263] | 248 | CALL handle_netcdf_error( 'netcdf', 71 ) |
---|
[1] | 249 | |
---|
| 250 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zw_3d(av), 'units', & |
---|
| 251 | 'meters' ) |
---|
[263] | 252 | CALL handle_netcdf_error( 'netcdf', 72 ) |
---|
[1] | 253 | |
---|
| 254 | ! |
---|
| 255 | !-- Define x-axis (for scalar position) |
---|
| 256 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'x', nx+2, id_dim_x_3d(av) ) |
---|
[263] | 257 | CALL handle_netcdf_error( 'netcdf', 73 ) |
---|
[1] | 258 | |
---|
| 259 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'x', NF90_DOUBLE, & |
---|
| 260 | id_dim_x_3d(av), id_var_x_3d(av) ) |
---|
[263] | 261 | CALL handle_netcdf_error( 'netcdf', 74 ) |
---|
[1] | 262 | |
---|
| 263 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_x_3d(av), 'units', & |
---|
| 264 | 'meters' ) |
---|
[263] | 265 | CALL handle_netcdf_error( 'netcdf', 75 ) |
---|
[1] | 266 | |
---|
| 267 | ! |
---|
| 268 | !-- Define x-axis (for u position) |
---|
| 269 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'xu', nx+2, id_dim_xu_3d(av) ) |
---|
[263] | 270 | CALL handle_netcdf_error( 'netcdf', 358 ) |
---|
[1] | 271 | |
---|
| 272 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'xu', NF90_DOUBLE, & |
---|
| 273 | id_dim_xu_3d(av), id_var_xu_3d(av) ) |
---|
[263] | 274 | CALL handle_netcdf_error( 'netcdf', 359 ) |
---|
[1] | 275 | |
---|
| 276 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_xu_3d(av), 'units', & |
---|
| 277 | 'meters' ) |
---|
[263] | 278 | CALL handle_netcdf_error( 'netcdf', 360 ) |
---|
[1] | 279 | |
---|
| 280 | ! |
---|
| 281 | !-- Define y-axis (for scalar position) |
---|
| 282 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'y', ny+2, id_dim_y_3d(av) ) |
---|
[263] | 283 | CALL handle_netcdf_error( 'netcdf', 76 ) |
---|
[1] | 284 | |
---|
| 285 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'y', NF90_DOUBLE, & |
---|
| 286 | id_dim_y_3d(av), id_var_y_3d(av) ) |
---|
[263] | 287 | CALL handle_netcdf_error( 'netcdf', 77 ) |
---|
[1] | 288 | |
---|
| 289 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_y_3d(av), 'units', & |
---|
| 290 | 'meters' ) |
---|
[263] | 291 | CALL handle_netcdf_error( 'netcdf', 78 ) |
---|
[1] | 292 | |
---|
| 293 | ! |
---|
| 294 | !-- Define y-axis (for v position) |
---|
| 295 | nc_stat = NF90_DEF_DIM( id_set_3d(av), 'yv', ny+2, id_dim_yv_3d(av) ) |
---|
[263] | 296 | CALL handle_netcdf_error( 'netcdf', 361 ) |
---|
[1] | 297 | |
---|
| 298 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'yv', NF90_DOUBLE, & |
---|
| 299 | id_dim_yv_3d(av), id_var_yv_3d(av) ) |
---|
[263] | 300 | CALL handle_netcdf_error( 'netcdf', 362 ) |
---|
[1] | 301 | |
---|
| 302 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_yv_3d(av), 'units', & |
---|
| 303 | 'meters' ) |
---|
[263] | 304 | CALL handle_netcdf_error( 'netcdf', 363 ) |
---|
[1] | 305 | |
---|
| 306 | ! |
---|
[48] | 307 | !-- In case of non-flat topography define 2d-arrays containing the height |
---|
| 308 | !-- informations |
---|
| 309 | IF ( TRIM( topography ) /= 'flat' ) THEN |
---|
| 310 | ! |
---|
| 311 | !-- Define zusi = zu(nzb_s_inner) |
---|
| 312 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zusi', NF90_DOUBLE, & |
---|
| 313 | (/ id_dim_x_3d(av), id_dim_y_3d(av) /), & |
---|
| 314 | id_var_zusi_3d(av) ) |
---|
[263] | 315 | CALL handle_netcdf_error( 'netcdf', 413 ) |
---|
[48] | 316 | |
---|
| 317 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), & |
---|
| 318 | 'units', 'meters' ) |
---|
[263] | 319 | CALL handle_netcdf_error( 'netcdf', 414 ) |
---|
[48] | 320 | |
---|
| 321 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), & |
---|
| 322 | 'long_name', 'zu(nzb_s_inner)' ) |
---|
[263] | 323 | CALL handle_netcdf_error( 'netcdf', 415 ) |
---|
[48] | 324 | |
---|
| 325 | ! |
---|
| 326 | !-- Define zwwi = zw(nzb_w_inner) |
---|
| 327 | nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zwwi', NF90_DOUBLE, & |
---|
| 328 | (/ id_dim_x_3d(av), id_dim_y_3d(av) /), & |
---|
| 329 | id_var_zwwi_3d(av) ) |
---|
[263] | 330 | CALL handle_netcdf_error( 'netcdf', 416 ) |
---|
[48] | 331 | |
---|
| 332 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), & |
---|
| 333 | 'units', 'meters' ) |
---|
[263] | 334 | CALL handle_netcdf_error( 'netcdf', 417 ) |
---|
[48] | 335 | |
---|
| 336 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), & |
---|
| 337 | 'long_name', 'zw(nzb_w_inner)' ) |
---|
[263] | 338 | CALL handle_netcdf_error( 'netcdf', 418 ) |
---|
[48] | 339 | |
---|
| 340 | ENDIF |
---|
| 341 | |
---|
| 342 | |
---|
| 343 | ! |
---|
[1] | 344 | !-- Define the variables |
---|
| 345 | var_list = ';' |
---|
| 346 | i = 1 |
---|
| 347 | |
---|
| 348 | DO WHILE ( do3d(av,i)(1:1) /= ' ' ) |
---|
| 349 | |
---|
| 350 | ! |
---|
| 351 | !-- Check for the grid |
---|
| 352 | found = .TRUE. |
---|
| 353 | SELECT CASE ( do3d(av,i) ) |
---|
| 354 | ! |
---|
| 355 | !-- Most variables are defined on the scalar grid |
---|
| 356 | CASE ( 'e', 'p', 'pc', 'pr', 'pt', 'q', 'ql', 'ql_c', 'ql_v', & |
---|
[97] | 357 | 'ql_vp', 'qv', 'rho', 's', 'sa', 'vpt' ) |
---|
[1] | 358 | |
---|
| 359 | grid_x = 'x' |
---|
| 360 | grid_y = 'y' |
---|
| 361 | grid_z = 'zu' |
---|
| 362 | ! |
---|
| 363 | !-- u grid |
---|
| 364 | CASE ( 'u' ) |
---|
| 365 | |
---|
| 366 | grid_x = 'xu' |
---|
| 367 | grid_y = 'y' |
---|
| 368 | grid_z = 'zu' |
---|
| 369 | ! |
---|
| 370 | !-- v grid |
---|
| 371 | CASE ( 'v' ) |
---|
| 372 | |
---|
| 373 | grid_x = 'x' |
---|
| 374 | grid_y = 'yv' |
---|
| 375 | grid_z = 'zu' |
---|
| 376 | ! |
---|
| 377 | !-- w grid |
---|
| 378 | CASE ( 'w' ) |
---|
| 379 | |
---|
| 380 | grid_x = 'x' |
---|
| 381 | grid_y = 'y' |
---|
| 382 | grid_z = 'zw' |
---|
| 383 | |
---|
| 384 | CASE DEFAULT |
---|
| 385 | ! |
---|
| 386 | !-- Check for user-defined quantities |
---|
| 387 | CALL user_define_netcdf_grid( do3d(av,i), found, grid_x, & |
---|
| 388 | grid_y, grid_z ) |
---|
| 389 | |
---|
| 390 | END SELECT |
---|
| 391 | |
---|
| 392 | ! |
---|
| 393 | !-- Select the respective dimension ids |
---|
| 394 | IF ( grid_x == 'x' ) THEN |
---|
| 395 | id_x = id_dim_x_3d(av) |
---|
| 396 | ELSEIF ( grid_x == 'xu' ) THEN |
---|
| 397 | id_x = id_dim_xu_3d(av) |
---|
| 398 | ENDIF |
---|
| 399 | |
---|
| 400 | IF ( grid_y == 'y' ) THEN |
---|
| 401 | id_y = id_dim_y_3d(av) |
---|
| 402 | ELSEIF ( grid_y == 'yv' ) THEN |
---|
| 403 | id_y = id_dim_yv_3d(av) |
---|
| 404 | ENDIF |
---|
| 405 | |
---|
| 406 | IF ( grid_z == 'zu' ) THEN |
---|
| 407 | id_z = id_dim_zu_3d(av) |
---|
| 408 | ELSEIF ( grid_z == 'zw' ) THEN |
---|
| 409 | id_z = id_dim_zw_3d(av) |
---|
| 410 | ENDIF |
---|
| 411 | |
---|
| 412 | ! |
---|
| 413 | !-- Define the grid |
---|
| 414 | nc_stat = NF90_DEF_VAR( id_set_3d(av), do3d(av,i), & |
---|
| 415 | nc_precision(4), & |
---|
| 416 | (/ id_x, id_y, id_z, id_dim_time_3d(av) /), & |
---|
| 417 | id_var_do3d(av,i) ) |
---|
| 418 | |
---|
| 419 | IF ( .NOT. found ) THEN |
---|
[257] | 420 | WRITE ( message_string, * ) 'no grid defined for', & |
---|
| 421 | ' variable ', TRIM( do3d(av,i) ) |
---|
[274] | 422 | CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) |
---|
[1] | 423 | ENDIF |
---|
| 424 | |
---|
| 425 | var_list = TRIM( var_list ) // TRIM( do3d(av,i) ) // ';' |
---|
| 426 | |
---|
[263] | 427 | CALL handle_netcdf_error( 'netcdf', 79 ) |
---|
[1] | 428 | ! |
---|
| 429 | !-- Store the 'real' name of the variable (with *, for example) |
---|
| 430 | !-- in the long_name attribute. This is evaluated by Ferret, |
---|
| 431 | !-- for example. |
---|
| 432 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), & |
---|
| 433 | 'long_name', do3d(av,i) ) |
---|
[263] | 434 | CALL handle_netcdf_error( 'netcdf', 80 ) |
---|
[1] | 435 | ! |
---|
| 436 | !-- Define the variable's unit |
---|
| 437 | nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), & |
---|
| 438 | 'units', TRIM( do3d_unit(av,i) ) ) |
---|
[263] | 439 | CALL handle_netcdf_error( 'netcdf', 357 ) |
---|
[1] | 440 | |
---|
| 441 | i = i + 1 |
---|
| 442 | |
---|
| 443 | ENDDO |
---|
| 444 | |
---|
| 445 | ! |
---|
| 446 | !-- No arrays to output |
---|
| 447 | IF ( i == 1 ) RETURN |
---|
| 448 | |
---|
| 449 | ! |
---|
| 450 | !-- Write the list of variables as global attribute (this is used by |
---|
| 451 | !-- restart runs and by combine_plot_fields) |
---|
| 452 | nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 453 | var_list ) |
---|
[263] | 454 | CALL handle_netcdf_error( 'netcdf', 81 ) |
---|
[1] | 455 | |
---|
| 456 | ! |
---|
| 457 | !-- Leave NetCDF define mode |
---|
| 458 | nc_stat = NF90_ENDDEF( id_set_3d(av) ) |
---|
[263] | 459 | CALL handle_netcdf_error( 'netcdf', 82 ) |
---|
[1] | 460 | |
---|
| 461 | ! |
---|
[216] | 462 | !-- Write data for x (shifted by +dx/2) and xu axis |
---|
[1] | 463 | ALLOCATE( netcdf_data(0:nx+1) ) |
---|
| 464 | |
---|
| 465 | DO i = 0, nx+1 |
---|
[216] | 466 | netcdf_data(i) = ( i + 0.5 ) * dx |
---|
[1] | 467 | ENDDO |
---|
| 468 | |
---|
| 469 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_x_3d(av), netcdf_data, & |
---|
| 470 | start = (/ 1 /), count = (/ nx+2 /) ) |
---|
[263] | 471 | CALL handle_netcdf_error( 'netcdf', 83 ) |
---|
[1] | 472 | |
---|
| 473 | DO i = 0, nx+1 |
---|
[216] | 474 | netcdf_data(i) = i * dx |
---|
[1] | 475 | ENDDO |
---|
| 476 | |
---|
| 477 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_xu_3d(av), & |
---|
| 478 | netcdf_data, start = (/ 1 /), & |
---|
| 479 | count = (/ nx+2 /) ) |
---|
[263] | 480 | CALL handle_netcdf_error( 'netcdf', 385 ) |
---|
[1] | 481 | |
---|
| 482 | DEALLOCATE( netcdf_data ) |
---|
| 483 | |
---|
| 484 | ! |
---|
[216] | 485 | !-- Write data for y (shifted by +dy/2) and yv axis |
---|
[1] | 486 | ALLOCATE( netcdf_data(0:ny+1) ) |
---|
| 487 | |
---|
| 488 | DO i = 0, ny+1 |
---|
[216] | 489 | netcdf_data(i) = ( i + 0.5 ) * dy |
---|
[1] | 490 | ENDDO |
---|
| 491 | |
---|
| 492 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_y_3d(av), netcdf_data, & |
---|
| 493 | start = (/ 1 /), count = (/ ny+2 /)) |
---|
[263] | 494 | CALL handle_netcdf_error( 'netcdf', 84 ) |
---|
[1] | 495 | |
---|
| 496 | DO i = 0, ny+1 |
---|
[216] | 497 | netcdf_data(i) = i * dy |
---|
[1] | 498 | ENDDO |
---|
| 499 | |
---|
| 500 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_yv_3d(av), & |
---|
| 501 | netcdf_data, start = (/ 1 /), & |
---|
| 502 | count = (/ ny+2 /)) |
---|
[263] | 503 | CALL handle_netcdf_error( 'netcdf', 387 ) |
---|
[1] | 504 | |
---|
| 505 | DEALLOCATE( netcdf_data ) |
---|
| 506 | |
---|
| 507 | ! |
---|
| 508 | !-- Write zu and zw data (vertical axes) |
---|
| 509 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zu_3d(av), & |
---|
| 510 | zu(nzb:nz_do3d), start = (/ 1 /), & |
---|
| 511 | count = (/ nz_do3d-nzb+1 /) ) |
---|
[263] | 512 | CALL handle_netcdf_error( 'netcdf', 85 ) |
---|
[1] | 513 | |
---|
[263] | 514 | |
---|
[1] | 515 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zw_3d(av), & |
---|
| 516 | zw(nzb:nz_do3d), start = (/ 1 /), & |
---|
| 517 | count = (/ nz_do3d-nzb+1 /) ) |
---|
[263] | 518 | CALL handle_netcdf_error( 'netcdf', 86 ) |
---|
[1] | 519 | |
---|
| 520 | |
---|
[48] | 521 | ! |
---|
| 522 | !-- In case of non-flat topography write height information |
---|
| 523 | IF ( TRIM( topography ) /= 'flat' ) THEN |
---|
| 524 | |
---|
| 525 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zusi_3d(av), & |
---|
| 526 | zu_s_inner(0:nx+1,0:ny+1), & |
---|
| 527 | start = (/ 1, 1 /), & |
---|
| 528 | count = (/ nx+2, ny+2 /) ) |
---|
[263] | 529 | CALL handle_netcdf_error( 'netcdf', 419 ) |
---|
[48] | 530 | |
---|
| 531 | nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zwwi_3d(av), & |
---|
| 532 | zw_w_inner(0:nx+1,0:ny+1), & |
---|
| 533 | start = (/ 1, 1 /), & |
---|
| 534 | count = (/ nx+2, ny+2 /) ) |
---|
[263] | 535 | CALL handle_netcdf_error( 'netcdf', 420 ) |
---|
[48] | 536 | |
---|
| 537 | ENDIF |
---|
| 538 | |
---|
[1] | 539 | CASE ( '3d_ext' ) |
---|
| 540 | |
---|
| 541 | ! |
---|
| 542 | !-- Get the list of variables and compare with the actual run. |
---|
| 543 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 544 | !-- trailing blanks. |
---|
| 545 | var_list_old = ' ' |
---|
| 546 | nc_stat = NF90_GET_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 547 | var_list_old ) |
---|
[263] | 548 | CALL handle_netcdf_error( 'netcdf', 87 ) |
---|
[1] | 549 | |
---|
| 550 | var_list = ';' |
---|
| 551 | i = 1 |
---|
| 552 | DO WHILE ( do3d(av,i)(1:1) /= ' ' ) |
---|
| 553 | var_list = TRIM(var_list) // TRIM( do3d(av,i) ) // ';' |
---|
| 554 | i = i + 1 |
---|
| 555 | ENDDO |
---|
| 556 | |
---|
| 557 | IF ( av == 0 ) THEN |
---|
| 558 | var = '(3d)' |
---|
| 559 | ELSE |
---|
| 560 | var = '(3d_av)' |
---|
| 561 | ENDIF |
---|
| 562 | |
---|
| 563 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 564 | message_string = 'NetCDF file for volume data ' // & |
---|
| 565 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 566 | '&but this file cannot be extended due to' // & |
---|
| 567 | ' variable mismatch.' // & |
---|
| 568 | '&New file is created instead.' |
---|
| 569 | CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 ) |
---|
[1] | 570 | extend = .FALSE. |
---|
| 571 | RETURN |
---|
| 572 | ENDIF |
---|
| 573 | |
---|
| 574 | ! |
---|
| 575 | !-- Get and compare the number of vertical gridpoints |
---|
| 576 | nc_stat = NF90_INQ_VARID( id_set_3d(av), 'zu_3d', id_var_zu_3d(av) ) |
---|
[263] | 577 | CALL handle_netcdf_error( 'netcdf', 88 ) |
---|
[1] | 578 | |
---|
| 579 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_zu_3d(av), & |
---|
| 580 | dimids = id_dim_zu_3d_old ) |
---|
[263] | 581 | CALL handle_netcdf_error( 'netcdf', 89 ) |
---|
[1] | 582 | id_dim_zu_3d(av) = id_dim_zu_3d_old(1) |
---|
| 583 | |
---|
| 584 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_zu_3d(av), & |
---|
| 585 | len = nz_old ) |
---|
[263] | 586 | CALL handle_netcdf_error( 'netcdf', 90 ) |
---|
[1] | 587 | |
---|
| 588 | IF ( nz_do3d-nzb+1 /= nz_old ) THEN |
---|
[257] | 589 | message_string = 'NetCDF file for volume data ' // & |
---|
| 590 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 591 | '&but this file cannot be extended due to' // & |
---|
| 592 | ' mismatch in number of' // & |
---|
| 593 | '&vertical grid points (nz_do3d).' // & |
---|
| 594 | '&New file is created instead.' |
---|
| 595 | CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 ) |
---|
[1] | 596 | extend = .FALSE. |
---|
| 597 | RETURN |
---|
| 598 | ENDIF |
---|
| 599 | |
---|
| 600 | ! |
---|
| 601 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 602 | !-- last index on the file. The next time level is pl3d..count+1. |
---|
| 603 | !-- The current time must be larger than the last output time |
---|
| 604 | !-- on the file. |
---|
| 605 | nc_stat = NF90_INQ_VARID( id_set_3d(av), 'time', id_var_time_3d(av) ) |
---|
[263] | 606 | CALL handle_netcdf_error( 'netcdf', 91 ) |
---|
[1] | 607 | |
---|
| 608 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_time_3d(av), & |
---|
| 609 | dimids = id_dim_time_old ) |
---|
[263] | 610 | CALL handle_netcdf_error( 'netcdf', 92 ) |
---|
| 611 | |
---|
[1] | 612 | id_dim_time_3d(av) = id_dim_time_old(1) |
---|
| 613 | |
---|
| 614 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_time_3d(av), & |
---|
| 615 | len = do3d_time_count(av) ) |
---|
[263] | 616 | CALL handle_netcdf_error( 'netcdf', 93 ) |
---|
[1] | 617 | |
---|
| 618 | nc_stat = NF90_GET_VAR( id_set_3d(av), id_var_time_3d(av), & |
---|
| 619 | last_time_coordinate, & |
---|
| 620 | start = (/ do3d_time_count(av) /), & |
---|
| 621 | count = (/ 1 /) ) |
---|
[263] | 622 | CALL handle_netcdf_error( 'netcdf', 94 ) |
---|
[1] | 623 | |
---|
| 624 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 625 | message_string = 'NetCDF file for volume data ' // & |
---|
| 626 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 627 | '&but this file cannot be extended becaus' // & |
---|
| 628 | 'e the current output time' // & |
---|
| 629 | '&is less or equal than the last output t' // & |
---|
| 630 | 'ime on this file.' // & |
---|
| 631 | '&New file is created instead.' |
---|
| 632 | CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 ) |
---|
[1] | 633 | do3d_time_count(av) = 0 |
---|
| 634 | extend = .FALSE. |
---|
| 635 | RETURN |
---|
| 636 | ENDIF |
---|
| 637 | |
---|
| 638 | ! |
---|
| 639 | !-- Dataset seems to be extendable. |
---|
| 640 | !-- Now get the variable ids. |
---|
| 641 | i = 1 |
---|
| 642 | DO WHILE ( do3d(av,i)(1:1) /= ' ' ) |
---|
| 643 | nc_stat = NF90_INQ_VARID( id_set_3d(av), TRIM( do3d(av,i) ), & |
---|
| 644 | id_var_do3d(av,i) ) |
---|
[263] | 645 | CALL handle_netcdf_error( 'netcdf', 95 ) |
---|
[1] | 646 | i = i + 1 |
---|
| 647 | ENDDO |
---|
| 648 | |
---|
| 649 | ! |
---|
| 650 | !-- Change the titel attribute on file |
---|
| 651 | nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', & |
---|
| 652 | TRIM( run_description_header ) ) |
---|
[263] | 653 | CALL handle_netcdf_error( 'netcdf', 96 ) |
---|
[257] | 654 | message_string = 'NetCDF file for volume data ' // & |
---|
| 655 | TRIM( var ) // ' from previous run found.' // & |
---|
| 656 | '&This file will be extended.' |
---|
| 657 | CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 ) |
---|
[1] | 658 | |
---|
| 659 | CASE ( 'xy_new' ) |
---|
| 660 | |
---|
| 661 | ! |
---|
| 662 | !-- Define some global attributes of the dataset |
---|
| 663 | nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'Conventions', & |
---|
| 664 | 'COARDS' ) |
---|
[263] | 665 | CALL handle_netcdf_error( 'netcdf', 97 ) |
---|
[1] | 666 | |
---|
| 667 | IF ( av == 0 ) THEN |
---|
| 668 | time_average_text = ' ' |
---|
| 669 | ELSE |
---|
| 670 | WRITE (time_average_text, '('', '',F7.1,'' s average'')') & |
---|
| 671 | averaging_interval |
---|
| 672 | ENDIF |
---|
| 673 | nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', & |
---|
| 674 | TRIM( run_description_header ) // & |
---|
| 675 | TRIM( time_average_text ) ) |
---|
[263] | 676 | CALL handle_netcdf_error( 'netcdf', 98 ) |
---|
[1] | 677 | IF ( av == 1 ) THEN |
---|
| 678 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval |
---|
| 679 | nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'time_avg', & |
---|
| 680 | TRIM( time_average_text ) ) |
---|
[263] | 681 | CALL handle_netcdf_error( 'netcdf', 98 ) |
---|
[1] | 682 | ENDIF |
---|
| 683 | |
---|
| 684 | ! |
---|
| 685 | !-- Define time coordinate for xy sections (unlimited dimension) |
---|
| 686 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'time', NF90_UNLIMITED, & |
---|
| 687 | id_dim_time_xy(av) ) |
---|
[263] | 688 | CALL handle_netcdf_error( 'netcdf', 99 ) |
---|
[1] | 689 | |
---|
| 690 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'time', NF90_DOUBLE, & |
---|
| 691 | id_dim_time_xy(av), id_var_time_xy(av) ) |
---|
[263] | 692 | CALL handle_netcdf_error( 'netcdf', 100 ) |
---|
[1] | 693 | |
---|
| 694 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_time_xy(av), 'units', & |
---|
| 695 | 'seconds') |
---|
[263] | 696 | CALL handle_netcdf_error( 'netcdf', 101 ) |
---|
[1] | 697 | |
---|
| 698 | ! |
---|
| 699 | !-- Define the spatial dimensions and coordinates for xy-sections. |
---|
| 700 | !-- First, determine the number of horizontal sections to be written. |
---|
| 701 | IF ( section(1,1) == -9999 ) THEN |
---|
| 702 | RETURN |
---|
| 703 | ELSE |
---|
| 704 | ns = 1 |
---|
| 705 | DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 ) |
---|
| 706 | ns = ns + 1 |
---|
| 707 | ENDDO |
---|
| 708 | ns = ns - 1 |
---|
| 709 | ENDIF |
---|
| 710 | |
---|
| 711 | ! |
---|
| 712 | !-- Define vertical coordinate grid (zu grid) |
---|
| 713 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu_xy', ns, id_dim_zu_xy(av) ) |
---|
[263] | 714 | CALL handle_netcdf_error( 'netcdf', 102 ) |
---|
[1] | 715 | |
---|
| 716 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu_xy', NF90_DOUBLE, & |
---|
| 717 | id_dim_zu_xy(av), id_var_zu_xy(av) ) |
---|
[263] | 718 | CALL handle_netcdf_error( 'netcdf', 103 ) |
---|
[1] | 719 | |
---|
| 720 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu_xy(av), 'units', & |
---|
| 721 | 'meters' ) |
---|
[263] | 722 | CALL handle_netcdf_error( 'netcdf', 104 ) |
---|
[1] | 723 | |
---|
| 724 | ! |
---|
| 725 | !-- Define vertical coordinate grid (zw grid) |
---|
| 726 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zw_xy', ns, id_dim_zw_xy(av) ) |
---|
[263] | 727 | CALL handle_netcdf_error( 'netcdf', 105 ) |
---|
[1] | 728 | |
---|
| 729 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zw_xy', NF90_DOUBLE, & |
---|
| 730 | id_dim_zw_xy(av), id_var_zw_xy(av) ) |
---|
[263] | 731 | CALL handle_netcdf_error( 'netcdf', 106 ) |
---|
[1] | 732 | |
---|
| 733 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zw_xy(av), 'units', & |
---|
| 734 | 'meters' ) |
---|
[263] | 735 | CALL handle_netcdf_error( 'netcdf', 107 ) |
---|
[1] | 736 | |
---|
| 737 | ! |
---|
| 738 | !-- Define a pseudo vertical coordinate grid for the surface variables |
---|
| 739 | !-- u* and t* to store their height level |
---|
| 740 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu1_xy', 1, & |
---|
| 741 | id_dim_zu1_xy(av) ) |
---|
[263] | 742 | CALL handle_netcdf_error( 'netcdf', 108 ) |
---|
[1] | 743 | |
---|
| 744 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu1_xy', NF90_DOUBLE, & |
---|
| 745 | id_dim_zu1_xy(av), id_var_zu1_xy(av) ) |
---|
[263] | 746 | CALL handle_netcdf_error( 'netcdf', 109 ) |
---|
[1] | 747 | |
---|
| 748 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu1_xy(av), 'units', & |
---|
| 749 | 'meters' ) |
---|
[263] | 750 | CALL handle_netcdf_error( 'netcdf', 110 ) |
---|
[1] | 751 | |
---|
| 752 | ! |
---|
| 753 | !-- Define a variable to store the layer indices of the horizontal cross |
---|
| 754 | !-- sections, too |
---|
| 755 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'ind_z_xy', NF90_DOUBLE, & |
---|
| 756 | id_dim_zu_xy(av), id_var_ind_z_xy(av) ) |
---|
[263] | 757 | CALL handle_netcdf_error( 'netcdf', 111 ) |
---|
[1] | 758 | |
---|
| 759 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_ind_z_xy(av), 'units', & |
---|
| 760 | 'gridpoints') |
---|
[263] | 761 | CALL handle_netcdf_error( 'netcdf', 112 ) |
---|
[1] | 762 | |
---|
| 763 | ! |
---|
| 764 | !-- Define x-axis (for scalar position) |
---|
| 765 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'x', nx+2, id_dim_x_xy(av) ) |
---|
[263] | 766 | CALL handle_netcdf_error( 'netcdf', 113 ) |
---|
[1] | 767 | |
---|
| 768 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'x', NF90_DOUBLE, & |
---|
| 769 | id_dim_x_xy(av), id_var_x_xy(av) ) |
---|
[263] | 770 | CALL handle_netcdf_error( 'netcdf', 114 ) |
---|
[1] | 771 | |
---|
[263] | 772 | |
---|
[1] | 773 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_x_xy(av), 'units', & |
---|
| 774 | 'meters' ) |
---|
[263] | 775 | CALL handle_netcdf_error( 'netcdf', 115 ) |
---|
[1] | 776 | |
---|
| 777 | ! |
---|
| 778 | !-- Define x-axis (for u position) |
---|
| 779 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'xu', nx+2, id_dim_xu_xy(av) ) |
---|
[263] | 780 | CALL handle_netcdf_error( 'netcdf', 388 ) |
---|
[1] | 781 | |
---|
| 782 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'xu', NF90_DOUBLE, & |
---|
| 783 | id_dim_xu_xy(av), id_var_xu_xy(av) ) |
---|
[263] | 784 | CALL handle_netcdf_error( 'netcdf', 389 ) |
---|
[1] | 785 | |
---|
| 786 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_xu_xy(av), 'units', & |
---|
| 787 | 'meters' ) |
---|
[263] | 788 | CALL handle_netcdf_error( 'netcdf', 390 ) |
---|
[1] | 789 | |
---|
| 790 | ! |
---|
| 791 | !-- Define y-axis (for scalar position) |
---|
| 792 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'y', ny+2, id_dim_y_xy(av) ) |
---|
[263] | 793 | CALL handle_netcdf_error( 'netcdf', 116 ) |
---|
[1] | 794 | |
---|
| 795 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'y', NF90_DOUBLE, & |
---|
| 796 | id_dim_y_xy(av), id_var_y_xy(av) ) |
---|
[263] | 797 | CALL handle_netcdf_error( 'netcdf', 117 ) |
---|
[1] | 798 | |
---|
| 799 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_y_xy(av), 'units', & |
---|
| 800 | 'meters' ) |
---|
[263] | 801 | CALL handle_netcdf_error( 'netcdf', 118 ) |
---|
[1] | 802 | |
---|
| 803 | ! |
---|
| 804 | !-- Define y-axis (for scalar position) |
---|
| 805 | nc_stat = NF90_DEF_DIM( id_set_xy(av), 'yv', ny+2, id_dim_yv_xy(av) ) |
---|
[263] | 806 | CALL handle_netcdf_error( 'netcdf', 364 ) |
---|
[1] | 807 | |
---|
| 808 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'yv', NF90_DOUBLE, & |
---|
| 809 | id_dim_yv_xy(av), id_var_yv_xy(av) ) |
---|
[263] | 810 | CALL handle_netcdf_error( 'netcdf', 365 ) |
---|
[1] | 811 | |
---|
| 812 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_yv_xy(av), 'units', & |
---|
| 813 | 'meters' ) |
---|
[263] | 814 | CALL handle_netcdf_error( 'netcdf', 366 ) |
---|
[1] | 815 | |
---|
| 816 | ! |
---|
[48] | 817 | !-- In case of non-flat topography define 2d-arrays containing the height |
---|
| 818 | !-- informations |
---|
| 819 | IF ( TRIM( topography ) /= 'flat' ) THEN |
---|
| 820 | ! |
---|
| 821 | !-- Define zusi = zu(nzb_s_inner) |
---|
| 822 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zusi', NF90_DOUBLE, & |
---|
| 823 | (/ id_dim_x_xy(av), id_dim_y_xy(av) /), & |
---|
| 824 | id_var_zusi_xy(av) ) |
---|
[263] | 825 | CALL handle_netcdf_error( 'netcdf', 421 ) |
---|
[48] | 826 | |
---|
| 827 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), & |
---|
| 828 | 'units', 'meters' ) |
---|
[263] | 829 | CALL handle_netcdf_error( 'netcdf', 422 ) |
---|
[48] | 830 | |
---|
| 831 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), & |
---|
| 832 | 'long_name', 'zu(nzb_s_inner)' ) |
---|
[263] | 833 | CALL handle_netcdf_error( 'netcdf', 423 ) |
---|
[48] | 834 | |
---|
| 835 | ! |
---|
| 836 | !-- Define zwwi = zw(nzb_w_inner) |
---|
| 837 | nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zwwi', NF90_DOUBLE, & |
---|
| 838 | (/ id_dim_x_xy(av), id_dim_y_xy(av) /), & |
---|
| 839 | id_var_zwwi_xy(av) ) |
---|
[263] | 840 | CALL handle_netcdf_error( 'netcdf', 424 ) |
---|
[48] | 841 | |
---|
| 842 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), & |
---|
| 843 | 'units', 'meters' ) |
---|
[263] | 844 | CALL handle_netcdf_error( 'netcdf', 425 ) |
---|
[48] | 845 | |
---|
| 846 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), & |
---|
| 847 | 'long_name', 'zw(nzb_w_inner)' ) |
---|
[263] | 848 | CALL handle_netcdf_error( 'netcdf', 426 ) |
---|
[48] | 849 | |
---|
| 850 | ENDIF |
---|
| 851 | |
---|
| 852 | |
---|
| 853 | ! |
---|
[1] | 854 | !-- Define the variables |
---|
| 855 | var_list = ';' |
---|
| 856 | i = 1 |
---|
| 857 | |
---|
| 858 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 859 | |
---|
| 860 | IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN |
---|
| 861 | ! |
---|
| 862 | !-- If there is a star in the variable name (u* or t*), it is a |
---|
| 863 | !-- surface variable. Define it with id_dim_zu1_xy. |
---|
| 864 | IF ( INDEX( do2d(av,i), '*' ) /= 0 ) THEN |
---|
| 865 | ! |
---|
| 866 | !-- First, remove those characters not allowed by NetCDF |
---|
| 867 | netcdf_var_name = do2d(av,i) |
---|
| 868 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 869 | |
---|
| 870 | nc_stat = NF90_DEF_VAR( id_set_xy(av), netcdf_var_name, & |
---|
| 871 | nc_precision(1), & |
---|
| 872 | (/ id_dim_x_xy(av), id_dim_y_xy(av),& |
---|
| 873 | id_dim_zu1_xy(av), & |
---|
| 874 | id_dim_time_xy(av) /), & |
---|
| 875 | id_var_do2d(av,i) ) |
---|
| 876 | |
---|
| 877 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 878 | |
---|
| 879 | ELSE |
---|
| 880 | |
---|
| 881 | ! |
---|
| 882 | !-- Check for the grid |
---|
| 883 | found = .TRUE. |
---|
| 884 | SELECT CASE ( do2d(av,i) ) |
---|
| 885 | ! |
---|
| 886 | !-- Most variables are defined on the zu grid |
---|
| 887 | CASE ( 'e_xy', 'p_xy', 'pc_xy', 'pr_xy', 'pt_xy', 'q_xy',& |
---|
| 888 | 'ql_xy', 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', & |
---|
[97] | 889 | 'qv_xy', 'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' ) |
---|
[1] | 890 | |
---|
| 891 | grid_x = 'x' |
---|
| 892 | grid_y = 'y' |
---|
| 893 | grid_z = 'zu' |
---|
| 894 | ! |
---|
| 895 | !-- u grid |
---|
| 896 | CASE ( 'u_xy' ) |
---|
| 897 | |
---|
| 898 | grid_x = 'xu' |
---|
| 899 | grid_y = 'y' |
---|
| 900 | grid_z = 'zu' |
---|
| 901 | ! |
---|
| 902 | !-- v grid |
---|
| 903 | CASE ( 'v_xy' ) |
---|
| 904 | |
---|
| 905 | grid_x = 'x' |
---|
| 906 | grid_y = 'yv' |
---|
| 907 | grid_z = 'zu' |
---|
| 908 | ! |
---|
| 909 | !-- w grid |
---|
| 910 | CASE ( 'w_xy' ) |
---|
| 911 | |
---|
| 912 | grid_x = 'x' |
---|
| 913 | grid_y = 'y' |
---|
| 914 | grid_z = 'zw' |
---|
| 915 | |
---|
| 916 | CASE DEFAULT |
---|
| 917 | ! |
---|
| 918 | !-- Check for user-defined quantities |
---|
| 919 | CALL user_define_netcdf_grid( do2d(av,i), found, & |
---|
| 920 | grid_x, grid_y, grid_z ) |
---|
| 921 | |
---|
| 922 | END SELECT |
---|
| 923 | |
---|
| 924 | ! |
---|
| 925 | !-- Select the respective dimension ids |
---|
| 926 | IF ( grid_x == 'x' ) THEN |
---|
| 927 | id_x = id_dim_x_xy(av) |
---|
| 928 | ELSEIF ( grid_x == 'xu' ) THEN |
---|
| 929 | id_x = id_dim_xu_xy(av) |
---|
| 930 | ENDIF |
---|
| 931 | |
---|
| 932 | IF ( grid_y == 'y' ) THEN |
---|
| 933 | id_y = id_dim_y_xy(av) |
---|
| 934 | ELSEIF ( grid_y == 'yv' ) THEN |
---|
| 935 | id_y = id_dim_yv_xy(av) |
---|
| 936 | ENDIF |
---|
| 937 | |
---|
| 938 | IF ( grid_z == 'zu' ) THEN |
---|
| 939 | id_z = id_dim_zu_xy(av) |
---|
| 940 | ELSEIF ( grid_z == 'zw' ) THEN |
---|
| 941 | id_z = id_dim_zw_xy(av) |
---|
| 942 | ENDIF |
---|
| 943 | |
---|
| 944 | ! |
---|
| 945 | !-- Define the grid |
---|
| 946 | nc_stat = NF90_DEF_VAR( id_set_xy(av), do2d(av,i), & |
---|
| 947 | nc_precision(1), & |
---|
| 948 | (/ id_x, id_y, id_z, id_dim_time_xy(av) /), & |
---|
| 949 | id_var_do2d(av,i) ) |
---|
| 950 | |
---|
| 951 | IF ( .NOT. found ) THEN |
---|
[257] | 952 | WRITE ( message_string, * ) 'no grid defined for', & |
---|
| 953 | ' variable ', TRIM( do2d(av,i) ) |
---|
[274] | 954 | CALL message( 'define_netcdf_header', 'PA0244',& |
---|
| 955 | 0, 1, 0, 6, 0 ) |
---|
[1] | 956 | ENDIF |
---|
| 957 | |
---|
| 958 | var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';' |
---|
| 959 | |
---|
| 960 | ENDIF |
---|
| 961 | |
---|
[263] | 962 | CALL handle_netcdf_error( 'netcdf', 119 ) |
---|
[1] | 963 | ! |
---|
| 964 | !-- Store the 'real' name of the variable (with *, for example) |
---|
| 965 | !-- in the long_name attribute. This is evaluated by Ferret, |
---|
| 966 | !-- for example. |
---|
| 967 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), & |
---|
| 968 | 'long_name', do2d(av,i) ) |
---|
[263] | 969 | CALL handle_netcdf_error( 'netcdf', 120 ) |
---|
[1] | 970 | ! |
---|
| 971 | !-- Define the variable's unit |
---|
| 972 | nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), & |
---|
| 973 | 'units', TRIM( do2d_unit(av,i) ) ) |
---|
[263] | 974 | CALL handle_netcdf_error( 'netcdf', 354 ) |
---|
[1] | 975 | ENDIF |
---|
| 976 | |
---|
| 977 | i = i + 1 |
---|
| 978 | |
---|
| 979 | ENDDO |
---|
| 980 | |
---|
| 981 | ! |
---|
| 982 | !-- No arrays to output. Close the netcdf file and return. |
---|
| 983 | IF ( i == 1 ) RETURN |
---|
| 984 | |
---|
| 985 | ! |
---|
| 986 | !-- Write the list of variables as global attribute (this is used by |
---|
| 987 | !-- restart runs and by combine_plot_fields) |
---|
| 988 | nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 989 | var_list ) |
---|
[263] | 990 | CALL handle_netcdf_error( 'netcdf', 121 ) |
---|
[1] | 991 | |
---|
| 992 | ! |
---|
| 993 | !-- Leave NetCDF define mode |
---|
| 994 | nc_stat = NF90_ENDDEF( id_set_xy(av) ) |
---|
[263] | 995 | CALL handle_netcdf_error( 'netcdf', 122 ) |
---|
[1] | 996 | |
---|
| 997 | ! |
---|
| 998 | !-- Write axis data: z_xy, x, y |
---|
| 999 | ALLOCATE( netcdf_data(1:ns) ) |
---|
| 1000 | |
---|
| 1001 | ! |
---|
| 1002 | !-- Write zu data |
---|
| 1003 | DO i = 1, ns |
---|
| 1004 | IF( section(i,1) == -1 ) THEN |
---|
| 1005 | netcdf_data(i) = -1.0 ! section averaged along z |
---|
| 1006 | ELSE |
---|
| 1007 | netcdf_data(i) = zu( section(i,1) ) |
---|
| 1008 | ENDIF |
---|
| 1009 | ENDDO |
---|
| 1010 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu_xy(av), & |
---|
| 1011 | netcdf_data, start = (/ 1 /), & |
---|
| 1012 | count = (/ ns /) ) |
---|
[263] | 1013 | CALL handle_netcdf_error( 'netcdf', 123 ) |
---|
[1] | 1014 | |
---|
| 1015 | ! |
---|
| 1016 | !-- Write zw data |
---|
| 1017 | DO i = 1, ns |
---|
| 1018 | IF( section(i,1) == -1 ) THEN |
---|
| 1019 | netcdf_data(i) = -1.0 ! section averaged along z |
---|
| 1020 | ELSE |
---|
| 1021 | netcdf_data(i) = zw( section(i,1) ) |
---|
| 1022 | ENDIF |
---|
| 1023 | ENDDO |
---|
| 1024 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zw_xy(av), & |
---|
| 1025 | netcdf_data, start = (/ 1 /), & |
---|
| 1026 | count = (/ ns /) ) |
---|
[263] | 1027 | CALL handle_netcdf_error( 'netcdf', 124 ) |
---|
[1] | 1028 | |
---|
| 1029 | ! |
---|
| 1030 | !-- Write gridpoint number data |
---|
| 1031 | netcdf_data(1:ns) = section(1:ns,1) |
---|
| 1032 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_ind_z_xy(av), & |
---|
| 1033 | netcdf_data, start = (/ 1 /), & |
---|
| 1034 | count = (/ ns /) ) |
---|
[263] | 1035 | CALL handle_netcdf_error( 'netcdf', 125 ) |
---|
[1] | 1036 | |
---|
| 1037 | DEALLOCATE( netcdf_data ) |
---|
| 1038 | |
---|
| 1039 | ! |
---|
| 1040 | !-- Write the cross section height u*, t* |
---|
| 1041 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu1_xy(av), & |
---|
| 1042 | (/ zu(nzb+1) /), start = (/ 1 /), & |
---|
| 1043 | count = (/ 1 /) ) |
---|
[263] | 1044 | CALL handle_netcdf_error( 'netcdf', 126 ) |
---|
[1] | 1045 | |
---|
| 1046 | ! |
---|
[216] | 1047 | !-- Write data for x (shifted by +dx/2) and xu axis |
---|
[1] | 1048 | ALLOCATE( netcdf_data(0:nx+1) ) |
---|
| 1049 | |
---|
| 1050 | DO i = 0, nx+1 |
---|
[216] | 1051 | netcdf_data(i) = ( i + 0.5 ) * dx |
---|
[1] | 1052 | ENDDO |
---|
| 1053 | |
---|
| 1054 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_x_xy(av), netcdf_data, & |
---|
| 1055 | start = (/ 1 /), count = (/ nx+2 /) ) |
---|
[263] | 1056 | CALL handle_netcdf_error( 'netcdf', 127 ) |
---|
[1] | 1057 | |
---|
| 1058 | DO i = 0, nx+1 |
---|
[216] | 1059 | netcdf_data(i) = i * dx |
---|
[1] | 1060 | ENDDO |
---|
| 1061 | |
---|
| 1062 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_xu_xy(av), & |
---|
| 1063 | netcdf_data, start = (/ 1 /), & |
---|
| 1064 | count = (/ nx+2 /) ) |
---|
[263] | 1065 | CALL handle_netcdf_error( 'netcdf', 367 ) |
---|
[1] | 1066 | |
---|
| 1067 | DEALLOCATE( netcdf_data ) |
---|
| 1068 | |
---|
| 1069 | ! |
---|
[216] | 1070 | !-- Write data for y (shifted by +dy/2) and yv axis |
---|
[1] | 1071 | ALLOCATE( netcdf_data(0:ny+1) ) |
---|
| 1072 | |
---|
| 1073 | DO i = 0, ny+1 |
---|
[216] | 1074 | netcdf_data(i) = ( i + 0.5 ) * dy |
---|
[1] | 1075 | ENDDO |
---|
| 1076 | |
---|
| 1077 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_y_xy(av), netcdf_data, & |
---|
| 1078 | start = (/ 1 /), count = (/ ny+2 /)) |
---|
[263] | 1079 | CALL handle_netcdf_error( 'netcdf', 128 ) |
---|
[1] | 1080 | |
---|
| 1081 | DO i = 0, ny+1 |
---|
[216] | 1082 | netcdf_data(i) = i * dy |
---|
[1] | 1083 | ENDDO |
---|
| 1084 | |
---|
| 1085 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_yv_xy(av), & |
---|
| 1086 | netcdf_data, start = (/ 1 /), & |
---|
| 1087 | count = (/ ny+2 /)) |
---|
[263] | 1088 | CALL handle_netcdf_error( 'netcdf', 368 ) |
---|
[1] | 1089 | |
---|
| 1090 | DEALLOCATE( netcdf_data ) |
---|
| 1091 | |
---|
[48] | 1092 | ! |
---|
| 1093 | !-- In case of non-flat topography write height information |
---|
| 1094 | IF ( TRIM( topography ) /= 'flat' ) THEN |
---|
[1] | 1095 | |
---|
[48] | 1096 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zusi_xy(av), & |
---|
| 1097 | zu_s_inner(0:nx+1,0:ny+1), & |
---|
| 1098 | start = (/ 1, 1 /), & |
---|
| 1099 | count = (/ nx+2, ny+2 /) ) |
---|
[263] | 1100 | CALL handle_netcdf_error( 'netcdf', 427 ) |
---|
[48] | 1101 | |
---|
| 1102 | nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zwwi_xy(av), & |
---|
| 1103 | zw_w_inner(0:nx+1,0:ny+1), & |
---|
| 1104 | start = (/ 1, 1 /), & |
---|
| 1105 | count = (/ nx+2, ny+2 /) ) |
---|
[263] | 1106 | CALL handle_netcdf_error( 'netcdf', 428 ) |
---|
[48] | 1107 | |
---|
| 1108 | ENDIF |
---|
| 1109 | |
---|
| 1110 | |
---|
[1] | 1111 | CASE ( 'xy_ext' ) |
---|
| 1112 | |
---|
| 1113 | ! |
---|
| 1114 | !-- Get the list of variables and compare with the actual run. |
---|
| 1115 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 1116 | !-- trailing blanks. |
---|
| 1117 | var_list_old = ' ' |
---|
| 1118 | nc_stat = NF90_GET_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 1119 | var_list_old ) |
---|
[263] | 1120 | CALL handle_netcdf_error( 'netcdf', 129 ) |
---|
[1] | 1121 | |
---|
| 1122 | var_list = ';' |
---|
| 1123 | i = 1 |
---|
| 1124 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1125 | IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN |
---|
| 1126 | netcdf_var_name = do2d(av,i) |
---|
| 1127 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 1128 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 1129 | ENDIF |
---|
| 1130 | i = i + 1 |
---|
| 1131 | ENDDO |
---|
| 1132 | |
---|
| 1133 | IF ( av == 0 ) THEN |
---|
| 1134 | var = '(xy)' |
---|
| 1135 | ELSE |
---|
| 1136 | var = '(xy_av)' |
---|
| 1137 | ENDIF |
---|
| 1138 | |
---|
| 1139 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 1140 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1141 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1142 | '& but this file cannot be extended due to' // & |
---|
| 1143 | ' variable mismatch.' // & |
---|
| 1144 | '&New file is created instead.' |
---|
| 1145 | CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) |
---|
[1] | 1146 | extend = .FALSE. |
---|
| 1147 | RETURN |
---|
| 1148 | ENDIF |
---|
| 1149 | |
---|
| 1150 | ! |
---|
| 1151 | !-- Calculate the number of current sections |
---|
| 1152 | ns = 1 |
---|
| 1153 | DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 ) |
---|
| 1154 | ns = ns + 1 |
---|
| 1155 | ENDDO |
---|
| 1156 | ns = ns - 1 |
---|
| 1157 | |
---|
| 1158 | ! |
---|
| 1159 | !-- Get and compare the number of horizontal cross sections |
---|
| 1160 | nc_stat = NF90_INQ_VARID( id_set_xy(av), 'zu_xy', id_var_zu_xy(av) ) |
---|
[263] | 1161 | CALL handle_netcdf_error( 'netcdf', 130 ) |
---|
[1] | 1162 | |
---|
| 1163 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_zu_xy(av), & |
---|
| 1164 | dimids = id_dim_zu_xy_old ) |
---|
[263] | 1165 | CALL handle_netcdf_error( 'netcdf', 131 ) |
---|
[1] | 1166 | id_dim_zu_xy(av) = id_dim_zu_xy_old(1) |
---|
| 1167 | |
---|
| 1168 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_zu_xy(av), & |
---|
| 1169 | len = ns_old ) |
---|
[263] | 1170 | CALL handle_netcdf_error( 'netcdf', 132 ) |
---|
[1] | 1171 | |
---|
| 1172 | IF ( ns /= ns_old ) THEN |
---|
[257] | 1173 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1174 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1175 | '&but this file cannot be extended due to' // & |
---|
| 1176 | ' mismatch in number of' // & |
---|
| 1177 | '&cross sections.' // & |
---|
| 1178 | '&New file is created instead.' |
---|
| 1179 | CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) |
---|
[1] | 1180 | extend = .FALSE. |
---|
| 1181 | RETURN |
---|
| 1182 | ENDIF |
---|
| 1183 | |
---|
| 1184 | ! |
---|
| 1185 | !-- Get and compare the heights of the cross sections |
---|
| 1186 | ALLOCATE( netcdf_data(1:ns_old) ) |
---|
| 1187 | |
---|
| 1188 | nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_zu_xy(av), netcdf_data ) |
---|
[263] | 1189 | CALL handle_netcdf_error( 'netcdf', 133 ) |
---|
[1] | 1190 | |
---|
| 1191 | DO i = 1, ns |
---|
| 1192 | IF ( section(i,1) /= -1 ) THEN |
---|
| 1193 | IF ( zu(section(i,1)) /= netcdf_data(i) ) THEN |
---|
[274] | 1194 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1195 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1196 | '&but this file cannot be extended' // & |
---|
| 1197 | ' due to mismatch in cross' // & |
---|
| 1198 | '§ion levels.' // & |
---|
| 1199 | '&New file is created instead.' |
---|
| 1200 | CALL message( 'define_netcdf_header', 'PA0251', & |
---|
| 1201 | 0, 1, 0, 6, 0 ) |
---|
[1] | 1202 | extend = .FALSE. |
---|
| 1203 | RETURN |
---|
| 1204 | ENDIF |
---|
| 1205 | ELSE |
---|
| 1206 | IF ( -1.0 /= netcdf_data(i) ) THEN |
---|
[274] | 1207 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1208 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1209 | '&but this file cannot be extended' // & |
---|
| 1210 | ' due to mismatch in cross' // & |
---|
| 1211 | '§ion levels.' // & |
---|
| 1212 | '&New file is created instead.' |
---|
| 1213 | CALL message( 'define_netcdf_header', 'PA0251',& |
---|
| 1214 | 0, 1, 0, 6, 0 ) |
---|
[1] | 1215 | extend = .FALSE. |
---|
| 1216 | RETURN |
---|
| 1217 | ENDIF |
---|
| 1218 | ENDIF |
---|
| 1219 | ENDDO |
---|
| 1220 | |
---|
| 1221 | DEALLOCATE( netcdf_data ) |
---|
| 1222 | |
---|
| 1223 | ! |
---|
| 1224 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 1225 | !-- last index on the file. The next time level is do2d..count+1. |
---|
| 1226 | !-- The current time must be larger than the last output time |
---|
| 1227 | !-- on the file. |
---|
| 1228 | nc_stat = NF90_INQ_VARID( id_set_xy(av), 'time', id_var_time_xy(av) ) |
---|
[263] | 1229 | CALL handle_netcdf_error( 'netcdf', 134 ) |
---|
[1] | 1230 | |
---|
| 1231 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_time_xy(av), & |
---|
| 1232 | dimids = id_dim_time_old ) |
---|
[263] | 1233 | CALL handle_netcdf_error( 'netcdf', 135 ) |
---|
[1] | 1234 | id_dim_time_xy(av) = id_dim_time_old(1) |
---|
| 1235 | |
---|
| 1236 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_time_xy(av), & |
---|
| 1237 | len = do2d_xy_time_count(av) ) |
---|
[263] | 1238 | CALL handle_netcdf_error( 'netcdf', 136 ) |
---|
[1] | 1239 | |
---|
| 1240 | nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_time_xy(av), & |
---|
| 1241 | last_time_coordinate, & |
---|
| 1242 | start = (/ do2d_xy_time_count(av) /), & |
---|
| 1243 | count = (/ 1 /) ) |
---|
[263] | 1244 | CALL handle_netcdf_error( 'netcdf', 137 ) |
---|
[1] | 1245 | |
---|
| 1246 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 1247 | message_string = 'NetCDF file for cross sections ' // & |
---|
| 1248 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1249 | '&but this file cannot be extended becaus' // & |
---|
| 1250 | 'e the current output time' // & |
---|
| 1251 | '&is less or equal than the last output t' // & |
---|
| 1252 | 'ime on this file.' // & |
---|
| 1253 | '&New file is created instead.' |
---|
| 1254 | CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) |
---|
[1] | 1255 | do2d_xy_time_count(av) = 0 |
---|
| 1256 | extend = .FALSE. |
---|
| 1257 | RETURN |
---|
| 1258 | ENDIF |
---|
| 1259 | |
---|
| 1260 | ! |
---|
| 1261 | !-- Dataset seems to be extendable. |
---|
| 1262 | !-- Now get the variable ids. |
---|
| 1263 | i = 1 |
---|
| 1264 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1265 | IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN |
---|
| 1266 | netcdf_var_name = do2d(av,i) |
---|
| 1267 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 1268 | nc_stat = NF90_INQ_VARID( id_set_xy(av), netcdf_var_name, & |
---|
| 1269 | id_var_do2d(av,i) ) |
---|
[263] | 1270 | CALL handle_netcdf_error( 'netcdf', 138 ) |
---|
[1] | 1271 | ENDIF |
---|
| 1272 | i = i + 1 |
---|
| 1273 | ENDDO |
---|
| 1274 | |
---|
| 1275 | ! |
---|
| 1276 | !-- Change the titel attribute on file |
---|
| 1277 | nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', & |
---|
| 1278 | TRIM( run_description_header ) ) |
---|
[263] | 1279 | CALL handle_netcdf_error( 'netcdf', 139 ) |
---|
[257] | 1280 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1281 | TRIM( var ) // ' from previous run found.' // & |
---|
| 1282 | '&This file will be extended.' |
---|
| 1283 | CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) |
---|
| 1284 | |
---|
[1] | 1285 | |
---|
| 1286 | CASE ( 'xz_new' ) |
---|
| 1287 | |
---|
| 1288 | ! |
---|
| 1289 | !-- Define some global attributes of the dataset |
---|
| 1290 | nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'Conventions', & |
---|
| 1291 | 'COARDS' ) |
---|
[263] | 1292 | CALL handle_netcdf_error( 'netcdf', 140 ) |
---|
[1] | 1293 | |
---|
| 1294 | IF ( av == 0 ) THEN |
---|
| 1295 | time_average_text = ' ' |
---|
| 1296 | ELSE |
---|
| 1297 | WRITE (time_average_text, '('', '',F7.1,'' s average'')') & |
---|
| 1298 | averaging_interval |
---|
| 1299 | ENDIF |
---|
| 1300 | nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', & |
---|
| 1301 | TRIM( run_description_header ) // & |
---|
| 1302 | TRIM( time_average_text ) ) |
---|
[263] | 1303 | CALL handle_netcdf_error( 'netcdf', 141 ) |
---|
[1] | 1304 | IF ( av == 1 ) THEN |
---|
| 1305 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval |
---|
| 1306 | nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'time_avg', & |
---|
| 1307 | TRIM( time_average_text ) ) |
---|
[263] | 1308 | CALL handle_netcdf_error( 'netcdf', 141 ) |
---|
[1] | 1309 | ENDIF |
---|
| 1310 | |
---|
| 1311 | ! |
---|
| 1312 | !-- Define time coordinate for xz sections (unlimited dimension) |
---|
| 1313 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'time', NF90_UNLIMITED, & |
---|
| 1314 | id_dim_time_xz(av) ) |
---|
[263] | 1315 | CALL handle_netcdf_error( 'netcdf', 142 ) |
---|
[1] | 1316 | |
---|
| 1317 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'time', NF90_DOUBLE, & |
---|
| 1318 | id_dim_time_xz(av), id_var_time_xz(av) ) |
---|
[263] | 1319 | CALL handle_netcdf_error( 'netcdf', 143 ) |
---|
[1] | 1320 | |
---|
| 1321 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_time_xz(av), 'units', & |
---|
| 1322 | 'seconds') |
---|
[263] | 1323 | CALL handle_netcdf_error( 'netcdf', 144 ) |
---|
[1] | 1324 | |
---|
| 1325 | ! |
---|
| 1326 | !-- Define the spatial dimensions and coordinates for xz-sections. |
---|
| 1327 | !-- First, determine the number of vertical sections to be written. |
---|
| 1328 | IF ( section(1,2) == -9999 ) THEN |
---|
| 1329 | RETURN |
---|
| 1330 | ELSE |
---|
| 1331 | ns = 1 |
---|
| 1332 | DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 ) |
---|
| 1333 | ns = ns + 1 |
---|
| 1334 | ENDDO |
---|
| 1335 | ns = ns - 1 |
---|
| 1336 | ENDIF |
---|
| 1337 | |
---|
| 1338 | ! |
---|
| 1339 | !-- Define y-axis (for scalar position) |
---|
| 1340 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'y_xz', ns, id_dim_y_xz(av) ) |
---|
[263] | 1341 | CALL handle_netcdf_error( 'netcdf', 145 ) |
---|
[1] | 1342 | |
---|
| 1343 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'y_xz', NF90_DOUBLE, & |
---|
| 1344 | id_dim_y_xz(av), id_var_y_xz(av) ) |
---|
[263] | 1345 | CALL handle_netcdf_error( 'netcdf', 146 ) |
---|
[1] | 1346 | |
---|
| 1347 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_y_xz(av), 'units', & |
---|
| 1348 | 'meters' ) |
---|
[263] | 1349 | CALL handle_netcdf_error( 'netcdf', 147 ) |
---|
[1] | 1350 | |
---|
| 1351 | ! |
---|
| 1352 | !-- Define y-axis (for v position) |
---|
| 1353 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'yv_xz', ns, id_dim_yv_xz(av) ) |
---|
[263] | 1354 | CALL handle_netcdf_error( 'netcdf', 369 ) |
---|
[1] | 1355 | |
---|
| 1356 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'yv_xz', NF90_DOUBLE, & |
---|
| 1357 | id_dim_yv_xz(av), id_var_yv_xz(av) ) |
---|
[263] | 1358 | CALL handle_netcdf_error( 'netcdf', 370 ) |
---|
[1] | 1359 | |
---|
| 1360 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_yv_xz(av), 'units', & |
---|
| 1361 | 'meters' ) |
---|
[263] | 1362 | CALL handle_netcdf_error( 'netcdf', 371 ) |
---|
[1] | 1363 | |
---|
| 1364 | ! |
---|
| 1365 | !-- Define a variable to store the layer indices of the vertical cross |
---|
| 1366 | !-- sections |
---|
| 1367 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'ind_y_xz', NF90_DOUBLE, & |
---|
| 1368 | id_dim_y_xz(av), id_var_ind_y_xz(av) ) |
---|
[263] | 1369 | CALL handle_netcdf_error( 'netcdf', 148 ) |
---|
[1] | 1370 | |
---|
| 1371 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_ind_y_xz(av), 'units', & |
---|
| 1372 | 'gridpoints') |
---|
[263] | 1373 | CALL handle_netcdf_error( 'netcdf', 149 ) |
---|
[1] | 1374 | |
---|
| 1375 | ! |
---|
| 1376 | !-- Define x-axis (for scalar position) |
---|
| 1377 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'x', nx+2, id_dim_x_xz(av) ) |
---|
[263] | 1378 | CALL handle_netcdf_error( 'netcdf', 150 ) |
---|
[1] | 1379 | |
---|
| 1380 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'x', NF90_DOUBLE, & |
---|
| 1381 | id_dim_x_xz(av), id_var_x_xz(av) ) |
---|
[263] | 1382 | CALL handle_netcdf_error( 'netcdf', 151 ) |
---|
[1] | 1383 | |
---|
| 1384 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_x_xz(av), 'units', & |
---|
| 1385 | 'meters' ) |
---|
[263] | 1386 | CALL handle_netcdf_error( 'netcdf', 152 ) |
---|
[1] | 1387 | |
---|
| 1388 | ! |
---|
| 1389 | !-- Define x-axis (for u position) |
---|
| 1390 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'xu', nx+2, id_dim_xu_xz(av) ) |
---|
[263] | 1391 | CALL handle_netcdf_error( 'netcdf', 372 ) |
---|
[1] | 1392 | |
---|
| 1393 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'xu', NF90_DOUBLE, & |
---|
| 1394 | id_dim_xu_xz(av), id_var_xu_xz(av) ) |
---|
[263] | 1395 | CALL handle_netcdf_error( 'netcdf', 373 ) |
---|
[1] | 1396 | |
---|
| 1397 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_xu_xz(av), 'units', & |
---|
| 1398 | 'meters' ) |
---|
[263] | 1399 | CALL handle_netcdf_error( 'netcdf', 374 ) |
---|
[1] | 1400 | |
---|
| 1401 | ! |
---|
| 1402 | !-- Define the two z-axes (zu and zw) |
---|
| 1403 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zu', nz+2, id_dim_zu_xz(av) ) |
---|
[263] | 1404 | CALL handle_netcdf_error( 'netcdf', 153 ) |
---|
[1] | 1405 | |
---|
| 1406 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zu', NF90_DOUBLE, & |
---|
| 1407 | id_dim_zu_xz(av), id_var_zu_xz(av) ) |
---|
[263] | 1408 | CALL handle_netcdf_error( 'netcdf', 154 ) |
---|
[1] | 1409 | |
---|
| 1410 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zu_xz(av), 'units', & |
---|
| 1411 | 'meters' ) |
---|
[263] | 1412 | CALL handle_netcdf_error( 'netcdf', 155 ) |
---|
[1] | 1413 | |
---|
| 1414 | nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zw', nz+2, id_dim_zw_xz(av) ) |
---|
[263] | 1415 | CALL handle_netcdf_error( 'netcdf', 156 ) |
---|
[1] | 1416 | |
---|
| 1417 | nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zw', NF90_DOUBLE, & |
---|
| 1418 | id_dim_zw_xz(av), id_var_zw_xz(av) ) |
---|
[263] | 1419 | CALL handle_netcdf_error( 'netcdf', 157 ) |
---|
[1] | 1420 | |
---|
| 1421 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zw_xz(av), 'units', & |
---|
| 1422 | 'meters' ) |
---|
[263] | 1423 | CALL handle_netcdf_error( 'netcdf', 158 ) |
---|
[1] | 1424 | |
---|
| 1425 | |
---|
| 1426 | ! |
---|
| 1427 | !-- Define the variables |
---|
| 1428 | var_list = ';' |
---|
| 1429 | i = 1 |
---|
| 1430 | |
---|
| 1431 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1432 | |
---|
| 1433 | IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN |
---|
| 1434 | |
---|
| 1435 | ! |
---|
| 1436 | !-- Check for the grid |
---|
| 1437 | found = .TRUE. |
---|
| 1438 | SELECT CASE ( do2d(av,i) ) |
---|
| 1439 | ! |
---|
| 1440 | !-- Most variables are defined on the zu grid |
---|
| 1441 | CASE ( 'e_xz', 'p_xz', 'pc_xz', 'pr_xz', 'pt_xz', 'q_xz', & |
---|
| 1442 | 'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qv_xz', & |
---|
[97] | 1443 | 'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' ) |
---|
[1] | 1444 | |
---|
| 1445 | grid_x = 'x' |
---|
| 1446 | grid_y = 'y' |
---|
| 1447 | grid_z = 'zu' |
---|
| 1448 | ! |
---|
| 1449 | !-- u grid |
---|
| 1450 | CASE ( 'u_xz' ) |
---|
| 1451 | |
---|
| 1452 | grid_x = 'xu' |
---|
| 1453 | grid_y = 'y' |
---|
| 1454 | grid_z = 'zu' |
---|
| 1455 | ! |
---|
| 1456 | !-- v grid |
---|
| 1457 | CASE ( 'v_xz' ) |
---|
| 1458 | |
---|
| 1459 | grid_x = 'x' |
---|
| 1460 | grid_y = 'yv' |
---|
| 1461 | grid_z = 'zu' |
---|
| 1462 | ! |
---|
| 1463 | !-- w grid |
---|
| 1464 | CASE ( 'w_xz' ) |
---|
| 1465 | |
---|
| 1466 | grid_x = 'x' |
---|
| 1467 | grid_y = 'y' |
---|
| 1468 | grid_z = 'zw' |
---|
| 1469 | |
---|
| 1470 | CASE DEFAULT |
---|
| 1471 | ! |
---|
| 1472 | !-- Check for user-defined quantities |
---|
| 1473 | CALL user_define_netcdf_grid( do2d(av,i), found, & |
---|
| 1474 | grid_x, grid_y, grid_z ) |
---|
| 1475 | |
---|
| 1476 | END SELECT |
---|
| 1477 | |
---|
| 1478 | ! |
---|
| 1479 | !-- Select the respective dimension ids |
---|
| 1480 | IF ( grid_x == 'x' ) THEN |
---|
| 1481 | id_x = id_dim_x_xz(av) |
---|
| 1482 | ELSEIF ( grid_x == 'xu' ) THEN |
---|
| 1483 | id_x = id_dim_xu_xz(av) |
---|
| 1484 | ENDIF |
---|
| 1485 | |
---|
| 1486 | IF ( grid_y == 'y' ) THEN |
---|
| 1487 | id_y = id_dim_y_xz(av) |
---|
| 1488 | ELSEIF ( grid_y == 'yv' ) THEN |
---|
| 1489 | id_y = id_dim_yv_xz(av) |
---|
| 1490 | ENDIF |
---|
| 1491 | |
---|
| 1492 | IF ( grid_z == 'zu' ) THEN |
---|
| 1493 | id_z = id_dim_zu_xz(av) |
---|
| 1494 | ELSEIF ( grid_z == 'zw' ) THEN |
---|
| 1495 | id_z = id_dim_zw_xz(av) |
---|
| 1496 | ENDIF |
---|
| 1497 | |
---|
| 1498 | ! |
---|
| 1499 | !-- Define the grid |
---|
| 1500 | nc_stat = NF90_DEF_VAR( id_set_xz(av), do2d(av,i), & |
---|
| 1501 | nc_precision(2), & |
---|
| 1502 | (/ id_x, id_y, id_z, id_dim_time_xz(av) /), & |
---|
| 1503 | id_var_do2d(av,i) ) |
---|
| 1504 | |
---|
| 1505 | IF ( .NOT. found ) THEN |
---|
[257] | 1506 | WRITE ( message_string, * ) 'no grid defined for', & |
---|
| 1507 | ' variable ', TRIM( do2d(av,i) ) |
---|
[274] | 1508 | CALL message( 'define_netcdf_header', 'PA0244',& |
---|
| 1509 | 0, 1, 0, 6, 0 ) |
---|
[1] | 1510 | ENDIF |
---|
| 1511 | |
---|
| 1512 | var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';' |
---|
| 1513 | |
---|
[263] | 1514 | CALL handle_netcdf_error( 'netcdf', 159 ) |
---|
[1] | 1515 | ! |
---|
| 1516 | !-- Store the 'real' name of the variable (with *, for example) |
---|
| 1517 | !-- in the long_name attribute. This is evaluated by Ferret, |
---|
| 1518 | !-- for example. |
---|
| 1519 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), & |
---|
| 1520 | 'long_name', do2d(av,i) ) |
---|
[263] | 1521 | CALL handle_netcdf_error( 'netcdf', 160 ) |
---|
[1] | 1522 | ! |
---|
| 1523 | !-- Define the variable's unit |
---|
| 1524 | nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), & |
---|
| 1525 | 'units', TRIM( do2d_unit(av,i) ) ) |
---|
[263] | 1526 | CALL handle_netcdf_error( 'netcdf', 355 ) |
---|
[1] | 1527 | ENDIF |
---|
| 1528 | |
---|
| 1529 | i = i + 1 |
---|
| 1530 | |
---|
| 1531 | ENDDO |
---|
| 1532 | |
---|
| 1533 | ! |
---|
| 1534 | !-- No arrays to output. Close the netcdf file and return. |
---|
| 1535 | IF ( i == 1 ) RETURN |
---|
| 1536 | |
---|
| 1537 | ! |
---|
| 1538 | !-- Write the list of variables as global attribute (this is used by |
---|
| 1539 | !-- restart runs and by combine_plot_fields) |
---|
| 1540 | nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 1541 | var_list ) |
---|
[263] | 1542 | CALL handle_netcdf_error( 'netcdf', 161 ) |
---|
[1] | 1543 | |
---|
| 1544 | ! |
---|
| 1545 | !-- Leave NetCDF define mode |
---|
| 1546 | nc_stat = NF90_ENDDEF( id_set_xz(av) ) |
---|
[263] | 1547 | CALL handle_netcdf_error( 'netcdf', 162 ) |
---|
[1] | 1548 | |
---|
| 1549 | ! |
---|
| 1550 | !-- Write axis data: y_xz, x, zu, zw |
---|
| 1551 | ALLOCATE( netcdf_data(1:ns) ) |
---|
| 1552 | |
---|
| 1553 | ! |
---|
[216] | 1554 | !-- Write y_xz data (shifted by +dy/2) |
---|
[1] | 1555 | DO i = 1, ns |
---|
| 1556 | IF( section(i,2) == -1 ) THEN |
---|
| 1557 | netcdf_data(i) = -1.0 ! section averaged along y |
---|
| 1558 | ELSE |
---|
[216] | 1559 | netcdf_data(i) = ( section(i,2) + 0.5 ) * dy |
---|
[1] | 1560 | ENDIF |
---|
| 1561 | ENDDO |
---|
| 1562 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data, & |
---|
| 1563 | start = (/ 1 /), count = (/ ns /) ) |
---|
[263] | 1564 | CALL handle_netcdf_error( 'netcdf', 163 ) |
---|
[1] | 1565 | |
---|
| 1566 | ! |
---|
| 1567 | !-- Write yv_xz data |
---|
| 1568 | DO i = 1, ns |
---|
| 1569 | IF( section(i,2) == -1 ) THEN |
---|
| 1570 | netcdf_data(i) = -1.0 ! section averaged along y |
---|
| 1571 | ELSE |
---|
[216] | 1572 | netcdf_data(i) = section(i,2) * dy |
---|
[1] | 1573 | ENDIF |
---|
| 1574 | ENDDO |
---|
| 1575 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_yv_xz(av), & |
---|
| 1576 | netcdf_data, start = (/ 1 /), & |
---|
| 1577 | count = (/ ns /) ) |
---|
[263] | 1578 | CALL handle_netcdf_error( 'netcdf', 375 ) |
---|
[1] | 1579 | |
---|
| 1580 | ! |
---|
| 1581 | !-- Write gridpoint number data |
---|
| 1582 | netcdf_data(1:ns) = section(1:ns,2) |
---|
| 1583 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_ind_y_xz(av), & |
---|
| 1584 | netcdf_data, start = (/ 1 /), & |
---|
| 1585 | count = (/ ns /) ) |
---|
[263] | 1586 | CALL handle_netcdf_error( 'netcdf', 164 ) |
---|
[1] | 1587 | |
---|
[263] | 1588 | |
---|
[1] | 1589 | DEALLOCATE( netcdf_data ) |
---|
| 1590 | |
---|
| 1591 | ! |
---|
[216] | 1592 | !-- Write data for x (shifted by +dx/2) and xu axis |
---|
[1] | 1593 | ALLOCATE( netcdf_data(0:nx+1) ) |
---|
| 1594 | |
---|
| 1595 | DO i = 0, nx+1 |
---|
[216] | 1596 | netcdf_data(i) = ( i + 0.5 ) * dx |
---|
[1] | 1597 | ENDDO |
---|
| 1598 | |
---|
| 1599 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_x_xz(av), netcdf_data, & |
---|
| 1600 | start = (/ 1 /), count = (/ nx+2 /) ) |
---|
[263] | 1601 | CALL handle_netcdf_error( 'netcdf', 165 ) |
---|
[1] | 1602 | |
---|
| 1603 | DO i = 0, nx+1 |
---|
[216] | 1604 | netcdf_data(i) = i * dx |
---|
[1] | 1605 | ENDDO |
---|
| 1606 | |
---|
| 1607 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_xu_xz(av), & |
---|
| 1608 | netcdf_data, start = (/ 1 /), & |
---|
| 1609 | count = (/ nx+2 /) ) |
---|
[263] | 1610 | CALL handle_netcdf_error( 'netcdf', 377 ) |
---|
[1] | 1611 | |
---|
| 1612 | DEALLOCATE( netcdf_data ) |
---|
| 1613 | |
---|
| 1614 | ! |
---|
| 1615 | !-- Write zu and zw data (vertical axes) |
---|
| 1616 | ALLOCATE( netcdf_data(0:nz+1) ) |
---|
| 1617 | |
---|
| 1618 | netcdf_data(0:nz+1) = zu(nzb:nzt+1) |
---|
| 1619 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zu_xz(av), & |
---|
| 1620 | netcdf_data, start = (/ 1 /), & |
---|
| 1621 | count = (/ nz+2 /) ) |
---|
[263] | 1622 | CALL handle_netcdf_error( 'netcdf', 166 ) |
---|
[1] | 1623 | |
---|
| 1624 | netcdf_data(0:nz+1) = zw(nzb:nzt+1) |
---|
| 1625 | nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zw_xz(av), & |
---|
| 1626 | netcdf_data, start = (/ 1 /), & |
---|
| 1627 | count = (/ nz+2 /) ) |
---|
[263] | 1628 | CALL handle_netcdf_error( 'netcdf', 167 ) |
---|
[1] | 1629 | |
---|
| 1630 | DEALLOCATE( netcdf_data ) |
---|
| 1631 | |
---|
| 1632 | |
---|
| 1633 | CASE ( 'xz_ext' ) |
---|
| 1634 | |
---|
| 1635 | ! |
---|
| 1636 | !-- Get the list of variables and compare with the actual run. |
---|
| 1637 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 1638 | !-- trailing blanks. |
---|
| 1639 | var_list_old = ' ' |
---|
| 1640 | nc_stat = NF90_GET_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 1641 | var_list_old ) |
---|
[263] | 1642 | CALL handle_netcdf_error( 'netcdf', 168 ) |
---|
[1] | 1643 | |
---|
| 1644 | var_list = ';' |
---|
| 1645 | i = 1 |
---|
| 1646 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1647 | IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN |
---|
| 1648 | netcdf_var_name = do2d(av,i) |
---|
| 1649 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 1650 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 1651 | ENDIF |
---|
| 1652 | i = i + 1 |
---|
| 1653 | ENDDO |
---|
| 1654 | |
---|
| 1655 | IF ( av == 0 ) THEN |
---|
| 1656 | var = '(xz)' |
---|
| 1657 | ELSE |
---|
| 1658 | var = '(xz_av)' |
---|
| 1659 | ENDIF |
---|
| 1660 | |
---|
| 1661 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 1662 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1663 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1664 | '& but this file cannot be extended due to' // & |
---|
| 1665 | ' variable mismatch.' // & |
---|
| 1666 | '&New file is created instead.' |
---|
| 1667 | CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) |
---|
[1] | 1668 | extend = .FALSE. |
---|
| 1669 | RETURN |
---|
| 1670 | ENDIF |
---|
| 1671 | |
---|
| 1672 | ! |
---|
| 1673 | !-- Calculate the number of current sections |
---|
| 1674 | ns = 1 |
---|
| 1675 | DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 ) |
---|
| 1676 | ns = ns + 1 |
---|
| 1677 | ENDDO |
---|
| 1678 | ns = ns - 1 |
---|
| 1679 | |
---|
| 1680 | ! |
---|
| 1681 | !-- Get and compare the number of vertical cross sections |
---|
| 1682 | nc_stat = NF90_INQ_VARID( id_set_xz(av), 'y_xz', id_var_y_xz(av) ) |
---|
[263] | 1683 | CALL handle_netcdf_error( 'netcdf', 169 ) |
---|
[1] | 1684 | |
---|
| 1685 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_y_xz(av), & |
---|
| 1686 | dimids = id_dim_y_xz_old ) |
---|
[263] | 1687 | CALL handle_netcdf_error( 'netcdf', 170 ) |
---|
[1] | 1688 | id_dim_y_xz(av) = id_dim_y_xz_old(1) |
---|
| 1689 | |
---|
| 1690 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_y_xz(av), & |
---|
| 1691 | len = ns_old ) |
---|
[263] | 1692 | CALL handle_netcdf_error( 'netcdf', 171 ) |
---|
[1] | 1693 | |
---|
| 1694 | IF ( ns /= ns_old ) THEN |
---|
[257] | 1695 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1696 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1697 | '&but this file cannot be extended due to' // & |
---|
| 1698 | ' mismatch in number of' // & |
---|
| 1699 | '&cross sections.' // & |
---|
| 1700 | '&New file is created instead.' |
---|
| 1701 | CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) |
---|
[1] | 1702 | extend = .FALSE. |
---|
| 1703 | RETURN |
---|
| 1704 | ENDIF |
---|
| 1705 | |
---|
| 1706 | ! |
---|
| 1707 | !-- Get and compare the heights of the cross sections |
---|
| 1708 | ALLOCATE( netcdf_data(1:ns_old) ) |
---|
| 1709 | |
---|
| 1710 | nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data ) |
---|
[263] | 1711 | CALL handle_netcdf_error( 'netcdf', 172 ) |
---|
[1] | 1712 | |
---|
| 1713 | DO i = 1, ns |
---|
| 1714 | IF ( section(i,2) /= -1 ) THEN |
---|
| 1715 | IF ( ( section(i,2) * dy ) /= netcdf_data(i) ) THEN |
---|
[274] | 1716 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1717 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1718 | '&but this file cannot be extended' // & |
---|
| 1719 | ' due to mismatch in cross' // & |
---|
| 1720 | '§ion levels.' // & |
---|
| 1721 | '&New file is created instead.' |
---|
| 1722 | CALL message( 'define_netcdf_header', 'PA0251', & |
---|
| 1723 | 0, 1, 0, 6, 0 ) |
---|
[1] | 1724 | extend = .FALSE. |
---|
| 1725 | RETURN |
---|
| 1726 | ENDIF |
---|
| 1727 | ELSE |
---|
| 1728 | IF ( -1.0 /= netcdf_data(i) ) THEN |
---|
[274] | 1729 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1730 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1731 | '&but this file cannot be extended' // & |
---|
| 1732 | ' due to mismatch in cross' // & |
---|
| 1733 | '§ion levels.' // & |
---|
| 1734 | '&New file is created instead.' |
---|
| 1735 | CALL message( 'define_netcdf_header', 'PA0251', & |
---|
| 1736 | 0, 1, 0, 6, 0 ) |
---|
[1] | 1737 | extend = .FALSE. |
---|
| 1738 | RETURN |
---|
| 1739 | ENDIF |
---|
| 1740 | ENDIF |
---|
| 1741 | ENDDO |
---|
| 1742 | |
---|
| 1743 | DEALLOCATE( netcdf_data ) |
---|
| 1744 | |
---|
| 1745 | ! |
---|
| 1746 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 1747 | !-- last index on the file. The next time level is do2d..count+1. |
---|
| 1748 | !-- The current time must be larger than the last output time |
---|
| 1749 | !-- on the file. |
---|
| 1750 | nc_stat = NF90_INQ_VARID( id_set_xz(av), 'time', id_var_time_xz(av) ) |
---|
[263] | 1751 | CALL handle_netcdf_error( 'netcdf', 173 ) |
---|
[1] | 1752 | |
---|
| 1753 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_time_xz(av), & |
---|
| 1754 | dimids = id_dim_time_old ) |
---|
[263] | 1755 | CALL handle_netcdf_error( 'netcdf', 174 ) |
---|
[1] | 1756 | id_dim_time_xz(av) = id_dim_time_old(1) |
---|
| 1757 | |
---|
| 1758 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_time_xz(av), & |
---|
| 1759 | len = do2d_xz_time_count(av) ) |
---|
[263] | 1760 | CALL handle_netcdf_error( 'netcdf', 175 ) |
---|
[1] | 1761 | |
---|
| 1762 | nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_time_xz(av), & |
---|
| 1763 | last_time_coordinate, & |
---|
| 1764 | start = (/ do2d_xz_time_count(av) /), & |
---|
| 1765 | count = (/ 1 /) ) |
---|
[263] | 1766 | CALL handle_netcdf_error( 'netcdf', 176 ) |
---|
[1] | 1767 | |
---|
| 1768 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 1769 | message_string = 'NetCDF file for cross sections ' // & |
---|
| 1770 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 1771 | '&but this file cannot be extended becaus' // & |
---|
| 1772 | 'e the current output time' // & |
---|
| 1773 | '&is less or equal than the last output t' // & |
---|
| 1774 | 'ime on this file.' // & |
---|
| 1775 | '&New file is created instead.' |
---|
| 1776 | CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) |
---|
[1] | 1777 | do2d_xz_time_count(av) = 0 |
---|
| 1778 | extend = .FALSE. |
---|
| 1779 | RETURN |
---|
| 1780 | ENDIF |
---|
| 1781 | |
---|
| 1782 | ! |
---|
| 1783 | !-- Dataset seems to be extendable. |
---|
| 1784 | !-- Now get the variable ids. |
---|
| 1785 | i = 1 |
---|
| 1786 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1787 | IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN |
---|
| 1788 | netcdf_var_name = do2d(av,i) |
---|
| 1789 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 1790 | nc_stat = NF90_INQ_VARID( id_set_xz(av), netcdf_var_name, & |
---|
| 1791 | id_var_do2d(av,i) ) |
---|
[263] | 1792 | CALL handle_netcdf_error( 'netcdf', 177 ) |
---|
[1] | 1793 | ENDIF |
---|
| 1794 | i = i + 1 |
---|
| 1795 | ENDDO |
---|
| 1796 | |
---|
| 1797 | ! |
---|
| 1798 | !-- Change the titel attribute on file |
---|
| 1799 | nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', & |
---|
| 1800 | TRIM( run_description_header ) ) |
---|
[263] | 1801 | CALL handle_netcdf_error( 'netcdf', 178 ) |
---|
[257] | 1802 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 1803 | TRIM( var ) // ' from previous run found.' // & |
---|
| 1804 | '&This file will be extended.' |
---|
| 1805 | CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) |
---|
[1] | 1806 | |
---|
| 1807 | |
---|
| 1808 | CASE ( 'yz_new' ) |
---|
| 1809 | |
---|
| 1810 | ! |
---|
| 1811 | !-- Define some global attributes of the dataset |
---|
| 1812 | nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'Conventions', & |
---|
| 1813 | 'COARDS' ) |
---|
[263] | 1814 | CALL handle_netcdf_error( 'netcdf', 179 ) |
---|
[1] | 1815 | |
---|
| 1816 | IF ( av == 0 ) THEN |
---|
| 1817 | time_average_text = ' ' |
---|
| 1818 | ELSE |
---|
| 1819 | WRITE (time_average_text, '('', '',F7.1,'' s average'')') & |
---|
| 1820 | averaging_interval |
---|
| 1821 | ENDIF |
---|
| 1822 | nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', & |
---|
| 1823 | TRIM( run_description_header ) // & |
---|
| 1824 | TRIM( time_average_text ) ) |
---|
[263] | 1825 | CALL handle_netcdf_error( 'netcdf', 180 ) |
---|
[1] | 1826 | IF ( av == 1 ) THEN |
---|
| 1827 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval |
---|
| 1828 | nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'time_avg', & |
---|
| 1829 | TRIM( time_average_text ) ) |
---|
[263] | 1830 | CALL handle_netcdf_error( 'netcdf', 180 ) |
---|
[1] | 1831 | ENDIF |
---|
| 1832 | |
---|
| 1833 | ! |
---|
| 1834 | !-- Define time coordinate for yz sections (unlimited dimension) |
---|
| 1835 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'time', NF90_UNLIMITED, & |
---|
| 1836 | id_dim_time_yz(av) ) |
---|
[263] | 1837 | CALL handle_netcdf_error( 'netcdf', 181 ) |
---|
[1] | 1838 | |
---|
| 1839 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'time', NF90_DOUBLE, & |
---|
| 1840 | id_dim_time_yz(av), id_var_time_yz(av) ) |
---|
[263] | 1841 | CALL handle_netcdf_error( 'netcdf', 182 ) |
---|
[1] | 1842 | |
---|
| 1843 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_time_yz(av), 'units', & |
---|
| 1844 | 'seconds') |
---|
[263] | 1845 | CALL handle_netcdf_error( 'netcdf', 183 ) |
---|
[1] | 1846 | |
---|
| 1847 | ! |
---|
| 1848 | !-- Define the spatial dimensions and coordinates for yz-sections. |
---|
| 1849 | !-- First, determine the number of vertical sections to be written. |
---|
| 1850 | IF ( section(1,3) == -9999 ) THEN |
---|
| 1851 | RETURN |
---|
| 1852 | ELSE |
---|
| 1853 | ns = 1 |
---|
| 1854 | DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 ) |
---|
| 1855 | ns = ns + 1 |
---|
| 1856 | ENDDO |
---|
| 1857 | ns = ns - 1 |
---|
| 1858 | ENDIF |
---|
| 1859 | |
---|
| 1860 | ! |
---|
| 1861 | !-- Define x axis (for scalar position) |
---|
| 1862 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'x_yz', ns, id_dim_x_yz(av) ) |
---|
[263] | 1863 | CALL handle_netcdf_error( 'netcdf', 184 ) |
---|
[1] | 1864 | |
---|
| 1865 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'x_yz', NF90_DOUBLE, & |
---|
| 1866 | id_dim_x_yz(av), id_var_x_yz(av) ) |
---|
[263] | 1867 | CALL handle_netcdf_error( 'netcdf', 185 ) |
---|
[1] | 1868 | |
---|
| 1869 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_x_yz(av), 'units', & |
---|
| 1870 | 'meters' ) |
---|
[263] | 1871 | CALL handle_netcdf_error( 'netcdf', 186 ) |
---|
[1] | 1872 | |
---|
| 1873 | ! |
---|
| 1874 | !-- Define x axis (for u position) |
---|
| 1875 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'xu_yz', ns, id_dim_xu_yz(av) ) |
---|
[263] | 1876 | CALL handle_netcdf_error( 'netcdf', 377 ) |
---|
[1] | 1877 | |
---|
| 1878 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'xu_yz', NF90_DOUBLE, & |
---|
| 1879 | id_dim_xu_yz(av), id_var_xu_yz(av) ) |
---|
[263] | 1880 | CALL handle_netcdf_error( 'netcdf', 378 ) |
---|
[1] | 1881 | |
---|
| 1882 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_xu_yz(av), 'units', & |
---|
| 1883 | 'meters' ) |
---|
[263] | 1884 | CALL handle_netcdf_error( 'netcdf', 379 ) |
---|
[1] | 1885 | |
---|
| 1886 | ! |
---|
| 1887 | !-- Define a variable to store the layer indices of the vertical cross |
---|
| 1888 | !-- sections |
---|
| 1889 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'ind_x_yz', NF90_DOUBLE, & |
---|
| 1890 | id_dim_x_yz(av), id_var_ind_x_yz(av) ) |
---|
[263] | 1891 | CALL handle_netcdf_error( 'netcdf', 187 ) |
---|
[1] | 1892 | |
---|
| 1893 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_ind_x_yz(av), 'units', & |
---|
| 1894 | 'gridpoints') |
---|
[263] | 1895 | CALL handle_netcdf_error( 'netcdf', 188 ) |
---|
[1] | 1896 | |
---|
| 1897 | ! |
---|
| 1898 | !-- Define y-axis (for scalar position) |
---|
| 1899 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'y', ny+2, id_dim_y_yz(av) ) |
---|
[263] | 1900 | CALL handle_netcdf_error( 'netcdf', 189 ) |
---|
[1] | 1901 | |
---|
| 1902 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'y', NF90_DOUBLE, & |
---|
| 1903 | id_dim_y_yz(av), id_var_y_yz(av) ) |
---|
[263] | 1904 | CALL handle_netcdf_error( 'netcdf', 190 ) |
---|
[1] | 1905 | |
---|
| 1906 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_y_yz(av), 'units', & |
---|
| 1907 | 'meters' ) |
---|
[263] | 1908 | CALL handle_netcdf_error( 'netcdf', 191 ) |
---|
[1] | 1909 | |
---|
| 1910 | ! |
---|
| 1911 | !-- Define y-axis (for v position) |
---|
| 1912 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'yv', ny+2, id_dim_yv_yz(av) ) |
---|
[263] | 1913 | CALL handle_netcdf_error( 'netcdf', 380 ) |
---|
[1] | 1914 | |
---|
| 1915 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'yv', NF90_DOUBLE, & |
---|
| 1916 | id_dim_yv_yz(av), id_var_yv_yz(av) ) |
---|
[263] | 1917 | CALL handle_netcdf_error( 'netcdf', 381 ) |
---|
[1] | 1918 | |
---|
| 1919 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_yv_yz(av), 'units', & |
---|
| 1920 | 'meters' ) |
---|
[263] | 1921 | CALL handle_netcdf_error( 'netcdf', 382 ) |
---|
[1] | 1922 | |
---|
| 1923 | ! |
---|
| 1924 | !-- Define the two z-axes (zu and zw) |
---|
| 1925 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zu', nz+2, id_dim_zu_yz(av) ) |
---|
[263] | 1926 | CALL handle_netcdf_error( 'netcdf', 192 ) |
---|
[1] | 1927 | |
---|
| 1928 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zu', NF90_DOUBLE, & |
---|
| 1929 | id_dim_zu_yz(av), id_var_zu_yz(av) ) |
---|
[263] | 1930 | CALL handle_netcdf_error( 'netcdf', 193 ) |
---|
[1] | 1931 | |
---|
| 1932 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zu_yz(av), 'units', & |
---|
| 1933 | 'meters' ) |
---|
[263] | 1934 | CALL handle_netcdf_error( 'netcdf', 194 ) |
---|
[1] | 1935 | |
---|
| 1936 | nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zw', nz+2, id_dim_zw_yz(av) ) |
---|
[263] | 1937 | CALL handle_netcdf_error( 'netcdf', 195 ) |
---|
[1] | 1938 | |
---|
| 1939 | nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zw', NF90_DOUBLE, & |
---|
| 1940 | id_dim_zw_yz(av), id_var_zw_yz(av) ) |
---|
[263] | 1941 | CALL handle_netcdf_error( 'netcdf', 196 ) |
---|
[1] | 1942 | |
---|
| 1943 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zw_yz(av), 'units', & |
---|
| 1944 | 'meters' ) |
---|
[263] | 1945 | CALL handle_netcdf_error( 'netcdf', 197 ) |
---|
[1] | 1946 | |
---|
| 1947 | |
---|
| 1948 | ! |
---|
| 1949 | !-- Define the variables |
---|
| 1950 | var_list = ';' |
---|
| 1951 | i = 1 |
---|
| 1952 | |
---|
| 1953 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 1954 | |
---|
| 1955 | IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN |
---|
| 1956 | |
---|
| 1957 | ! |
---|
| 1958 | !-- Check for the grid |
---|
| 1959 | found = .TRUE. |
---|
| 1960 | SELECT CASE ( do2d(av,i) ) |
---|
| 1961 | ! |
---|
| 1962 | !-- Most variables are defined on the zu grid |
---|
| 1963 | CASE ( 'e_yz', 'p_yz', 'pc_yz', 'pr_yz', 'pt_yz', 'q_yz', & |
---|
| 1964 | 'ql_yz', 'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qv_yz', & |
---|
[97] | 1965 | 'rho_yz', 's_yz', 'sa_yz', 'vpt_yz' ) |
---|
[1] | 1966 | |
---|
| 1967 | grid_x = 'x' |
---|
| 1968 | grid_y = 'y' |
---|
| 1969 | grid_z = 'zu' |
---|
| 1970 | ! |
---|
| 1971 | !-- u grid |
---|
| 1972 | CASE ( 'u_yz' ) |
---|
| 1973 | |
---|
| 1974 | grid_x = 'xu' |
---|
| 1975 | grid_y = 'y' |
---|
| 1976 | grid_z = 'zu' |
---|
| 1977 | ! |
---|
| 1978 | !-- v grid |
---|
| 1979 | CASE ( 'v_yz' ) |
---|
| 1980 | |
---|
| 1981 | grid_x = 'x' |
---|
| 1982 | grid_y = 'yv' |
---|
| 1983 | grid_z = 'zu' |
---|
| 1984 | ! |
---|
| 1985 | !-- w grid |
---|
| 1986 | CASE ( 'w_yz' ) |
---|
| 1987 | |
---|
| 1988 | grid_x = 'x' |
---|
| 1989 | grid_y = 'y' |
---|
| 1990 | grid_z = 'zw' |
---|
| 1991 | |
---|
| 1992 | CASE DEFAULT |
---|
| 1993 | ! |
---|
| 1994 | !-- Check for user-defined quantities |
---|
| 1995 | CALL user_define_netcdf_grid( do2d(av,i), found, & |
---|
| 1996 | grid_x, grid_y, grid_z ) |
---|
| 1997 | |
---|
| 1998 | END SELECT |
---|
| 1999 | |
---|
| 2000 | ! |
---|
| 2001 | !-- Select the respective dimension ids |
---|
| 2002 | IF ( grid_x == 'x' ) THEN |
---|
| 2003 | id_x = id_dim_x_yz(av) |
---|
| 2004 | ELSEIF ( grid_x == 'xu' ) THEN |
---|
| 2005 | id_x = id_dim_xu_yz(av) |
---|
| 2006 | ENDIF |
---|
| 2007 | |
---|
| 2008 | IF ( grid_y == 'y' ) THEN |
---|
| 2009 | id_y = id_dim_y_yz(av) |
---|
| 2010 | ELSEIF ( grid_y == 'yv' ) THEN |
---|
| 2011 | id_y = id_dim_yv_yz(av) |
---|
| 2012 | ENDIF |
---|
| 2013 | |
---|
| 2014 | IF ( grid_z == 'zu' ) THEN |
---|
| 2015 | id_z = id_dim_zu_yz(av) |
---|
| 2016 | ELSEIF ( grid_z == 'zw' ) THEN |
---|
| 2017 | id_z = id_dim_zw_yz(av) |
---|
| 2018 | ENDIF |
---|
| 2019 | |
---|
| 2020 | ! |
---|
| 2021 | !-- Define the grid |
---|
| 2022 | nc_stat = NF90_DEF_VAR( id_set_yz(av), do2d(av,i), & |
---|
| 2023 | nc_precision(3), & |
---|
| 2024 | (/ id_x, id_y, id_z, id_dim_time_yz(av) /), & |
---|
| 2025 | id_var_do2d(av,i) ) |
---|
| 2026 | |
---|
| 2027 | IF ( .NOT. found ) THEN |
---|
[257] | 2028 | WRITE ( message_string, * ) 'no grid defined for', & |
---|
| 2029 | ' variable ', TRIM( do2d(av,i) ) |
---|
[274] | 2030 | CALL message( 'define_netcdf_header', 'PA0244',& |
---|
| 2031 | 0, 1, 0, 6, 0 ) |
---|
[1] | 2032 | ENDIF |
---|
| 2033 | |
---|
| 2034 | var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';' |
---|
| 2035 | |
---|
[263] | 2036 | CALL handle_netcdf_error( 'netcdf', 198 ) |
---|
[1] | 2037 | ! |
---|
| 2038 | !-- Store the 'real' name of the variable (with *, for example) |
---|
| 2039 | !-- in the long_name attribute. This is evaluated by Ferret, |
---|
| 2040 | !-- for example. |
---|
| 2041 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), & |
---|
| 2042 | 'long_name', do2d(av,i) ) |
---|
[263] | 2043 | CALL handle_netcdf_error( 'netcdf', 199 ) |
---|
[1] | 2044 | ! |
---|
| 2045 | !-- Define the variable's unit |
---|
| 2046 | nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), & |
---|
| 2047 | 'units', TRIM( do2d_unit(av,i) ) ) |
---|
[263] | 2048 | CALL handle_netcdf_error( 'netcdf', 356 ) |
---|
[1] | 2049 | ENDIF |
---|
| 2050 | |
---|
| 2051 | i = i + 1 |
---|
| 2052 | |
---|
| 2053 | ENDDO |
---|
| 2054 | |
---|
| 2055 | ! |
---|
| 2056 | !-- No arrays to output. Close the netcdf file and return. |
---|
| 2057 | IF ( i == 1 ) RETURN |
---|
| 2058 | |
---|
| 2059 | ! |
---|
| 2060 | !-- Write the list of variables as global attribute (this is used by |
---|
| 2061 | !-- restart runs and by combine_plot_fields) |
---|
| 2062 | nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 2063 | var_list ) |
---|
[263] | 2064 | CALL handle_netcdf_error( 'netcdf', 200 ) |
---|
[1] | 2065 | |
---|
| 2066 | ! |
---|
| 2067 | !-- Leave NetCDF define mode |
---|
| 2068 | nc_stat = NF90_ENDDEF( id_set_yz(av) ) |
---|
[263] | 2069 | CALL handle_netcdf_error( 'netcdf', 201 ) |
---|
[1] | 2070 | |
---|
| 2071 | ! |
---|
| 2072 | !-- Write axis data: x_yz, y, zu, zw |
---|
| 2073 | ALLOCATE( netcdf_data(1:ns) ) |
---|
| 2074 | |
---|
| 2075 | ! |
---|
[216] | 2076 | !-- Write x_yz data (shifted by +dx/2) |
---|
[1] | 2077 | DO i = 1, ns |
---|
| 2078 | IF( section(i,3) == -1 ) THEN |
---|
| 2079 | netcdf_data(i) = -1.0 ! section averaged along x |
---|
| 2080 | ELSE |
---|
[216] | 2081 | netcdf_data(i) = ( section(i,3) + 0.5 ) * dx |
---|
[1] | 2082 | ENDIF |
---|
| 2083 | ENDDO |
---|
| 2084 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data, & |
---|
| 2085 | start = (/ 1 /), count = (/ ns /) ) |
---|
[263] | 2086 | CALL handle_netcdf_error( 'netcdf', 202 ) |
---|
[1] | 2087 | |
---|
| 2088 | ! |
---|
| 2089 | !-- Write x_yz data (xu grid) |
---|
| 2090 | DO i = 1, ns |
---|
| 2091 | IF( section(i,3) == -1 ) THEN |
---|
| 2092 | netcdf_data(i) = -1.0 ! section averaged along x |
---|
| 2093 | ELSE |
---|
[216] | 2094 | netcdf_data(i) = section(i,3) * dx |
---|
[1] | 2095 | ENDIF |
---|
| 2096 | ENDDO |
---|
| 2097 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_xu_yz(av), netcdf_data, & |
---|
| 2098 | start = (/ 1 /), count = (/ ns /) ) |
---|
[263] | 2099 | CALL handle_netcdf_error( 'netcdf', 383 ) |
---|
[1] | 2100 | |
---|
| 2101 | ! |
---|
| 2102 | !-- Write gridpoint number data |
---|
| 2103 | netcdf_data(1:ns) = section(1:ns,3) |
---|
| 2104 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_ind_x_yz(av), & |
---|
| 2105 | netcdf_data, start = (/ 1 /), & |
---|
| 2106 | count = (/ ns /) ) |
---|
[263] | 2107 | CALL handle_netcdf_error( 'netcdf', 203 ) |
---|
[1] | 2108 | |
---|
| 2109 | DEALLOCATE( netcdf_data ) |
---|
| 2110 | |
---|
| 2111 | ! |
---|
[216] | 2112 | !-- Write data for y (shifted by +dy/2) and yv axis |
---|
[1] | 2113 | ALLOCATE( netcdf_data(0:ny+1) ) |
---|
| 2114 | |
---|
| 2115 | DO j = 0, ny+1 |
---|
[216] | 2116 | netcdf_data(j) = ( j + 0.5 ) * dy |
---|
[1] | 2117 | ENDDO |
---|
| 2118 | |
---|
| 2119 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_y_yz(av), netcdf_data, & |
---|
| 2120 | start = (/ 1 /), count = (/ ny+2 /) ) |
---|
[263] | 2121 | CALL handle_netcdf_error( 'netcdf', 204 ) |
---|
[1] | 2122 | |
---|
| 2123 | DO j = 0, ny+1 |
---|
[216] | 2124 | netcdf_data(j) = j * dy |
---|
[1] | 2125 | ENDDO |
---|
| 2126 | |
---|
| 2127 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_yv_yz(av), & |
---|
| 2128 | netcdf_data, start = (/ 1 /), & |
---|
| 2129 | count = (/ ny+2 /) ) |
---|
[263] | 2130 | CALL handle_netcdf_error( 'netcdf', 384 ) |
---|
[1] | 2131 | |
---|
| 2132 | DEALLOCATE( netcdf_data ) |
---|
| 2133 | |
---|
| 2134 | ! |
---|
| 2135 | !-- Write zu and zw data (vertical axes) |
---|
| 2136 | ALLOCATE( netcdf_data(0:nz+1) ) |
---|
| 2137 | |
---|
| 2138 | netcdf_data(0:nz+1) = zu(nzb:nzt+1) |
---|
| 2139 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zu_yz(av), & |
---|
| 2140 | netcdf_data, start = (/ 1 /), & |
---|
| 2141 | count = (/ nz+2 /) ) |
---|
[263] | 2142 | CALL handle_netcdf_error( 'netcdf', 205 ) |
---|
[1] | 2143 | |
---|
| 2144 | netcdf_data(0:nz+1) = zw(nzb:nzt+1) |
---|
| 2145 | nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zw_yz(av), & |
---|
| 2146 | netcdf_data, start = (/ 1 /), & |
---|
| 2147 | count = (/ nz+2 /) ) |
---|
[263] | 2148 | CALL handle_netcdf_error( 'netcdf', 206 ) |
---|
[1] | 2149 | |
---|
| 2150 | DEALLOCATE( netcdf_data ) |
---|
| 2151 | |
---|
| 2152 | |
---|
| 2153 | CASE ( 'yz_ext' ) |
---|
| 2154 | |
---|
| 2155 | ! |
---|
| 2156 | !-- Get the list of variables and compare with the actual run. |
---|
| 2157 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 2158 | !-- trailing blanks. |
---|
| 2159 | var_list_old = ' ' |
---|
| 2160 | nc_stat = NF90_GET_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', & |
---|
| 2161 | var_list_old ) |
---|
[263] | 2162 | CALL handle_netcdf_error( 'netcdf', 207 ) |
---|
[1] | 2163 | |
---|
| 2164 | var_list = ';' |
---|
| 2165 | i = 1 |
---|
| 2166 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 2167 | IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN |
---|
| 2168 | netcdf_var_name = do2d(av,i) |
---|
| 2169 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2170 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 2171 | ENDIF |
---|
| 2172 | i = i + 1 |
---|
| 2173 | ENDDO |
---|
| 2174 | |
---|
| 2175 | IF ( av == 0 ) THEN |
---|
| 2176 | var = '(yz)' |
---|
| 2177 | ELSE |
---|
| 2178 | var = '(yz_av)' |
---|
| 2179 | ENDIF |
---|
| 2180 | |
---|
| 2181 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 2182 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 2183 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 2184 | '& but this file cannot be extended due to' // & |
---|
| 2185 | ' variable mismatch.' // & |
---|
| 2186 | '&New file is created instead.' |
---|
| 2187 | CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) |
---|
[1] | 2188 | extend = .FALSE. |
---|
| 2189 | RETURN |
---|
| 2190 | ENDIF |
---|
| 2191 | |
---|
| 2192 | ! |
---|
| 2193 | !-- Calculate the number of current sections |
---|
| 2194 | ns = 1 |
---|
| 2195 | DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 ) |
---|
| 2196 | ns = ns + 1 |
---|
| 2197 | ENDDO |
---|
| 2198 | ns = ns - 1 |
---|
| 2199 | |
---|
| 2200 | ! |
---|
| 2201 | !-- Get and compare the number of vertical cross sections |
---|
| 2202 | nc_stat = NF90_INQ_VARID( id_set_yz(av), 'x_yz', id_var_x_yz(av) ) |
---|
[263] | 2203 | CALL handle_netcdf_error( 'netcdf', 208 ) |
---|
[1] | 2204 | |
---|
| 2205 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_x_yz(av), & |
---|
| 2206 | dimids = id_dim_x_yz_old ) |
---|
[263] | 2207 | CALL handle_netcdf_error( 'netcdf', 209 ) |
---|
[1] | 2208 | id_dim_x_yz(av) = id_dim_x_yz_old(1) |
---|
| 2209 | |
---|
| 2210 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_x_yz(av), & |
---|
| 2211 | len = ns_old ) |
---|
[263] | 2212 | CALL handle_netcdf_error( 'netcdf', 210 ) |
---|
[1] | 2213 | |
---|
| 2214 | IF ( ns /= ns_old ) THEN |
---|
[257] | 2215 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 2216 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 2217 | '&but this file cannot be extended due to' // & |
---|
| 2218 | ' mismatch in number of' // & |
---|
| 2219 | '&cross sections.' // & |
---|
| 2220 | '&New file is created instead.' |
---|
| 2221 | CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) |
---|
[1] | 2222 | extend = .FALSE. |
---|
| 2223 | RETURN |
---|
| 2224 | ENDIF |
---|
| 2225 | |
---|
| 2226 | ! |
---|
| 2227 | !-- Get and compare the heights of the cross sections |
---|
| 2228 | ALLOCATE( netcdf_data(1:ns_old) ) |
---|
| 2229 | |
---|
| 2230 | nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data ) |
---|
[263] | 2231 | CALL handle_netcdf_error( 'netcdf', 211 ) |
---|
[1] | 2232 | |
---|
| 2233 | DO i = 1, ns |
---|
| 2234 | IF ( section(i,3) /= -1 ) THEN |
---|
| 2235 | IF ( ( section(i,3) * dx ) /= netcdf_data(i) ) THEN |
---|
[274] | 2236 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 2237 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 2238 | '&but this file cannot be extended' // & |
---|
| 2239 | ' due to mismatch in cross' // & |
---|
| 2240 | '§ion levels.' // & |
---|
| 2241 | '&New file is created instead.' |
---|
| 2242 | CALL message( 'define_netcdf_header', 'PA0251', & |
---|
| 2243 | 0, 1, 0, 6, 0 ) |
---|
[1] | 2244 | extend = .FALSE. |
---|
| 2245 | RETURN |
---|
| 2246 | ENDIF |
---|
| 2247 | ELSE |
---|
| 2248 | IF ( -1.0 /= netcdf_data(i) ) THEN |
---|
[274] | 2249 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 2250 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 2251 | '&but this file cannot be extended' // & |
---|
| 2252 | ' due to mismatch in cross' // & |
---|
| 2253 | '§ion levels.' // & |
---|
| 2254 | '&New file is created instead.' |
---|
| 2255 | CALL message( 'define_netcdf_header', 'PA0251', & |
---|
| 2256 | 0, 1, 0, 6, 0 ) |
---|
[1] | 2257 | extend = .FALSE. |
---|
| 2258 | RETURN |
---|
| 2259 | ENDIF |
---|
| 2260 | ENDIF |
---|
| 2261 | ENDDO |
---|
| 2262 | |
---|
| 2263 | DEALLOCATE( netcdf_data ) |
---|
| 2264 | |
---|
| 2265 | ! |
---|
| 2266 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 2267 | !-- last index on the file. The next time level is pl2d..count+1. |
---|
| 2268 | !-- The current time must be larger than the last output time |
---|
| 2269 | !-- on the file. |
---|
| 2270 | nc_stat = NF90_INQ_VARID( id_set_yz(av), 'time', id_var_time_yz(av) ) |
---|
[263] | 2271 | CALL handle_netcdf_error( 'netcdf', 212 ) |
---|
[1] | 2272 | |
---|
| 2273 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_time_yz(av), & |
---|
| 2274 | dimids = id_dim_time_old ) |
---|
[263] | 2275 | CALL handle_netcdf_error( 'netcdf', 213 ) |
---|
[1] | 2276 | id_dim_time_yz(av) = id_dim_time_old(1) |
---|
| 2277 | |
---|
| 2278 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_time_yz(av), & |
---|
| 2279 | len = do2d_yz_time_count(av) ) |
---|
[263] | 2280 | CALL handle_netcdf_error( 'netcdf', 214 ) |
---|
[1] | 2281 | |
---|
| 2282 | nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_time_yz(av), & |
---|
| 2283 | last_time_coordinate, & |
---|
| 2284 | start = (/ do2d_yz_time_count(av) /), & |
---|
| 2285 | count = (/ 1 /) ) |
---|
[263] | 2286 | CALL handle_netcdf_error( 'netcdf', 215 ) |
---|
[1] | 2287 | |
---|
| 2288 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 2289 | message_string = 'NetCDF file for cross sections ' // & |
---|
| 2290 | TRIM( var ) // ' from previuos run found,' // & |
---|
| 2291 | '&but this file cannot be extended becaus' // & |
---|
| 2292 | 'e the current output time' // & |
---|
| 2293 | '&is less or equal than the last output t' // & |
---|
| 2294 | 'ime on this file.' // & |
---|
| 2295 | '&New file is created instead.' |
---|
| 2296 | CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) |
---|
[1] | 2297 | do2d_yz_time_count(av) = 0 |
---|
| 2298 | extend = .FALSE. |
---|
| 2299 | RETURN |
---|
| 2300 | ENDIF |
---|
| 2301 | |
---|
| 2302 | ! |
---|
| 2303 | !-- Dataset seems to be extendable. |
---|
| 2304 | !-- Now get the variable ids. |
---|
| 2305 | i = 1 |
---|
| 2306 | DO WHILE ( do2d(av,i)(1:1) /= ' ' ) |
---|
| 2307 | IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN |
---|
| 2308 | netcdf_var_name = do2d(av,i) |
---|
| 2309 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2310 | nc_stat = NF90_INQ_VARID( id_set_yz(av), netcdf_var_name, & |
---|
| 2311 | id_var_do2d(av,i) ) |
---|
[263] | 2312 | CALL handle_netcdf_error( 'netcdf', 216 ) |
---|
[1] | 2313 | ENDIF |
---|
| 2314 | i = i + 1 |
---|
| 2315 | ENDDO |
---|
| 2316 | |
---|
| 2317 | ! |
---|
| 2318 | !-- Change the titel attribute on file |
---|
| 2319 | nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', & |
---|
| 2320 | TRIM( run_description_header ) ) |
---|
[263] | 2321 | CALL handle_netcdf_error( 'netcdf', 217 ) |
---|
[257] | 2322 | message_string = 'NetCDF file for cross-sections ' // & |
---|
| 2323 | TRIM( var ) // ' from previous run found.' // & |
---|
| 2324 | '&This file will be extended.' |
---|
| 2325 | CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) |
---|
[1] | 2326 | |
---|
| 2327 | |
---|
| 2328 | CASE ( 'pr_new' ) |
---|
| 2329 | |
---|
| 2330 | ! |
---|
| 2331 | !-- Define some global attributes of the dataset |
---|
| 2332 | IF ( averaging_interval_pr /= 0.0 ) THEN |
---|
| 2333 | WRITE (time_average_text,'('', '',F7.1,'' s average'')') & |
---|
| 2334 | averaging_interval_pr |
---|
| 2335 | nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', & |
---|
| 2336 | TRIM( run_description_header ) // & |
---|
| 2337 | TRIM( time_average_text ) ) |
---|
[263] | 2338 | CALL handle_netcdf_error( 'netcdf', 218 ) |
---|
[1] | 2339 | |
---|
| 2340 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_pr |
---|
| 2341 | nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'time_avg', & |
---|
| 2342 | TRIM( time_average_text ) ) |
---|
| 2343 | ELSE |
---|
| 2344 | nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', & |
---|
| 2345 | TRIM( run_description_header ) ) |
---|
| 2346 | ENDIF |
---|
[263] | 2347 | CALL handle_netcdf_error( 'netcdf', 219 ) |
---|
[1] | 2348 | |
---|
| 2349 | ! |
---|
| 2350 | !-- Define time coordinate for profiles (unlimited dimension) |
---|
| 2351 | nc_stat = NF90_DEF_DIM( id_set_pr, 'time', NF90_UNLIMITED, & |
---|
| 2352 | id_dim_time_pr ) |
---|
[263] | 2353 | CALL handle_netcdf_error( 'netcdf', 220 ) |
---|
[1] | 2354 | |
---|
| 2355 | nc_stat = NF90_DEF_VAR( id_set_pr, 'time', NF90_DOUBLE, & |
---|
| 2356 | id_dim_time_pr, id_var_time_pr ) |
---|
[263] | 2357 | CALL handle_netcdf_error( 'netcdf', 221 ) |
---|
[1] | 2358 | |
---|
| 2359 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_time_pr, 'units', 'seconds') |
---|
[263] | 2360 | CALL handle_netcdf_error( 'netcdf', 222 ) |
---|
[1] | 2361 | |
---|
| 2362 | ! |
---|
| 2363 | !-- Define the variables |
---|
| 2364 | var_list = ';' |
---|
| 2365 | DO i = 1, dopr_n |
---|
| 2366 | ! |
---|
| 2367 | !-- First, remove those characters not allowed by NetCDF |
---|
| 2368 | netcdf_var_name = data_output_pr(i) |
---|
| 2369 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2370 | |
---|
| 2371 | IF ( statistic_regions == 0 ) THEN |
---|
| 2372 | |
---|
| 2373 | ! |
---|
| 2374 | !-- Define the z-axes (each variable gets its own z-axis) |
---|
| 2375 | nc_stat = NF90_DEF_DIM( id_set_pr, 'z'//TRIM(netcdf_var_name), & |
---|
| 2376 | nzt+2-nzb, id_dim_z_pr(i,0) ) |
---|
[263] | 2377 | CALL handle_netcdf_error( 'netcdf', 223 ) |
---|
[1] | 2378 | |
---|
| 2379 | nc_stat = NF90_DEF_VAR( id_set_pr, 'z'//TRIM(netcdf_var_name), & |
---|
| 2380 | NF90_DOUBLE, id_dim_z_pr(i,0), & |
---|
| 2381 | id_var_z_pr(i,0) ) |
---|
[263] | 2382 | CALL handle_netcdf_error( 'netcdf', 224 ) |
---|
[1] | 2383 | |
---|
| 2384 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,0), 'units', & |
---|
| 2385 | 'meters' ) |
---|
[263] | 2386 | CALL handle_netcdf_error( 'netcdf', 225 ) |
---|
[1] | 2387 | ! |
---|
| 2388 | !-- Define the variable |
---|
| 2389 | nc_stat = NF90_DEF_VAR( id_set_pr, netcdf_var_name, & |
---|
| 2390 | nc_precision(5), (/ id_dim_z_pr(i,0), & |
---|
| 2391 | id_dim_time_pr /), id_var_dopr(i,0) ) |
---|
[263] | 2392 | CALL handle_netcdf_error( 'netcdf', 226 ) |
---|
[1] | 2393 | |
---|
| 2394 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), & |
---|
| 2395 | 'long_name', TRIM( data_output_pr(i) ) ) |
---|
[263] | 2396 | CALL handle_netcdf_error( 'netcdf', 227 ) |
---|
[1] | 2397 | |
---|
| 2398 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), & |
---|
| 2399 | 'units', TRIM( dopr_unit(i) ) ) |
---|
[263] | 2400 | CALL handle_netcdf_error( 'netcdf', 228 ) |
---|
[1] | 2401 | |
---|
| 2402 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 2403 | |
---|
| 2404 | ELSE |
---|
| 2405 | ! |
---|
| 2406 | !-- If statistic regions are defined, add suffix _SR+#SR to the |
---|
| 2407 | !-- names |
---|
| 2408 | DO j = 0, statistic_regions |
---|
| 2409 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2410 | |
---|
| 2411 | ! |
---|
| 2412 | !-- Define the z-axes (each variable gets it own z-axis) |
---|
| 2413 | nc_stat = NF90_DEF_DIM( id_set_pr, & |
---|
| 2414 | 'z'//TRIM(netcdf_var_name)//suffix, & |
---|
| 2415 | nzt+2-nzb, id_dim_z_pr(i,j) ) |
---|
[263] | 2416 | CALL handle_netcdf_error( 'netcdf', 229 ) |
---|
[1] | 2417 | |
---|
| 2418 | nc_stat = NF90_DEF_VAR( id_set_pr, & |
---|
| 2419 | 'z'//TRIM(netcdf_var_name)//suffix, & |
---|
| 2420 | nc_precision(5), id_dim_z_pr(i,j), & |
---|
| 2421 | id_var_z_pr(i,j) ) |
---|
[263] | 2422 | CALL handle_netcdf_error( 'netcdf', 230 ) |
---|
[1] | 2423 | |
---|
| 2424 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,j), & |
---|
| 2425 | 'units', 'meters' ) |
---|
[263] | 2426 | CALL handle_netcdf_error( 'netcdf', 231 ) |
---|
[1] | 2427 | |
---|
| 2428 | ! |
---|
| 2429 | !-- Define the variable |
---|
| 2430 | nc_stat = NF90_DEF_VAR( id_set_pr, & |
---|
| 2431 | TRIM( netcdf_var_name ) // suffix, & |
---|
| 2432 | nc_precision(5), & |
---|
| 2433 | (/ id_dim_z_pr(i,j), & |
---|
| 2434 | id_dim_time_pr /), id_var_dopr(i,j) ) |
---|
[263] | 2435 | CALL handle_netcdf_error( 'netcdf', 232 ) |
---|
[1] | 2436 | |
---|
| 2437 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), & |
---|
| 2438 | 'long_name', & |
---|
| 2439 | TRIM( data_output_pr(i) ) // ' SR ' & |
---|
| 2440 | // suffix(2:2) ) |
---|
[263] | 2441 | CALL handle_netcdf_error( 'netcdf', 233 ) |
---|
[1] | 2442 | |
---|
| 2443 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), & |
---|
| 2444 | 'units', TRIM( dopr_unit(i) ) ) |
---|
[263] | 2445 | CALL handle_netcdf_error( 'netcdf', 234 ) |
---|
[1] | 2446 | |
---|
| 2447 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 2448 | suffix // ';' |
---|
| 2449 | |
---|
| 2450 | ENDDO |
---|
| 2451 | |
---|
| 2452 | ENDIF |
---|
| 2453 | |
---|
| 2454 | ENDDO |
---|
| 2455 | |
---|
| 2456 | ! |
---|
| 2457 | !-- Write the list of variables as global attribute (this is used by |
---|
| 2458 | !-- restart runs) |
---|
| 2459 | nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', var_list ) |
---|
[263] | 2460 | CALL handle_netcdf_error( 'netcdf', 235 ) |
---|
[1] | 2461 | |
---|
| 2462 | ! |
---|
| 2463 | !-- Define normalization variables (as time series) |
---|
| 2464 | DO i = 1, dopr_norm_num |
---|
| 2465 | |
---|
| 2466 | nc_stat = NF90_DEF_VAR( id_set_pr, 'NORM_' // & |
---|
| 2467 | TRIM( dopr_norm_names(i) ), & |
---|
| 2468 | nc_precision(5), (/ id_dim_time_pr /), & |
---|
| 2469 | id_var_norm_dopr(i) ) |
---|
[263] | 2470 | CALL handle_netcdf_error( 'netcdf', 236 ) |
---|
[1] | 2471 | |
---|
| 2472 | nc_stat = NF90_PUT_ATT( id_set_pr, id_var_norm_dopr(i), & |
---|
| 2473 | 'long_name', & |
---|
| 2474 | TRIM( dopr_norm_longnames(i) ) ) |
---|
[263] | 2475 | CALL handle_netcdf_error( 'netcdf', 237 ) |
---|
[1] | 2476 | |
---|
| 2477 | ENDDO |
---|
| 2478 | |
---|
| 2479 | ! |
---|
| 2480 | !-- Leave NetCDF define mode |
---|
| 2481 | nc_stat = NF90_ENDDEF( id_set_pr ) |
---|
[263] | 2482 | CALL handle_netcdf_error( 'netcdf', 238 ) |
---|
[1] | 2483 | |
---|
| 2484 | ! |
---|
| 2485 | !-- Write z-axes data |
---|
| 2486 | DO i = 1, dopr_n |
---|
| 2487 | DO j = 0, statistic_regions |
---|
| 2488 | |
---|
| 2489 | nc_stat = NF90_PUT_VAR( id_set_pr, id_var_z_pr(i,j), & |
---|
| 2490 | hom(nzb:nzt+1,2,dopr_index(i),0), & |
---|
| 2491 | start = (/ 1 /), & |
---|
| 2492 | count = (/ nzt-nzb+2 /) ) |
---|
[263] | 2493 | CALL handle_netcdf_error( 'netcdf', 239 ) |
---|
[1] | 2494 | |
---|
| 2495 | ENDDO |
---|
| 2496 | ENDDO |
---|
| 2497 | |
---|
| 2498 | |
---|
| 2499 | CASE ( 'pr_ext' ) |
---|
| 2500 | |
---|
| 2501 | ! |
---|
| 2502 | !-- Get the list of variables and compare with the actual run. |
---|
| 2503 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 2504 | !-- trailing blanks. |
---|
| 2505 | var_list_old = ' ' |
---|
| 2506 | nc_stat = NF90_GET_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', & |
---|
| 2507 | var_list_old ) |
---|
[263] | 2508 | CALL handle_netcdf_error( 'netcdf', 240 ) |
---|
[1] | 2509 | |
---|
| 2510 | var_list = ';' |
---|
| 2511 | DO i = 1, dopr_n |
---|
| 2512 | |
---|
| 2513 | netcdf_var_name = data_output_pr(i) |
---|
| 2514 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2515 | |
---|
| 2516 | IF ( statistic_regions == 0 ) THEN |
---|
| 2517 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 2518 | ELSE |
---|
| 2519 | DO j = 0, statistic_regions |
---|
| 2520 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2521 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 2522 | suffix // ';' |
---|
| 2523 | ENDDO |
---|
| 2524 | ENDIF |
---|
| 2525 | |
---|
| 2526 | ENDDO |
---|
| 2527 | |
---|
| 2528 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 2529 | message_string = 'NetCDF file for vertical profiles ' // & |
---|
| 2530 | 'from previuos run found,' // & |
---|
| 2531 | '& but this file cannot be extended due to' // & |
---|
| 2532 | ' variable mismatch.' // & |
---|
| 2533 | '&New file is created instead.' |
---|
| 2534 | CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 ) |
---|
[1] | 2535 | extend = .FALSE. |
---|
| 2536 | RETURN |
---|
| 2537 | ENDIF |
---|
| 2538 | |
---|
| 2539 | ! |
---|
| 2540 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 2541 | !-- last index on the file. The next time level is dopr..count+1. |
---|
| 2542 | !-- The current time must be larger than the last output time |
---|
| 2543 | !-- on the file. |
---|
| 2544 | nc_stat = NF90_INQ_VARID( id_set_pr, 'time', id_var_time_pr ) |
---|
[263] | 2545 | CALL handle_netcdf_error( 'netcdf', 241 ) |
---|
[1] | 2546 | |
---|
| 2547 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_pr, id_var_time_pr, & |
---|
| 2548 | dimids = id_dim_time_old ) |
---|
[263] | 2549 | CALL handle_netcdf_error( 'netcdf', 242 ) |
---|
[1] | 2550 | id_dim_time_pr = id_dim_time_old(1) |
---|
| 2551 | |
---|
| 2552 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_pr, id_dim_time_pr, & |
---|
| 2553 | len = dopr_time_count ) |
---|
[263] | 2554 | CALL handle_netcdf_error( 'netcdf', 243 ) |
---|
[1] | 2555 | |
---|
| 2556 | nc_stat = NF90_GET_VAR( id_set_pr, id_var_time_pr, & |
---|
| 2557 | last_time_coordinate, & |
---|
| 2558 | start = (/ dopr_time_count /), & |
---|
| 2559 | count = (/ 1 /) ) |
---|
[263] | 2560 | CALL handle_netcdf_error( 'netcdf', 244 ) |
---|
[1] | 2561 | |
---|
| 2562 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 2563 | message_string = 'NetCDF file for vertical profiles ' // & |
---|
| 2564 | 'from previuos run found,' // & |
---|
| 2565 | '&but this file cannot be extended becaus' // & |
---|
| 2566 | 'e the current output time' // & |
---|
| 2567 | '&is less or equal than the last output t' // & |
---|
| 2568 | 'ime on this file.' // & |
---|
| 2569 | '&New file is created instead.' |
---|
| 2570 | CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 ) |
---|
[1] | 2571 | dopr_time_count = 0 |
---|
| 2572 | extend = .FALSE. |
---|
| 2573 | RETURN |
---|
| 2574 | ENDIF |
---|
| 2575 | |
---|
| 2576 | ! |
---|
| 2577 | !-- Dataset seems to be extendable. |
---|
| 2578 | !-- Now get the variable ids. |
---|
| 2579 | i = 1 |
---|
| 2580 | DO i = 1, dopr_n |
---|
| 2581 | |
---|
| 2582 | netcdf_var_name_base = data_output_pr(i) |
---|
| 2583 | CALL clean_netcdf_varname( netcdf_var_name_base ) |
---|
| 2584 | |
---|
| 2585 | IF ( statistic_regions == 0 ) THEN |
---|
| 2586 | nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name_base, & |
---|
| 2587 | id_var_dopr(i,0) ) |
---|
[263] | 2588 | CALL handle_netcdf_error( 'netcdf', 245 ) |
---|
[1] | 2589 | ELSE |
---|
| 2590 | DO j = 0, statistic_regions |
---|
| 2591 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2592 | netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix |
---|
| 2593 | nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name, & |
---|
| 2594 | id_var_dopr(i,j) ) |
---|
[263] | 2595 | CALL handle_netcdf_error( 'netcdf', 246 ) |
---|
[1] | 2596 | ENDDO |
---|
| 2597 | ENDIF |
---|
| 2598 | |
---|
| 2599 | ENDDO |
---|
| 2600 | |
---|
| 2601 | ! |
---|
| 2602 | !-- Get ids of the normalization variables |
---|
| 2603 | DO i = 1, dopr_norm_num |
---|
| 2604 | nc_stat = NF90_INQ_VARID( id_set_pr, & |
---|
| 2605 | 'NORM_' // TRIM( dopr_norm_names(i) ), & |
---|
| 2606 | id_var_norm_dopr(i) ) |
---|
[263] | 2607 | CALL handle_netcdf_error( 'netcdf', 247 ) |
---|
[1] | 2608 | ENDDO |
---|
| 2609 | |
---|
| 2610 | ! |
---|
| 2611 | !-- Change the title attribute on file |
---|
| 2612 | nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', & |
---|
| 2613 | TRIM( run_description_header ) ) |
---|
[263] | 2614 | CALL handle_netcdf_error( 'netcdf', 248 ) |
---|
[257] | 2615 | message_string = 'NetCDF file for vertical profiles ' // & |
---|
| 2616 | 'from previous run found.' // & |
---|
| 2617 | '&This file will be extended.' |
---|
| 2618 | CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 ) |
---|
[1] | 2619 | |
---|
| 2620 | |
---|
| 2621 | CASE ( 'ts_new' ) |
---|
| 2622 | |
---|
| 2623 | ! |
---|
| 2624 | !-- Define some global attributes of the dataset |
---|
| 2625 | nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', & |
---|
| 2626 | TRIM( run_description_header ) ) |
---|
[263] | 2627 | CALL handle_netcdf_error( 'netcdf', 249 ) |
---|
[1] | 2628 | |
---|
| 2629 | ! |
---|
| 2630 | !-- Define time coordinate for time series (unlimited dimension) |
---|
| 2631 | nc_stat = NF90_DEF_DIM( id_set_ts, 'time', NF90_UNLIMITED, & |
---|
| 2632 | id_dim_time_ts ) |
---|
[263] | 2633 | CALL handle_netcdf_error( 'netcdf', 250 ) |
---|
[1] | 2634 | |
---|
| 2635 | nc_stat = NF90_DEF_VAR( id_set_ts, 'time', NF90_DOUBLE, & |
---|
| 2636 | id_dim_time_ts, id_var_time_ts ) |
---|
[263] | 2637 | CALL handle_netcdf_error( 'netcdf', 251 ) |
---|
[1] | 2638 | |
---|
| 2639 | nc_stat = NF90_PUT_ATT( id_set_ts, id_var_time_ts, 'units', 'seconds') |
---|
[263] | 2640 | CALL handle_netcdf_error( 'netcdf', 252 ) |
---|
[1] | 2641 | |
---|
| 2642 | ! |
---|
| 2643 | !-- Define the variables |
---|
| 2644 | var_list = ';' |
---|
| 2645 | DO i = 1, dots_num |
---|
| 2646 | ! |
---|
| 2647 | !-- First, remove those characters not allowed by NetCDF |
---|
| 2648 | netcdf_var_name = dots_label(i) |
---|
| 2649 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2650 | |
---|
| 2651 | IF ( statistic_regions == 0 ) THEN |
---|
| 2652 | |
---|
| 2653 | nc_stat = NF90_DEF_VAR( id_set_ts, netcdf_var_name, & |
---|
| 2654 | nc_precision(6), (/ id_dim_time_ts /), & |
---|
| 2655 | id_var_dots(i,0) ) |
---|
[263] | 2656 | CALL handle_netcdf_error( 'netcdf', 253 ) |
---|
[1] | 2657 | |
---|
| 2658 | nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), & |
---|
| 2659 | 'long_name', TRIM( dots_label(i) ) ) |
---|
[263] | 2660 | CALL handle_netcdf_error( 'netcdf', 254 ) |
---|
[1] | 2661 | |
---|
| 2662 | nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), & |
---|
| 2663 | 'units', TRIM( dots_unit(i) ) ) |
---|
[263] | 2664 | CALL handle_netcdf_error( 'netcdf', 255 ) |
---|
[1] | 2665 | |
---|
| 2666 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 2667 | |
---|
| 2668 | ELSE |
---|
| 2669 | ! |
---|
| 2670 | !-- If statistic regions are defined, add suffix _SR+#SR to the |
---|
| 2671 | !-- names |
---|
| 2672 | DO j = 0, statistic_regions |
---|
| 2673 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2674 | |
---|
| 2675 | nc_stat = NF90_DEF_VAR( id_set_ts, & |
---|
| 2676 | TRIM( netcdf_var_name ) // suffix, & |
---|
| 2677 | nc_precision(6), & |
---|
| 2678 | (/ id_dim_time_ts /), & |
---|
| 2679 | id_var_dots(i,j) ) |
---|
[263] | 2680 | CALL handle_netcdf_error( 'netcdf', 256 ) |
---|
[1] | 2681 | |
---|
| 2682 | nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), & |
---|
| 2683 | 'long_name', & |
---|
| 2684 | TRIM( dots_label(i) ) // ' SR ' // & |
---|
| 2685 | suffix(2:2) ) |
---|
[263] | 2686 | CALL handle_netcdf_error( 'netcdf', 257 ) |
---|
[1] | 2687 | |
---|
[288] | 2688 | nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), & |
---|
| 2689 | 'units', TRIM( dots_unit(i) ) ) |
---|
| 2690 | CALL handle_netcdf_error( 'netcdf', 347 ) |
---|
| 2691 | |
---|
[1] | 2692 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 2693 | suffix // ';' |
---|
| 2694 | |
---|
| 2695 | ENDDO |
---|
| 2696 | |
---|
| 2697 | ENDIF |
---|
| 2698 | |
---|
| 2699 | ENDDO |
---|
| 2700 | |
---|
| 2701 | ! |
---|
| 2702 | !-- Write the list of variables as global attribute (this is used by |
---|
| 2703 | !-- restart runs) |
---|
| 2704 | nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', var_list ) |
---|
[263] | 2705 | CALL handle_netcdf_error( 'netcdf', 258 ) |
---|
[1] | 2706 | |
---|
| 2707 | ! |
---|
| 2708 | !-- Leave NetCDF define mode |
---|
| 2709 | nc_stat = NF90_ENDDEF( id_set_ts ) |
---|
[263] | 2710 | CALL handle_netcdf_error( 'netcdf', 259 ) |
---|
[1] | 2711 | |
---|
| 2712 | |
---|
| 2713 | CASE ( 'ts_ext' ) |
---|
| 2714 | |
---|
| 2715 | ! |
---|
| 2716 | !-- Get the list of variables and compare with the actual run. |
---|
| 2717 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 2718 | !-- trailing blanks. |
---|
| 2719 | var_list_old = ' ' |
---|
| 2720 | nc_stat = NF90_GET_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', & |
---|
| 2721 | var_list_old ) |
---|
[263] | 2722 | CALL handle_netcdf_error( 'netcdf', 260 ) |
---|
[1] | 2723 | |
---|
| 2724 | var_list = ';' |
---|
| 2725 | i = 1 |
---|
| 2726 | DO i = 1, dots_num |
---|
| 2727 | |
---|
| 2728 | netcdf_var_name = dots_label(i) |
---|
| 2729 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2730 | |
---|
| 2731 | IF ( statistic_regions == 0 ) THEN |
---|
| 2732 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';' |
---|
| 2733 | ELSE |
---|
| 2734 | DO j = 0, statistic_regions |
---|
| 2735 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2736 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 2737 | suffix // ';' |
---|
| 2738 | ENDDO |
---|
| 2739 | ENDIF |
---|
| 2740 | |
---|
| 2741 | ENDDO |
---|
| 2742 | |
---|
| 2743 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 2744 | message_string = 'NetCDF file for time series ' // & |
---|
| 2745 | 'from previuos run found,' // & |
---|
| 2746 | '& but this file cannot be extended due to' // & |
---|
| 2747 | ' variable mismatch.' // & |
---|
| 2748 | '&New file is created instead.' |
---|
| 2749 | CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 ) |
---|
[1] | 2750 | extend = .FALSE. |
---|
| 2751 | RETURN |
---|
| 2752 | ENDIF |
---|
| 2753 | |
---|
| 2754 | ! |
---|
| 2755 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 2756 | !-- last index on the file. The next time level is dots..count+1. |
---|
| 2757 | !-- The current time must be larger than the last output time |
---|
| 2758 | !-- on the file. |
---|
| 2759 | nc_stat = NF90_INQ_VARID( id_set_ts, 'time', id_var_time_ts ) |
---|
[263] | 2760 | CALL handle_netcdf_error( 'netcdf', 261 ) |
---|
[1] | 2761 | |
---|
| 2762 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_ts, id_var_time_ts, & |
---|
| 2763 | dimids = id_dim_time_old ) |
---|
[263] | 2764 | CALL handle_netcdf_error( 'netcdf', 262 ) |
---|
[1] | 2765 | id_dim_time_ts = id_dim_time_old(1) |
---|
| 2766 | |
---|
| 2767 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_ts, id_dim_time_ts, & |
---|
| 2768 | len = dots_time_count ) |
---|
[263] | 2769 | CALL handle_netcdf_error( 'netcdf', 263 ) |
---|
[1] | 2770 | |
---|
| 2771 | nc_stat = NF90_GET_VAR( id_set_ts, id_var_time_ts, & |
---|
| 2772 | last_time_coordinate, & |
---|
| 2773 | start = (/ dots_time_count /), & |
---|
| 2774 | count = (/ 1 /) ) |
---|
[263] | 2775 | CALL handle_netcdf_error( 'netcdf', 264 ) |
---|
[1] | 2776 | |
---|
| 2777 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 2778 | message_string = 'NetCDF file for time series ' // & |
---|
| 2779 | 'from previuos run found,' // & |
---|
| 2780 | '&but this file cannot be extended becaus' // & |
---|
| 2781 | 'e the current output time' // & |
---|
| 2782 | '&is less or equal than the last output t' // & |
---|
| 2783 | 'ime on this file.' // & |
---|
| 2784 | '&New file is created instead.' |
---|
| 2785 | CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 ) |
---|
[1] | 2786 | dots_time_count = 0 |
---|
| 2787 | extend = .FALSE. |
---|
| 2788 | RETURN |
---|
| 2789 | ENDIF |
---|
| 2790 | |
---|
| 2791 | ! |
---|
| 2792 | !-- Dataset seems to be extendable. |
---|
| 2793 | !-- Now get the variable ids |
---|
| 2794 | i = 1 |
---|
| 2795 | DO i = 1, dots_num |
---|
| 2796 | |
---|
| 2797 | netcdf_var_name_base = dots_label(i) |
---|
| 2798 | CALL clean_netcdf_varname( netcdf_var_name_base ) |
---|
| 2799 | |
---|
| 2800 | IF ( statistic_regions == 0 ) THEN |
---|
| 2801 | nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name_base, & |
---|
| 2802 | id_var_dots(i,0) ) |
---|
[263] | 2803 | CALL handle_netcdf_error( 'netcdf', 265 ) |
---|
[1] | 2804 | ELSE |
---|
| 2805 | DO j = 0, statistic_regions |
---|
| 2806 | WRITE ( suffix, '(''_'',I1)' ) j |
---|
| 2807 | netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix |
---|
| 2808 | nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name, & |
---|
| 2809 | id_var_dots(i,j) ) |
---|
[263] | 2810 | CALL handle_netcdf_error( 'netcdf', 266 ) |
---|
[1] | 2811 | ENDDO |
---|
| 2812 | ENDIF |
---|
| 2813 | |
---|
| 2814 | ENDDO |
---|
| 2815 | |
---|
| 2816 | ! |
---|
| 2817 | !-- Change the title attribute on file |
---|
| 2818 | nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', & |
---|
| 2819 | TRIM( run_description_header ) ) |
---|
[263] | 2820 | CALL handle_netcdf_error( 'netcdf', 267 ) |
---|
[257] | 2821 | message_string = 'NetCDF file for time series ' // & |
---|
| 2822 | 'from previous run found.' // & |
---|
| 2823 | '&This file will be extended.' |
---|
| 2824 | CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 ) |
---|
[1] | 2825 | |
---|
| 2826 | |
---|
| 2827 | CASE ( 'sp_new' ) |
---|
| 2828 | |
---|
| 2829 | ! |
---|
| 2830 | !-- Define some global attributes of the dataset |
---|
| 2831 | IF ( averaging_interval_sp /= 0.0 ) THEN |
---|
| 2832 | WRITE (time_average_text,'('', '',F7.1,'' s average'')') & |
---|
| 2833 | averaging_interval_sp |
---|
| 2834 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', & |
---|
| 2835 | TRIM( run_description_header ) // & |
---|
| 2836 | TRIM( time_average_text ) ) |
---|
[263] | 2837 | CALL handle_netcdf_error( 'netcdf', 268 ) |
---|
[1] | 2838 | |
---|
| 2839 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp |
---|
| 2840 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', & |
---|
| 2841 | TRIM( time_average_text ) ) |
---|
| 2842 | ELSE |
---|
| 2843 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', & |
---|
| 2844 | TRIM( run_description_header ) ) |
---|
| 2845 | ENDIF |
---|
[263] | 2846 | CALL handle_netcdf_error( 'netcdf', 269 ) |
---|
[1] | 2847 | |
---|
| 2848 | ! |
---|
| 2849 | !-- Define time coordinate for spectra (unlimited dimension) |
---|
| 2850 | nc_stat = NF90_DEF_DIM( id_set_sp, 'time', NF90_UNLIMITED, & |
---|
| 2851 | id_dim_time_sp ) |
---|
[263] | 2852 | CALL handle_netcdf_error( 'netcdf', 270 ) |
---|
[1] | 2853 | |
---|
| 2854 | nc_stat = NF90_DEF_VAR( id_set_sp, 'time', NF90_DOUBLE, & |
---|
| 2855 | id_dim_time_sp, id_var_time_sp ) |
---|
[263] | 2856 | CALL handle_netcdf_error( 'netcdf', 271 ) |
---|
[1] | 2857 | |
---|
| 2858 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_time_sp, 'units', 'seconds') |
---|
[263] | 2859 | CALL handle_netcdf_error( 'netcdf', 272 ) |
---|
[1] | 2860 | |
---|
| 2861 | ! |
---|
| 2862 | !-- Define the spatial dimensions and coordinates for spectra. |
---|
| 2863 | !-- First, determine the number of vertical levels for which spectra |
---|
| 2864 | !-- are to be output. |
---|
| 2865 | ns = 1 |
---|
| 2866 | DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 ) |
---|
| 2867 | ns = ns + 1 |
---|
| 2868 | ENDDO |
---|
| 2869 | ns = ns - 1 |
---|
| 2870 | |
---|
| 2871 | ! |
---|
| 2872 | !-- Define vertical coordinate grid (zu grid) |
---|
| 2873 | nc_stat = NF90_DEF_DIM( id_set_sp, 'zu_sp', ns, id_dim_zu_sp ) |
---|
[263] | 2874 | CALL handle_netcdf_error( 'netcdf', 273 ) |
---|
[1] | 2875 | |
---|
| 2876 | nc_stat = NF90_DEF_VAR( id_set_sp, 'zu_sp', NF90_DOUBLE, & |
---|
| 2877 | id_dim_zu_sp, id_var_zu_sp ) |
---|
[263] | 2878 | CALL handle_netcdf_error( 'netcdf', 274 ) |
---|
[1] | 2879 | |
---|
| 2880 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zu_sp, 'units', 'meters' ) |
---|
[263] | 2881 | CALL handle_netcdf_error( 'netcdf', 275 ) |
---|
[1] | 2882 | |
---|
| 2883 | ! |
---|
| 2884 | !-- Define vertical coordinate grid (zw grid) |
---|
| 2885 | nc_stat = NF90_DEF_DIM( id_set_sp, 'zw_sp', ns, id_dim_zw_sp ) |
---|
[263] | 2886 | CALL handle_netcdf_error( 'netcdf', 276 ) |
---|
[1] | 2887 | |
---|
| 2888 | nc_stat = NF90_DEF_VAR( id_set_sp, 'zw_sp', NF90_DOUBLE, & |
---|
| 2889 | id_dim_zw_sp, id_var_zw_sp ) |
---|
[263] | 2890 | CALL handle_netcdf_error( 'netcdf', 277 ) |
---|
[1] | 2891 | |
---|
| 2892 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zw_sp, 'units', 'meters' ) |
---|
[263] | 2893 | CALL handle_netcdf_error( 'netcdf', 278 ) |
---|
[1] | 2894 | |
---|
| 2895 | ! |
---|
| 2896 | !-- Define x-axis |
---|
| 2897 | nc_stat = NF90_DEF_DIM( id_set_sp, 'k_x', nx/2, id_dim_x_sp ) |
---|
[263] | 2898 | CALL handle_netcdf_error( 'netcdf', 279 ) |
---|
[1] | 2899 | |
---|
| 2900 | nc_stat = NF90_DEF_VAR( id_set_sp, 'k_x', NF90_DOUBLE, id_dim_x_sp, & |
---|
| 2901 | id_var_x_sp ) |
---|
[263] | 2902 | CALL handle_netcdf_error( 'netcdf', 280 ) |
---|
[1] | 2903 | |
---|
| 2904 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_x_sp, 'units', 'm-1' ) |
---|
[263] | 2905 | CALL handle_netcdf_error( 'netcdf', 281 ) |
---|
[1] | 2906 | |
---|
| 2907 | ! |
---|
| 2908 | !-- Define y-axis |
---|
| 2909 | nc_stat = NF90_DEF_DIM( id_set_sp, 'k_y', ny/2, id_dim_y_sp ) |
---|
[263] | 2910 | CALL handle_netcdf_error( 'netcdf', 282 ) |
---|
[1] | 2911 | |
---|
| 2912 | nc_stat = NF90_DEF_VAR( id_set_sp, 'k_y', NF90_DOUBLE, id_dim_y_sp, & |
---|
| 2913 | id_var_y_sp ) |
---|
[263] | 2914 | CALL handle_netcdf_error( 'netcdf', 283 ) |
---|
[1] | 2915 | |
---|
| 2916 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_y_sp, 'units', 'm-1' ) |
---|
[263] | 2917 | CALL handle_netcdf_error( 'netcdf', 284 ) |
---|
[1] | 2918 | |
---|
| 2919 | ! |
---|
| 2920 | !-- Define the variables |
---|
| 2921 | var_list = ';' |
---|
| 2922 | i = 1 |
---|
| 2923 | DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 ) |
---|
[144] | 2924 | ! |
---|
| 2925 | !-- First check for the vertical grid |
---|
| 2926 | found = .TRUE. |
---|
| 2927 | SELECT CASE ( data_output_sp(i) ) |
---|
| 2928 | ! |
---|
| 2929 | !-- Most variables are defined on the zu levels |
---|
| 2930 | CASE ( 'e', 'p', 'pc', 'pr', 'pt', 'q', 'ql', 'ql_c', 'ql_v', & |
---|
| 2931 | 'ql_vp', 'qv', 'rho', 's', 'sa', 'u', 'v', 'vpt' ) |
---|
[1] | 2932 | |
---|
[144] | 2933 | grid_z = 'zu' |
---|
| 2934 | ! |
---|
| 2935 | !-- zw levels |
---|
| 2936 | CASE ( 'w' ) |
---|
| 2937 | |
---|
| 2938 | grid_z = 'zw' |
---|
| 2939 | |
---|
| 2940 | CASE DEFAULT |
---|
| 2941 | ! |
---|
| 2942 | !-- Check for user-defined quantities (found, grid_x and grid_y |
---|
| 2943 | !-- are dummies) |
---|
| 2944 | CALL user_define_netcdf_grid( data_output_sp(i), found, & |
---|
| 2945 | grid_x, grid_y, grid_z ) |
---|
| 2946 | |
---|
| 2947 | END SELECT |
---|
| 2948 | |
---|
[1] | 2949 | IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN |
---|
| 2950 | |
---|
| 2951 | ! |
---|
| 2952 | !-- Define the variable |
---|
| 2953 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_x' |
---|
[144] | 2954 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2955 | IF ( TRIM( grid_z ) == 'zw' ) THEN |
---|
[1] | 2956 | nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, & |
---|
| 2957 | nc_precision(7), (/ id_dim_x_sp, & |
---|
| 2958 | id_dim_zw_sp, id_dim_time_sp /), & |
---|
| 2959 | id_var_dospx(i) ) |
---|
| 2960 | ELSE |
---|
| 2961 | nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, & |
---|
| 2962 | nc_precision(7), (/ id_dim_x_sp, & |
---|
| 2963 | id_dim_zu_sp, id_dim_time_sp /), & |
---|
| 2964 | id_var_dospx(i) ) |
---|
| 2965 | ENDIF |
---|
[263] | 2966 | CALL handle_netcdf_error( 'netcdf', 285 ) |
---|
[1] | 2967 | |
---|
| 2968 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), & |
---|
| 2969 | 'long_name', netcdf_var_name ) |
---|
[263] | 2970 | CALL handle_netcdf_error( 'netcdf', 286 ) |
---|
[1] | 2971 | |
---|
| 2972 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), & |
---|
| 2973 | 'units', 'unknown' ) |
---|
[263] | 2974 | CALL handle_netcdf_error( 'netcdf', 287 ) |
---|
[1] | 2975 | |
---|
| 2976 | var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';' |
---|
| 2977 | |
---|
| 2978 | ENDIF |
---|
| 2979 | |
---|
| 2980 | IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN |
---|
| 2981 | |
---|
| 2982 | ! |
---|
| 2983 | !-- Define the variable |
---|
| 2984 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_y' |
---|
[144] | 2985 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 2986 | IF ( TRIM( grid_z ) == 'zw' ) THEN |
---|
[1] | 2987 | nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, & |
---|
| 2988 | nc_precision(7), (/ id_dim_y_sp, & |
---|
| 2989 | id_dim_zw_sp, id_dim_time_sp /), & |
---|
| 2990 | id_var_dospy(i) ) |
---|
| 2991 | ELSE |
---|
| 2992 | nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, & |
---|
| 2993 | nc_precision(7), (/ id_dim_y_sp, & |
---|
| 2994 | id_dim_zu_sp, id_dim_time_sp /), & |
---|
| 2995 | id_var_dospy(i) ) |
---|
| 2996 | ENDIF |
---|
[263] | 2997 | CALL handle_netcdf_error( 'netcdf', 288 ) |
---|
[1] | 2998 | |
---|
| 2999 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), & |
---|
| 3000 | 'long_name', netcdf_var_name ) |
---|
[263] | 3001 | CALL handle_netcdf_error( 'netcdf', 289 ) |
---|
[1] | 3002 | |
---|
| 3003 | nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), & |
---|
| 3004 | 'units', 'unknown' ) |
---|
[263] | 3005 | CALL handle_netcdf_error( 'netcdf', 290 ) |
---|
[1] | 3006 | |
---|
| 3007 | var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';' |
---|
| 3008 | |
---|
| 3009 | ENDIF |
---|
| 3010 | |
---|
| 3011 | i = i + 1 |
---|
| 3012 | |
---|
| 3013 | ENDDO |
---|
| 3014 | |
---|
| 3015 | ! |
---|
| 3016 | !-- Write the list of variables as global attribute (this is used by |
---|
| 3017 | !-- restart runs) |
---|
| 3018 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', var_list ) |
---|
[263] | 3019 | CALL handle_netcdf_error( 'netcdf', 291 ) |
---|
[1] | 3020 | |
---|
| 3021 | ! |
---|
| 3022 | !-- Leave NetCDF define mode |
---|
| 3023 | nc_stat = NF90_ENDDEF( id_set_sp ) |
---|
[263] | 3024 | CALL handle_netcdf_error( 'netcdf', 292 ) |
---|
[1] | 3025 | |
---|
| 3026 | ! |
---|
| 3027 | !-- Write axis data: zu_sp, zw_sp, k_x, k_y |
---|
| 3028 | ALLOCATE( netcdf_data(1:ns) ) |
---|
| 3029 | |
---|
| 3030 | ! |
---|
| 3031 | !-- Write zu data |
---|
| 3032 | netcdf_data(1:ns) = zu( comp_spectra_level(1:ns) ) |
---|
| 3033 | nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zu_sp, netcdf_data, & |
---|
| 3034 | start = (/ 1 /), count = (/ ns /) ) |
---|
[263] | 3035 | CALL handle_netcdf_error( 'netcdf', 293 ) |
---|
[1] | 3036 | |
---|
| 3037 | ! |
---|
| 3038 | !-- Write zw data |
---|
| 3039 | netcdf_data(1:ns) = zw( comp_spectra_level(1:ns) ) |
---|
| 3040 | nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zw_sp, netcdf_data, & |
---|
| 3041 | start = (/ 1 /), count = (/ ns /) ) |
---|
[263] | 3042 | CALL handle_netcdf_error( 'netcdf', 294 ) |
---|
[1] | 3043 | |
---|
| 3044 | DEALLOCATE( netcdf_data ) |
---|
| 3045 | |
---|
| 3046 | ! |
---|
| 3047 | !-- Write data for x and y axis (wavenumbers) |
---|
| 3048 | ALLOCATE( netcdf_data(nx/2) ) |
---|
| 3049 | DO i = 1, nx/2 |
---|
| 3050 | netcdf_data(i) = 2.0 * pi * i / ( dx * ( nx + 1 ) ) |
---|
| 3051 | ENDDO |
---|
| 3052 | |
---|
| 3053 | nc_stat = NF90_PUT_VAR( id_set_sp, id_var_x_sp, netcdf_data, & |
---|
| 3054 | start = (/ 1 /), count = (/ nx/2 /) ) |
---|
[263] | 3055 | CALL handle_netcdf_error( 'netcdf', 295 ) |
---|
[1] | 3056 | |
---|
| 3057 | DEALLOCATE( netcdf_data ) |
---|
| 3058 | |
---|
| 3059 | ALLOCATE( netcdf_data(ny/2) ) |
---|
| 3060 | DO i = 1, ny/2 |
---|
| 3061 | netcdf_data(i) = 2.0 * pi * i / ( dy * ( ny + 1 ) ) |
---|
| 3062 | ENDDO |
---|
| 3063 | |
---|
| 3064 | nc_stat = NF90_PUT_VAR( id_set_sp, id_var_y_sp, netcdf_data, & |
---|
| 3065 | start = (/ 1 /), count = (/ ny/2 /) ) |
---|
[263] | 3066 | CALL handle_netcdf_error( 'netcdf', 296 ) |
---|
[1] | 3067 | |
---|
| 3068 | DEALLOCATE( netcdf_data ) |
---|
| 3069 | |
---|
| 3070 | |
---|
| 3071 | CASE ( 'sp_ext' ) |
---|
| 3072 | |
---|
| 3073 | ! |
---|
| 3074 | !-- Get the list of variables and compare with the actual run. |
---|
| 3075 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 3076 | !-- trailing blanks. |
---|
| 3077 | var_list_old = ' ' |
---|
| 3078 | nc_stat = NF90_GET_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', & |
---|
| 3079 | var_list_old ) |
---|
[263] | 3080 | CALL handle_netcdf_error( 'netcdf', 297 ) |
---|
[1] | 3081 | var_list = ';' |
---|
| 3082 | i = 1 |
---|
| 3083 | DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 ) |
---|
| 3084 | |
---|
| 3085 | IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN |
---|
| 3086 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_x' |
---|
| 3087 | var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';' |
---|
| 3088 | ENDIF |
---|
| 3089 | |
---|
| 3090 | IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN |
---|
| 3091 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_y' |
---|
| 3092 | var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';' |
---|
| 3093 | ENDIF |
---|
| 3094 | |
---|
| 3095 | i = i + 1 |
---|
| 3096 | |
---|
| 3097 | ENDDO |
---|
| 3098 | |
---|
| 3099 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 3100 | message_string = 'NetCDF file for spectra ' // & |
---|
| 3101 | 'from previuos run found,' // & |
---|
| 3102 | '& but this file cannot be extended due to' // & |
---|
| 3103 | ' variable mismatch.' // & |
---|
| 3104 | '&New file is created instead.' |
---|
| 3105 | CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 ) |
---|
[1] | 3106 | extend = .FALSE. |
---|
| 3107 | RETURN |
---|
| 3108 | ENDIF |
---|
| 3109 | |
---|
| 3110 | ! |
---|
| 3111 | !-- Determine the number of current vertical levels for which spectra |
---|
| 3112 | !-- shall be output |
---|
| 3113 | ns = 1 |
---|
[189] | 3114 | DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 ) |
---|
[1] | 3115 | ns = ns + 1 |
---|
| 3116 | ENDDO |
---|
| 3117 | ns = ns - 1 |
---|
| 3118 | |
---|
| 3119 | ! |
---|
| 3120 | !-- Get and compare the number of vertical levels |
---|
| 3121 | nc_stat = NF90_INQ_VARID( id_set_sp, 'zu_sp', id_var_zu_sp ) |
---|
[263] | 3122 | CALL handle_netcdf_error( 'netcdf', 298 ) |
---|
[1] | 3123 | |
---|
| 3124 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_zu_sp, & |
---|
| 3125 | dimids = id_dim_zu_sp_old ) |
---|
[263] | 3126 | CALL handle_netcdf_error( 'netcdf', 299 ) |
---|
[1] | 3127 | id_dim_zu_sp = id_dim_zu_sp_old(1) |
---|
| 3128 | |
---|
| 3129 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_zu_sp, & |
---|
| 3130 | len = ns_old ) |
---|
[263] | 3131 | CALL handle_netcdf_error( 'netcdf', 300 ) |
---|
[1] | 3132 | |
---|
| 3133 | IF ( ns /= ns_old ) THEN |
---|
[257] | 3134 | message_string = 'NetCDF file for spectra ' // & |
---|
| 3135 | ' from previuos run found,' // & |
---|
| 3136 | '&but this file cannot be extended due to' // & |
---|
| 3137 | ' mismatch in number of' // & |
---|
| 3138 | '&vertical levels.' // & |
---|
| 3139 | '&New file is created instead.' |
---|
| 3140 | CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 ) |
---|
[1] | 3141 | extend = .FALSE. |
---|
| 3142 | RETURN |
---|
| 3143 | ENDIF |
---|
| 3144 | |
---|
| 3145 | ! |
---|
| 3146 | !-- Get and compare the heights of the cross sections |
---|
| 3147 | ALLOCATE( netcdf_data(1:ns_old) ) |
---|
| 3148 | |
---|
| 3149 | nc_stat = NF90_GET_VAR( id_set_sp, id_var_zu_sp, netcdf_data ) |
---|
[263] | 3150 | CALL handle_netcdf_error( 'netcdf', 301 ) |
---|
[1] | 3151 | |
---|
| 3152 | DO i = 1, ns |
---|
| 3153 | IF ( zu(comp_spectra_level(i)) /= netcdf_data(i) ) THEN |
---|
[257] | 3154 | message_string = 'NetCDF file for spectra ' // & |
---|
| 3155 | ' from previuos run found,' // & |
---|
| 3156 | '&but this file cannot be extended due to' // & |
---|
| 3157 | ' mismatch in heights of' // & |
---|
| 3158 | '&vertical levels.' // & |
---|
| 3159 | '&New file is created instead.' |
---|
| 3160 | CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 ) |
---|
[1] | 3161 | extend = .FALSE. |
---|
| 3162 | RETURN |
---|
| 3163 | ENDIF |
---|
| 3164 | ENDDO |
---|
| 3165 | |
---|
| 3166 | DEALLOCATE( netcdf_data ) |
---|
| 3167 | |
---|
| 3168 | ! |
---|
| 3169 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 3170 | !-- last index on the file. The next time level is plsp..count+1. |
---|
| 3171 | !-- The current time must be larger than the last output time |
---|
| 3172 | !-- on the file. |
---|
| 3173 | nc_stat = NF90_INQ_VARID( id_set_sp, 'time', id_var_time_sp ) |
---|
[263] | 3174 | CALL handle_netcdf_error( 'netcdf', 302 ) |
---|
[1] | 3175 | |
---|
| 3176 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_time_sp, & |
---|
| 3177 | dimids = id_dim_time_old ) |
---|
[263] | 3178 | CALL handle_netcdf_error( 'netcdf', 303 ) |
---|
[1] | 3179 | id_dim_time_sp = id_dim_time_old(1) |
---|
| 3180 | |
---|
| 3181 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_time_sp, & |
---|
| 3182 | len = dosp_time_count ) |
---|
[263] | 3183 | CALL handle_netcdf_error( 'netcdf', 304 ) |
---|
[1] | 3184 | |
---|
| 3185 | nc_stat = NF90_GET_VAR( id_set_sp, id_var_time_sp, & |
---|
| 3186 | last_time_coordinate, & |
---|
| 3187 | start = (/ dosp_time_count /), & |
---|
| 3188 | count = (/ 1 /) ) |
---|
[263] | 3189 | CALL handle_netcdf_error( 'netcdf', 305 ) |
---|
[1] | 3190 | |
---|
| 3191 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 3192 | message_string = 'NetCDF file for spectra ' // & |
---|
| 3193 | 'from previuos run found,' // & |
---|
| 3194 | '&but this file cannot be extended becaus' // & |
---|
| 3195 | 'e the current output time' // & |
---|
| 3196 | '&is less or equal than the last output t' // & |
---|
| 3197 | 'ime on this file.' // & |
---|
| 3198 | '&New file is created instead.' |
---|
| 3199 | CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 ) |
---|
[1] | 3200 | dosp_time_count = 0 |
---|
| 3201 | extend = .FALSE. |
---|
| 3202 | RETURN |
---|
| 3203 | ENDIF |
---|
| 3204 | |
---|
| 3205 | ! |
---|
| 3206 | !-- Dataset seems to be extendable. |
---|
| 3207 | !-- Now get the variable ids. |
---|
| 3208 | i = 1 |
---|
| 3209 | DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 ) |
---|
| 3210 | |
---|
| 3211 | IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN |
---|
| 3212 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_x' |
---|
| 3213 | nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, & |
---|
| 3214 | id_var_dospx(i) ) |
---|
[263] | 3215 | CALL handle_netcdf_error( 'netcdf', 306 ) |
---|
[1] | 3216 | ENDIF |
---|
| 3217 | |
---|
| 3218 | IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN |
---|
| 3219 | netcdf_var_name = TRIM( data_output_sp(i) ) // '_y' |
---|
| 3220 | nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, & |
---|
| 3221 | id_var_dospy(i) ) |
---|
[263] | 3222 | CALL handle_netcdf_error( 'netcdf', 307 ) |
---|
[1] | 3223 | ENDIF |
---|
| 3224 | |
---|
| 3225 | i = i + 1 |
---|
| 3226 | |
---|
| 3227 | ENDDO |
---|
| 3228 | |
---|
| 3229 | ! |
---|
| 3230 | !-- Change the titel attribute on file |
---|
| 3231 | IF ( averaging_interval_sp /= 0.0 ) THEN |
---|
| 3232 | WRITE (time_average_text,'('', '',F7.1,'' s average'')') & |
---|
[274] | 3233 | averaging_interval_sp |
---|
[1] | 3234 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', & |
---|
| 3235 | TRIM( run_description_header ) // & |
---|
| 3236 | TRIM( time_average_text ) ) |
---|
[263] | 3237 | CALL handle_netcdf_error( 'netcdf', 308 ) |
---|
[1] | 3238 | |
---|
| 3239 | WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp |
---|
| 3240 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', & |
---|
| 3241 | TRIM( time_average_text ) ) |
---|
| 3242 | ELSE |
---|
| 3243 | nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', & |
---|
| 3244 | TRIM( run_description_header ) ) |
---|
| 3245 | ENDIF |
---|
[263] | 3246 | CALL handle_netcdf_error( 'netcdf', 309 ) |
---|
[257] | 3247 | message_string = 'NetCDF file for spectra ' // & |
---|
| 3248 | 'from previous run found.' // & |
---|
| 3249 | '&This file will be extended.' |
---|
| 3250 | CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 ) |
---|
[1] | 3251 | |
---|
| 3252 | |
---|
| 3253 | CASE ( 'pt_new' ) |
---|
| 3254 | |
---|
| 3255 | ! |
---|
| 3256 | !-- Define some global attributes of the dataset |
---|
| 3257 | nc_stat = NF90_PUT_ATT( id_set_prt, NF90_GLOBAL, 'title', & |
---|
| 3258 | TRIM( run_description_header ) ) |
---|
[263] | 3259 | CALL handle_netcdf_error( 'netcdf', 310 ) |
---|
[1] | 3260 | |
---|
| 3261 | ! |
---|
| 3262 | !-- Define time coordinate for particles (unlimited dimension) |
---|
| 3263 | nc_stat = NF90_DEF_DIM( id_set_prt, 'time', NF90_UNLIMITED, & |
---|
| 3264 | id_dim_time_prt ) |
---|
[263] | 3265 | CALL handle_netcdf_error( 'netcdf', 311 ) |
---|
[1] | 3266 | |
---|
| 3267 | nc_stat = NF90_DEF_VAR( id_set_prt, 'time', NF90_DOUBLE, & |
---|
| 3268 | id_dim_time_prt, id_var_time_prt ) |
---|
[263] | 3269 | CALL handle_netcdf_error( 'netcdf', 312 ) |
---|
[1] | 3270 | |
---|
| 3271 | nc_stat = NF90_PUT_ATT( id_set_prt, id_var_time_prt, 'units', & |
---|
| 3272 | 'seconds' ) |
---|
[263] | 3273 | CALL handle_netcdf_error( 'netcdf', 313 ) |
---|
[1] | 3274 | |
---|
| 3275 | ! |
---|
| 3276 | !-- Define particle coordinate (maximum particle number) |
---|
| 3277 | nc_stat = NF90_DEF_DIM( id_set_prt, 'particle_number', & |
---|
| 3278 | maximum_number_of_particles, id_dim_prtnum ) |
---|
[263] | 3279 | CALL handle_netcdf_error( 'netcdf', 314 ) |
---|
[1] | 3280 | |
---|
| 3281 | nc_stat = NF90_DEF_VAR( id_set_prt, 'particle_number', NF90_DOUBLE, & |
---|
| 3282 | id_dim_prtnum, id_var_prtnum ) |
---|
[263] | 3283 | CALL handle_netcdf_error( 'netcdf', 315 ) |
---|
[1] | 3284 | |
---|
| 3285 | nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prtnum, 'units', & |
---|
| 3286 | 'particle number' ) |
---|
[263] | 3287 | CALL handle_netcdf_error( 'netcdf', 316 ) |
---|
[1] | 3288 | |
---|
| 3289 | ! |
---|
| 3290 | !-- Define variable which contains the real number of particles in use |
---|
| 3291 | nc_stat = NF90_DEF_VAR( id_set_prt, 'real_num_of_prt', NF90_INT, & |
---|
| 3292 | id_dim_time_prt, id_var_rnop_prt ) |
---|
[263] | 3293 | CALL handle_netcdf_error( 'netcdf', 317 ) |
---|
[1] | 3294 | |
---|
| 3295 | nc_stat = NF90_PUT_ATT( id_set_prt, id_var_rnop_prt, 'units', & |
---|
| 3296 | 'particle number' ) |
---|
[263] | 3297 | CALL handle_netcdf_error( 'netcdf', 318 ) |
---|
[1] | 3298 | |
---|
| 3299 | ! |
---|
| 3300 | !-- Define the variables |
---|
| 3301 | DO i = 1, 17 |
---|
| 3302 | |
---|
| 3303 | nc_stat = NF90_DEF_VAR( id_set_prt, prt_var_names(i), & |
---|
| 3304 | nc_precision(8), & |
---|
| 3305 | (/ id_dim_prtnum, id_dim_time_prt /), & |
---|
| 3306 | id_var_prt(i) ) |
---|
[263] | 3307 | CALL handle_netcdf_error( 'netcdf', 319 ) |
---|
[1] | 3308 | |
---|
| 3309 | nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), & |
---|
| 3310 | 'long_name', TRIM( prt_var_names(i) ) ) |
---|
[263] | 3311 | CALL handle_netcdf_error( 'netcdf', 320 ) |
---|
[1] | 3312 | |
---|
| 3313 | nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), & |
---|
| 3314 | 'units', TRIM( prt_var_units(i) ) ) |
---|
[263] | 3315 | CALL handle_netcdf_error( 'netcdf', 321 ) |
---|
[1] | 3316 | |
---|
| 3317 | ENDDO |
---|
| 3318 | |
---|
| 3319 | ! |
---|
| 3320 | !-- Leave NetCDF define mode |
---|
| 3321 | nc_stat = NF90_ENDDEF( id_set_prt ) |
---|
[263] | 3322 | CALL handle_netcdf_error( 'netcdf', 322 ) |
---|
[1] | 3323 | |
---|
| 3324 | |
---|
| 3325 | CASE ( 'pt_ext' ) |
---|
| 3326 | |
---|
| 3327 | ! |
---|
| 3328 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 3329 | !-- last index on the file. The next time level is prt..count+1. |
---|
| 3330 | !-- The current time must be larger than the last output time |
---|
| 3331 | !-- on the file. |
---|
| 3332 | nc_stat = NF90_INQ_VARID( id_set_prt, 'time', id_var_time_prt ) |
---|
[263] | 3333 | CALL handle_netcdf_error( 'netcdf', 323 ) |
---|
[1] | 3334 | |
---|
| 3335 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_prt, id_var_time_prt, & |
---|
| 3336 | dimids = id_dim_time_old ) |
---|
[263] | 3337 | CALL handle_netcdf_error( 'netcdf', 324 ) |
---|
[1] | 3338 | id_dim_time_prt = id_dim_time_old(1) |
---|
| 3339 | |
---|
| 3340 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_prt, id_dim_time_prt, & |
---|
| 3341 | len = prt_time_count ) |
---|
[263] | 3342 | CALL handle_netcdf_error( 'netcdf', 325 ) |
---|
[1] | 3343 | |
---|
| 3344 | nc_stat = NF90_GET_VAR( id_set_prt, id_var_time_prt, & |
---|
| 3345 | last_time_coordinate, & |
---|
| 3346 | start = (/ prt_time_count /), & |
---|
| 3347 | count = (/ 1 /) ) |
---|
[263] | 3348 | CALL handle_netcdf_error( 'netcdf', 326 ) |
---|
[1] | 3349 | |
---|
| 3350 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 3351 | message_string = 'NetCDF file for particles ' // & |
---|
| 3352 | 'from previuos run found,' // & |
---|
| 3353 | '&but this file cannot be extended becaus' // & |
---|
| 3354 | 'e the current output time' // & |
---|
| 3355 | '&is less or equal than the last output t' // & |
---|
| 3356 | 'ime on this file.' // & |
---|
| 3357 | '&New file is created instead.' |
---|
| 3358 | CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 ) |
---|
[1] | 3359 | prt_time_count = 0 |
---|
| 3360 | extend = .FALSE. |
---|
| 3361 | RETURN |
---|
| 3362 | ENDIF |
---|
| 3363 | |
---|
| 3364 | ! |
---|
| 3365 | !-- Dataset seems to be extendable. |
---|
| 3366 | !-- Now get the variable ids. |
---|
| 3367 | nc_stat = NF90_INQ_VARID( id_set_prt, 'real_num_of_prt', & |
---|
| 3368 | id_var_rnop_prt ) |
---|
[263] | 3369 | CALL handle_netcdf_error( 'netcdf', 327 ) |
---|
[1] | 3370 | |
---|
| 3371 | DO i = 1, 17 |
---|
| 3372 | |
---|
| 3373 | nc_stat = NF90_INQ_VARID( id_set_prt, prt_var_names(i), & |
---|
| 3374 | id_var_prt(i) ) |
---|
[263] | 3375 | CALL handle_netcdf_error( 'netcdf', 328 ) |
---|
[1] | 3376 | |
---|
| 3377 | ENDDO |
---|
| 3378 | |
---|
[257] | 3379 | message_string = 'NetCDF file for particles ' // & |
---|
| 3380 | 'from previous run found.' // & |
---|
| 3381 | '&This file will be extended.' |
---|
| 3382 | CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 ) |
---|
| 3383 | |
---|
[1] | 3384 | |
---|
| 3385 | |
---|
| 3386 | CASE ( 'ps_new' ) |
---|
| 3387 | |
---|
| 3388 | ! |
---|
| 3389 | !-- Define some global attributes of the dataset |
---|
| 3390 | nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', & |
---|
| 3391 | TRIM( run_description_header ) ) |
---|
[263] | 3392 | CALL handle_netcdf_error( 'netcdf', 396 ) |
---|
[1] | 3393 | |
---|
| 3394 | ! |
---|
| 3395 | !-- Define time coordinate for particle time series (unlimited dimension) |
---|
| 3396 | nc_stat = NF90_DEF_DIM( id_set_pts, 'time', NF90_UNLIMITED, & |
---|
| 3397 | id_dim_time_pts ) |
---|
[263] | 3398 | CALL handle_netcdf_error( 'netcdf', 397 ) |
---|
[1] | 3399 | |
---|
| 3400 | nc_stat = NF90_DEF_VAR( id_set_pts, 'time', NF90_DOUBLE, & |
---|
| 3401 | id_dim_time_pts, id_var_time_pts ) |
---|
[263] | 3402 | CALL handle_netcdf_error( 'netcdf', 398 ) |
---|
[1] | 3403 | |
---|
| 3404 | nc_stat = NF90_PUT_ATT( id_set_pts, id_var_time_pts, 'units', & |
---|
| 3405 | 'seconds') |
---|
[263] | 3406 | CALL handle_netcdf_error( 'netcdf', 399 ) |
---|
[1] | 3407 | |
---|
| 3408 | ! |
---|
| 3409 | !-- Define the variables. If more than one particle group is defined, |
---|
| 3410 | !-- define seperate variables for each group |
---|
| 3411 | var_list = ';' |
---|
| 3412 | DO i = 1, dopts_num |
---|
| 3413 | |
---|
| 3414 | ! |
---|
| 3415 | !-- First, remove those characters not allowed by NetCDF |
---|
| 3416 | netcdf_var_name = dopts_label(i) |
---|
| 3417 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 3418 | |
---|
| 3419 | DO j = 0, number_of_particle_groups |
---|
| 3420 | |
---|
| 3421 | IF ( j == 0 ) THEN |
---|
| 3422 | suffix1 = '' |
---|
| 3423 | ELSE |
---|
| 3424 | WRITE ( suffix1, '(''_'',I2.2)' ) j |
---|
| 3425 | ENDIF |
---|
| 3426 | |
---|
| 3427 | nc_stat = NF90_DEF_VAR( id_set_pts, & |
---|
| 3428 | TRIM( netcdf_var_name ) // suffix1, & |
---|
| 3429 | nc_precision(6), & |
---|
| 3430 | (/ id_dim_time_pts /), & |
---|
| 3431 | id_var_dopts(i,j) ) |
---|
[263] | 3432 | CALL handle_netcdf_error( 'netcdf', 400 ) |
---|
[1] | 3433 | |
---|
| 3434 | IF ( j == 0 ) THEN |
---|
| 3435 | nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), & |
---|
| 3436 | 'long_name', & |
---|
| 3437 | TRIM( dopts_label(i) ) ) |
---|
| 3438 | ELSE |
---|
| 3439 | nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), & |
---|
| 3440 | 'long_name', & |
---|
| 3441 | TRIM( dopts_label(i) ) // ' PG ' // & |
---|
| 3442 | suffix1(2:3) ) |
---|
| 3443 | ENDIF |
---|
[263] | 3444 | CALL handle_netcdf_error( 'netcdf', 401 ) |
---|
[1] | 3445 | |
---|
| 3446 | nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), & |
---|
| 3447 | 'units', TRIM( dopts_unit(i) ) ) |
---|
[263] | 3448 | CALL handle_netcdf_error( 'netcdf', 402 ) |
---|
[1] | 3449 | |
---|
| 3450 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 3451 | suffix1 // ';' |
---|
| 3452 | |
---|
| 3453 | IF ( number_of_particle_groups == 1 ) EXIT |
---|
| 3454 | |
---|
| 3455 | ENDDO |
---|
| 3456 | |
---|
| 3457 | ENDDO |
---|
| 3458 | |
---|
| 3459 | ! |
---|
| 3460 | !-- Write the list of variables as global attribute (this is used by |
---|
| 3461 | !-- restart runs) |
---|
| 3462 | nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', & |
---|
| 3463 | var_list ) |
---|
[263] | 3464 | CALL handle_netcdf_error( 'netcdf', 403 ) |
---|
[1] | 3465 | |
---|
[263] | 3466 | |
---|
[1] | 3467 | ! |
---|
| 3468 | !-- Leave NetCDF define mode |
---|
| 3469 | nc_stat = NF90_ENDDEF( id_set_pts ) |
---|
[263] | 3470 | CALL handle_netcdf_error( 'netcdf', 404 ) |
---|
[1] | 3471 | |
---|
| 3472 | |
---|
| 3473 | CASE ( 'ps_ext' ) |
---|
| 3474 | |
---|
| 3475 | ! |
---|
| 3476 | !-- Get the list of variables and compare with the actual run. |
---|
| 3477 | !-- First var_list_old has to be reset, since GET_ATT does not assign |
---|
| 3478 | !-- trailing blanks. |
---|
| 3479 | var_list_old = ' ' |
---|
| 3480 | nc_stat = NF90_GET_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', & |
---|
| 3481 | var_list_old ) |
---|
[263] | 3482 | CALL handle_netcdf_error( 'netcdf', 405 ) |
---|
[1] | 3483 | |
---|
| 3484 | var_list = ';' |
---|
| 3485 | i = 1 |
---|
| 3486 | DO i = 1, dopts_num |
---|
| 3487 | |
---|
| 3488 | netcdf_var_name = dopts_label(i) |
---|
| 3489 | CALL clean_netcdf_varname( netcdf_var_name ) |
---|
| 3490 | |
---|
| 3491 | DO j = 0, number_of_particle_groups |
---|
| 3492 | |
---|
| 3493 | IF ( j == 0 ) THEN |
---|
| 3494 | suffix1 = '' |
---|
| 3495 | ELSE |
---|
| 3496 | WRITE ( suffix1, '(''_'',I2.2)' ) j |
---|
| 3497 | ENDIF |
---|
| 3498 | |
---|
| 3499 | var_list = TRIM(var_list) // TRIM(netcdf_var_name) // & |
---|
| 3500 | suffix1 // ';' |
---|
| 3501 | |
---|
| 3502 | IF ( number_of_particle_groups == 1 ) EXIT |
---|
| 3503 | |
---|
| 3504 | ENDDO |
---|
| 3505 | |
---|
| 3506 | ENDDO |
---|
| 3507 | |
---|
| 3508 | IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN |
---|
[257] | 3509 | message_string = 'NetCDF file for particle time series ' // & |
---|
| 3510 | 'from previuos run found,' // & |
---|
| 3511 | '& but this file cannot be extended due to' // & |
---|
| 3512 | ' variable mismatch.' // & |
---|
| 3513 | '&New file is created instead.' |
---|
| 3514 | CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 ) |
---|
[1] | 3515 | extend = .FALSE. |
---|
| 3516 | RETURN |
---|
| 3517 | ENDIF |
---|
| 3518 | |
---|
| 3519 | ! |
---|
| 3520 | !-- Get the id of the time coordinate (unlimited coordinate) and its |
---|
| 3521 | !-- last index on the file. The next time level is dots..count+1. |
---|
| 3522 | !-- The current time must be larger than the last output time |
---|
| 3523 | !-- on the file. |
---|
| 3524 | nc_stat = NF90_INQ_VARID( id_set_pts, 'time', id_var_time_pts ) |
---|
[263] | 3525 | CALL handle_netcdf_error( 'netcdf', 406 ) |
---|
[1] | 3526 | |
---|
| 3527 | nc_stat = NF90_INQUIRE_VARIABLE( id_set_pts, id_var_time_pts, & |
---|
| 3528 | dimids = id_dim_time_old ) |
---|
[263] | 3529 | CALL handle_netcdf_error( 'netcdf', 407 ) |
---|
[1] | 3530 | id_dim_time_pts = id_dim_time_old(1) |
---|
| 3531 | |
---|
| 3532 | nc_stat = NF90_INQUIRE_DIMENSION( id_set_pts, id_dim_time_pts, & |
---|
| 3533 | len = dopts_time_count ) |
---|
[263] | 3534 | CALL handle_netcdf_error( 'netcdf', 408 ) |
---|
[1] | 3535 | |
---|
| 3536 | nc_stat = NF90_GET_VAR( id_set_pts, id_var_time_pts, & |
---|
| 3537 | last_time_coordinate, & |
---|
| 3538 | start = (/ dopts_time_count /), & |
---|
| 3539 | count = (/ 1 /) ) |
---|
[263] | 3540 | CALL handle_netcdf_error( 'netcdf', 409 ) |
---|
[1] | 3541 | |
---|
| 3542 | IF ( last_time_coordinate(1) >= simulated_time ) THEN |
---|
[257] | 3543 | message_string = 'NetCDF file for particle time series ' // & |
---|
| 3544 | 'from previuos run found,' // & |
---|
| 3545 | '&but this file cannot be extended becaus' // & |
---|
| 3546 | 'e the current output time' // & |
---|
| 3547 | '&is less or equal than the last output t' // & |
---|
| 3548 | 'ime on this file.' // & |
---|
| 3549 | '&New file is created instead.' |
---|
| 3550 | CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 ) |
---|
[1] | 3551 | dopts_time_count = 0 |
---|
| 3552 | extend = .FALSE. |
---|
| 3553 | RETURN |
---|
| 3554 | ENDIF |
---|
| 3555 | |
---|
| 3556 | ! |
---|
| 3557 | !-- Dataset seems to be extendable. |
---|
| 3558 | !-- Now get the variable ids |
---|
| 3559 | i = 1 |
---|
| 3560 | DO i = 1, dopts_num |
---|
| 3561 | |
---|
| 3562 | netcdf_var_name_base = dopts_label(i) |
---|
| 3563 | CALL clean_netcdf_varname( netcdf_var_name_base ) |
---|
| 3564 | |
---|
| 3565 | DO j = 0, number_of_particle_groups |
---|
| 3566 | |
---|
| 3567 | IF ( j == 0 ) THEN |
---|
| 3568 | suffix1 = '' |
---|
| 3569 | ELSE |
---|
| 3570 | WRITE ( suffix1, '(''_'',I2.2)' ) j |
---|
| 3571 | ENDIF |
---|
| 3572 | |
---|
| 3573 | netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix1 |
---|
| 3574 | |
---|
| 3575 | nc_stat = NF90_INQ_VARID( id_set_pts, netcdf_var_name, & |
---|
| 3576 | id_var_dopts(i,j) ) |
---|
[263] | 3577 | CALL handle_netcdf_error( 'netcdf', 410 ) |
---|
[1] | 3578 | |
---|
| 3579 | IF ( number_of_particle_groups == 1 ) EXIT |
---|
| 3580 | |
---|
| 3581 | ENDDO |
---|
| 3582 | |
---|
| 3583 | ENDDO |
---|
| 3584 | |
---|
| 3585 | ! |
---|
| 3586 | !-- Change the title attribute on file |
---|
| 3587 | nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', & |
---|
| 3588 | TRIM( run_description_header ) ) |
---|
[263] | 3589 | CALL handle_netcdf_error( 'netcdf', 411 ) |
---|
[257] | 3590 | message_string = 'NetCDF file for particle time series ' // & |
---|
| 3591 | 'from previous run found.' // & |
---|
| 3592 | '&This file will be extended.' |
---|
| 3593 | CALL message( 'define_netcdf_header', 'PA0269', 0, 0, 0, 6, 0 ) |
---|
[1] | 3594 | |
---|
| 3595 | |
---|
| 3596 | CASE DEFAULT |
---|
| 3597 | |
---|
[257] | 3598 | message_string = 'mode "' // TRIM( mode) // '" not supported' |
---|
| 3599 | CALL message( 'define_netcdf_header', 'PA0270', 0, 0, 0, 6, 0 ) |
---|
[1] | 3600 | |
---|
| 3601 | END SELECT |
---|
| 3602 | |
---|
| 3603 | #endif |
---|
| 3604 | END SUBROUTINE define_netcdf_header |
---|
| 3605 | |
---|
| 3606 | |
---|
[263] | 3607 | SUBROUTINE handle_netcdf_error( routine_name, errno ) |
---|
[1] | 3608 | #if defined( __netcdf ) |
---|
| 3609 | |
---|
| 3610 | !------------------------------------------------------------------------------! |
---|
| 3611 | ! |
---|
| 3612 | ! Description: |
---|
| 3613 | ! ------------ |
---|
| 3614 | ! Prints out a text message corresponding to the current status. |
---|
| 3615 | !------------------------------------------------------------------------------! |
---|
| 3616 | |
---|
[263] | 3617 | USE control_parameters |
---|
[1] | 3618 | USE netcdf |
---|
| 3619 | USE netcdf_control |
---|
| 3620 | USE pegrid |
---|
| 3621 | |
---|
| 3622 | IMPLICIT NONE |
---|
| 3623 | |
---|
[263] | 3624 | CHARACTER(LEN=6) :: message_identifier |
---|
| 3625 | CHARACTER(LEN=*) :: routine_name |
---|
| 3626 | |
---|
[1] | 3627 | INTEGER :: errno |
---|
| 3628 | |
---|
| 3629 | IF ( nc_stat /= NF90_NOERR ) THEN |
---|
[263] | 3630 | |
---|
| 3631 | WRITE( message_identifier, '(''NC'',I4.4)' ) errno |
---|
| 3632 | message_string = TRIM( NF90_STRERROR( nc_stat ) ) |
---|
| 3633 | |
---|
[288] | 3634 | CALL message( routine_name, message_identifier, 2, 2, 0, 6, 1 ) |
---|
[263] | 3635 | |
---|
[1] | 3636 | ENDIF |
---|
| 3637 | |
---|
| 3638 | #endif |
---|
| 3639 | END SUBROUTINE handle_netcdf_error |
---|
| 3640 | |
---|
| 3641 | |
---|
| 3642 | |
---|
| 3643 | SUBROUTINE clean_netcdf_varname( string ) |
---|
| 3644 | #if defined( __netcdf ) |
---|
| 3645 | |
---|
| 3646 | !------------------------------------------------------------------------------! |
---|
| 3647 | ! |
---|
| 3648 | ! Description: |
---|
| 3649 | ! ------------ |
---|
| 3650 | ! Replace those characters in string which are not allowed by NetCDF. |
---|
| 3651 | !------------------------------------------------------------------------------! |
---|
| 3652 | |
---|
| 3653 | USE netcdf_control |
---|
| 3654 | |
---|
| 3655 | IMPLICIT NONE |
---|
| 3656 | |
---|
| 3657 | CHARACTER (LEN=10), INTENT(INOUT) :: string |
---|
| 3658 | |
---|
| 3659 | INTEGER :: i, ic |
---|
| 3660 | |
---|
| 3661 | DO i = 1, replace_num |
---|
| 3662 | DO |
---|
| 3663 | ic = INDEX( string, replace_char(i) ) |
---|
| 3664 | IF ( ic /= 0 ) THEN |
---|
| 3665 | string(ic:ic) = replace_by(i) |
---|
| 3666 | ELSE |
---|
| 3667 | EXIT |
---|
| 3668 | ENDIF |
---|
| 3669 | ENDDO |
---|
| 3670 | ENDDO |
---|
| 3671 | |
---|
| 3672 | #endif |
---|
| 3673 | END SUBROUTINE clean_netcdf_varname |
---|