63 |
|
|
64 |
#ifdef USE_OLD_SHAPIRO_FILTERS |
#ifdef USE_OLD_SHAPIRO_FILTERS |
65 |
|
|
66 |
IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid ) |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
67 |
IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid ) |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
68 |
|
|
69 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
70 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
77 |
ENDDO |
ENDDO |
78 |
ENDDO |
ENDDO |
79 |
|
|
80 |
IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid ) |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
81 |
IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid ) |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
82 |
|
|
83 |
#else |
#else |
84 |
|
|