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_coupling.f90

    r1683 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! routine local_getenv replaced by standard FORTRAN routine
    2222!
    2323! Former revisions:
     
    7171!-- This method is currently not used because the mpiexec command is not
    7272!-- available on some machines
    73 !    CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
     73!    CALL GET_ENVIRONMENT_VARIABLE( 'coupling_mode', coupling_mode, i )
    7474!    IF ( i == 0 )  coupling_mode = 'uncoupled'
    7575!    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
Note: See TracChangeset for help on using the changeset viewer.