Ignore:
Timestamp:
Mar 4, 2011 8:45:30 AM (10 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_coupling.f90

    r668 r691  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: combine_plot_fields did not work with data_output_2d_on_each_pe = .T.
     7! for precursor ocean runs
    78!
    89! Former revisions:
     
    9697    IF ( i == 0 ) THEN
    9798       coupling_mode = 'uncoupled'
     99!
     100!--    In case of a precursor ocean run, an additional flag file is created.
     101!--    This is necessary for data_output_2d_on_each_pe = .T.
     102       IF ( bc_data(3) == 1 )  THEN
     103          OPEN( 90, FILE='PRECURSOR_OCEAN', FORM='FORMATTED' )
     104          WRITE ( 90, '(''TRUE'')' )
     105          CLOSE ( 90 )
     106       ENDIF
    98107    ELSE
    99108       comm_inter = MPI_COMM_WORLD
Note: See TracChangeset for help on using the changeset viewer.