Changeset 366 for palm/trunk/SOURCE/user_last_actions.f90

Timestamp:

Aug 25, 2009 8:06:27 AM (15 years ago)

Author:

raasch

Message:

speed optomizations +bugfix in init_ocean

File:

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

palm/trunk/SOURCE/user_last_actions.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Output on unit 14 only if requested by write_binary
 !
 ! Former revisions:
@@ -18 +18 @@
 !------------------------------------------------------------------------------!
 
+    USE control_parameters
     USE user
 
@@ -25 +26 @@
 !-- Here the user-defined actions at the end of a job follow.
 !-- Sample for user-defined output:
-!    IF ( ALLOCATED( u2_av ) )  THEN
-!       WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
-!    ENDIF
+    IF ( write_binary(1:4) == 'true' )  THEN
+!       IF ( ALLOCATED( u2_av ) )  THEN
+!          WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
+!       ENDIF
 
-    WRITE ( 14 )  '*** end user ***    '
+       WRITE ( 14 )  '*** end user ***    '
+
+    ENDIF
 
  END SUBROUTINE user_last_actions