Last change
on this file since 5501 was
5501,
checked in by aclsce, 4 years ago
|
First import of IPSLCM6.5_work_ENSEMBLES working configuration
|
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.