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

Timestamp:

Mar 4, 2011 8:45:30 AM (13 years ago)

Author:

maronga

Message:

Bugfix for precursor atmosphere/ocean runs, re-adjustments for lcxt4

File:

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

palm/trunk/SOURCE/init_coupling.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: combine_plot_fields did not work with data_output_2d_on_each_pe = .T.
+! for precursor ocean runs
 !
 ! Former revisions:
@@ -96 +97 @@
     IF ( i == 0 ) THEN
        coupling_mode = 'uncoupled'
+!
+!--    In case of a precursor ocean run, an additional flag file is created.
+!--    This is necessary for data_output_2d_on_each_pe = .T.
+       IF ( bc_data(3) == 1 )  THEN
+          OPEN( 90, FILE='PRECURSOR_OCEAN', FORM='FORMATTED' )
+          WRITE ( 90, '(''TRUE'')' )
+          CLOSE ( 90 )
+       ENDIF
     ELSE
        comm_inter = MPI_COMM_WORLD