73 |
CALL EXCH2_RX2_CUBE( Uphi, Vphi, withSigns, 'Cg', |
CALL EXCH2_RX2_CUBE( Uphi, Vphi, withSigns, 'Cg', |
74 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
75 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
76 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_UPDATE_CORNERS, myThid ) |
77 |
CALL EXCH2_RX2_CUBE( Uphi, Vphi, withSigns, 'Cg', |
CALL EXCH2_RX2_CUBE( Uphi, Vphi, withSigns, 'Cg', |
78 |
I OLw, OLe, OLs, OLn, myNz, |
I OLw, OLe, OLs, OLn, myNz, |
79 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
80 |
I FORWARD_SIMULATION, EXCH_UPDATE_CORNERS, myThid ) |
I EXCH_UPDATE_CORNERS, myThid ) |
81 |
|
|
82 |
IF (useCubedSphereExchange) THEN |
IF (useCubedSphereExchange) THEN |
83 |
C--- using CubedSphereExchange: |
C--- using CubedSphereExchange: |