74 |
_EXCH_XY_RL ( smooth2D_Kux , myThid ) |
_EXCH_XY_RL ( smooth2D_Kux , myThid ) |
75 |
_EXCH_XY_RL ( smooth2D_Kvy , myThid ) |
_EXCH_XY_RL ( smooth2D_Kvy , myThid ) |
76 |
|
|
77 |
WRITE(standardMessageUnit,'(A,2I4,/,2f5.2)') |
WRITE(standardMessageUnit,'(A,I4,2f12.0)') |
78 |
& 'smooth 2D default parameters: ', |
& 'smooth 2D default parameters: ', |
79 |
& smooth2Dnbt(smoothOpNb),smooth2DtotTime, |
& smooth2Dnbt(smoothOpNb), |
80 |
& smooth2D_Lx0(smoothOpNb),smooth2D_Ly0(smoothOpNb) |
& smooth2D_Lx0(smoothOpNb),smooth2D_Ly0(smoothOpNb) |
81 |
|
|
82 |
c write diffusion operator to file |
c write diffusion operator to file |