Ignore:
Timestamp:
Oct 28, 2015 5:14:10 PM (6 years ago)
Author:
raasch
Message:

FORTRAN an OpenMP errors removed
misplaced cpp-directive fixed
small E- and F-FORMAT changes to avoid informative compiler messages about insufficient field width

File:
1 edited

Legend:

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

    r1683 r1697  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! small E- and F-FORMAT changes to avoid informative compiler messages about
     22! insufficient field width
    2223!
    2324! Former revisions:
     
    119120       ENDIF
    120121       WRITE ( 15, 101 )  runnr, current_timestep_number, simulated_time_chr,  &
    121                           simulated_time-INT( simulated_time ), dt_3d,         &
    122                           timestep_reason, u_max, disturb_chr,                 &
     122                          INT( ( simulated_time-INT( simulated_time ) ) * 100),&
     123                          dt_3d, timestep_reason, u_max, disturb_chr,          &
    123124                          v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
    124125                          hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
     
    153154          &'----------------------------------------------------------------', &
    154155          &'---------')
    155 101 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, &
    156             F4.2, &
     156101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X,    &
     157            F6.3,1X,F5.2, &
    157158            2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3)
    158159
Note: See TracChangeset for help on using the changeset viewer.