Error: the storage extent of the dummy argument exceeds that of tthe actual argument

Error: the storage extent of the dummy argument exceeds that of the actual argument [TW]

Hi everybody, could someone help me,

I have changed my code by adding a new subroutine CALTW which calculate temperature TW(NX, NYW, NZ) in new wall sublayer, but variable FI (NX, NY, NZ) which solves equation for TW has different extent  but I need an old value and a new one

Ana