cg/code/ORIENTATION.h

C $Header:  $
C $Name:  $
CBOP
C     !ROUTINE: ORIENTATION
C     !INTERFACE:
C     include "ORIENTATION.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | ORIENTATION.h
C     | o Hold Orientation of FG models relative to CG X-direction
C     *==========================================================*
C     \ev
CEOP
C
C     COMMON /ORIENTATION_R/ real fields
C     cAngleFG  :: cosinus of FG orientation relative to CG X-direction
C     sAngleFG  :: sinus   of FG orientation relative to CG X-direction
C     velDvRMS  :: (vertical) root mean square of CG baroclinic velocity
C               :: component along the FG x-direction

      COMMON /ORIENTATION_R/
     &                 cAngleFG,
     &                 sAngleFG,
     &                 velDvRMS
      _RL  cAngleFG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  sAngleFG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  velDvRMS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)


1	jmc	1.1	C $Header: $
2			C $Name: $
3			CBOP
4			C !ROUTINE: ORIENTATION
5			C !INTERFACE:
6			C include "ORIENTATION.h"
7			C !DESCRIPTION:
8			C \bv
9			C ==========================================================
10			C \| ORIENTATION.h
11			C \| o Hold Orientation of FG models relative to CG X-direction
12			C ==========================================================
13			C \ev
14			CEOP
15			C
16			C COMMON /ORIENTATION_R/ real fields
17			C cAngleFG :: cosinus of FG orientation relative to CG X-direction
18			C sAngleFG :: sinus of FG orientation relative to CG X-direction
19			C velDvRMS :: (vertical) root mean square of CG baroclinic velocity
20			C :: component along the FG x-direction
21
22			COMMON /ORIENTATION_R/
23			& cAngleFG,
24			& sAngleFG,
25			& velDvRMS
26			_RL cAngleFG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27			_RL sAngleFG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28			_RL velDvRMS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29
30