Ignore:
Timestamp:
Sep 13, 2012 2:08:46 PM (9 years ago)
Author:
raasch
Message:

leapfrog timestep scheme and upstream-spline advection scheme completely removed from the code,
reading of dt_fixed from restart file removed

File:
1 edited

Legend:

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

    r484 r1001  
    44! Current revisions:
    55! -----------------
    6 !
     6! all actions concerning leapfrog scheme removed
    77!
    88! Former revisions:
     
    4343    IMPLICIT NONE
    4444
    45     CHARACTER (LEN=1) ::  change_chr, disturb_chr
     45    CHARACTER (LEN=1) ::  disturb_chr
    4646
    4747!
     
    7070
    7171!
    72 !--    Output the the beginning of the run receives no information about an
    73 !--    Euler-timestep
    74        IF ( dt_changed  .AND.  simulated_time /= 0.0  .AND. &
    75             timestep_scheme(1:5) /= 'runge' )  THEN
    76           IF ( timestep_scheme == 'leapfrog' )  THEN
    77              change_chr = 'L'
    78           ELSE
    79              change_chr = 'E'
    80           ENDIF
    81        ELSE
    82           change_chr = ' '
    83        ENDIF
    84 !
    8572!--    If required, set disturbance flag
    8673       IF ( disturbance_created )  THEN
     
    9178       WRITE ( 15, 101 )  runnr, current_timestep_number, simulated_time_chr,  &
    9279                          simulated_time-INT( simulated_time ), dt_3d,         &
    93                           timestep_reason, change_chr, u_max, disturb_chr,     &
     80                          timestep_reason, u_max, disturb_chr,                 &
    9481                          v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
    9582                          hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
     
    124111          &'----------------------------------------------------------------', &
    125112          &'-----')
    126 101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F8.4,A1,A1,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, &
     113101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, &
    127114            F4.2, &
    128115            2X,F6.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3)
Note: See TracChangeset for help on using the changeset viewer.