C     ****
C     ****     Extra fields calculated in TGCM 15 from old common blocks
C     ****
C     common /SEC/ qwind_sec(zimxp1,zjmx,zkmx),
C    |             qamie_sec(zimxp1,zjmx,zkmx),
C    |             work_sec(zimxp1,zjmx,zkmx),
C    |             wtot_sec(zimxp1,zjmx,zkmx),
C    |             fwindu_sec(zimxp1,zjmx,zkmx),
C    |             fwindv_sec(zimxp1,zjmx,zkmx),
C    |             famieu_sec(zimxp1,zjmx,zkmx),
C    |             famiev_sec(zimxp1,zjmx,zkmx)
C     dimension famie_sec(zimxp1,zjmx,zkmx),
C    | fwind_sec(zimxp1,zjmx,zkmx),ftot_sec(zimxp1,zjmx,zkmx)
C     common /sight/ sigp(73,0:37),sigh(73,0:37),qjn(73,0:37),
C    | tec(73,0:37),qwind(73,0:37),qamie(73,0:37),wtot(73,0:37),
C    | work(73,0:37),fwindu(73,0:37),fwindv(73,0:37),
C    | famieu(73,0:37),famiev(73,0:37),ftot(73,0:37),
C    | famie(73,0:37),fwind(73,0:37)

      real, dimension(zimxp1,zjmx,zkmxp) :: 
     |  qwind_sec,qamie_sec,work_sec,wtot_sec,fwindu_sec,
     |  fwindv_sec,famieu_sec,famiev_sec,famie_sec,fwind_sec,
     |  ftot_sec,tec_sec
      real, dimension(zimxp1,0:zjmxp1) :: 
     |  sigp,sigh,qjn,qwind,qamie,wtot,work,fwindu,fwindv,
     | famieu,famiev,ftot,famie,fwind
      real, dimension(zimxp,zkmxp) :: 
     |  sigma1_sech,sigma2_sech,qwind_sech,qamie_sech,
     |  fwind_sech,famie_sech,work_sech,wtot_sech,tec_sech
      common/extracom/ qwind_sec,qamie_sec,work_sec,wtot_sec,
     |  fwindu_sec,fwindv_sec,famieu_sec,famiev_sec,famie_sec,
     |  fwind_sec,ftot_sec,sigp,sigh,qjn,qwind,qamie,
     |  wtot,work,fwindu,fwindv,famieu,famiev,ftot,famie,fwind,
     |  sigma1_sech,sigma2_sech,qwind_sech,qamie_sech,
     |  fwind_sech,famie_sech,work_sech,wtot_sech,
     |  tec_sec,tec_sech