Ignore:
Timestamp:
Jun 29, 2017 1:31:14 PM (4 years ago)
Author:
raasch
Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:
1 edited

Legend:

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

    r2292 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code removed
     28!
     29! 2292 2017-06-20 09:51:42Z schwenkel
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    182185       REAL(wp) ::  im     !<
    183186       REAL(wp) ::  ip     !<
     187       REAL(wp) ::  m1n    !<
     188       REAL(wp) ::  m1z    !<
    184189       REAL(wp) ::  m2     !<
    185190       REAL(wp) ::  m3     !<
     
    213218       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  ippb !<
    214219       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  ippe !<
     220       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  m1   !<
     221       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  sw   !<
    215222       
    216223       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  sk_p !<
    217 
    218 #if defined( __nec )
    219        REAL(sp) ::  m1n, m1z  !< important for optimisation of division
    220        REAL(sp), DIMENSION(:,:), ALLOCATABLE :: m1, sw !<
    221 #else
    222        REAL(wp) ::  m1n, m1z
    223        REAL(wp), DIMENSION(:,:), ALLOCATABLE :: m1, sw
    224 #endif
    225 
    226224
    227225!
Note: See TracChangeset for help on using the changeset viewer.