Changeset 3529 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Nov 15, 2018 9:03:15 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r3525 r3529 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Save time zone in variable run_zone, change date format into YYYY-MM-DD 28 ! 29 ! 3525 2018-11-14 16:06:14Z kanani 27 30 ! Changes related to clean-up of biometeorology (dom_dwd_user) 28 31 ! … … 1089 1092 !-- Generate the file header which is used as a header for most of PALM's 1090 1093 !-- output files 1091 CALL DATE_AND_TIME( date, time )1092 run_date = date( 7:8)//'-'//date(5:6)//'-'//date(3:4)1094 CALL DATE_AND_TIME( date, time, run_zone ) 1095 run_date = date(1:4)//'-'//date(5:6)//'-'//date(7:8) 1093 1096 run_time = time(1:2)//':'//time(3:4)//':'//time(5:6) 1094 1097 IF ( coupling_mode == 'uncoupled' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.