!-----------------------------------------------------------------------
    COMMON /TEMPV/ &
    T0(IDIM1:IDIM2,JDIM1:JDIM2,LM),Q0(IDIM1:IDIM2,JDIM1:JDIM2,LM) &
    ,P0(IDIM1:IDIM2,JDIM1:JDIM2)
!-----------------------------------------------------------------------