cg/code/PARENT_OVERRIDE.h

C $Header: /u/gcmpack/MITgcm_contrib/PRM/multi_comp_setup/cg/code/PARENT_OVERRIDE.h,v 1.2 2006/10/12 22:46:45 cnh Exp $
C $Name:  $
CBOP
C     !ROUTINE: PARENT_OVERRIDE
C     !INTERFACE:
C     include "PARENT_OVERRIDE.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | PARENT_OVERRIDE.h
C     | o Extra forcing fields                                    
C     *==========================================================*
C     \ev
CEOP
C
      COMMON /PO_FIELDS_R/
     &                 po_gu,
     &                 po_gv,
     &                 po_gtheta
      _RS  po_gu    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
      _RS  po_gv    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
      _RS  po_gtheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)

      COMMON /PO_FIELDS_L/
     &                 usePO_Tendency_Apply_U,
     &                 usePO_Tendency_Apply_V,
     &                 usePO_Tendency_Apply_Theta
      LOGICAL          usePO_Tendency_Apply_U
      LOGICAL          usePO_Tendency_Apply_V
      LOGICAL          usePO_Tendency_Apply_Theta
1	C $Header: /u/gcmpack/MITgcm_contrib/PRM/multi_comp_setup/cg/code/PARENT_OVERRIDE.h,v 1.2 2006/10/12 22:46:45 cnh Exp $
2	C $Name: $
3	CBOP
4	C !ROUTINE: PARENT_OVERRIDE
5	C !INTERFACE:
6	C include "PARENT_OVERRIDE.h"
7	C !DESCRIPTION:
8	C \bv
9	C ==========================================================
10	C \| PARENT_OVERRIDE.h
11	C \| o Extra forcing fields
12	C ==========================================================
13	C \ev
14	CEOP
15	C
16	COMMON /PO_FIELDS_R/
17	& po_gu,
18	& po_gv,
19	& po_gtheta
20	_RS po_gu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
21	_RS po_gv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
22	_RS po_gtheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
23
24	COMMON /PO_FIELDS_L/
25	& usePO_Tendency_Apply_U,
26	& usePO_Tendency_Apply_V,
27	& usePO_Tendency_Apply_Theta
28	LOGICAL usePO_Tendency_Apply_U
29	LOGICAL usePO_Tendency_Apply_V
30	LOGICAL usePO_Tendency_Apply_Theta