Changeset 2766 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Jan 22, 2018 5:17:47 PM (7 years ago)

Author:

kanani

Message:

Removal of chem directive, plus minor changes

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (11 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed preprocessor directive __chem
+! 
+! 2746 2018-01-15 12:06:04Z suehring
 ! Move flag plant canopy to modules
 ! 
@@ -481 +484 @@
         ONLY:  zu, zw
 
-#if defined( __chem )
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_define_netcdf_grid 
-#endif
 
     USE constants,                                                             &
@@ -930 +931 @@
 !
 !--                Check for chemistry quantities                   
-#if defined( __chem )
                    IF ( .NOT. found  .AND.  air_chemistry )  THEN
                       CALL chem_define_netcdf_grid( domask(mid,av,i),          &
@@ -936 +936 @@
                                                     grid_z )
                    ENDIF
-#endif
 
 !
@@ -1474 +1473 @@
 !
 !--                Check for chemistry quantities                   
-#if defined( __chem )
                    IF ( .NOT. found  .AND.  air_chemistry )  THEN
                       CALL chem_define_netcdf_grid( do3d(av,i), found,         &
                                                     grid_x, grid_y, grid_z )
                    ENDIF
-#endif
 
 !--                Check for user-defined quantities
@@ -2129 +2126 @@
 !
 !--                      Check for chemistry quantities
-#if defined( __chem )
                          IF ( .NOT. found  .AND.  air_chemistry )  THEN
                             CALL chem_define_netcdf_grid( do2d(av,i), found,   &
@@ -2135 +2131 @@
                                                           grid_z )
                          ENDIF
-#endif
 
 !
@@ -2849 +2844 @@
 !
 !--                   Check for chemistry quantities
-#if defined( __chem )
                       IF ( .NOT. found  .AND.  air_chemistry )  THEN
                          CALL chem_define_netcdf_grid( do2d(av,i), found,      &
@@ -2855 +2849 @@
                                                        grid_z )
                       ENDIF
-#endif
 
 !
@@ -3518 +3511 @@
 !
 !--                   Check for chemistry quantities
-#if defined( __chem )
                       IF ( .NOT. found  .AND.  air_chemistry )  THEN
                          CALL chem_define_netcdf_grid( do2d(av,i), found,      &
@@ -3524 +3516 @@
                                                        grid_z )
                       ENDIF
-#endif
 !
 !--                   Check for user-defined quantities