C-----------------------------------------------------------------------
                             C O M M O N /VRBLS/
     & PD(IM,JM),RES(IM,JM),FIS(IM,JM)
C
     &,U(IM,JM,LM),V(IM,JM,LM),T(IM,JM,LM),Q(IM,JM,LM)
C-----------------------------------------------------------------------