!-----------------------------------------------------------------------
    COMMON /C_Tadj/ T_adj (IDIM1:IDIM2,JDIM1:JDIM2,LM)
!-----------------------------------------------------------------------