C $Header: /u/gcmpack/MITgcm/pkg/mom_fluxform/MOM_FLUXFORM.h,v 1.4 2014/04/04 19:55:51 jmc Exp $ C $Name: $ #ifdef NONLIN_FRSURF # ifndef DISABLE_RSTAR_CODE CBOP C !ROUTINE: MOM_FLUXFORM.h C !INTERFACE: C #include MOM_FLUXFORM.h C !DESCRIPTION: C Header file for pkg mom_fluxform subroutines CEOP C-- COMMON /LOCAL_MOM_CALC_RTRANS/ C was part of mom_calc_rtrans.F, and moved later C to a separated header file for the adjoint. C == Local variables in common block == C dWtransC :: vertical transp. difference between r & r* coordinates C dWtransU :: same but above u.point location (West face) C dWtransV :: same but above v.point location (South face) # ifndef ALLOW_OPENAD COMMON /LOCAL_MOM_CALC_RTRANS/ & dWtransC, dWtransU, dWtransV # endif _RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) # endif #endif /* NONLIN_FRSURF */