Changeset 3728 for palm/trunk/SOURCE


Ignore:
Timestamp:
Feb 8, 2019 3:52:48 PM (3 years ago)
Author:
gronemeier
Message:

bugfix: add missing cpp option to encapsule netcdf commands

File:
1 edited

Legend:

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

    r3727 r3728  
    2525! -----------------
    2626! $Id$
     27! Bugfix: add cpp options
     28!
     29! 3727 2019-02-08 14:52:10Z gronemeier
    2730! Enable NetCDF output for surface data (suehring, gronemeier)
    2831!
     
    13251328!--   and update time axis.
    13261329      IF ( to_netcdf )  THEN
     1330#if defined( __netcdf4_parallel )
    13271331         IF ( dosurf_time_count(av) + 1 > ntdim_surf(av) )  THEN
    13281332            WRITE ( message_string, * ) 'Output of surface data is not given at t=',          &
     
    13461350            CALL netcdf_handle_error( 'surface_data_output', 6666 )
    13471351         ENDIF
     1352#endif
    13481353      ENDIF
    13491354
     
    27232728         
    27242729         IF ( to_netcdf )  THEN
     2730#if defined( __netcdf4_parallel )
    27252731!
    27262732!--         Write output array to file
     
    27302736                                    count = (/ surfaces%ns, 1 /) )
    27312737            CALL netcdf_handle_error( 'surface_data_output', 6667 )
    2732          
     2738#endif
    27332739         ENDIF
    27342740
Note: See TracChangeset for help on using the changeset viewer.