       PARAMETER (IM=119,JM=249,IMJM=IM*JM-JM/2)
       PARAMETER (DLMD=.07211538462500000000,
     &  DPHD=.06730769237500000000)
       PARAMETER (TLM0D=-49.06,TPH0D=-22.31)
