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

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

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

Revision 1.5 - (hide 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 jmc 1.5 C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/obcs/Attic/OBCS.h,v 1.5 2002/01/30 04:22:31 jmc Exp $
2 heimbach 1.3 C $Name: $
3 adcroft 1.2
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 adcroft 1.4 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 adcroft 1.2 C while
22     C OB_Jsouth(3)=1 means that:
23 adcroft 1.4 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 adcroft 1.2 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 heimbach 1.3
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 adcroft 1.2
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 jmc 1.5
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 adcroft 1.2
115     #endif /* ALLOW_OBCS */
  ViewVC Help
Powered by ViewVC 1.1.22