22 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
23 |
#include "PARAMS.h" |
#include "PARAMS.h" |
24 |
#include "FFIELDS.h" |
#include "FFIELDS.h" |
25 |
#ifdef EXACT_CONSERV |
#include "SURFACE.h" |
|
# include "SURFACE.h" |
|
|
#endif |
|
26 |
|
|
27 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
28 |
C == Routine arguments == |
C == Routine arguments == |
39 |
INTEGER I, J, K |
INTEGER I, J, K |
40 |
CEOP |
CEOP |
41 |
|
|
42 |
|
C-- Scalar fields |
43 |
|
TsurfCor=0. _d 0 |
44 |
|
SsurfCor=0. _d 0 |
45 |
|
|
46 |
C-- Over all tiles |
C-- Over all tiles |
47 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
48 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
DO bi = myBxLo(myThid), myBxHi(myThid) |