Page 354 - Introduction to Computational Fluid Dynamics

P2: IWV
P1: ICD/GKJ
CB908/Date
0521853265appc
333
APPENDIX C. 2D CARTESIAN CODE
ENDIF 0 521 85326 5 May 25, 2005 11:59
IF (CHAR1.EQ.’WEST’)THEN
IF(CHAR2.EQ.’INFLOW’)NTAGW(I,J)=11
IF(CHAR2.EQ.’SYMM’ )NTAGW(I,J)=12
IF(CHAR2.EQ.’EXIT1’ )NTAGW(I,J)=13
IF(CHAR2.EQ.’EXIT2’ )NTAGW(I,J)=15
IF(CHAR2.EQ.’WALLT’ )NTAGW(I,J)=14
IF(CHAR2.EQ.’WALLQ’ )NTAGW(I,J)=16
IF(CHAR2.EQ.’PERIOD’ )NTAGW(I,J)=17
ELSE IF(CHAR1.EQ.’EAST’)THEN
IF(CHAR2.EQ.’INFLOW’)NTAGE(I,J)=21
IF(CHAR2.EQ.’SYMM’ )NTAGE(I,J)=22
IF(CHAR2.EQ.’EXIT1’ )NTAGE(I,J)=23
IF(CHAR2.EQ.’EXIT2’ )NTAGE(I,J)=25
IF(CHAR2.EQ.’WALLT’ )NTAGE(I,J)=24
IF(CHAR2.EQ.’WALLQ’ )NTAGE(I,J)=26
IF(CHAR2.EQ.’PERIOD’ )NTAGE(I,J)=27
ELSE IF(CHAR1.EQ.’SOUTH’)THEN
IF(CHAR2.EQ.’INFLOW’)NTAGS(I,J)=31
IF(CHAR2.EQ.’SYMM’ )NTAGS(I,J)=32
IF(CHAR2.EQ.’EXIT1’ )NTAGS(I,J)=33
IF(CHAR2.EQ.’EXIT2’ )NTAGS(I,J)=35
IF(CHAR2.EQ.’WALLT’ )NTAGS(I,J)=34
IF(CHAR2.EQ.’WALLQ’ )NTAGS(I,J)=36
IF(CHAR2.EQ.’PERIOD’ )NTAGS(I,J)=37
ELSE IF(CHAR1.EQ.’NORTH’)THEN
IF(CHAR2.EQ.’INFLOW’)NTAGN(I,J)=41
IF(CHAR2.EQ.’SYMM’ )NTAGN(I,J)=42
IF(CHAR2.EQ.’EXIT1’ )NTAGN(I,J)=43
IF(CHAR2.EQ.’EXIT2’ )NTAGN(I,J)=45
IF(CHAR2.EQ.’WALLT’ )NTAGN(I,J)=44
IF(CHAR2.EQ.’WALLQ’ )NTAGN(I,J)=46
IF(CHAR2.EQ.’PERIOD’ )NTAGN(I,J)=47
ENDIF
1 CONTINUE
RETURN
END
C *******************************************
SUBROUTINE BOUND(NN)
INCLUDE ’COM2D.FOR’
C *******************************************
N=NN