SUBROUTINE ICTRAC  Author  : Marc, 3l50
 Date    : April 2003
 Modified:

 -----------------------------------------------------------------
 What it does
 ============

 -----------------------------------------------------------------
 Structure of Routine
 ====================

 -----------------------------------------------------------------
 Program calls
 ====================

Called by Calls

INISTR (summ)
IGCM3 (summ)

ABORT
LTI LTIDT (summ)
LTIDT (summ)
CALL
CALL
FFT991(DAGPLG(1),WORK,TRIG,IFAX,1,MGPP,MG,3*NHEM,1)
DLSGCR(IGC,UG,RGG,DUDLSG,IGC,NL)
DLSGCR(IGC,VG,RGG,DVDLSG,IGC,NL)
DLSGCR(IGC,TG,RGG,DTDLSG,IGC,NL)
PVCR(TEMPTR,1)
PVCR(TEMPTR,2)
First
CALL
CALL
HANAL(TRAG,GWORK,TRA,NLTR,2)

 -----------------------------------------------------------------
Return to IGCM home page