308 |
& .AND. eastCommMode .NE. COMM_GET ) THEN |
& .AND. eastCommMode .NE. COMM_GET ) THEN |
309 |
STOP ' S/R EXCH: Invalid commE mode.' |
STOP ' S/R EXCH: Invalid commE mode.' |
310 |
ENDIF |
ENDIF |
|
#ifndef ALLOW_AUTODIFF_OPENAD |
|
311 |
|
|
312 |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<< |
313 |
c >>>>>>>>>>>>>>>>>>> ADJOINT RUN <<<<<<<<<<<<<<<<<<< |
c >>>>>>>>>>>>>>>>>>> ADJOINT RUN <<<<<<<<<<<<<<<<<<< |
408 |
STOP ' S/R EXCH: Invalid commE mode.' |
STOP ' S/R EXCH: Invalid commE mode.' |
409 |
ENDIF |
ENDIF |
410 |
|
|
|
#endif /* ALLOW_AUTODIFF_OPENAD */ |
|
411 |
ENDIF |
ENDIF |
412 |
|
|
413 |
ENDDO |
ENDDO |