source:
utils/tools/OBSTOOLS/src/ooo_utils.F90
@
12102
Last change on this file since 12102 was 10841, checked in by cbricaud, 5 years ago | |
---|---|
File size: 1.1 KB |
Rev | Line | |
---|---|---|
[10841] | 1 | MODULE ooo_utils |
2 | !! ================================================================= | |
3 | !! *** MODULE ooo_utils *** | |
4 | !! ================================================================= | |
5 | USE par_oce | |
6 | ||
7 | IMPLICIT NONE | |
8 | ||
9 | ! Define double precision obfillflt | |
10 | REAL(kind=dp), PARAMETER :: obfilldbl=99999. | |
11 | ||
12 | !! $Id: ooo_utils.F90 5215 2015-04-15 16:11:56Z nicolasmartin $ | |
13 | CONTAINS | |
14 | ||
15 | ||
16 | SUBROUTINE date_format(date_str) | |
17 | !--------------------------------------- | |
18 | ! Routine to create creation date string | |
19 | !--------------------------------------- | |
20 | ||
21 | ! Routine arguments | |
22 | CHARACTER(len=*), INTENT(OUT) :: date_str | |
23 | ! Local variables | |
24 | CHARACTER(8) :: date | |
25 | CHARACTER(10) :: time | |
26 | ||
27 | CHARACTER(10) :: date_part | |
28 | CHARACTER(8) :: time_part | |
29 | ||
30 | CALL date_and_time(DATE=date) | |
31 | CALL date_and_time(TIME=time) | |
32 | date_part = date(1:4)//'/'//date(5:6)//'/'//date(7:8) | |
33 | time_part = time(1:2)//':'//time(3:4)//':'//time(5:6) | |
34 | ||
35 | date_str = date_part//' '//time_part | |
36 | ||
37 | END SUBROUTINE date_format | |
38 | ||
39 | END MODULE ooo_utils |
Note: See TracBrowser
for help on using the repository browser.