Changeset 3373 for palm/trunk/SOURCE/chem_emissions_mod.f90
- Timestamp:
- Oct 18, 2018 3:25:56 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chem_emissions_mod.f90
r3337 r3373 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Fix wrong location of __netcdf directive 30 ! 31 ! 3337 2018-10-12 15:17:09Z kanani 29 32 ! (from branch resler) 30 33 ! Formatting … … 65 68 USE kinds 66 69 67 #if defined ( __netcdf )68 69 70 USE netcdf_data_input_mod, & 70 71 ONLY: chem_emis_att_type, chem_emis_val_type 71 72 73 #if defined ( __netcdf ) 72 74 USE NETCDF 73 74 75 #endif 75 76 … … 779 780 SUBROUTINE chem_emissions_init(emt_att,emt,nspec_out) 780 781 781 #if defined( __netcdf ) 782 782 783 783 784 USE surface_mod, & … … 798 799 799 800 INTEGER(iwp) :: ispec !> Index to go through the emission chemical species 800 801 #if defined( __netcdf ) 801 802 802 803 !-- Actions for initial runs : TBD: needs to be updated … … 918 919 IMPLICIT NONE 919 920 920 #if defined( __netcdf ) 921 921 922 922 923 !--- IN/OUT … … 983 984 REAL(wp), PARAMETER :: ratio2ppm = 1.0e06_wp 984 985 !------------------------------------------------------ 985 986 #if defined( __netcdf ) 986 987 IF ( emission_output_required ) THEN 987 988
Note: See TracChangeset
for help on using the changeset viewer.