/[MITgcm]/MITgcm/pkg/mom_fluxform/MOM_FLUXFORM.h
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/MOM_FLUXFORM.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Wed May 3 23:35:11 2006 UTC revision 1.2 by jmc, Sun Dec 3 04:58:32 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
5  # ifndef DISABLE_RSTAR_CODE  # 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 ==  C     == Local variables in common block ==
19  C     dWtransC :: vertical transp. difference between r & r* coordinates  C     dWtransC :: vertical transp. difference between r & r* coordinates
20  C     dWtransU :: same but above u.point location (West  face)  C     dWtransU :: same but above u.point location (West  face)
21  C     dWtransV :: same but above v.point location (South face)  C     dWtransV :: same but above v.point location (South face)
22        COMMON /LOCAL_MOM_CALC_RTRANS/        COMMON /LOCAL_MOM_CALC_RTRANS/
23       &       dWtransC, dWtransU, dWtransV       &       dWtransC, dWtransU, dWtransV
24        _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)          _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)          _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)          _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27  # endif  # endif
28  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
29    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22