Changeset 3373 for palm/trunk/SOURCE/chem_emissions_mod.f90

Timestamp:

Oct 18, 2018 3:25:56 PM (6 years ago)

Author:

kanani

Message:

Fix cpp directives and error messages

File:

• palm/trunk/SOURCE/chem_emissions_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Fix wrong location of __netcdf directive
+! 
+! 3337 2018-10-12 15:17:09Z kanani
 ! (from branch resler)
 ! Formatting
@@ -65 +68 @@
     USE kinds
 
-#if defined ( __netcdf )
-
     USE netcdf_data_input_mod,                                                  &
        ONLY: chem_emis_att_type, chem_emis_val_type
 
+#if defined ( __netcdf )
     USE NETCDF
-
 #endif
 
@@ -779 +780 @@
  SUBROUTINE chem_emissions_init(emt_att,emt,nspec_out)
 
-#if defined( __netcdf )
+
 
     USE surface_mod,                                                           &
@@ -798 +799 @@
  
     INTEGER(iwp)                                                      :: ispec     !> Index to go through the emission chemical species
-
+#if defined( __netcdf )
 
 !-- Actions for initial runs : TBD: needs to be updated
@@ -918 +919 @@
  IMPLICIT NONE
 
-#if defined( __netcdf )
+
   
     !--- IN/OUT
@@ -983 +984 @@
     REAL(wp), PARAMETER   ::  ratio2ppm  = 1.0e06_wp  
     !------------------------------------------------------    
-
+#if defined( __netcdf )
     IF ( emission_output_required ) THEN