Ignore:
Timestamp:
Oct 13, 2017 6:09:32 PM (4 years ago)
Author:
maronga
Message:

introduced new module date_and_time_mod

File:
1 edited

Legend:

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

    r2339 r2544  
    2525! -----------------
    2626! $Id$
     27! Moved initial day of year and time to inipar.
     28!
     29! 2339 2017-08-07 13:55:26Z gronemeier
    2730! corrected timestamp in header
    2831!
     
    333336    USE cpulog,                                                                &
    334337        ONLY:  log_point_s
    335        
     338           
     339    USE date_and_time_mod,                                                     &
     340        ONLY:  day_of_year_init, time_utc_init
     341
    336342    USE dvrp_variables,                                                        &
    337343        ONLY:  use_seperate_pe_for_dvrp_output
     
    17461752    WRITE ( io, 410 )  phi, omega, f, fs
    17471753
     1754 !
     1755!-- Geostrophic parameters
     1756    WRITE ( io, 456 )  day_of_year_init, time_utc_init
     1757   
    17481758!
    17491759!-- Other quantities
     
    22532263454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
    22542264455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')
     2265456 FORMAT ('    Day of the year at model start :   day_init = ',I3             &
     2266            /'    UTC time at model start        :   time_utc_init = ',F7.1' s')
    22552267470 FORMAT (//' Actions during the simulation:'/ &
    22562268              ' -----------------------------'/)
Note: See TracChangeset for help on using the changeset viewer.