37 SUBROUTINE spsynth(I,M,IM,IX,NC,NCTOP,KM,CLAT,PLN,PLNTOP,MP,
40 REAL PLN((M+1)*((I+1)*M+2)/2),PLNTOP(M+1)
42 REAL SPC(NC,KM),SPCTOP(NCTOP,KM)
71 f(2*l+1,1,k)=plntop(l+1)*spctop(2*l+1,k)
72 f(2*l+2,1,k)=plntop(l+1)*spctop(2*l+2,k)
74 f(2*l+1,2,k)=plntop(l+1)*spctop(2*l+1,k)
75 f(2*l+2,2,k)=plntop(l+1)*spctop(2*l+2,k)
81 ks=l*(2*m+(i-1)*(l-1))
84 f(2*l+1,1,k)=f(2*l+1,1,k)+pln(kp+n)*spc(ks+2*n+1,k)
85 f(2*l+2,1,k)=f(2*l+2,1,k)+pln(kp+n)*spc(ks+2*n+2,k)
88 f(2*l+1,2,k)=f(2*l+1,2,k)+pln(kp+n)*spc(ks+2*n+1,k)
89 f(2*l+2,2,k)=f(2*l+2,2,k)+pln(kp+n)*spc(ks+2*n+2,k)
95 f(2*l+1,1,k)=f1r+f(2*l+1,2,k)
96 f(2*l+2,1,k)=f1i+f(2*l+2,2,k)
97 f(2*l+1,2,k)=f1r-f(2*l+1,2,k)
98 f(2*l+2,2,k)=f1i-f(2*l+2,2,k)
115 f(2*l+1,le,k)=plntop(l+1)*spctop(2*l+1,k)
116 f(2*l+2,le,k)=plntop(l+1)*spctop(2*l+2,k)
119 f(2*l+1,lo,k)=plntop(l+1)*spctop(2*l+1,k)
120 f(2*l+2,lo,k)=plntop(l+1)*spctop(2*l+2,k)
126 ks=l*(2*m+(i-1)*(l-1))
129 f(2*l+1,1,k)=f(2*l+1,1,k)+pln(kp+n)*spc(ks+2*n+1,k)
130 f(2*l+2,1,k)=f(2*l+2,1,k)+pln(kp+n)*spc(ks+2*n+2,k)
133 f(2*l+1,2,k)=f(2*l+1,2,k)+pln(kp+n)*spc(ks+2*n+1,k)
134 f(2*l+2,2,k)=f(2*l+2,2,k)+pln(kp+n)*spc(ks+2*n+2,k)
143 f(2*l+1,1,k)=f1r+f(2*l+1,2,k)
144 f(2*l+2,1,k)=f1i+f(2*l+2,2,k)
145 f(2*l+1,2,k)=f1r-f(2*l+1,2,k)
146 f(2*l+2,2,k)=f1i-f(2*l+2,2,k)
150 f(2*l+1,1,k)=f(2*l+1,1,k)/clat
151 f(2*l+2,1,k)=f(2*l+2,1,k)/clat
152 f(2*l+1,2,k)=f(2*l+1,2,k)/clat
153 f(2*l+2,2,k)=f(2*l+2,2,k)/clat
subroutine spsynth(I, M, IM, IX, NC, NCTOP, KM, CLAT, PLN, PLNTOP, MP, SPC, SPCTOP, F)
Synthesizes Fourier coefficients from spectral coefficients for a latitude pair (Northern and Souther...