\setlength{\unitlength}{2.75mm}
\begin{picture}(50,70)(-1.5,-1)
\put(8,66){\line(4,3){4}}
\put(12,69){\line(4,-3){4}}
\put(16,66){\line(-4,-3){4}}
\put(12,63){\line(-4,3){4}}
\put(9.7,65.6){ENTER}
\put(12,63){\vector(0,-1){1.75}}
\put(12,61.25){\line(0,-1){0.75}}
\put(6.5,56.5){\framebox(11,4)}
\put(8.3,59.1){Layers Loop}
\put(7.1,57.3){DO 10 I=1,NVRT}
\put(17.5,58.5){\vector(1,0){4}}
\put(21.5,58.5){\line(1,0){2}}
\put(23.5,58.5){\line(2,1){5}}
\put(28.5,61){\line(2,-1){5}}
\put(33.5,58.5){\line(-2,-1){5}}
\put(28.5,56){\line(-2,1){5}}
\put(25.6,58){TMSTP=1}
\put(33.5,58.5){\vector(1,0){3}}
\put(36.5,58.5){\line(1,0){2}}
\put(34.5,59){YES}
\put(38.5,57){\framebox(10,3){COMPUTE LDU}}
\put(28.5,56){\vector(0,-1){4}}
\put(28.5,52){\line(0,-1){2}}
\put(25.5,53){NO}
\put(23.5,46){\framebox(10,4)}
\put(24.7,48.6){Species Loop}
\put(24.4,46.8){DO 5 J=1,NSP}
\put(43.5,57){\line(0,-1){3}}
\put(43.5,54){\vector(-1,0){10}}
\put(33.5,54){\line(-1,0){5}}
\put(33.5,48){\vector(1,0){6}}
\put(39.5,48){\line(1,0){4}}
\put(43.5,48){\line(0,-1){3}}
\put(38.5,42){\framebox(10,3){CALL ADVECT}}
\put(43.5,42){\line(0,-1){3}}
\put(43.5,39){\vector(-1,0){7}}
\put(36.5,39){\line(-1,0){3}}
\put(23.5,37.5){\framebox(10,3){5 CONTINUE}}
\put(28.5,40.5){\dashbox{0.5}(0,5.5)}
\put(28.5,43.5){\vector(0,1){0.5}}
\put(28.5,37.5){\vector(0,-1){2}}
\put(28.5,35.5){\line(0,-1){1}}
\put(23.5,32){\line(2,1){5}}
\put(28.5,34.5){\line(2,-1){5}}
\put(33.5,32){\line(-2,-1){5}}
\put(28.5,29.5){\line(-2,1){5}}
\put(25.5,31.5){PRECHEM}
\put(33.5,32){\vector(1,0){3}}
\put(36.5,32){\line(1,0){2}}
\put(34.5,32.5){YES}
\put(38.5,30.5){\framebox(10,3){CALL FILTER}}
\put(28.5,29.5){\vector(0,-1){3}}
\put(28.5,26.5){\line(0,-1){2}}
\put(25.5,27.5){NO}
\put(43.5,30.5){\line(0,-1){6}}
\put(43.5,24.5){\vector(-1,0){20}}
\put(23.5,24.5){\line(-1,0){6}}
\put(6.5,23){\framebox(11,3){10 CONTINUE}}
\put(12,26){\dashbox{0.5}(0,30.5)}
\put(12,46){\vector(0,1){0.5}}
\put(12,23){\vector(0,-1){3}}
\put(12,20){\line(0,-1){1}}
\put(12,19){\line(1,0){7}}
\put(20.5,19){\oval(3,3)[l]}
\put(20.5,18.5){RETURN}
\put(26.2,19){\oval(3,3)[r]}
\put(20.5,20.5){\line(1,0){5.7}}
\put(20.5,17.5){\line(1,0){5.7}}
\end{picture}