44 |
C rTransKp1 :: vertical volume transport at interface k+1 |
C rTransKp1 :: vertical volume transport at interface k+1 |
45 |
C maskUp :: mask for vertical transport |
C maskUp :: mask for vertical transport |
46 |
C rFlx :: vertical flux |
C rFlx :: vertical flux |
47 |
C KappaRtr :: vertical diffusion of passive tracers |
C KappaRtr :: vertical diffusion of passive tracers, interf k |
48 |
C NOTE! This is infact KappaRS from thermodynamics() |
C NOTE! This is infact KappaRS from thermodynamics() |
49 |
C and is being used only temporarily |
C and is being used only temporarily |
50 |
C until we removed the need to store |
C until we removed the need to store |
61 |
_RL rTransKp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL rTransKp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
62 |
_RS maskUp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RS maskUp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
63 |
_RL rFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2,PTRACERS_num) |
_RL rFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2,PTRACERS_num) |
64 |
_RL KappaRtr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRtr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
65 |
INTEGER myIter |
INTEGER myIter |
66 |
_RL myTime |
_RL myTime |
67 |
INTEGER myThid |
INTEGER myThid |