Le code de scint

• SUBROUTINE SCINT(ZO,LI,LJ,XLAT,XLON,ZI,NI,NJ,IGTYP,IG1,IG2,IG3,IG4,SYM)

• (...)

• CALL SCINT1(ZI,NI,NJ,IGTYP,IG1,IG2,IG3,IG4,SYM)

• DO 23000 J=1,LJ

• DO 23002 I=1,LI

• ZO(I,J) = SCINT2(XLAT(I,J),XLON(I,J),ZI,NI,NJ)

• 23002 CONTINUE

• 23000 CONTINUE

• RETURN

• END