Changeset 4286 for palm/trunk/SOURCE/surface_data_output_mod.f90

Timestamp:

Oct 30, 2019 4:01:14 PM (4 years ago)

Author:

resler

Message:

Merge branch resler into trunk

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/surface_data_output_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Fix wrongly declared nc_stat variable in surface_data_output_mod
+! 
+! 4205 2019-08-30 13:25:00Z suehring
 ! - Correct x,y-coordinates of vertical surfaces in netcdf output
 ! - Change definition of azimuth angle, reference is north 0 degree
@@ -119 +122 @@
 
    USE netcdf_interface,                                                       &
-       ONLY:  netcdf_create_att, netcdf_create_dim, netcdf_create_file,        &
-              netcdf_create_global_atts, netcdf_create_var, netcdf_data_format,&
-              netcdf_handle_error
+       ONLY:  nc_stat, netcdf_create_att, netcdf_create_dim,                   &
+              netcdf_create_file, netcdf_create_global_atts,                   &
+              netcdf_create_var, netcdf_data_format, netcdf_handle_error
 
    USE pegrid
@@ -163 +166 @@
    INTEGER(iwp) ::  dosurf_no(0:1) = 0       !< number of surface output quantities
 #if defined( __netcdf4_parallel )
-   INTEGER(iwp) :: nc_stat                   !< error code for netcdf routines
    INTEGER(iwp) ::  oldmode                  !< save old set-fill-mode of netcdf file (not needed, but required for routine call)