Ignore:
Timestamp:
Mar 4, 2013 5:31:38 AM (9 years ago)
Author:
raasch
Message:

New:
---

Porting of FFT-solver for serial runs to GPU using CUDA FFT,
preprocessor lines in transpose routines rearranged, so that routines can also
be used in serial (non-parallel) mode,
transpositions also carried out in serial mode, routines fftx, fftxp replaced
by calls of fft_x, fft_x replaced by fft_x_1d in the 1D-decomposition routines
(Makefile, Makefile_check, fft_xy, poisfft, poisfft_hybrid, transpose, new: cuda_fft_interfaces)

--stdin argument for mpiexec on lckyuh, -y and -Y settings output to header (mrun)

Changed:


Module array_kind renamed precision_kind
(check_open, data_output_3d, fft_xy, modules, user_data_output_3d)

some format changes for coupled atmosphere-ocean runs (header)
small changes in code formatting (microphysics, prognostic_equations)

Errors:


bugfix: default value (0) assigned to coupling_start_time (modules)
bugfix: initial time for preruns of coupled runs is output as -coupling_start_time (data_output_profiles)

File:
1 edited

Legend:

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

    r1093 r1106  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! some format changes for coupled runs
    2323!
    2424! Former revisions:
     
    192192    CHARACTER (LEN=10) ::  coor_chr, host_chr
    193193    CHARACTER (LEN=16) ::  begin_chr
    194     CHARACTER (LEN=23) ::  ver_rev
     194    CHARACTER (LEN=26) ::  ver_rev
    195195    CHARACTER (LEN=40) ::  output_format
    196196    CHARACTER (LEN=70) ::  char1, char2, dopr_chr, &
     
    258258       WRITE ( io, 101 )  mpi_type, coupling_mode
    259259    ENDIF
     260    IF ( coupling_start_time /= 0.0 )  THEN
     261       IF ( coupling_start_time > simulated_time_at_begin )  THEN
     262          WRITE ( io, 109 )
     263       ELSE
     264          WRITE ( io, 114 )
     265       ENDIF
     266    ENDIF
    260267    WRITE ( io, 102 )  run_date, run_identifier, run_time, runnr, &
    261268                       ADJUSTR( host_chr )
     
    426433       IF ( time_restart /= 9999999.9  .AND.  time_restart < end_time )  THEN
    427434          IF ( dt_restart == 9999999.9 )  THEN
    428              WRITE ( io, 204 )  ' Next restart at:  ',time_restart
     435             WRITE ( io, 204 )  ' Next restart at:     ',time_restart
    429436          ELSE
    430              WRITE ( io, 205 )  ' Next restart at:  ',time_restart, dt_restart
     437             WRITE ( io, 205 )  ' Next restart at:     ',time_restart, dt_restart
    431438          ENDIF
    432439       ENDIF
     
    435442!
    436443!-- Start time for coupled runs, if independent precursor runs for atmosphere
    437 !-- and ocean are used. In this case, coupling_start_time defines the time
    438 !-- when the coupling is switched on.
     444!-- and ocean are used or have been used. In this case, coupling_start_time
     445!-- defines the time when the coupling is switched on.
    439446    IF ( coupling_start_time /= 0.0 )  THEN
    440        IF ( coupling_start_time >= simulated_time_at_begin )  THEN
    441           char1 = 'Precursor run for a coupled atmosphere-ocean run'
    442        ELSE
    443           char1 = 'Coupled atmosphere-ocean run following independent ' // &
    444                   'precursor runs'
    445        ENDIF
    446        WRITE ( io, 207 )  char1, coupling_start_time
     447       WRITE ( io, 207 )  coupling_start_time
    447448    ENDIF
    448449
     
    15811582
    15821583 99 FORMAT (1X,78('-'))
    1583 100 FORMAT (/1X,'***************************',9X,42('-')/        &
    1584             1X,'* ',A,' *',9X,A/                               &
    1585             1X,'***************************',9X,42('-'))
     1584100 FORMAT (/1X,'******************************',6X,42('-')/        &
     1585            1X,'* ',A,' *',6X,A/                               &
     1586            1X,'******************************',6X,42('-'))
    15861587101 FORMAT (37X,'coupled run using MPI-',I1,': ',A/ &
    15871588            37X,42('-'))
    1588 102 FORMAT (/' Date:              ',A8,9X,'Run:       ',A20/      &
    1589             ' Time:              ',A8,9X,'Run-No.:   ',I2.2/     &
    1590             ' Run on host:     ',A10)
     1589102 FORMAT (/' Date:                 ',A8,6X,'Run:       ',A20/      &
     1590            ' Time:                 ',A8,6X,'Run-No.:   ',I2.2/     &
     1591            ' Run on host:        ',A10)
    15911592#if defined( __parallel )
    1592 103 FORMAT (' Number of PEs:',8X,I5,9X,'Processor grid (x,y): (',I3,',',I3, &
     1593103 FORMAT (' Number of PEs:',10X,I6,6X,'Processor grid (x,y): (',I3,',',I3, &
    15931594              ')',1X,A)
    15941595104 FORMAT (' Number of PEs:',8X,I5,9X,'Tasks:',I4,'   threads per task:',I4/ &
     
    15991600107 FORMAT (37X,'A 1d-decomposition along ',A,' is used')
    16001601108 FORMAT (37X,'Max. # of parallel I/O streams is ',I5)
     1602109 FORMAT (37X,'Precursor run for coupled atmos-ocean run'/ &
     1603            37X,42('-'))
     1604114 FORMAT (37X,'Coupled atmosphere-ocean run following'/ &
     1605            37X,'independent precursor runs'/             &
     1606            37X,42('-'))
    16011607#endif
    16021608110 FORMAT (/' Numerical Schemes:'/ &
     
    16101616                  ' or Upstream')
    16111617118 FORMAT (' --> Scalar advection via Bott-Chlond-Scheme')
    1612 119 FORMAT (' --> Galilei-Transform applied to horizontal advection', &
    1613             '     Translation velocity = ',A/ &
     1618119 FORMAT (' --> Galilei-Transform applied to horizontal advection:'/ &
     1619            '     translation velocity = ',A/ &
    16141620            '     distance advected ',A,':  ',F8.3,' km(x)  ',F8.3,' km(y)')
    16151621122 FORMAT (' --> Time differencing scheme: ',A)
     
    16561662200 FORMAT (//' Run time and time step information:'/ &
    16571663             ' ----------------------------------'/)
    1658 201 FORMAT ( ' Timestep:          variable     maximum value: ',F6.3,' s', &
     1664201 FORMAT ( ' Timestep:             variable     maximum value: ',F6.3,' s', &
    16591665             '    CFL-factor: ',F4.2)
    1660 202 FORMAT ( ' Timestep:       dt = ',F6.3,' s'/)
    1661 203 FORMAT ( ' Start time:       ',F9.3,' s'/ &
    1662              ' End time:         ',F9.3,' s')
     1666202 FORMAT ( ' Timestep:          dt = ',F6.3,' s'/)
     1667203 FORMAT ( ' Start time:          ',F9.3,' s'/ &
     1668             ' End time:            ',F9.3,' s')
    16631669204 FORMAT ( A,F9.3,' s')
    16641670205 FORMAT ( A,F9.3,' s',5X,'restart every',17X,F9.3,' s')
    1665 206 FORMAT (/' Time reached:     ',F9.3,' s'/ &
    1666              ' CPU-time used:    ',F9.3,' s     per timestep:               ', &
    1667                '  ',F9.3,' s'/                                                 &
    1668              '                                   per second of simulated tim', &
     1671206 FORMAT (/' Time reached:        ',F9.3,' s'/ &
     1672             ' CPU-time used:       ',F9.3,' s     per timestep:               ', &
     1673               '  ',F9.3,' s'/                                                    &
     1674             '                                   per second of simulated tim',    &
    16691675               'e: ',F9.3,' s')
    1670 207 FORMAT ( A/' Coupling start time:',F9.3,' s')
     1676207 FORMAT ( ' Coupling start time: ',F9.3,' s')
    16711677250 FORMAT (//' Computational grid and domain size:'/ &
    16721678              ' ----------------------------------'// &
Note: See TracChangeset for help on using the changeset viewer.