makwmo.F90

Go to the documentation of this file.

 
 
SUBROUTINE makwmo (BULHED,IDAY,IHOUR,IMIN,KWBX,HEADER)
  CHARACTER * 6 BULHED
  CHARACTER * 1 HEADER (*)
  CHARACTER * 1 WMOHDR (21)
  CHARACTER * 4 KWBX
  CHARACTER * 2 CTEMP
  !
  !$            1.     CREATE WMO HEADER.
  !$            1.1    CONVERT BULHED FROM EBCDIC TO ASCII.
  !
  !     WRITE (6,FMT='('' MADE IT TO MAKWMO'')')
  !
  DO i = 1,6
     wmohdr(i) = bulhed(i:i)
  END DO
  wmohdr(7)=char(32)        !  ASCII BLANK
  !
  !     MOVE KWBX INTO WMO HEADER
  !
  DO i = 1,4
     wmohdr(i+7) = kwbx(i:i)
  END DO
  wmohdr(12)=char(32)       !  ASCII BLANK
  !
  !$            1.2    PICK OFF THE DAY OF MONTH (YY)
  !$                   AND CONVERT TO ASCII.
  !
  write(ctemp,fmt='(I2.2)') iday
  wmohdr(13)=ctemp(1:1)
  wmohdr(14)=ctemp(2:2)
  !
  !$            1.3    PICK OFF THE HOUR(GG) AND CONVERT TO ASCII.
  !
  write(ctemp,fmt='(I2.2)') ihour
  wmohdr(15)=ctemp(1:1)
  wmohdr(16)=ctemp(2:2)
 
  write(ctemp,fmt='(I2.2)') imin
  wmohdr(17)=ctemp(1:1)
  wmohdr(18)=ctemp(2:2)
 
  !
  !             1.4    FIL IN REST OF HEADER
  !
  !     WMOHDR(17)=char(48)    !  ASCII "0"
  !     WMOHDR(18)=char(48)    !  ASCII "0"
  wmohdr(19)=char(13)       !  ASCII CR = '\r'
  wmohdr(20)=char(13)       !  ASCII CR = '\r'
  wmohdr(21)=char(10)       !  ASCII LF = '\n'
  !
  !$            2.     MOVE WMOHDR TO OUTPUT FIELD.
  !
  DO i = 1,21
     header(i) = wmohdr(i)
  END DO
  !
  RETURN
END SUBROUTINE makwmo