UnpackDateTime Subroutine

subroutine UnpackDateTime(DATETIME, YY, MM, DD, H, M, S)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: DATETIME(:)
integer, intent(out) :: YY
integer, intent(out) :: MM
integer, intent(out) :: DD
integer, intent(out) :: H
integer, intent(out) :: M
integer, intent(out) :: S

Called by

proc~~unpackdatetime~~CalledByGraph proc~unpackdatetime UnpackDateTime proc~get_file_times~2 get_file_times proc~get_file_times~2->proc~unpackdatetime proc~main~2 main proc~main~2->proc~get_file_times~2 program~regrid_util Regrid_Util program~regrid_util->proc~main~2

Source Code

   subroutine UnpackDateTime(DATETIME, YY, MM, DD, H, M, S)
     integer, intent(IN   ) :: DATETIME(:)
     integer, intent(  OUT) :: YY, MM, DD, H, M, S

     YY =     datetime(1)/10000
     MM = mod(datetime(1),10000)/100
     DD = mod(datetime(1),100)
     H  =     datetime(2)/10000
     M  = mod(datetime(2),10000)/100
     S  = mod(datetime(2),100)
     return
   end subroutine UnpackDateTime