source:
utils/tools/OBSTOOLS/src/ooo_utils.F90
Last change on this file was 10841, checked in by cbricaud, 5 years ago | |
---|---|
File size: 1.1 KB |
Line | |
---|---|
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.