Changeset 1815 for palm/trunk/SOURCE/advec_s_bc.f90

Timestamp:

Apr 6, 2016 1:49:59 PM (8 years ago)

Author:

raasch

Message:

cpp-switches removed + cpp-bugfixes + zero-settings for velocities inside topography re-activated

File:

• palm/trunk/SOURCE/advec_s_bc.f90 (modified) (2 diffs)

palm/trunk/SOURCE/advec_s_bc.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! comment change
 ! 
 ! Former revisions:
@@ -194 +194 @@
 
 #if defined( __nec )
-       REAL(sp) ::  m1n, m1z  !Wichtig: Division !<
+       REAL(sp) ::  m1n, m1z  !< important for optimisation of division
        REAL(sp), DIMENSION(:,:), ALLOCATABLE :: m1, sw !<
 #else