362 |
#else |
#else |
363 |
IF ( overlapOnly ) THEN |
IF ( overlapOnly ) THEN |
364 |
#endif |
#endif |
365 |
CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 1, .FALSE., |
366 |
& localTij, bi,bj, myThid ) |
& localTij, bi,bj, myThid ) |
367 |
ENDIF |
ENDIF |
368 |
|
|
402 |
|
|
403 |
C- Internal exchange for next calculations in Y |
C- Internal exchange for next calculations in Y |
404 |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
405 |
CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 2, .FALSE., |
406 |
& localTij, bi,bj, myThid ) |
& localTij, bi,bj, myThid ) |
407 |
ENDIF |
ENDIF |
408 |
|
|
525 |
#else |
#else |
526 |
IF ( overlapOnly ) THEN |
IF ( overlapOnly ) THEN |
527 |
#endif |
#endif |
528 |
CALL FILL_CS_CORNER_TR_RL( .FALSE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 2, .FALSE., |
529 |
& localTij, bi,bj, myThid ) |
& localTij, bi,bj, myThid ) |
530 |
ENDIF |
ENDIF |
531 |
|
|
572 |
|
|
573 |
C- Internal exchange for next calculations in X |
C- Internal exchange for next calculations in X |
574 |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
IF ( overlapOnly .AND. ipass.EQ.1 ) THEN |
575 |
CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 1, .FALSE., |
576 |
& localTij, bi,bj, myThid ) |
& localTij, bi,bj, myThid ) |
577 |
ENDIF |
ENDIF |
578 |
|
|