Changeset 1808 for palm/trunk/SOURCE/init_dvrp.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_dvrp.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! routine local_getenv replaced by standard FORTRAN routine
 ! 
 ! Former revisions:
@@ -783 +783 @@
 !
 !-- Find out, if dvrp output shall be done by a dedicated PE
-    CALL local_getenv( 'use_seperate_pe_for_dvrp_output', 31, chr, idummy )
+    CALL GET_ENVIRONMENT_VARIABLE( 'use_seperate_pe_for_dvrp_output', chr,     &
+                                   idummy )
     IF ( chr == 'true' )  THEN