[2287] | 1 | !!---------------------------------------------------------------------- |
---|
| 2 | !! NEMO/OPA 3.3 , NEMO Consortium (2010) |
---|
| 3 | !! $Id$ |
---|
| 4 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
---|
| 5 | !!---------------------------------------------------------------------- |
---|
| 6 | |
---|
[2128] | 7 | SUBROUTINE ddatetoymdhms( ddate, kyea, kmon, kday, khou, kmin, ksec ) |
---|
| 8 | !!---------------------------------------------------------------------- |
---|
| 9 | !! |
---|
| 10 | !! *** ROUTINE ddatetoymdhms *** |
---|
| 11 | !! |
---|
| 12 | !! ** Purpose : Convert YYYYMMDD.hhmmss to components |
---|
| 13 | !! |
---|
| 14 | !! ** Method : |
---|
| 15 | !! |
---|
| 16 | !! ** Action : |
---|
| 17 | !! |
---|
| 18 | !! History |
---|
| 19 | !!---------------------------------------------------------------------- |
---|
| 20 | !! * Modules used |
---|
| 21 | |
---|
| 22 | !! * Arguments |
---|
| 23 | REAL(dp), INTENT(IN) :: ddate |
---|
| 24 | INTEGER, INTENT(OUT) :: kyea |
---|
| 25 | INTEGER, INTENT(OUT) :: kmon |
---|
| 26 | INTEGER, INTENT(OUT) :: kday |
---|
| 27 | INTEGER, INTENT(OUT) :: khou |
---|
| 28 | INTEGER, INTENT(OUT) :: kmin |
---|
| 29 | INTEGER, INTENT(OUT) :: ksec |
---|
| 30 | !! * Local declarations |
---|
| 31 | INTEGER :: iyymmdd |
---|
| 32 | INTEGER :: ihhmmss |
---|
| 33 | |
---|
| 34 | iyymmdd = INT( ddate ) |
---|
| 35 | ihhmmss = INT( ( ddate - iyymmdd ) * 1000000 ) |
---|
| 36 | kyea = iyymmdd/10000 |
---|
| 37 | kmon = iyymmdd / 100 - 100 * kyea |
---|
| 38 | kday = MOD( iyymmdd, 100 ) |
---|
| 39 | khou = ihhmmss/10000 |
---|
| 40 | kmin = ihhmmss / 100 - 100 * khou |
---|
| 41 | ksec = MOD( ihhmmss, 100 ) |
---|
| 42 | |
---|
| 43 | END SUBROUTINE ddatetoymdhms |
---|