Changeset 3483 for palm/trunk/SOURCE/chem_emissions_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/chem_emissions_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! bugfix: wrong locations of netCDF directives fixed
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! Enabled PARAMETRIZED mode for default surfaces when LSM is not applied but 
 ! salsa is used
@@ -85 +88 @@
 
 #if defined ( __netcdf )
+    USE NETCDF
+#endif
 
     USE netcdf_data_input_mod,                                                  &
        ONLY: chem_emis_att_type, chem_emis_val_type
-
-    USE NETCDF
-
-#endif
 
     USE date_and_time_mod,                                                      &
@@ -192 +193 @@
 
     !> Boltzmann constant:
-    REAL, PARAMETER        ::  kbolz = 1.38066e-23_wp    ! J/K
+    REAL(wp), PARAMETER     ::  kbolz = 1.38066e-23_wp    ! J/K
 
     !> Inverse Reference Pressure (1/Pa)    
@@ -758 +759 @@
  SUBROUTINE chem_emissions_init(emt_att,emt,nspec_out)
 
-#if defined( __netcdf )
-
     USE surface_mod,                                                           &
        ONLY:  surf_lsm_h,surf_def_h,surf_usm_h
@@ -868 +867 @@
   ENDIF    
 
-#endif
-
-
  END SUBROUTINE chem_emissions_init
 
@@ -899 +895 @@
 
  IMPLICIT NONE
-
-#if defined( __netcdf )
   
     !--- IN/OUT
@@ -1716 +1710 @@
 
 
-#endif
-
  END SUBROUTINE chem_emissions_setup