Ignore:
Timestamp:
Apr 5, 2016 7:44:00 PM (5 years ago)
Author:
raasch
Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:
1 edited

Legend:

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

    r1683 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! routine local_getenv replaced by standard FORTRAN routine
    2222!
    2323! Former revisions:
     
    783783!
    784784!-- Find out, if dvrp output shall be done by a dedicated PE
    785     CALL local_getenv( 'use_seperate_pe_for_dvrp_output', 31, chr, idummy )
     785    CALL GET_ENVIRONMENT_VARIABLE( 'use_seperate_pe_for_dvrp_output', chr,     &
     786                                   idummy )
    786787    IF ( chr == 'true' )  THEN
    787788
Note: See TracChangeset for help on using the changeset viewer.