Ignore:
Timestamp:
Oct 30, 2019 4:01:14 PM (23 months ago)
Author:
resler
Message:

Merge branch resler into trunk

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/surface_data_output_mod.f90

    r4205 r4286  
    2525! -----------------
    2626! $Id$
     27! Fix wrongly declared nc_stat variable in surface_data_output_mod
     28!
     29! 4205 2019-08-30 13:25:00Z suehring
    2730! - Correct x,y-coordinates of vertical surfaces in netcdf output
    2831! - Change definition of azimuth angle, reference is north 0 degree
     
    119122
    120123   USE netcdf_interface,                                                       &
    121        ONLY:  netcdf_create_att, netcdf_create_dim, netcdf_create_file,        &
    122               netcdf_create_global_atts, netcdf_create_var, netcdf_data_format,&
    123               netcdf_handle_error
     124       ONLY:  nc_stat, netcdf_create_att, netcdf_create_dim,                   &
     125              netcdf_create_file, netcdf_create_global_atts,                   &
     126              netcdf_create_var, netcdf_data_format, netcdf_handle_error
    124127
    125128   USE pegrid
     
    163166   INTEGER(iwp) ::  dosurf_no(0:1) = 0       !< number of surface output quantities
    164167#if defined( __netcdf4_parallel )
    165    INTEGER(iwp) :: nc_stat                   !< error code for netcdf routines
    166168   INTEGER(iwp) ::  oldmode                  !< save old set-fill-mode of netcdf file (not needed, but required for routine call)
    167169
Note: See TracChangeset for help on using the changeset viewer.