81 |
DO I=1,Nx |
DO I=1,Nx |
82 |
IF (OB_Jnorth(I).lt.0) OB_Jnorth(I)=OB_Jnorth(I)+Ny+1 |
IF (OB_Jnorth(I).lt.0) OB_Jnorth(I)=OB_Jnorth(I)+Ny+1 |
83 |
ENDDO |
ENDDO |
84 |
write(0,*) 'OB Jn =',OB_Jnorth |
write(*,*) 'OB Jn =',OB_Jnorth |
85 |
write(0,*) 'OB Js =',OB_Jsouth |
write(*,*) 'OB Js =',OB_Jsouth |
86 |
write(0,*) 'OB Ie =',OB_Ieast |
write(*,*) 'OB Ie =',OB_Ieast |
87 |
write(0,*) 'OB Iw =',OB_Iwest |
write(*,*) 'OB Iw =',OB_Iwest |
88 |
|
|
89 |
#ifdef ALLOW_ORLANSKI |
#ifdef ALLOW_ORLANSKI |
90 |
C Default Orlanski radiation parameters |
C Default Orlanski radiation parameters |