Ignore:
Timestamp:
Jan 22, 2018 5:17:47 PM (3 years ago)
Author:
kanani
Message:

Removal of chem directive, plus minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r2746 r2766  
    2525! -----------------
    2626! $Id$
     27! Removed preprocessor directive __chem
     28!
     29! 2746 2018-01-15 12:06:04Z suehring
    2730! Move flag plant canopy to modules
    2831!
     
    481484        ONLY:  zu, zw
    482485
    483 #if defined( __chem )
    484486    USE chemistry_model_mod,                                                   &
    485487        ONLY:  chem_define_netcdf_grid
    486 #endif
    487488
    488489    USE constants,                                                             &
     
    930931!
    931932!--                Check for chemistry quantities                   
    932 #if defined( __chem )
    933933                   IF ( .NOT. found  .AND.  air_chemistry )  THEN
    934934                      CALL chem_define_netcdf_grid( domask(mid,av,i),          &
     
    936936                                                    grid_z )
    937937                   ENDIF
    938 #endif
    939938
    940939!
     
    14741473!
    14751474!--                Check for chemistry quantities                   
    1476 #if defined( __chem )
    14771475                   IF ( .NOT. found  .AND.  air_chemistry )  THEN
    14781476                      CALL chem_define_netcdf_grid( do3d(av,i), found,         &
    14791477                                                    grid_x, grid_y, grid_z )
    14801478                   ENDIF
    1481 #endif
    14821479
    14831480!--                Check for user-defined quantities
     
    21292126!
    21302127!--                      Check for chemistry quantities
    2131 #if defined( __chem )
    21322128                         IF ( .NOT. found  .AND.  air_chemistry )  THEN
    21332129                            CALL chem_define_netcdf_grid( do2d(av,i), found,   &
     
    21352131                                                          grid_z )
    21362132                         ENDIF
    2137 #endif
    21382133
    21392134!
     
    28492844!
    28502845!--                   Check for chemistry quantities
    2851 #if defined( __chem )
    28522846                      IF ( .NOT. found  .AND.  air_chemistry )  THEN
    28532847                         CALL chem_define_netcdf_grid( do2d(av,i), found,      &
     
    28552849                                                       grid_z )
    28562850                      ENDIF
    2857 #endif
    28582851
    28592852!
     
    35183511!
    35193512!--                   Check for chemistry quantities
    3520 #if defined( __chem )
    35213513                      IF ( .NOT. found  .AND.  air_chemistry )  THEN
    35223514                         CALL chem_define_netcdf_grid( do2d(av,i), found,      &
     
    35243516                                                       grid_z )
    35253517                      ENDIF
    3526 #endif
    35273518!
    35283519!--                   Check for user-defined quantities
Note: See TracChangeset for help on using the changeset viewer.