C-----------------------------------------------------------------------
                             C O M M O N /PHYS/
     & KTM,PT,DTQ2,TDTQ2,DTD,TDTD
     &,ROS,CS,DS,ROI,CI,DI
     &,PL,THL,RDQ,RDTH,RDP,RDTHE
     &,PLQ,RDPQ,RDTHEQ
     &,DETA(LM),AETA(LM),DFRLG(LP1)
     &,QS0   (JTB),SQS   (JTB),THE0  (ITB),STHE  (ITB)
     &,                        THE0Q(ITBQ),STHEQ(ITBQ)
C
     &,RMXSNAL(IM,JM),EPSR  (IM,JM),RADIN (IM,JM),RADOT (IM,JM)
     &,GLAT  (IM,JM),GLON  (IM,JM),CZEN  (IM,JM), SWNET(IM,JM)
     &,ELWDWN(IM,JM),HTOP  (IM,JM),HBOT  (IM,JM)
     &,TG    (IM,JM),GFFC  (IM,JM),SST   (IM,JM),ALBASE(IM,JM)
     &,ALBEDO(IM,JM)
     &,HDAC  (IM,JM),HDACV (IM,JM),CZMEAN(IM,JM),SIGT4 (IM,JM)
C
     &,PTBL  (ITB,JTB),TTBL  (JTB,ITB),TTBLQ(JTBQ,ITBQ)
C-----------------------------------------------------------------------
                             save /PHYS/