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/disturb_field.f90

    r2233 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code removed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    165168          DO  j = dist_nys(dist_range), dist_nyn(dist_range)
    166169             DO  k = disturbance_level_ind_b, disturbance_level_ind_t
    167 #if defined( __nec )
    168                 randomnumber = 3.0_wp * disturbance_amplitude *                &
    169                                ( RANDOM( 0 ) - 0.5_wp )
    170 #else
    171170                CALL RANDOM_NUMBER( randomnumber )
    172171                randomnumber = 3.0_wp * disturbance_amplitude *                &
    173172                                ( randomnumber - 0.5_wp )
    174 #endif
    175173                IF ( nxl <= i .AND. nxr >= i .AND. nys <= j .AND. nyn >= j )   &
    176174                THEN
Note: See TracChangeset for help on using the changeset viewer.