Ignore:
Timestamp:
Mar 5, 2020 3:59:50 PM (3 years ago)
Author:
raasch
Message:

bugfix: cpp-directives for serial mode added

File:
1 edited

Legend:

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

    r4360 r4444  
    2525! -----------------
    2626! $Id$
     27! bugfix: cpp-directives for serial mode added
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Corrected "Former revisions" section
    2831!
     
    332335        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
    333336               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
    334                bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
    335                grid_level
    336        
     337               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s
     338
     339#if defined( __parallel )
     340    USE control_parameters,                                                    &
     341        ONLY:  grid_level
     342#endif
     343
    337344    USE cpulog,                                                                &
    338345        ONLY:  cpu_log, log_point_s
Note: See TracChangeset for help on using the changeset viewer.