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