355 |
IF ( useCubedSphereExchange .AND. |
IF ( useCubedSphereExchange .AND. |
356 |
& ( overlapOnly .OR. ipass.EQ.1 ) ) THEN |
& ( overlapOnly .OR. ipass.EQ.1 ) ) THEN |
357 |
#endif |
#endif |
358 |
CALL FILL_CS_CORNER_TR_RL( .TRUE., localTij, bi,bj, myThid ) |
CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE., |
359 |
|
& localTij, bi,bj, myThid ) |
360 |
ENDIF |
ENDIF |
361 |
cph-exch2#endif |
cph-exch2#endif |
362 |
|
|
400 |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
401 |
C- Internal exchange for next calculations in Y |
C- Internal exchange for next calculations in Y |
402 |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
403 |
CALL FILL_CS_CORNER_TR_RL(.FALSE., localTij, bi,bj, myThid ) |
CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE., |
404 |
|
& localTij, bi,bj, myThid ) |
405 |
ENDIF |
ENDIF |
406 |
cph-exch2#endif |
cph-exch2#endif |
407 |
|
|
523 |
IF ( useCubedSphereExchange .AND. |
IF ( useCubedSphereExchange .AND. |
524 |
& ( overlapOnly .OR. ipass.EQ.1 ) ) THEN |
& ( overlapOnly .OR. ipass.EQ.1 ) ) THEN |
525 |
#endif |
#endif |
526 |
CALL FILL_CS_CORNER_TR_RL(.FALSE., localTij, bi,bj, myThid ) |
CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE., |
527 |
|
& localTij, bi,bj, myThid ) |
528 |
ENDIF |
ENDIF |
529 |
cph-exch2#endif |
cph-exch2#endif |
530 |
|
|
575 |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
576 |
C- Internal exchange for next calculations in X |
C- Internal exchange for next calculations in X |
577 |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
578 |
CALL FILL_CS_CORNER_TR_RL( .TRUE., localTij, bi,bj, myThid ) |
CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE., |
579 |
|
& localTij, bi,bj, myThid ) |
580 |
ENDIF |
ENDIF |
581 |
cph-exch2#endif |
cph-exch2#endif |
582 |
|
|