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