Ignore:
Timestamp:
Feb 19, 2020 2:53:13 PM (20 months ago)
Author:
maronga
Message:

bugfix for last commit (wind turbine model)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r4411 r4412  
    2626! -----------------
    2727! $Id$
     28! Bugfix: corrected character length in dimension_names
     29!
     30! 4411 2020-02-18 14:28:02Z maronga
    2831! Added output in NetCDF format using DOM (only netcdf4-parallel is supported).
    2932! Old ASCII output is still available at the moment.
     
    14331436       return_value = dom_def_var( nc_filename,                        &
    14341437                                   variable_name = variable_name,      &
    1435                                    dimension_names = (/ 'turbine', 'time' /),     &
     1438                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14361439                                   output_type = 'real32' )
    14371440 
     
    14441447       return_value = dom_def_var( nc_filename,                        &
    14451448                                   variable_name = variable_name,      &
    1446                                    dimension_names = (/ 'turbine', 'time' /),     &
     1449                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14471450                                   output_type = 'real32' )
    14481451 
     
    14561459       return_value = dom_def_var( nc_filename,                        &
    14571460                                   variable_name = variable_name,      &
    1458                                    dimension_names = (/ 'turbine', 'time' /),     &
     1461                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14591462                                   output_type = 'real32' )
    14601463 
     
    14671470       return_value = dom_def_var( nc_filename,                        &
    14681471                                   variable_name = variable_name,      &
    1469                                    dimension_names = (/ 'turbine', 'time' /),     &
     1472                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14701473                                   output_type = 'real32' )
    14711474 
     
    14781481       return_value = dom_def_var( nc_filename,                        &
    14791482                                   variable_name = variable_name,      &
    1480                                    dimension_names = (/ 'turbine', 'time' /),     &
     1483                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14811484                                   output_type = 'real32' )
    14821485 
     
    14891492       return_value = dom_def_var( nc_filename,                        &
    14901493                                   variable_name = variable_name,      &
    1491                                    dimension_names = (/ 'turbine', 'time' /),     &
     1494                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    14921495                                   output_type = 'real32' )
    14931496 
     
    15001503       return_value = dom_def_var( nc_filename,                        &
    15011504                                   variable_name = variable_name,      &
    1502                                    dimension_names = (/ 'turbine', 'time' /),     &
     1505                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    15031506                                   output_type = 'real32' )
    15041507 
     
    15111514       return_value = dom_def_var( nc_filename,                        &
    15121515                                   variable_name = variable_name,      &
    1513                                    dimension_names = (/ 'turbine', 'time' /),     &
     1516                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    15141517                                   output_type = 'real32' )
    15151518 
     
    15231526       return_value = dom_def_var( nc_filename,                        &
    15241527                                   variable_name = variable_name,      &
    1525                                    dimension_names = (/ 'turbine', 'time' /),     &
     1528                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    15261529                                   output_type = 'real32' )
    15271530 
     
    15341537       return_value = dom_def_var( nc_filename,                        &
    15351538                                   variable_name = variable_name,      &
    1536                                    dimension_names = (/ 'turbine', 'time' /),     &
     1539                                   dimension_names = (/ 'turbine', 'time   ' /),     &
    15371540                                   output_type = 'real32' )
    15381541 
Note: See TracChangeset for help on using the changeset viewer.