32 |
#include "PARAMS.h" |
#include "PARAMS.h" |
33 |
#include "GRID.h" |
#include "GRID.h" |
34 |
#include "SURFACE.h" |
#include "SURFACE.h" |
35 |
|
#include "MOM_FLUXFORM.h" |
36 |
|
|
37 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
38 |
C == Routine arguments == |
C == Routine arguments == |
55 |
C dWtransC :: vertical transp. difference between r & r* coordinates |
C dWtransC :: vertical transp. difference between r & r* coordinates |
56 |
C dWtransU :: same but above u.point location (West face) |
C dWtransU :: same but above u.point location (West face) |
57 |
C dWtransV :: same but above v.point location (South face) |
C dWtransV :: same but above v.point location (South face) |
58 |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
cph need this in a header for the adjoint |
59 |
& dWtransC, dWtransU, dWtransV |
cph COMMON /LOCAL_MOM_CALC_RTRANS/ |
60 |
_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
cph & dWtransC, dWtransU, dWtransV |
61 |
_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
cph _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
62 |
_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
cph _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
63 |
|
cph _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
64 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
65 |
C == Local variables == |
C == Local variables == |
66 |
C I, J :: Loop counters |
C I, J :: Loop counters |