MODULE TPMALD_TCDIS ! useless USE PARKIND1 ,ONLY : JPRB IMPLICIT NONE SAVE REAL(KIND=JPRB) :: TCDIS END MODULE TPMALD_TCDIS