Changeset 3483 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Nov 2, 2018 2:19:26 PM (5 years ago)

Author:

raasch

Message:

bugfix: misplaced positions of cpp-directives for netCDF and MPI fixed; output format limited to a maximum line length of 80

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: misplaced directives for netCDF fixed
+! 
+! 3474 2018-10-30 21:07:39Z kanani
 ! Add UV exposure model input (Schrempf)
 ! 
@@ -4944 +4947 @@
      SUBROUTINE netcdf_data_input_get_dimension_length( id, dim_len,           &
                                                         variable_name )
-#if defined( __netcdf )
-
        USE pegrid
 
@@ -4957 +4958 @@
        INTEGER(iwp)                ::  id_dim           !< dimension id
 
+#if defined( __netcdf )
 !
 !--    First, inquire dimension ID