Changeset 215 for palm/trunk/SOURCE/palm.f90

Timestamp:

Nov 18, 2008 9:54:31 AM (15 years ago)

Author:

raasch

Message:

precompilation mechanism completely revised: now one depository per configuration block, further change of output messages

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• palm.f90 (modified) (1 diff)

palm/trunk/SOURCE/palm.f90

@@ -112 +112 @@
     WRITE(9,*) '*** coupling_mode = "', TRIM( coupling_mode ), '"'
     CALL LOCAL_FLUSH( 9 )
-    PRINT*, '*** PE', myid, ' Global target PE:', target_id, &
-            TRIM( coupling_mode )
+    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
+       PRINT*, '*** PE', myid, ' Global target PE:', target_id, &
+               TRIM( coupling_mode )
+    ENDIF
 #endif