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

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

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

Revision 1.4 - (show annotations) (download)
Fri Apr 4 19:55:51 2014 UTC (10 years ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64w, checkpoint64v, checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.3: +2 -2 lines
File MIME type: text/plain 
- Replace ALLOW_AUTODIFF_OPENAD by ALLOW_OPENAD:
  because ALLOW_OPENAD is defined in PACKAGES_CONFIG.h (any time pkg/openad
  is compiled), this simplifies/reduces which *_OPTIONS.h file to include.
1 C $Header: /u/gcmpack/MITgcm/pkg/mom_fluxform/MOM_FLUXFORM.h,v 1.3 2013/03/21 18:15:44 jahn Exp $
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 # ifndef ALLOW_OPENAD
23 COMMON /LOCAL_MOM_CALC_RTRANS/
24 & dWtransC, dWtransU, dWtransV
25 # endif
26 _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27 _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28 _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29 # endif
30 #endif /* NONLIN_FRSURF */
31
  ViewVC Help
Powered by ViewVC 1.1.22