/[MITgcm]/MITgcm/pkg/obcs/OBCS.h
ViewVC logotype

Contents of /MITgcm/pkg/obcs/OBCS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.5 - (show annotations) (download)
Wed Jan 30 04:22:31 2002 UTC (22 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint52l_pre, checkpoint44e_post, hrcube4, hrcube5, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint50c_post, checkpoint46f_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50g_post, checkpoint46b_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint44g_post, checkpoint54d_post, checkpoint48c_post, checkpoint54e_post, checkpoint51l_post, checkpoint48i_post, checkpoint46l_pre, checkpoint50d_pre, checkpoint52k_post, chkpt44d_post, checkpoint55, checkpoint54, checkpoint51, checkpoint53, checkpoint52, checkpoint50d_post, checkpoint52f_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint54f_post, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint51t_post, checkpoint51n_post, checkpoint52i_pre, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, checkpoint53d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint46j_pre, checkpoint51l_pre, checkpoint52m_post, checkpoint47d_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, checkpoint46b_pre, chkpt44c_pre, checkpoint52h_pre, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, hrcube_1, checkpoint51m_post, checkpoint47a_post, checkpoint53c_post, branchpoint-genmake2, checkpoint54a_post, checkpoint46e_pre, checkpoint51r_post, checkpoint45b_post, checkpoint51i_post, release1_final_v1, checkpoint51b_post, checkpoint46c_pre, checkpoint53a_post, checkpoint44f_post, checkpoint47b_post, checkpoint44b_post, checkpoint46h_pre, checkpoint52d_post, checkpoint53g_post, checkpoint46m_post, checkpoint46a_pre, checkpoint50c_pre, checkpoint45c_post, checkpoint44h_post, checkpoint46g_post, checkpoint51c_post, checkpoint52a_pre, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint48a_post, checkpoint53f_post, checkpoint47j_post, checkpoint54a_pre, checkpoint53b_pre, branch-exfmods-tag, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, checkpoint46c_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint46e_post, checkpoint51e_post, checkpoint44b_pre, checkpoint46, checkpoint47, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51o_post, checkpoint50, checkpoint51f_pre, chkpt44c_post, checkpoint53b_post, checkpoint47h_post, checkpoint52a_post, checkpoint44f_pre, checkpoint51g_post, ecco_c52_e35, checkpoint46d_post, checkpoint50b_post, checkpoint52f_pre, checkpoint53d_pre, checkpoint54c_post, checkpoint51a_post, checkpoint51p_post, checkpoint48g_post, checkpoint51u_post
Branch point for: branch-exfmods-curt, release1_final, branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.4: +15 -1 lines
File MIME type: text/plain 
NonLin_FreeSurf implemented with OBC (but not yet radiative OBC).
1 C $Header: /u/gcmpack/models/MITgcmUV/pkg/obcs/OBCS.h,v 1.4 2002/01/28 15:26:21 adcroft Exp $
2 C $Name: $
3
4 #ifdef ALLOW_OBCS
5
6 C-- Private logical flag to record active status of package
7 LOGICAL OBCSisON
8 COMMON /OBCS_PACKAGE/ OBCSisON
9
10 C These are input arrays (of integers) that contain the *absolute*
11 C computational index of an open-boundary (OB) point.
12 C A zero (0) element means there is no corresponding OB in that column/row.
13 C The computational coordinate refers to "tracer" cells.
14 C For a northern/southern OB, the OB V point is to the south/north.
15 C For an eastern/western OB, the OB U point is to the west/east.
16 C eg.
17 C OB_Jnorth(3)=34 means that:
18 C T(3,34) is a an OB point
19 C U(3,34) is a an OB point
20 C V(3,34) is a an OB point
21 C while
22 C OB_Jsouth(3)=1 means that:
23 C T(3,1) is a an OB point
24 C U(3,1) is a an OB point
25 C V(3,2) is a an OB point
26 C
27 C For convenience, negative values for Jnorth/Ieast refer to
28 C points relative to the Northern/Eastern edges of the model
29 C eg. OB_Jnorth(3)=-1 means that the point (3,Ny) is a northern O-B.
30 C
31 COMMON /PARM_OB/
32 & OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,
33 & useOrlanskiNorth,useOrlanskiSouth,
34 & useOrlanskiEast,useOrlanskiWest
35 INTEGER OB_Jnorth(Nx)
36 INTEGER OB_Jsouth(Nx)
37 INTEGER OB_Ieast(Ny)
38 INTEGER OB_Iwest(Ny)
39 LOGICAL useOrlanskiNorth
40 LOGICAL useOrlanskiSouth
41 LOGICAL useOrlanskiEast
42 LOGICAL useOrlanskiWest
43
44 C-- COMMON /GRID_OB/ Open boudary related stuff
45 C OBNu is the U value imposed at the Northern OB
46 C OBNv is the V value imposed at the Northern OB
47 C OBNt is the T value imposed at the Northern OB
48 C OBNu is the S value imposed at the Northern OB
49 C etc
50 C
51 COMMON /GRID_OB/
52 & OBNu,OBNv,OBNt,OBNs,
53 & OBSu,OBSv,OBSt,OBSs,
54 & OBEu,OBEv,OBEt,OBEs,
55 & OBWu,OBWv,OBWt,OBWs,
56 & OB_Jn,OB_Js,OB_Ie,OB_Iw
57 _RS OBNu (1-Olx:sNx+Olx,Nr,nSx,nSy)
58 _RS OBNv (1-Olx:sNx+Olx,Nr,nSx,nSy)
59 _RS OBNt (1-Olx:sNx+Olx,Nr,nSx,nSy)
60 _RS OBNs (1-Olx:sNx+Olx,Nr,nSx,nSy)
61 _RS OBSu (1-Olx:sNx+Olx,Nr,nSx,nSy)
62 _RS OBSv (1-Olx:sNx+Olx,Nr,nSx,nSy)
63 _RS OBSt (1-Olx:sNx+Olx,Nr,nSx,nSy)
64 _RS OBSs (1-Olx:sNx+Olx,Nr,nSx,nSy)
65 _RS OBEu (1-Oly:sNy+Oly,Nr,nSx,nSy)
66 _RS OBEv (1-Oly:sNy+Oly,Nr,nSx,nSy)
67 _RS OBEt (1-Oly:sNy+Oly,Nr,nSx,nSy)
68 _RS OBEs (1-Oly:sNy+Oly,Nr,nSx,nSy)
69 _RS OBWu (1-Oly:sNy+Oly,Nr,nSx,nSy)
70 _RS OBWv (1-Oly:sNy+Oly,Nr,nSx,nSy)
71 _RS OBWt (1-Oly:sNy+Oly,Nr,nSx,nSy)
72 _RS OBWs (1-Oly:sNy+Oly,Nr,nSx,nSy)
73 INTEGER OB_Jn(1-Olx:sNx+Olx,nSx,nSy)
74 INTEGER OB_Js(1-Olx:sNx+Olx,nSx,nSy)
75 INTEGER OB_Ie(1-Oly:sNy+Oly,nSx,nSy)
76 INTEGER OB_Iw(1-Oly:sNy+Oly,nSx,nSy)
77
78 COMMON /OB_FILES/
79 & OBNuFile,OBNvFile,OBNtFile,OBNsFile,
80 & OBSuFile,OBSvFile,OBStFile,OBSsFile,
81 & OBEuFile,OBEvFile,OBEtFile,OBEsFile,
82 & OBWuFile,OBWvFile,OBWtFile,OBWsFile
83 CHARACTER*(MAX_LEN_FNAM)
84 & OBNuFile,OBNvFile,OBNtFile,OBNsFile
85 CHARACTER*(MAX_LEN_FNAM)
86 & OBSuFile,OBSvFile,OBStFile,OBSsFile
87 CHARACTER*(MAX_LEN_FNAM)
88 & OBEuFile,OBEvFile,OBEtFile,OBEsFile
89 CHARACTER*(MAX_LEN_FNAM)
90 & OBWuFile,OBWvFile,OBWtFile,OBWsFile
91
92 #ifdef ALLOW_NONHYDROSTATIC
93 COMMON /GRID_OBNH/
94 & OBNw,OBSw,OBEw,OBWw
95 _RS OBNw (1-Olx:sNx+Olx,Nr,nSx,nSy)
96 _RS OBSw (1-Olx:sNx+Olx,Nr,nSx,nSy)
97 _RS OBEw (1-Oly:sNy+Oly,Nr,nSx,nSy)
98 _RS OBWw (1-Oly:sNy+Oly,Nr,nSx,nSy)
99 #endif /* ALLOW_NONHYDROSTATIC */
100
101 #ifdef NONLIN_FRSURF
102 COMMON /GRID_OB_NLFS/
103 & OBNhfac0,OBShfac0,OBEhfac0,OBWhfac0,
104 & OBNeta, OBSeta, OBEeta, OBWeta
105 _RS OBNhfac0(1-Olx:sNx+Olx,nSx,nSy)
106 _RS OBShfac0(1-Olx:sNx+Olx,nSx,nSy)
107 _RS OBEhfac0(1-Oly:sNy+Oly,nSx,nSy)
108 _RS OBWhfac0(1-Oly:sNy+Oly,nSx,nSy)
109 _RS OBNeta (1-Olx:sNx+Olx,nSx,nSy)
110 _RS OBSeta (1-Olx:sNx+Olx,nSx,nSy)
111 _RS OBEeta (1-Oly:sNy+Oly,nSx,nSy)
112 _RS OBWeta (1-Oly:sNy+Oly,nSx,nSy)
113 #endif /* NONLIN_FRSURF */
114
115 #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22