MODULE VARS_DIAGNOSTIC
  !
  !
  TYPE tresultVar
     REAL     :: PM(4)    
  ENDTYPE
  !
  !
ENDMODULE