/[MITgcm]/MITgcm/pkg/obcs/orlanski_init.F
ViewVC logotype

Contents of /MITgcm/pkg/obcs/orlanski_init.F

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


Revision 1.2 - (show annotations) (download)
Fri Feb 2 21:36:30 2001 UTC (23 years, 4 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint57m_post, checkpoint52l_pre, checkpoint44e_post, hrcube4, hrcube5, checkpoint46l_post, checkpoint57g_pre, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint46f_post, checkpoint52d_pre, checkpoint57g_post, checkpoint48e_post, checkpoint56b_post, checkpoint50c_pre, checkpoint57y_post, checkpoint44f_post, checkpoint46b_post, checkpoint52j_pre, checkpoint43a-release1mods, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, release1_p13, checkpoint40pre3, checkpoint40pre1, checkpoint51l_post, checkpoint40pre7, checkpoint40pre6, checkpoint48i_post, checkpoint57r_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, chkpt44d_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint51, checkpoint50, checkpoint53, checkpoint52, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint58f_post, checkpoint52f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint57z_post, checkpoint54f_post, checkpoint51f_post, release1_b1, checkpoint58y_post, checkpoint48b_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint58t_post, checkpoint38, checkpoint51n_post, release1_chkpt44d_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint57t_post, checkpoint55c_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, checkpoint53d_post, checkpoint46d_pre, checkpoint40pre2, checkpoint60, checkpoint61, checkpoint57a_post, checkpoint48d_post, release1-branch_tutorials, checkpoint57h_pre, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint46j_pre, checkpoint58w_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint57y_pre, chkpt44a_post, checkpoint55g_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, checkpoint40pre4, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, chkpt44c_pre, checkpoint58o_post, checkpoint48a_post, checkpoint45a_post, checkpoint57c_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint58p_post, checkpoint58q_post, checkpoint52f_pre, checkpoint55d_post, release1_p12, checkpoint58e_post, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47j_post, pre38tag1, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint54a_post, checkpoint46e_pre, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, checkpoint51i_post, checkpoint57e_post, release1-branch-end, c37_adj, release1_final_v1, checkpoint55b_post, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint53a_post, checkpoint46, checkpoint47b_post, checkpoint44b_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint46h_pre, checkpoint52d_post, checkpoint53g_post, checkpoint46m_post, checkpoint57p_post, checkpint57u_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, checkpoint57q_post, checkpoint44h_post, pre38-close, eckpoint57e_pre, checkpoint46g_post, release1_p12_pre, checkpoint58k_post, checkpoint39, checkpoint52a_pre, checkpoint37, checkpoint36, checkpoint35, checkpoint58v_post, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint40pre5, checkpoint57h_done, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, checkpoint57j_post, checkpoint57f_pre, checkpoint61f, checkpoint46c_post, checkpoint58g_post, branch-netcdf, checkpoint50d_pre, checkpoint58x_post, checkpoint61n, checkpoint52n_post, checkpoint53b_pre, checkpoint46e_post, checkpoint59j, release1_beta1, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint51e_post, checkpoint44b_pre, checkpoint42, checkpoint57a_pre, checkpoint40, checkpoint41, checkpoint55a_post, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint57o_post, checkpoint46h_post, checkpoint51o_post, checkpoint61q, checkpoint57k_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint53b_post, checkpoint47h_post, checkpoint52a_post, checkpoint57w_post, checkpoint61e, checkpoint44f_pre, checkpoint58i_post, checkpoint51g_post, ecco_c52_e35, checkpoint57x_post, checkpoint46d_post, checkpoint50b_post, checkpoint58c_post, checkpoint58u_post, release1-branch_branchpoint, checkpoint51m_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint61g, checkpoint61d, checkpoint54c_post, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint51a_post, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-exfmods-curt, release1_final, release1-branch, branch-genmake2, release1, branch-nonh, tg2-branch, ecco-branch, release1_50yr, netcdf-sm0, checkpoint51n_branch, pre38, release1_coupled
Changes since 1.1: +145 -0 lines
Merged changes from branch "branch-atmos-merge" into MAIN (checkpoint34)
 - substantial modifications to algorithm sequence (dynamics.F)
 - packaged OBCS, Shapiro filter, Zonal filter, Atmospheric Physics

1 C $Header: /u/gcmpack/models/MITgcmUV/pkg/obcs/Attic/orlanski_init.F,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $
2 C $Name: branch-atmos-merge-freeze $
3
4 #include "OBCS_OPTIONS.h"
5
6 SUBROUTINE ORLANSKI_INIT(bi, bj, myThid )
7 C /==========================================================\
8 C | SUBROUTINE ORLANSKI_INIT |
9 C | o Initialise storage and phase speed arrays |
10 C | for Orlanski radiation condition |
11 C |==========================================================|
12 C | |
13 C \==========================================================/
14 IMPLICIT NONE
15
16 C === Global variables ===
17 #include "SIZE.h"
18 #include "EEPARAMS.h"
19 #include "PARAMS.h"
20 #ifdef ALLOW_ORLANSKI
21 #include "ORLANSKI.h"
22 #endif /* ALLOW_ORLANSKI */
23
24 C == Routine arguments ==
25 INTEGER bi, bj, myThid
26
27 #ifdef ALLOW_ORLANSKI
28
29 C == Local variables ==
30 INTEGER I, J, K
31
32 DO K=1,Nr
33 DO I=1-Olx,sNx+Olx
34 UN_STORE_1(I,K,bi,bj)=0.
35 VN_STORE_1(I,K,bi,bj)=0.
36 TN_STORE_1(I,K,bi,bj)=0.
37 SN_STORE_1(I,K,bi,bj)=0.
38 UN_STORE_2(I,K,bi,bj)=0.
39 VN_STORE_2(I,K,bi,bj)=0.
40 TN_STORE_2(I,K,bi,bj)=0.
41 SN_STORE_2(I,K,bi,bj)=0.
42 UN_STORE_3(I,K,bi,bj)=0.
43 VN_STORE_3(I,K,bi,bj)=0.
44 TN_STORE_3(I,K,bi,bj)=0.
45 SN_STORE_3(I,K,bi,bj)=0.
46 UN_STORE_4(I,K,bi,bj)=0.
47 VN_STORE_4(I,K,bi,bj)=0.
48 TN_STORE_4(I,K,bi,bj)=0.
49 SN_STORE_4(I,K,bi,bj)=0.
50 US_STORE_1(I,K,bi,bj)=0.
51 VS_STORE_1(I,K,bi,bj)=0.
52 TS_STORE_1(I,K,bi,bj)=0.
53 SS_STORE_1(I,K,bi,bj)=0.
54 US_STORE_2(I,K,bi,bj)=0.
55 VS_STORE_2(I,K,bi,bj)=0.
56 TS_STORE_2(I,K,bi,bj)=0.
57 SS_STORE_2(I,K,bi,bj)=0.
58 US_STORE_3(I,K,bi,bj)=0.
59 VS_STORE_3(I,K,bi,bj)=0.
60 TS_STORE_3(I,K,bi,bj)=0.
61 SS_STORE_3(I,K,bi,bj)=0.
62 US_STORE_4(I,K,bi,bj)=0.
63 VS_STORE_4(I,K,bi,bj)=0.
64 TS_STORE_4(I,K,bi,bj)=0.
65 SS_STORE_4(I,K,bi,bj)=0.
66 CVEL_UN(I,K,bi,bj)=0.
67 CVEL_VN(I,K,bi,bj)=0.
68 CVEL_TN(I,K,bi,bj)=0.
69 CVEL_SN(I,K,bi,bj)=0.
70 CVEL_US(I,K,bi,bj)=0.
71 CVEL_VS(I,K,bi,bj)=0.
72 CVEL_TS(I,K,bi,bj)=0.
73 CVEL_SS(I,K,bi,bj)=0.
74 #ifdef ALLOW_NONHYDROSTATIC
75 WN_STORE_1(I,K,bi,bj)=0.
76 WN_STORE_2(I,K,bi,bj)=0.
77 WN_STORE_3(I,K,bi,bj)=0.
78 WN_STORE_4(I,K,bi,bj)=0.
79 WS_STORE_1(I,K,bi,bj)=0.
80 WS_STORE_2(I,K,bi,bj)=0.
81 WS_STORE_3(I,K,bi,bj)=0.
82 WS_STORE_4(I,K,bi,bj)=0.
83 CVEL_WN(I,K,bi,bj)=0.
84 CVEL_WS(I,K,bi,bj)=0.
85 #endif
86 ENDDO
87 DO J=1-Oly,sNy+Oly
88 UE_STORE_1(J,K,bi,bj)=0.
89 VE_STORE_1(J,K,bi,bj)=0.
90 TE_STORE_1(J,K,bi,bj)=0.
91 SE_STORE_1(J,K,bi,bj)=0.
92 UE_STORE_2(J,K,bi,bj)=0.
93 VE_STORE_2(J,K,bi,bj)=0.
94 TE_STORE_2(J,K,bi,bj)=0.
95 SE_STORE_2(J,K,bi,bj)=0.
96 UE_STORE_3(J,K,bi,bj)=0.
97 VE_STORE_3(J,K,bi,bj)=0.
98 TE_STORE_3(J,K,bi,bj)=0.
99 SE_STORE_3(J,K,bi,bj)=0.
100 UE_STORE_4(J,K,bi,bj)=0.
101 VE_STORE_4(J,K,bi,bj)=0.
102 TE_STORE_4(J,K,bi,bj)=0.
103 SE_STORE_4(J,K,bi,bj)=0.
104 UW_STORE_1(J,K,bi,bj)=0.
105 VW_STORE_1(J,K,bi,bj)=0.
106 TW_STORE_1(J,K,bi,bj)=0.
107 SW_STORE_1(J,K,bi,bj)=0.
108 UW_STORE_2(J,K,bi,bj)=0.
109 VW_STORE_2(J,K,bi,bj)=0.
110 TW_STORE_2(J,K,bi,bj)=0.
111 SW_STORE_2(J,K,bi,bj)=0.
112 UW_STORE_3(J,K,bi,bj)=0.
113 VW_STORE_3(J,K,bi,bj)=0.
114 TW_STORE_3(J,K,bi,bj)=0.
115 SW_STORE_3(J,K,bi,bj)=0.
116 UW_STORE_4(J,K,bi,bj)=0.
117 VW_STORE_4(J,K,bi,bj)=0.
118 TW_STORE_4(J,K,bi,bj)=0.
119 SW_STORE_4(J,K,bi,bj)=0.
120 CVEL_UE(J,K,bi,bj)=0.
121 CVEL_VE(J,K,bi,bj)=0.
122 CVEL_TE(J,K,bi,bj)=0.
123 CVEL_SE(J,K,bi,bj)=0.
124 CVEL_UW(J,K,bi,bj)=0.
125 CVEL_VW(J,K,bi,bj)=0.
126 CVEL_TW(J,K,bi,bj)=0.
127 CVEL_SW(J,K,bi,bj)=0.
128 #ifdef ALLOW_NONHYDROSTATIC
129 WE_STORE_1(J,K,bi,bj)=0.
130 WE_STORE_2(J,K,bi,bj)=0.
131 WE_STORE_3(J,K,bi,bj)=0.
132 WE_STORE_4(J,K,bi,bj)=0.
133 WW_STORE_1(J,K,bi,bj)=0.
134 WW_STORE_2(J,K,bi,bj)=0.
135 WW_STORE_3(J,K,bi,bj)=0.
136 WW_STORE_4(J,K,bi,bj)=0.
137 CVEL_WE(J,K,bi,bj)=0.
138 CVEL_WW(J,K,bi,bj)=0.
139 #endif
140 ENDDO
141 ENDDO
142
143 #endif /* ALLOW_ORLANSKI */
144 RETURN
145 END

  ViewVC Help
Powered by ViewVC 1.1.22