Ignore:
Timestamp:
Nov 2, 2018 2:19:26 PM (3 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:
1 edited

Legend:

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

    r3481 r3483  
    2525! -----------------
    2626! $Id$
     27! bugfix: directives added to allow compilation without netCDF
     28!
     29! 3481 2018-11-02 09:14:13Z raasch
    2730! temporary variable cc introduced to circumvent a possible Intel18 compiler bug
    2831! related to contiguous/non-contguous pointer/target attributes
     
    14101413        ONLY:  zu
    14111414 
    1412     USE NETCDF
     1415!    USE NETCDF
    14131416   
    14141417    USE netcdf_data_input_mod,                                                 &
     
    14691472!
    14701473!--    Read input profiles from PIDS_SALSA   
     1474#if defined( __netcdf )
    14711475!   
    14721476!--    Location-dependent size distributions and compositions.     
     
    15601564          CALL message( 'salsa_mod: aerosol_init', 'SA0032', 1, 2, 0, 6, 0 )               
    15611565       ENDIF   ! netcdf_extend   
     1566#endif
    15621567 
    15631568    ELSEIF ( isdtyp == 0 )  THEN
     
    16101615!
    16111616!--    Read input profiles from PIDS_CHEM   
     1617#if defined( __netcdf )
    16121618!   
    16131619!--    Location-dependent size distributions and compositions.     
     
    16611667          CALL message( 'salsa_mod: aerosol_init', 'SA0033', 1, 2, 0, 6, 0 )               
    16621668       ENDIF   ! netcdf_extend     
     1669#endif
     1670
    16631671    ENDIF
    16641672
Note: See TracChangeset for help on using the changeset viewer.