Ignore:
Timestamp:
Jun 12, 2019 1:20:01 PM (2 years ago)
Author:
maronga
Message:

consistent output of time stamps in header and run control for runs with spinup. Commented previous revisions in palm_csd

File:
1 edited

Legend:

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

    r3885 r4023  
    2525! -----------------
    2626! $Id$
     27! Time stamps are now negative in run control output
     28!
     29! 3885 2019-04-11 11:29:34Z kanani
    2730! Changes related to global restructuring of location messages and introduction
    2831! of additional debug messages
     
    176179    IMPLICIT NONE
    177180
    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
    179186 
    180187    INTEGER(iwp) ::  i !< running index
     
    449456       simulated_time_chr         = time_to_string( simulated_time )
    450457       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       
    452467       IF ( data_output_during_spinup )  THEN
    453468          IF ( simulated_time >= skip_time_do2d_xy )  THEN
     
    548563!
    549564!--       Write some general information about the spinup in run control file
    550           WRITE ( 15, 101 )  current_timestep_number_spinup, simulated_time_chr, dt_3d, pt_spinup
     565          WRITE ( 15, 101 )  current_timestep_number_spinup, sign_chr, time_since_reference_point_chr, dt_3d, pt_spinup
    551566!
    552567!--       Write buffer contents to disc immediately
     
    583598!-- Formats
    584599100 FORMAT (///'Spinup control output:'/  &
    585             '--------------------------------'// &
    586             'ITER.  HH:MM:SS    DT   PT(z_MO)'/   &
    587             '--------------------------------')
    588 101 FORMAT (I5,2X,A9,1X,F6.2,3X,F6.2,2X,F6.2)
     600            '---------------------------------'// &
     601            'ITER.   HH:MM:SS    DT   PT(z_MO)'/   &
     602            '---------------------------------')
     603101 FORMAT (I5,2X,A1,A9,1X,F6.2,3X,F6.2,2X,F6.2)
    589604
    590605 CONTAINS
Note: See TracChangeset for help on using the changeset viewer.