C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_fluxform/MOM_FLUXFORM.h,v 1.2 2006/12/03 04:58:32 jmc Exp $ C $Name: checkpoint62g $ #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) COMMON /LOCAL_MOM_CALC_RTRANS/ & dWtransC, dWtransU, dWtransV _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 */