58 |
C- Internal exchange for calculations in X |
C- Internal exchange for calculations in X |
59 |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
60 |
IF ( useCubedSphereExchange ) THEN |
IF ( useCubedSphereExchange ) THEN |
61 |
CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 1, .FALSE., |
62 |
& rhoLoc, bi,bj, myThid ) |
& rhoLoc, bi,bj, myThid ) |
63 |
ENDIF |
ENDIF |
64 |
cph-exch2#endif |
cph-exch2#endif |
73 |
C- Internal exchange for calculations in Y |
C- Internal exchange for calculations in Y |
74 |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
cph-exch2#ifndef ALLOW_AUTODIFF_TAMC |
75 |
IF ( useCubedSphereExchange ) THEN |
IF ( useCubedSphereExchange ) THEN |
76 |
CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE., |
CALL FILL_CS_CORNER_TR_RL( 2, .FALSE., |
77 |
& rhoLoc, bi,bj, myThid ) |
& rhoLoc, bi,bj, myThid ) |
78 |
ENDIF |
ENDIF |
79 |
cph-exch2#endif |
cph-exch2#endif |