pkg/mom_fluxform/MOM_FLUXFORM.h

aa2d1573fa Patr*0001 #ifdef NONLIN_FRSURF
                0002 # ifndef DISABLE_RSTAR_CODE
6ba4c12b64 Jean*0003
                0004 CBOP
                0005 C     !ROUTINE: MOM_FLUXFORM.h
                0006 C     !INTERFACE:
                0007 C     #include MOM_FLUXFORM.h
                0008 C     !DESCRIPTION:
                0009 C     Header file for pkg mom_fluxform subroutines
                0010 CEOP
                0011
                0012 C--   COMMON /LOCAL_MOM_CALC_RTRANS/
                0013 C       was part of mom_calc_rtrans.F, and moved later
                0014 C       to a separated header file for the adjoint.
aa2d1573fa Patr*0015 C     == Local variables in common block ==
                0016 C     dWtransC :: vertical transp. difference between r & r* coordinates
                0017 C     dWtransU :: same but above u.point location (West  face)
                0018 C     dWtransV :: same but above v.point location (South face)
6b4eec3842 Jean*0019 #  ifndef ALLOW_OPENAD
6ba4c12b64 Jean*0020       COMMON /LOCAL_MOM_CALC_RTRANS/
aa2d1573fa Patr*0021      &       dWtransC, dWtransU, dWtransV
1179645ad5 Oliv*0022 #  endif
6ba4c12b64 Jean*0023       _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025       _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
aa2d1573fa Patr*0026 # endif
                0027 #endif /* NONLIN_FRSURF */
                0028