37 |
_RS uf(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RS uf(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
38 |
_RS vf(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RS vf(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
39 |
|
|
|
#ifndef DIVG_IN_DYNAMICS |
|
40 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
41 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
42 |
DO K=Nr,1,-1 |
DO K=Nr,1,-1 |
55 |
ENDDO |
ENDDO |
56 |
ENDDO |
ENDDO |
57 |
ENDDO |
ENDDO |
|
#endif |
|
58 |
|
|
59 |
#ifdef INCLUDE_CD_CODE |
#ifdef INCLUDE_CD_CODE |
60 |
C-- Save previous solution. |
C-- Save previous solution. |