pkg/mom_fluxform/MOM_FLUXFORM.h


#ifdef NONLIN_FRSURF
# ifndef DISABLE_RSTAR_CODE
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 */

1	heimbach	1.1
2			#ifdef NONLIN_FRSURF
3			# ifndef DISABLE_RSTAR_CODE
4			C == Local variables in common block ==
5			C dWtransC :: vertical transp. difference between r & r* coordinates
6			C dWtransU :: same but above u.point location (West face)
7			C dWtransV :: same but above v.point location (South face)
8			COMMON /LOCAL_MOM_CALC_RTRANS/
9			& dWtransC, dWtransU, dWtransV
10			_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
11			_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
12			_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
13			# endif
14			#endif /* NONLIN_FRSURF */
15