source:
utils/tools/OBSTOOLS/src/ooo_utils.F90
@
10841
| Last change on this file since 10841 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.
