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

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

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

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

Called by Calls

IGCM3 (summ)
IGCM3 (summ)

WRSPA(Z(1+(L-1)*IGA),1)
WRSPA(D(1+(L-1)*IGA),2)
WRSPA(T(1+(L-1)*IGA),2)
WRSPA(TRA(1+(L-1)*IGA,KK),2)
WRSPA(SP(1),2)

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