C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/PRM/multi_comp_setup/cg/code/ORIENTATION.h,v 1.1 2007/11/06 00:22:44 jmc Exp $ 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)