source: utils/tools/OBSTOOLS/src/ooo_utils.F90 @ 10841

Last change on this file since 10841 was 10841, checked in by cbricaud, 19 months ago

fix for ticket #2268

File size: 1.1 KB
Line 
1MODULE 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
39END MODULE ooo_utils
Note: See TracBrowser for help on using the repository browser.