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
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