Changeset 1808 for palm/trunk/SOURCE/init_coupling.f90

Timestamp:

Apr 5, 2016 7:44:00 PM (8 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/init_coupling.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! routine local_getenv replaced by standard FORTRAN routine
 ! 
 ! Former revisions:
@@ -71 +71 @@
 !-- This method is currently not used because the mpiexec command is not
 !-- available on some machines
-!    CALL local_getenv( 'coupling_mode', 13, coupling_mode, i )
+!    CALL GET_ENVIRONMENT_VARIABLE( 'coupling_mode', coupling_mode, i )
 !    IF ( i == 0 )  coupling_mode = 'uncoupled'
 !    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'