Changeset 4023 for palm/trunk/SOURCE/time_integration_spinup.f90
- Timestamp:
- Jun 12, 2019 1:20:01 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration_spinup.f90
r3885 r4023 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Time stamps are now negative in run control output 28 ! 29 ! 3885 2019-04-11 11:29:34Z kanani 27 30 ! Changes related to global restructuring of location messages and introduction 28 31 ! of additional debug messages … … 176 179 IMPLICIT NONE 177 180 178 CHARACTER (LEN=9) :: time_to_string !< 181 CHARACTER (LEN=9) :: time_to_string !< 182 183 184 CHARACTER (LEN=1) :: sign_chr !< String containing '-' or ' ' 185 CHARACTER (LEN=9) :: time_since_reference_point_chr !< time since reference point, i.e., negative during spinup 179 186 180 187 INTEGER(iwp) :: i !< running index … … 449 456 simulated_time_chr = time_to_string( simulated_time ) 450 457 time_since_reference_point = simulated_time - coupling_start_time 451 458 time_since_reference_point_chr = time_to_string( ABS(time_since_reference_point) ) 459 460 IF ( time_since_reference_point < 0.0_wp ) THEN 461 sign_chr = '-' 462 ELSE 463 sign_chr = ' ' 464 ENDIF 465 466 452 467 IF ( data_output_during_spinup ) THEN 453 468 IF ( simulated_time >= skip_time_do2d_xy ) THEN … … 548 563 ! 549 564 !-- Write some general information about the spinup in run control file 550 WRITE ( 15, 101 ) current_timestep_number_spinup, si mulated_time_chr, dt_3d, pt_spinup565 WRITE ( 15, 101 ) current_timestep_number_spinup, sign_chr, time_since_reference_point_chr, dt_3d, pt_spinup 551 566 ! 552 567 !-- Write buffer contents to disc immediately … … 583 598 !-- Formats 584 599 100 FORMAT (///'Spinup control output:'/ & 585 '-------------------------------- '// &586 'ITER. HH:MM:SS DT PT(z_MO)'/ &587 '-------------------------------- ')588 101 FORMAT (I5,2X,A 9,1X,F6.2,3X,F6.2,2X,F6.2)600 '---------------------------------'// & 601 'ITER. HH:MM:SS DT PT(z_MO)'/ & 602 '---------------------------------') 603 101 FORMAT (I5,2X,A1,A9,1X,F6.2,3X,F6.2,2X,F6.2) 589 604 590 605 CONTAINS
Note: See TracChangeset
for help on using the changeset viewer.