Changeset 2300 for palm/trunk/SOURCE/disturb_field.f90

Timestamp:

Jun 29, 2017 1:31:14 PM (7 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:

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

palm/trunk/SOURCE/disturb_field.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! NEC related code removed
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -165 +168 @@
           DO  j = dist_nys(dist_range), dist_nyn(dist_range)
              DO  k = disturbance_level_ind_b, disturbance_level_ind_t
-#if defined( __nec )
-                randomnumber = 3.0_wp * disturbance_amplitude *                &
-                               ( RANDOM( 0 ) - 0.5_wp )
-#else
                 CALL RANDOM_NUMBER( randomnumber )
                 randomnumber = 3.0_wp * disturbance_amplitude *                &
                                 ( randomnumber - 0.5_wp )
-#endif
                 IF ( nxl <= i .AND. nxr >= i .AND. nys <= j .AND. nyn >= j )   &
                 THEN