C
      COMMON /SRFDSP/
     & USTAR(IM,JM),TH10(IM,JM),Q10(IM,JM),U10(IM,JM),V10(IM,JM)
     &,TSHLTR(IM,JM),QSHLTR(IM,JM),PSHLTR(IM,JM)
     &,TH30(IM,JM),Q30(IM,JM),U30(IM,JM),V30(IM,JM)