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

Timestamp:

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

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/tridia_solver.f90 (modified) (3 diffs)

palm/trunk/SOURCE/tridia_solver.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! test output removed
 ! 
 ! Former revisions:
@@ -509 +509 @@
 !--    the exchanged loops create bank conflicts. The following directive
 !--    prohibits loop exchange and the loops perform much better.
-!       tn = omp_get_thread_num()
-!       WRITE( 120+tn, * ) '+++ id=',myid,' nx=',nx,' thread=', omp_get_thread_num()
-!       CALL local_flush( 120+tn )
 !CDIR NOLOOPCHG
        DO  k = 0, nz-1
@@ -519 +516 @@
           ENDDO
        ENDDO
-!       WRITE( 120+tn, * ) '+++ id=',myid,' end of first tridia loop   thread=', omp_get_thread_num()
-!       CALL local_flush( 120+tn )
 
        IF ( j <= nnyh )  THEN