354 |
|
|
355 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
356 |
C-- account for 3.D divergence of the flow in rStar coordinate: |
C-- account for 3.D divergence of the flow in rStar coordinate: |
357 |
|
# ifndef DISABLE_RSTAR_CODE |
358 |
IF ( select_rStar.GT.0 ) THEN |
IF ( select_rStar.GT.0 ) THEN |
359 |
DO j=jMin,jMax |
DO j=jMin,jMax |
360 |
DO i=iMin,iMax |
DO i=iMin,iMax |
372 |
ENDDO |
ENDDO |
373 |
ENDDO |
ENDDO |
374 |
ENDIF |
ENDIF |
375 |
|
# endif /* DISABLE_RSTAR_CODE */ |
376 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
377 |
|
|
378 |
ELSE |
ELSE |
544 |
|
|
545 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
546 |
C-- account for 3.D divergence of the flow in rStar coordinate: |
C-- account for 3.D divergence of the flow in rStar coordinate: |
547 |
|
# ifndef DISABLE_RSTAR_CODE |
548 |
IF ( select_rStar.GT.0 ) THEN |
IF ( select_rStar.GT.0 ) THEN |
549 |
DO j=jMin,jMax |
DO j=jMin,jMax |
550 |
DO i=iMin,iMax |
DO i=iMin,iMax |
562 |
ENDDO |
ENDDO |
563 |
ENDDO |
ENDDO |
564 |
ENDIF |
ENDIF |
565 |
|
# endif /* DISABLE_RSTAR_CODE */ |
566 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
567 |
|
|
568 |
ELSE |
ELSE |