68 |
|
|
69 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
70 |
IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.4 ) THEN |
IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.4 ) THEN |
71 |
|
# ifndef DISABLE_RSTAR_CODE |
72 |
C- Integral of b.dr = rStarFac * Integral of b.dr* : |
C- Integral of b.dr = rStarFac * Integral of b.dr* : |
73 |
C and will add later (select_rStar=2) the contribution of |
C and will add later (select_rStar=2) the contribution of |
74 |
C the slope of the r* coordinate. |
C the slope of the r* coordinate. |
127 |
ENDDO |
ENDDO |
128 |
ENDDO |
ENDDO |
129 |
ENDIF |
ENDIF |
130 |
|
# endif /* DISABLE_RSTAR_CODE */ |
131 |
ELSE |
ELSE |
132 |
#else /* NONLIN_FRSURF */ |
#else /* NONLIN_FRSURF */ |
133 |
IF (.TRUE.) THEN |
IF (.TRUE.) THEN |