| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- !!----------------------------------------------------------------------
- !! NEMO/OPA 3.3 , NEMO Consortium (2010)
- !! $Id: ddatetoymdhms.h90 4990 2014-12-15 16:42:49Z timgraham $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!----------------------------------------------------------------------
- SUBROUTINE ddatetoymdhms( ddate, kyea, kmon, kday, khou, kmin, ksec )
- !!----------------------------------------------------------------------
- !!
- !! *** ROUTINE ddatetoymdhms ***
- !!
- !! ** Purpose : Convert YYYYMMDD.hhmmss to components
- !!
- !! ** Method :
- !!
- !! ** Action :
- !!
- !! History
- !!----------------------------------------------------------------------
- !! * Modules used
- !! * Arguments
- real(wp), INTENT(IN) :: ddate
- INTEGER, INTENT(OUT) :: kyea
- INTEGER, INTENT(OUT) :: kmon
- INTEGER, INTENT(OUT) :: kday
- INTEGER, INTENT(OUT) :: khou
- INTEGER, INTENT(OUT) :: kmin
- INTEGER, INTENT(OUT) :: ksec
- !! * Local declarations
- INTEGER :: iyymmdd
- INTEGER :: ihhmmss
-
- iyymmdd = INT( ddate )
- ihhmmss = INT( ( ddate - iyymmdd ) * 1000000 )
- kyea = iyymmdd/10000
- kmon = iyymmdd / 100 - 100 * kyea
- kday = MOD( iyymmdd, 100 )
- khou = ihhmmss/10000
- kmin = ihhmmss / 100 - 100 * khou
- ksec = MOD( ihhmmss, 100 )
-
- END SUBROUTINE ddatetoymdhms
|
