Ignore:
Timestamp:
Apr 16, 2009 12:07:26 PM (12 years ago)
Author:
raasch
Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:
1 edited

Legend:

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

    r256 r291  
    44! Current revisions:
    55! -----------------
     6! Coupling with independent precursor runs.
    67! Output of messages replaced by message handling routine.
    78! Output of cluster_size
     
    105106
    106107    INTEGER ::  av, bh, blx, bly, bxl, bxr, byn, bys, ch, cwx, cwy, cxl, cxr, &
    107          cyn, cys, i, ihost, io, j, l, ll
     108                cyn, cys, i, ihost, io, j, l, ll, mpi_type
    108109    REAL    ::  cpuseconds_per_simulated_second
    109110
     
    151152    ver_rev = TRIM( version ) // '  ' // TRIM( revision )
    152153    WRITE ( io, 100 )  ver_rev, TRIM( run_classification )
    153     IF ( coupling_mode /= 'uncoupled' )  WRITE ( io, 101 )  coupling_mode
     154    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
     155#if defined( __mpi2 )
     156       mpi_type = 2
     157#else
     158       mpi_type = 1
     159#endif
     160       WRITE ( io, 101 )  mpi_type, coupling_mode
     161    ENDIF
    154162    WRITE ( io, 102 )  run_date, run_identifier, run_time, runnr, &
    155163                       ADJUSTR( host_chr )
     
    344352          ENDIF
    345353       ENDIF
     354    ENDIF
     355
     356!
     357!-- Start time for coupled runs, if independent precursor runs for atmosphere
     358!-- and ocean are used. In this case, coupling_start_time defines the time
     359!-- when the coupling is switched on.
     360    IF ( coupling_start_time /= 0.0 )  THEN
     361       IF ( coupling_start_time >= simulated_time_at_begin )  THEN
     362          char1 = 'Precursor run for a coupled atmosphere-ocean run'
     363       ELSE
     364          char1 = 'Coupled atmosphere-ocean run following independent ' // &
     365                  'precursor runs'
     366       ENDIF
     367       WRITE ( io, 207 )  char1, coupling_start_time
    346368    ENDIF
    347369
     
    13511373            1X,'* ',A,' *',9X,A/                               &
    13521374            1X,'***************************',9X,42('-'))
    1353 101 FORMAT (37X,'coupled run: ',A/ &
     1375101 FORMAT (37X,'coupled run using MPI-',I1,': ',A/ &
    13541376            37X,42('-'))
    13551377102 FORMAT (/' Date:              ',A8,9X,'Run:       ',A20/      &
     
    14481470             '                                   per second of simulated tim', &
    14491471               'e: ',F9.3,' s')
     1472207 FORMAT ( A/' Coupling start time:',F9.3,' s')
    14501473250 FORMAT (//' Computational grid and domain size:'/ &
    14511474              ' ----------------------------------'// &
Note: See TracChangeset for help on using the changeset viewer.