1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef NONLIN_FRSURF |
5 |
# ifndef DISABLE_RSTAR_CODE |
6 |
|
7 |
CBOP |
8 |
C !ROUTINE: MOM_FLUXFORM.h |
9 |
C !INTERFACE: |
10 |
C #include MOM_FLUXFORM.h |
11 |
C !DESCRIPTION: |
12 |
C Header file for pkg mom_fluxform subroutines |
13 |
CEOP |
14 |
|
15 |
C-- COMMON /LOCAL_MOM_CALC_RTRANS/ |
16 |
C was part of mom_calc_rtrans.F, and moved later |
17 |
C to a separated header file for the adjoint. |
18 |
C == Local variables in common block == |
19 |
C dWtransC :: vertical transp. difference between r & r* coordinates |
20 |
C dWtransU :: same but above u.point location (West face) |
21 |
C dWtransV :: same but above v.point location (South face) |
22 |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
23 |
& dWtransC, dWtransU, dWtransV |
24 |
_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
25 |
_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
26 |
_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
27 |
# endif |
28 |
#endif /* NONLIN_FRSURF */ |
29 |
|