| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
100 |
ECCO_COST_INIT_VARIA |
objf_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
101 |
ECCO_COST_INIT_VARIA |
objf_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
102 |
ECCO_COST_INIT_VARIA |
objf_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
103 |
ECCO_COST_INIT_VARIA |
objf_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
104 |
ECCO_COST_INIT_VARIA |
objf_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
105 |
ECCO_COST_INIT_VARIA |
objf_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
106 |
ECCO_COST_INIT_VARIA |
objf_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
107 |
ECCO_COST_INIT_VARIA |
objf_temp0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
108 |
ECCO_COST_INIT_VARIA |
objf_salt0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
109 |
ECCO_COST_INIT_VARIA |
objf_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
110 |
ECCO_COST_INIT_VARIA |
objf_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
111 |
ECCO_COST_INIT_VARIA |
objf_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
112 |
ECCO_COST_INIT_VARIA |
objf_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
113 |
ECCO_COST_INIT_VARIA |
objf_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
114 |
ECCO_COST_INIT_VARIA |
objf_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
115 |
ECCO_COST_INIT_VARIA |
objf_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
116 |
ECCO_COST_INIT_VARIA |
objf_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
117 |
ECCO_COST_INIT_VARIA |
objf_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
118 |
ECCO_COST_INIT_VARIA |
objf_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
119 |
ECCO_COST_INIT_VARIA |
objf_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
120 |
ECCO_COST_INIT_VARIA |
objf_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
121 |
ECCO_COST_INIT_VARIA |
objf_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
122 |
ECCO_COST_INIT_VARIA |
objf_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
123 |
ECCO_COST_INIT_VARIA |
objf_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
124 |
ECCO_COST_INIT_VARIA |
objf_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
125 |
ECCO_COST_INIT_VARIA |
objf_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
126 |
ECCO_COST_INIT_VARIA |
objf_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
127 |
ECCO_COST_INIT_VARIA |
objf_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
128 |
ECCO_COST_INIT_VARIA |
objf_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
129 |
ECCO_COST_INIT_VARIA |
objf_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
130 |
ECCO_COST_INIT_VARIA |
objf_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
131 |
ECCO_COST_INIT_VARIA |
objf_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
132 |
ECCO_COST_INIT_VARIA |
objf_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
133 |
ECCO_COST_INIT_VARIA |
objf_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
134 |
ECCO_COST_INIT_VARIA |
objf_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
135 |
ECCO_COST_INIT_VARIA |
objf_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
136 |
ECCO_COST_INIT_VARIA |
objf_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
137 |
ECCO_COST_INIT_VARIA |
objf_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
138 |
ECCO_COST_INIT_VARIA |
objf_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
139 |
ECCO_COST_INIT_VARIA |
objf_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
140 |
ECCO_COST_INIT_VARIA |
objf_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
142 |
ECCO_COST_INIT_VARIA |
objf_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
143 |
ECCO_COST_INIT_VARIA |
objf_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
147 |
ECCO_COST_INIT_VARIA |
objf_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
149 |
ECCO_COST_INIT_VARIA |
objf_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
150 |
ECCO_COST_INIT_VARIA |
objf_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
151 |
ECCO_COST_INIT_VARIA |
objf_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
152 |
ECCO_COST_INIT_VARIA |
objf_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
153 |
ECCO_COST_INIT_VARIA |
objf_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
154 |
ECCO_COST_INIT_VARIA |
objf_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
161 |
ECCO_COST_INIT_VARIA |
num_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
162 |
ECCO_COST_INIT_VARIA |
num_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
163 |
ECCO_COST_INIT_VARIA |
num_hfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
164 |
ECCO_COST_INIT_VARIA |
num_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
165 |
ECCO_COST_INIT_VARIA |
num_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
166 |
ECCO_COST_INIT_VARIA |
num_sfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
167 |
ECCO_COST_INIT_VARIA |
num_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
168 |
ECCO_COST_INIT_VARIA |
num_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
169 |
ECCO_COST_INIT_VARIA |
num_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
170 |
ECCO_COST_INIT_VARIA |
num_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
171 |
ECCO_COST_INIT_VARIA |
num_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
172 |
ECCO_COST_INIT_VARIA |
num_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
173 |
ECCO_COST_INIT_VARIA |
num_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
174 |
ECCO_COST_INIT_VARIA |
num_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
175 |
ECCO_COST_INIT_VARIA |
num_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
176 |
ECCO_COST_INIT_VARIA |
num_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
177 |
ECCO_COST_INIT_VARIA |
num_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
178 |
ECCO_COST_INIT_VARIA |
num_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
179 |
ECCO_COST_INIT_VARIA |
num_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
180 |
ECCO_COST_INIT_VARIA |
num_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
181 |
ECCO_COST_INIT_VARIA |
num_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
182 |
ECCO_COST_INIT_VARIA |
num_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
183 |
ECCO_COST_INIT_VARIA |
num_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
184 |
ECCO_COST_INIT_VARIA |
num_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
185 |
ECCO_COST_INIT_VARIA |
num_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
186 |
ECCO_COST_INIT_VARIA |
num_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
187 |
ECCO_COST_INIT_VARIA |
num_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
188 |
ECCO_COST_INIT_VARIA |
num_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
189 |
ECCO_COST_INIT_VARIA |
num_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
190 |
ECCO_COST_INIT_VARIA |
num_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
191 |
ECCO_COST_INIT_VARIA |
num_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
192 |
ECCO_COST_INIT_VARIA |
num_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
193 |
ECCO_COST_INIT_VARIA |
num_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
194 |
ECCO_COST_INIT_VARIA |
num_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
195 |
ECCO_COST_INIT_VARIA |
num_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
196 |
ECCO_COST_INIT_VARIA |
num_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
num_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
198 |
ECCO_COST_INIT_VARIA |
num_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
199 |
ECCO_COST_INIT_VARIA |
num_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
200 |
ECCO_COST_INIT_VARIA |
num_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
201 |
ECCO_COST_INIT_VARIA |
num_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
202 |
ECCO_COST_INIT_VARIA |
num_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
203 |
ECCO_COST_INIT_VARIA |
num_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
204 |
ECCO_COST_INIT_VARIA |
num_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
205 |
ECCO_COST_INIT_VARIA |
num_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
206 |
ECCO_COST_INIT_VARIA |
num_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
207 |
ECCO_COST_INIT_VARIA |
num_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
209 |
ECCO_COST_INIT_VARIA |
num_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
210 |
ECCO_COST_INIT_VARIA |
num_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
211 |
ECCO_COST_INIT_VARIA |
num_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
213 |
ECCO_COST_INIT_VARIA |
num_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
214 |
ECCO_COST_INIT_VARIA |
num_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
220 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
222 |
ECCO_COST_INIT_VARIA |
num_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
223 |
ECCO_COST_INIT_VARIA |
num_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
234 |
ECCO_COST_INIT_VARIA |
objf_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
235 |
ECCO_COST_INIT_VARIA |
objf_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
objf_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
237 |
ECCO_COST_INIT_VARIA |
objf_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
238 |
ECCO_COST_INIT_VARIA |
objf_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
239 |
ECCO_COST_INIT_VARIA |
num_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
240 |
ECCO_COST_INIT_VARIA |
num_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
241 |
ECCO_COST_INIT_VARIA |
num_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
242 |
ECCO_COST_INIT_VARIA |
num_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
243 |
ECCO_COST_INIT_VARIA |
num_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
cosphi(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
259 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
264 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
265 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
269 |
ECCO_COST_INIT_VARIA |
mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
272 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
273 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
275 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
277 |
ECCO_COST_INIT_VARIA |
tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
280 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
283 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
285 |
ECCO_COST_INIT_VARIA |
ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
288 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
289 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
291 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
293 |
ECCO_COST_INIT_VARIA |
gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
296 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
297 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
299 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
303 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
304 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
306 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
310 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
311 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
313 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
317 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
318 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
320 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
322 |
ECCO_COST_INIT_VARIA |
bpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
330 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
335 |
ECCO_COST_INIT_VARIA |
tbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
336 |
ECCO_COST_INIT_VARIA |
sbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
53 |
ECCO_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/ecco/ecco_cost_init_varia.F |
92 |
ECCO_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_varia.F |
95 |
ECCO_COST_INIT_VARIA |
objf_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
96 |
ECCO_COST_INIT_VARIA |
objf_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
97 |
ECCO_COST_INIT_VARIA |
objf_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
98 |
ECCO_COST_INIT_VARIA |
objf_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
99 |
ECCO_COST_INIT_VARIA |
objf_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1002 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1005 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1006 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
1007 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1028 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1033 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
1038 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1041 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1046 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1071 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1074 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1075 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
1076 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1098 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1103 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1104 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1107 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3. |
|
./pkg/ecco/ecco_cost_weights.F |
1108 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1110 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1113 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = whflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1133 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1138 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1142 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1143 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0) |
|
./pkg/ecco/ecco_cost_weights.F |
1166 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1171 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1175 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
|
./pkg/ecco/ecco_cost_weights.F |
1176 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1178 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1181 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = wsflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1201 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1206 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1207 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1210 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1211 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./pkg/ecco/ecco_cost_weights.F |
1233 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1238 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1239 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1242 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1243 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1265 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1270 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1271 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1274 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1275 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1297 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1302 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1303 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1306 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1307 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1329 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1334 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1335 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1338 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1339 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
135 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1361 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1366 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1367 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1370 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1371 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
137 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
138 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1393 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1398 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1399 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
wprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1402 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1403 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1404 |
ECCO_COST_WEIGHTS |
& max(wsnowprecip(i,j,bi,bj),wsnowprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wswflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wswdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1426 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsnowprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1431 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1432 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1435 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1436 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0) |
|
./pkg/ecco/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wlwflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wlwdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1458 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1463 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1464 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1467 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1468 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1469 |
ECCO_COST_WEIGHTS |
& max(wapressure(i,j,bi,bj),wapressure0) |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wrunoff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1491 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1496 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1497 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1500 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1501 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0) |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1515 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1520 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1521 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1537 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
153 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1543 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1544 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
154 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
155 |
ECCO_COST_WEIGHTS |
wetan (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1561 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1567 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1568 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
157 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1585 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1591 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1609 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1615 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1616 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1618 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1632 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1637 |
ECCO_COST_WEIGHTS |
if ( wetan(i,j,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1638 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1640 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1641 |
ECCO_COST_WEIGHTS |
$ ( wetan(i,j,bi,bj)*wetan(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1672 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1678 |
ECCO_COST_WEIGHTS |
if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1681 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1682 |
ECCO_COST_WEIGHTS |
$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
1684 |
ECCO_COST_WEIGHTS |
if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1687 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1688 |
ECCO_COST_WEIGHTS |
$ ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
168 |
ECCO_COST_WEIGHTS |
wbottomdrag (i,j,bi,bj) = wbottomdrag0 |
|
./pkg/ecco/ecco_cost_weights.F |
1706 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1710 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1711 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1713 |
ECCO_COST_WEIGHTS |
if (wers(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1714 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1716 |
ECCO_COST_WEIGHTS |
if (wgfo(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1717 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1719 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1720 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1722 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1723 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1725 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1727 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1728 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1729 |
ECCO_COST_WEIGHTS |
& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1731 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1733 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1734 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1735 |
ECCO_COST_WEIGHTS |
& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1739 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1740 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1742 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1744 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1745 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1746 |
ECCO_COST_WEIGHTS |
& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1748 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1750 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1751 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1752 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1754 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1756 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1757 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1758 |
ECCO_COST_WEIGHTS |
& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1760 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1762 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1763 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1764 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1766 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1768 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1769 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1770 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1774 |
ECCO_COST_WEIGHTS |
if (wsfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1775 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1776 |
ECCO_COST_WEIGHTS |
& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1778 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1780 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1781 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1782 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1786 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1787 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1788 |
ECCO_COST_WEIGHTS |
& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wuvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1792 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1793 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1794 |
ECCO_COST_WEIGHTS |
& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1798 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1799 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wvvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1800 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1804 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1805 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1806 |
ECCO_COST_WEIGHTS |
& 1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1808 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1810 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1811 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1812 |
ECCO_COST_WEIGHTS |
& 1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1816 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1817 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1818 |
ECCO_COST_WEIGHTS |
& 1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1820 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1822 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1823 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1824 |
ECCO_COST_WEIGHTS |
& 1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1826 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1828 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1829 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1830 |
ECCO_COST_WEIGHTS |
& 1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1834 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1835 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1836 |
ECCO_COST_WEIGHTS |
& 1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
183 |
ECCO_COST_WEIGHTS |
wkapgm (k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1840 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1841 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1842 |
ECCO_COST_WEIGHTS |
& 1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1844 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1846 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1847 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1848 |
ECCO_COST_WEIGHTS |
& 1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wkapredi (k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1852 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1853 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1854 |
ECCO_COST_WEIGHTS |
& 1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1858 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1859 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
185 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1860 |
ECCO_COST_WEIGHTS |
& 1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1872 |
ECCO_COST_WEIGHTS |
if (whflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1873 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1874 |
ECCO_COST_WEIGHTS |
& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1878 |
ECCO_COST_WEIGHTS |
if (wsflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1879 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1880 |
ECCO_COST_WEIGHTS |
& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1884 |
ECCO_COST_WEIGHTS |
if (wtauu2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1885 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1886 |
ECCO_COST_WEIGHTS |
& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1890 |
ECCO_COST_WEIGHTS |
if (wtauv2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1891 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1892 |
ECCO_COST_WEIGHTS |
& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1894 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
189 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
190 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
191 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
192 |
ECCO_COST_WEIGHTS |
wkapgm2 (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
193 |
ECCO_COST_WEIGHTS |
wkapredi2 (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1944 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
1947 |
ECCO_COST_WEIGHTS |
if (wdiffkr(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1948 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
194 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1952 |
ECCO_COST_WEIGHTS |
if (wkapgm(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1953 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1955 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1957 |
ECCO_COST_WEIGHTS |
if (wkapredi(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1958 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
195 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1960 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1962 |
ECCO_COST_WEIGHTS |
if (wedtaux(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1963 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1967 |
ECCO_COST_WEIGHTS |
if (wedtauy(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1968 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1970 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1974 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1975 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1976 |
ECCO_COST_WEIGHTS |
& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1978 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1980 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1982 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1983 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1984 |
ECCO_COST_WEIGHTS |
& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1986 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1988 |
ECCO_COST_WEIGHTS |
wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
198 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1990 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1991 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1992 |
ECCO_COST_WEIGHTS |
& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1994 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1996 |
ECCO_COST_WEIGHTS |
wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1998 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1999 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
199 |
ECCO_COST_WEIGHTS |
wkapgmFld (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
2000 |
ECCO_COST_WEIGHTS |
& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2002 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2004 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2006 |
ECCO_COST_WEIGHTS |
if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
2007 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
2008 |
ECCO_COST_WEIGHTS |
& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
200 |
ECCO_COST_WEIGHTS |
wkaprediFld (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
2010 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2012 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
201 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
202 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
206 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
266 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
317 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
329 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
330 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
333 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
337 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
338 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
383 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
389 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
390 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
393 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
401 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
407 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
426 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
432 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
435 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
436 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
444 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
472 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
478 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
479 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
482 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
483 |
ECCO_COST_WEIGHTS |
$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
491 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
496 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
497 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
519 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
538 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
543 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
546 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
if (wsst(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
582 |
ECCO_COST_WEIGHTS |
& ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
586 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
58 |
ECCO_COST_WEIGHTS |
integer bi,bj |
|
./pkg/ecco/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
600 |
ECCO_COST_WEIGHTS |
if (wsss(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
601 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
602 |
ECCO_COST_WEIGHTS |
& ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
607 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
609 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
611 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
612 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
642 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
646 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
649 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
650 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
652 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
661 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
665 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
681 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
688 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
689 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
690 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
691 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
693 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./pkg/ecco/ecco_cost_weights.F |
695 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./pkg/ecco/ecco_cost_weights.F |
697 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wers(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
725 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
729 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
731 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
735 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
741 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
742 |
ECCO_COST_WEIGHTS |
if ( wers(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
746 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
747 |
ECCO_COST_WEIGHTS |
if ( wgfo(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
748 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
762 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
763 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
765 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
766 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
767 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
768 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
787 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
791 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
798 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
809 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
813 |
ECCO_COST_WEIGHTS |
if (wsshv4tmp(i,j,bi,bj).ne.0) then |
|
./pkg/ecco/ecco_cost_weights.F |
814 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
815 |
ECCO_COST_WEIGHTS |
& ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
816 |
ECCO_COST_WEIGHTS |
wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
837 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
841 |
ECCO_COST_WEIGHTS |
if (wbp(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
842 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
843 |
ECCO_COST_WEIGHTS |
& ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
858 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
862 |
ECCO_COST_WEIGHTS |
if (wies(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
& wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
864 |
ECCO_COST_WEIGHTS |
& ( wies(i,j,bi,bj)* wies(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
887 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
893 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
896 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
897 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
898 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
900 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
901 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
903 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
904 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
905 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
924 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
933 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
936 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
939 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
958 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_weights.F |
964 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
967 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
969 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
972 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
975 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_phys.F |
100 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
128 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
132 |
ECCO_PHYS |
m_eta(i,j,bi,bj)= |
|
./pkg/ecco/ecco_phys.F |
133 |
ECCO_PHYS |
& etan(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
135 |
ECCO_PHYS |
& +sIceLoad(i,j,bi,bj)*sIceLoadFac |
|
./pkg/ecco/ecco_phys.F |
145 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
150 |
ECCO_PHYS |
m_UE(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
151 |
ECCO_PHYS |
m_VN(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
174 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
194 |
ECCO_PHYS |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
195 |
ECCO_PHYS |
& *dyG(i,j,bi,bj)*drF(k)*msktrVolW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
196 |
ECCO_PHYS |
& *maskInW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
198 |
ECCO_PHYS |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
199 |
ECCO_PHYS |
& *dxG(i,j,bi,bj)*drF(k)*msktrVolS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
200 |
ECCO_PHYS |
& *maskInS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
203 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
206 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
210 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
213 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
216 |
ECCO_PHYS |
trVol(i,j,k,bi,bj)=trVolW(i,j,k)+trVolS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
217 |
ECCO_PHYS |
trHeat(i,j,k,bi,bj)=trHeatW(i,j,k)+trHeatS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
218 |
ECCO_PHYS |
trSalt(i,j,k,bi,bj)=trSaltW(i,j,k)+trSaltS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
235 |
ECCO_PHYS |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
237 |
ECCO_PHYS |
areavolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
242 |
ECCO_PHYS |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
248 |
ECCO_PHYS |
tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
252 |
ECCO_PHYS |
tmpmsk=gencost_mskCsurf(i,j,bi,bj,kgen)* |
|
./pkg/ecco/ecco_phys.F |
257 |
ECCO_PHYS |
tmpmsk=gencost_mskC(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
264 |
ECCO_PHYS |
tmpfld=theta(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
268 |
ECCO_PHYS |
tmpfld=salt(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./pkg/ecco/ecco_phys.F |
278 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
279 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
281 |
ECCO_PHYS |
areavolTile(bi,bj)=areavolTile(bi,bj) |
|
./pkg/ecco/ecco_phys.F |
282 |
ECCO_PHYS |
& +tmpmsk2*eccoVol_0(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
286 |
ECCO_PHYS |
tmpmsk=maskC(i,j,1,bi,bj)*gencost_mskCsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
290 |
ECCO_PHYS |
tmpfld=m_eta(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
294 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
295 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
296 |
ECCO_PHYS |
& +tmpmsk*tmpfld*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
297 |
ECCO_PHYS |
areavolTile(bi,bj)=areavolTile(bi,bj) |
|
./pkg/ecco/ecco_phys.F |
298 |
ECCO_PHYS |
& +tmpmsk2*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
305 |
ECCO_PHYS |
tmpmskW=gencost_mskWsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
307 |
ECCO_PHYS |
tmpmskS=gencost_mskSsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
312 |
ECCO_PHYS |
tmpmskW=gencost_mskW(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
313 |
ECCO_PHYS |
tmpmskS=gencost_mskS(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
316 |
ECCO_PHYS |
tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
317 |
ECCO_PHYS |
tmpmskS=tmpmskS*hFacS(i,j,k,bi,bj)*dxG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
320 |
ECCO_PHYS |
gencost_storefld(i,j,bi,bj,kgen) = |
|
./pkg/ecco/ecco_phys.F |
321 |
ECCO_PHYS |
& gencost_storefld(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
322 |
ECCO_PHYS |
& +uVel(i,j,k,bi,bj)*tmpmskW |
|
./pkg/ecco/ecco_phys.F |
323 |
ECCO_PHYS |
& +vVel(i,j,k,bi,bj)*tmpmskS |
|
./pkg/ecco/ecco_phys.F |
40 |
ECCO_PHYS |
integer bi,bj |
|
./pkg/ecco/ecco_phys.F |
74 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
79 |
ECCO_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
80 |
ECCO_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
81 |
ECCO_PHYS |
O RHOInSituLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
82 |
ECCO_PHYS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/ecco_phys.F |
87 |
ECCO_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_phys.F |
89 |
ECCO_PHYS |
RHOsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
90 |
ECCO_PHYS |
VOLsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
96 |
ECCO_PHYS |
RHOsumTile(bi,bj)=RHOsumTile(bi,bj)+ |
|
./pkg/ecco/ecco_phys.F |
97 |
ECCO_PHYS |
& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))* |
|
./pkg/ecco/ecco_phys.F |
98 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
99 |
ECCO_PHYS |
VOLsumTile(bi,bj)=VOLsumTile(bi,bj)+ |
|
./pkg/ecco/ecco_toolbox.F |
1014 |
ECCO_MULT |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
1019 |
ECCO_MULT |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*multloc |
|
./pkg/ecco/ecco_toolbox.F |
1058 |
ECCO_MULTFIELD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
1076 |
ECCO_MULTFIELD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
1081 |
ECCO_MULTFIELD |
fld2(i,j,k,bi,bj) = fld(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
1082 |
ECCO_MULTFIELD |
& fld2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
1212 |
ECCO_READWEI |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
1233 |
ECCO_READWEI |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_toolbox.F |
1239 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
1243 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_toolbox.F |
1244 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_toolbox.F |
1245 |
ECCO_READWEI |
& 1./localweight(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
1246 |
ECCO_READWEI |
& localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
133 |
ECCO_DIFFMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
153 |
ECCO_DIFFMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
159 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
160 |
ECCO_DIFFMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
162 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
164 |
ECCO_DIFFMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
165 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
166 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
167 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
169 |
ECCO_DIFFMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
170 |
ECCO_DIFFMSK |
& (localbar(i,j,k,bi,bj)-localobs(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
229 |
ECCO_DIFFANOMMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
249 |
ECCO_DIFFANOMMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
255 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
256 |
ECCO_DIFFANOMMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
258 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
260 |
ECCO_DIFFANOMMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
261 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
262 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
263 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
265 |
ECCO_DIFFANOMMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
266 |
ECCO_DIFFANOMMSK |
& ( (localbar(i,j,k,bi,bj)-localbarmean(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
267 |
ECCO_DIFFANOMMSK |
& -(localobs(i,j,k,bi,bj)-localobsmean(i,j,k,bi,bj)) ) |
|
./pkg/ecco/ecco_toolbox.F |
322 |
ECCO_OBSMSK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
342 |
ECCO_OBSMSK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
348 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
349 |
ECCO_OBSMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
351 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
353 |
ECCO_OBSMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
354 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
355 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
356 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
358 |
ECCO_OBSMSK |
localout(i,j,k,bi,bj) = obsmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
359 |
ECCO_OBSMSK |
& localbar(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
407 |
ECCO_CP |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
427 |
ECCO_CP |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
432 |
ECCO_CP |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
480 |
ECCO_CPRSRL |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
500 |
ECCO_CPRSRL |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
505 |
ECCO_CPRSRL |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
52 |
ECCO_ZERO |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
560 |
ECCO_ADDCOST |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
585 |
ECCO_ADDCOST |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
591 |
ECCO_ADDCOST |
localwww = localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
592 |
ECCO_ADDCOST |
& * difmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
593 |
ECCO_ADDCOST |
junk = localdif(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
600 |
ECCO_ADDCOST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
604 |
ECCO_ADDCOST |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/ecco/ecco_toolbox.F |
649 |
ECCO_ADD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
669 |
ECCO_ADD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
674 |
ECCO_ADD |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
675 |
ECCO_ADD |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
723 |
ECCO_SUBTRACT |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
72 |
ECCO_ZERO |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
741 |
ECCO_SUBTRACT |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
746 |
ECCO_SUBTRACT |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
747 |
ECCO_SUBTRACT |
& - fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
77 |
ECCO_ZERO |
fld(i,j,k,bi,bj) = zeroloc |
|
./pkg/ecco/ecco_toolbox.F |
798 |
ECCO_ADDMASK |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
818 |
ECCO_ADDMASK |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
823 |
ECCO_ADDMASK |
if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
824 |
ECCO_ADDMASK |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
825 |
ECCO_ADDMASK |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
826 |
ECCO_ADDMASK |
fldOutnum(i,j,k,bi,bj) = fldOutnum(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
867 |
ECCO_DIV |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
885 |
ECCO_DIV |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
890 |
ECCO_DIV |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/numerloc |
|
./pkg/ecco/ecco_toolbox.F |
929 |
ECCO_DIVFIELD |
integer bi,bj |
|
./pkg/ecco/ecco_toolbox.F |
947 |
ECCO_DIVFIELD |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_toolbox.F |
952 |
ECCO_DIVFIELD |
if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
953 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
954 |
ECCO_DIVFIELD |
& flddenom(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
996 |
ECCO_MULT |
integer bi,bj |
|
./pkg/exch2/exch2_check_depths.F |
112 |
EXCH2_CHECK_DEPTHS |
& 'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):' |
|
./pkg/exch2/exch2_check_depths.F |
48 |
EXCH2_CHECK_DEPTHS |
INTEGER bi, bj, tId |
|
./pkg/exch2/exch2_check_depths.F |
59 |
EXCH2_CHECK_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/exch2_check_depths.F |
65 |
EXCH2_CHECK_DEPTHS |
tmpFld(0,j) = rHigh( 1 ,j,bi,bj) - rLow( 1 ,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
66 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(sNx,j,bi,bj) - rLow(sNx,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
70 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
71 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
75 |
EXCH2_CHECK_DEPTHS |
tId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
137 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
139 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
140 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = loc2Buf(1,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
141 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = loc2Buf(2,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
156 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
158 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
159 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
160 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
196 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nbTy-1 |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
197 |
W2_CUMULSUM_Z_TILE_RL |
tS = facet_owns(1,j) - 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
209 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nbTy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
210 |
W2_CUMULSUM_Z_TILE_RL |
tN = facet_owns(1,j) + (bj-1)*nbTx |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
242 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
244 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
245 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
255 |
W2_CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
257 |
W2_CUMULSUM_Z_TILE_RL |
tN = W2_procTileList(bi,bj,np) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
258 |
W2_CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,tN) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
276 |
W2_CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
278 |
W2_CUMULSUM_Z_TILE_RL |
psiZ(bi,bj) = shareBufCS1_R8(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
62 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER bi,bj |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
90 |
W2_CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
92 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
93 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
109 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
111 |
W2_MAP_PROCS |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
139 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
141 |
W2_MAP_PROCS |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_map_procs.F |
143 |
W2_MAP_PROCS |
& ' TILE: ', myTileId,' (bi,bj=', bi, bj, ' )', |
|
./pkg/exch2/w2_map_procs.F |
167 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = commFlag |
|
./pkg/exch2/w2_map_procs.F |
46 |
W2_MAP_PROCS |
INTEGER np, ii, jj, bi, bj |
|
./pkg/exch2/w2_map_procs.F |
55 |
W2_MAP_PROCS |
DO bj=1,nSy |
|
./pkg/exch2/w2_map_procs.F |
57 |
W2_MAP_PROCS |
W2_myTileList(bi,bj) = 0 |
|
./pkg/exch2/w2_map_procs.F |
59 |
W2_MAP_PROCS |
W2_procTileList(bi,bj,np) = 0 |
|
./pkg/exch2/w2_map_procs.F |
62 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = ' ' |
|
./pkg/exch2/w2_map_procs.F |
91 |
W2_MAP_PROCS |
bj = 1 + MOD(jj,nSy) |
|
./pkg/exch2/w2_map_procs.F |
95 |
W2_MAP_PROCS |
W2_tileIndex(I)= bi + (bj-1)*nSx |
|
./pkg/exch2/w2_map_procs.F |
96 |
W2_MAP_PROCS |
W2_procTileList(bi,bj,np) = I |
|
./pkg/exch2/w2_map_procs.F |
97 |
W2_MAP_PROCS |
IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I |
|
./pkg/exch2/w2_print_comm_sequence.F |
121 |
W2_PRINT_COMM_SEQUENCE |
DO bj=1,nSy |
|
./pkg/exch2/w2_print_comm_sequence.F |
123 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_print_comm_sequence.F |
54 |
W2_PRINT_COMM_SEQUENCE |
INTEGER bi, bj, N |
|
./pkg/exch2/w2_print_comm_sequence.F |
65 |
W2_PRINT_COMM_SEQUENCE |
DO bj=1,nSy |
|
./pkg/exch2/w2_print_comm_sequence.F |
67 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_set_map_cumsum.F |
285 |
W2_SET_MAP_CUMSUM |
DO bj=1,nbTy |
|
./pkg/exch2/w2_set_map_cumsum.F |
288 |
W2_SET_MAP_CUMSUM |
tN = tS + 1 + (bj-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
300 |
W2_SET_MAP_CUMSUM |
DO bj=1,nbTy-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
303 |
W2_SET_MAP_CUMSUM |
tN = tS + bj*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
304 |
W2_SET_MAP_CUMSUM |
DO k=1,bj |
|
./pkg/exch2/w2_set_map_cumsum.F |
44 |
W2_SET_MAP_CUMSUM |
INTEGER tS, bi, bj, l, is, ie |
|
./model/inc/HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
179 |
EXF_BULKFORMULAE |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_bulkformulae.F |
254 |
EXF_BULKFORMULAE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
268 |
EXF_BULKFORMULAE |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
288 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
290 |
EXF_BULKFORMULAE |
Tsf = theta(i,j,ksrf,bi,bj) + cen2kel |
|
./pkg/exf/exf_bulkformulae.F |
293 |
EXF_BULKFORMULAE |
& *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) ) |
|
./pkg/exf/exf_bulkformulae.F |
294 |
EXF_BULKFORMULAE |
& * maskC(i,j,ksrfp1,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
300 |
EXF_BULKFORMULAE |
atmrho_loc(i,j) = apressure(i,j,bi,bj) / |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/exf/exf_bulkformulae.F |
307 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
308 |
EXF_BULKFORMULAE |
delq(i,j) = aqh(i,j,bi,bj) - ssq |
|
./pkg/exf/exf_bulkformulae.F |
321 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
328 |
EXF_BULKFORMULAE |
windStress = wStress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
378 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
379 |
EXF_BULKFORMULAE |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
381 |
EXF_BULKFORMULAE |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
428 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
435 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
451 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
453 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
492 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
493 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
497 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
508 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
509 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
514 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
519 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_check_range.F |
100 |
EXF_CHECK_RANGE |
IF ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
101 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
104 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
110 |
EXF_CHECK_RANGE |
IF ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
111 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
112 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
115 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
121 |
EXF_CHECK_RANGE |
IF ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
122 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
123 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
132 |
EXF_CHECK_RANGE |
IF ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
133 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
134 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
137 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
142 |
EXF_CHECK_RANGE |
IF ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
143 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
144 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
147 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
152 |
EXF_CHECK_RANGE |
IF ( (snowprecip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
153 |
EXF_CHECK_RANGE |
& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
154 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
158 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, snowprecip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
165 |
EXF_CHECK_RANGE |
IF ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
166 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
167 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
177 |
EXF_CHECK_RANGE |
IF ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
178 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
179 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
182 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
195 |
EXF_CHECK_RANGE |
IF ( (runoftemp(i,j,bi,bj) .LT. -2. .OR. |
|
./pkg/exf/exf_check_range.F |
196 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 36 ) .AND. |
|
./pkg/exf/exf_check_range.F |
197 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
200 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
29 |
EXF_CHECK_RANGE |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_check_range.F |
42 |
EXF_CHECK_RANGE |
DO bj = 1, nSy |
|
./pkg/exf/exf_check_range.F |
53 |
EXF_CHECK_RANGE |
IF ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
54 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
55 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
58 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
63 |
EXF_CHECK_RANGE |
IF ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
64 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
72 |
EXF_CHECK_RANGE |
IF ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
73 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
81 |
EXF_CHECK_RANGE |
IF ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
82 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
85 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
91 |
EXF_CHECK_RANGE |
IF ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
92 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/exf/exf_check_range.F |
95 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, uwind(i,j,bi,bj) |
|
./model/inc/HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/exf/exf_filter_rl.F |
35 |
EXF_FILTER_RL |
INTEGER bi,bj |
|
./pkg/exf/exf_filter_rl.F |
46 |
EXF_FILTER_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_filter_rl.F |
64 |
EXF_FILTER_RL |
IF ( maskC(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
65 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
72 |
EXF_FILTER_RL |
IF ( maskW(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
73 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
80 |
EXF_FILTER_RL |
IF ( maskS(i,j,ks,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getclim.F |
169 |
EXF_GETCLIM |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getclim.F |
176 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
181 |
EXF_GETCLIM |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
186 |
EXF_GETCLIM |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
189 |
EXF_GETCLIM |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
192 |
EXF_GETCLIM |
IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_getclim.F |
193 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/exf/exf_getclim.F |
194 |
EXF_GETCLIM |
print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_getclim.F |
69 |
EXF_GETCLIM |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_getclim.F |
87 |
EXF_GETCLIM |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getclim.F |
91 |
EXF_GETCLIM |
IF (climsst(i,j,bi,bj) .LT. climtempfreeze) THEN |
|
./pkg/exf/exf_getclim.F |
92 |
EXF_GETCLIM |
climsst(i,j,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
102 |
EXF_GETFFIELDS |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
146 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
150 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
151 |
EXF_GETFFIELDS |
& * (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
152 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
153 |
EXF_GETFFIELDS |
& * (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
161 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
165 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
166 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
213 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
217 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
323 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
327 |
EXF_GETFFIELDS |
precip(i,j,bi,bj) = |
|
./pkg/exf/exf_getffields.F |
328 |
EXF_GETFFIELDS |
& MAX( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_getffields.F |
478 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
482 |
EXF_GETFFIELDS |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
483 |
EXF_GETFFIELDS |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
485 |
EXF_GETFFIELDS |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
59 |
EXF_GETFFIELDS |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_getffields.F |
622 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
626 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
627 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
638 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
643 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
646 |
EXF_GETFFIELDS |
aqh(i,j,bi,bj) =aqh(i,j,bi,bj) +xx_aqh_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
649 |
EXF_GETFFIELDS |
precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
652 |
EXF_GETFFIELDS |
swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+xx_swdown_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
655 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
658 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) =vwind(i,j,bi,bj) +xx_vwind_mean(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
682 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
689 |
EXF_GETFFIELDS |
& atemp(i,j,bi,bj)=atemp(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
690 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
692 |
EXF_GETFFIELDS |
& aqh(i,j,bi,bj)=aqh(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
693 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
695 |
EXF_GETFFIELDS |
& precip(i,j,bi,bj)=precip(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
696 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
698 |
EXF_GETFFIELDS |
& lwflux(i,j,bi,bj)=lwflux(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
699 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
703 |
EXF_GETFFIELDS |
& swflux(i,j,bi,bj)=swflux(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
704 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
708 |
EXF_GETFFIELDS |
& swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
709 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
711 |
EXF_GETFFIELDS |
& lwdown(i,j,bi,bj)=lwdown(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
712 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
716 |
EXF_GETFFIELDS |
& runoff(i,j,bi,bj)=runoff(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
717 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
721 |
EXF_GETFFIELDS |
& evap(i,j,bi,bj)=evap(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
722 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
726 |
EXF_GETFFIELDS |
& apressure(i,j,bi,bj)=apressure(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
727 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
731 |
EXF_GETFFIELDS |
& areamask(i,j,bi,bj)=areamask(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
732 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
736 |
EXF_GETFFIELDS |
& uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
737 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
739 |
EXF_GETFFIELDS |
& vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
740 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
743 |
EXF_GETFFIELDS |
& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
744 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
746 |
EXF_GETFFIELDS |
& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj)+ |
|
./pkg/exf/exf_getffields.F |
747 |
EXF_GETFFIELDS |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getffields.F |
758 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getffields.F |
762 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
763 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
97 |
EXF_GETFFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
144 |
EXF_GETFORCING |
INTEGER bi,bj |
|
./pkg/exf/exf_getforcing.F |
203 |
EXF_GETFORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
211 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
& - hs(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
213 |
EXF_GETFORCING |
& - hl(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
214 |
EXF_GETFORCING |
& + lwflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
216 |
EXF_GETFORCING |
& + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
229 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
231 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
232 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
280 |
EXF_GETFORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_getforcing.F |
284 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
107 |
EXF_GETSURFACEFLUXES |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
114 |
EXF_GETSURFACEFLUXES |
& ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+ |
|
./pkg/exf/exf_getsurfacefluxes.F |
115 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
117 |
EXF_GETSURFACEFLUXES |
& vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+ |
|
./pkg/exf/exf_getsurfacefluxes.F |
118 |
EXF_GETSURFACEFLUXES |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
121 |
EXF_GETSURFACEFLUXES |
& tmpUE(i,j,bi,bj)=tmpUE(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
122 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
124 |
EXF_GETSURFACEFLUXES |
& tmpVN(i,j,bi,bj)=tmpVN(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
125 |
EXF_GETSURFACEFLUXES |
& +xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_getsurfacefluxes.F |
212 |
EXF_GETSURFACEFLUXES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
216 |
EXF_GETSURFACEFLUXES |
ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
217 |
EXF_GETSURFACEFLUXES |
vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
82 |
EXF_GETSURFACEFLUXES |
integer i,j,bi,bj |
|
./pkg/exf/exf_getsurfacefluxes.F |
89 |
EXF_GETSURFACEFLUXES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
93 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
94 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
96 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_fld.F |
138 |
EXF_INIT_FLD |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_init_fld.F |
142 |
EXF_INIT_FLD |
fldArr(i,j,bi,bj) = fld_inScale*fldArr(i,j,bi,bj) |
|
./pkg/exf/exf_init_fld.F |
81 |
EXF_INIT_FLD |
INTEGER bi, bj, i, j, count |
|
./pkg/exf/exf_init_fld.F |
89 |
EXF_INIT_FLD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_fld.F |
93 |
EXF_INIT_FLD |
fldArr(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_fld.F |
94 |
EXF_INIT_FLD |
fld0(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_fld.F |
95 |
EXF_INIT_FLD |
fld1(i,j,bi,bj) = fldConst |
|
./pkg/exf/exf_init_varia.F |
132 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
136 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
137 |
EXF_INIT_VARIA |
vwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
41 |
EXF_INIT_VARIA |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_init_varia.F |
455 |
EXF_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
45 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
462 |
EXF_INIT_VARIA |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
467 |
EXF_INIT_VARIA |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
472 |
EXF_INIT_VARIA |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
475 |
EXF_INIT_VARIA |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
477 |
EXF_INIT_VARIA |
IF ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_init_varia.F |
478 |
EXF_INIT_VARIA |
& theta(i,j,1,bi,bj) .EQ. 0. ) then |
|
./pkg/exf/exf_init_varia.F |
479 |
EXF_INIT_VARIA |
print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
49 |
EXF_INIT_VARIA |
wStress(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
50 |
EXF_INIT_VARIA |
cw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
51 |
EXF_INIT_VARIA |
sw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
52 |
EXF_INIT_VARIA |
sh(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
54 |
EXF_INIT_VARIA |
hs(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
55 |
EXF_INIT_VARIA |
hl(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
91 |
EXF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_init_varia.F |
95 |
EXF_INIT_VARIA |
uwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init_varia.F |
96 |
EXF_INIT_VARIA |
vwind(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
341 |
EXF_INTERP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_interp.F |
345 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
347 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp.F |
355 |
EXF_INTERP |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp.F |
357 |
EXF_INTERP |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
358 |
EXF_INTERP |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
384 |
EXF_INTERP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_interp.F |
404 |
EXF_INTERP |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp.F |
428 |
EXF_INTERP |
& 'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
445 |
EXF_INTERP |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp.F |
457 |
EXF_INTERP |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interp.F |
93 |
EXF_INTERP |
INTEGER bi, bj |
|
./pkg/exf/exf_interp_uv.F |
105 |
EXF_INTERP_UV |
INTEGER bi, bj |
|
./pkg/exf/exf_interp_uv.F |
367 |
EXF_INTERP_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_interp_uv.F |
371 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp_uv.F |
373 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp_uv.F |
381 |
EXF_INTERP_UV |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
382 |
EXF_INTERP_UV |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp_uv.F |
383 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .LT. y_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
384 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
393 |
EXF_INTERP_UV |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
410 |
EXF_INTERP_UV |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/exf/exf_interp_uv.F |
430 |
EXF_INTERP_UV |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
454 |
EXF_INTERP_UV |
& 'EXF_INTERP_UV: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
471 |
EXF_INTERP_UV |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp_uv.F |
483 |
EXF_INTERP_UV |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
491 |
EXF_INTERP_UV |
I bi, bj, myThid ) |
|
./pkg/exf/exf_interpolate.F |
111 |
EXF_INTERPOLATE |
INTEGER bi, bj, myThid |
|
./pkg/exf/exf_interpolate.F |
141 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
149 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
151 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
152 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interpolate.F |
153 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
157 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
159 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
161 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
163 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
164 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj)= |
|
./pkg/exf/exf_interpolate.F |
165 |
EXF_INTERPOLATE |
& +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
166 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
176 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interpolate.F |
184 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
186 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
188 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
190 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
191 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interpolate.F |
192 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
196 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
198 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
200 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
202 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
204 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
206 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
208 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
210 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
212 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
214 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
216 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
218 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
220 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
222 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
224 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
226 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
227 |
EXF_INTERPOLATE |
arrayout(i,j,bi,bj) = |
|
./pkg/exf/exf_interpolate.F |
228 |
EXF_INTERPOLATE |
& ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
229 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
230 |
EXF_INTERPOLATE |
& +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
231 |
EXF_INTERPOLATE |
& +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
69 |
EXF_INTERPOLATE |
I bi, bj, myThid ) |
|
./pkg/exf/exf_mapfields.F |
111 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
117 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
127 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
134 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
157 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
158 |
EXF_MAPFIELDS |
& + flami*snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
160 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
161 |
EXF_MAPFIELDS |
& *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) ) |
|
./pkg/exf/exf_mapfields.F |
171 |
EXF_MAPFIELDS |
IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
173 |
EXF_MAPFIELDS |
& + flami*precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
176 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
178 |
EXF_MAPFIELDS |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
179 |
EXF_MAPFIELDS |
& *precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
188 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
190 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
191 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
198 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
200 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/exf/exf_mapfields.F |
201 |
EXF_MAPFIELDS |
& *evap(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
202 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
213 |
EXF_MAPFIELDS |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
215 |
EXF_MAPFIELDS |
& *( theta(i,j,ks,bi,bj) - runoftemp(i,j,bi,bj) ) |
|
./pkg/exf/exf_mapfields.F |
216 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
228 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
229 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
238 |
EXF_MAPFIELDS |
IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
239 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
253 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
254 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
255 |
EXF_MAPFIELDS |
& *exf_half*maskW(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
266 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).GT.windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
267 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
276 |
EXF_MAPFIELDS |
IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN |
|
./pkg/exf/exf_mapfields.F |
277 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
284 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
291 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress* |
|
./pkg/exf/exf_mapfields.F |
292 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
293 |
EXF_MAPFIELDS |
& *exf_half*maskS(i,j,ks,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
302 |
EXF_MAPFIELDS |
Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
310 |
EXF_MAPFIELDS |
SST(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
318 |
EXF_MAPFIELDS |
SSS(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
326 |
EXF_MAPFIELDS |
pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
334 |
EXF_MAPFIELDS |
phiTide2d(i,j,bi,bj)=exf_outscal_tidePot*tidePot(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
342 |
EXF_MAPFIELDS |
saltFlux(I,J,bi,bj) = saltflx(I,J,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
350 |
EXF_MAPFIELDS |
exf_iceFraction(i,j,bi,bj) = |
|
./pkg/exf/exf_mapfields.F |
351 |
EXF_MAPFIELDS |
& exf_outscal_areamask*areamask(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
352 |
EXF_MAPFIELDS |
exf_iceFraction(I,J,bi,bj) = |
|
./pkg/exf/exf_mapfields.F |
353 |
EXF_MAPFIELDS |
& MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS ) |
|
./pkg/exf/exf_mapfields.F |
81 |
EXF_MAPFIELDS |
INTEGER bi,bj |
|
./pkg/exf/exf_mapfields.F |
92 |
EXF_MAPFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_mapfields.F |
98 |
EXF_MAPFIELDS |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_radiation.F |
100 |
EXF_RADIATION |
& ((theta(i,j,ks,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_radiation.F |
101 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
145 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
149 |
EXF_RADIATION |
zen_albedo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
150 |
EXF_RADIATION |
zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
151 |
EXF_RADIATION |
zen_fsol_daily (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
159 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
165 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
166 |
EXF_RADIATION |
& * (1.0-zen_albedo(i,j,bi,bj)) |
|
./pkg/exf/exf_radiation.F |
173 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
47 |
EXF_RADIATION |
INTEGER bi,bj |
|
./pkg/exf/exf_radiation.F |
69 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_radiation.F |
75 |
EXF_RADIATION |
Tsf = theta(i,j,ks,bi,bj) + cen2kel |
|
./pkg/exf/exf_radiation.F |
77 |
EXF_RADIATION |
& *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) ) |
|
./pkg/exf/exf_radiation.F |
78 |
EXF_RADIATION |
& * maskC(i,j,kl,bi,bj) |
|
./pkg/exf/exf_radiation.F |
81 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_radiation.F |
83 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
98 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_set_fld.F |
105 |
EXF_SET_FLD |
INTEGER bi, bj, i, j |
|
./pkg/exf/exf_set_fld.F |
282 |
EXF_SET_FLD |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_fld.F |
287 |
EXF_SET_FLD |
fldArr(i,j,bi,bj) = fld_inScale * ( |
|
./pkg/exf/exf_set_fld.F |
288 |
EXF_SET_FLD |
& fac * fld0(i,j,bi,bj) |
|
./pkg/exf/exf_set_fld.F |
289 |
EXF_SET_FLD |
& + (exf_one - fac)* fld1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_fld.F |
290 |
EXF_SET_FLD |
fldArr(i,j,bi,bj) = fldArr(i,j,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
103 |
EXF_SET_OBCS_XZ |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
107 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
108 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
109 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
174 |
EXF_SET_OBCS_YZ |
INTEGER bi, bj |
|
./pkg/exf/exf_set_obcs.F |
210 |
EXF_SET_OBCS_YZ |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
214 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
215 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
216 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
281 |
EXF_SET_OBCS_X |
INTEGER bi, bj, i |
|
./pkg/exf/exf_set_obcs.F |
314 |
EXF_SET_OBCS_X |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
317 |
EXF_SET_OBCS_X |
obcs_fld_x(i,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
318 |
EXF_SET_OBCS_X |
& fac * obcs_x_0(i,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
319 |
EXF_SET_OBCS_X |
& (exf_one - fac) * obcs_x_1(i,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
382 |
EXF_SET_OBCS_Y |
INTEGER bi, bj, j |
|
./pkg/exf/exf_set_obcs.F |
415 |
EXF_SET_OBCS_Y |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
418 |
EXF_SET_OBCS_Y |
obcs_fld_y(j,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
419 |
EXF_SET_OBCS_Y |
& fac *obcs_y_0(j,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
420 |
EXF_SET_OBCS_Y |
& (exf_one - fac) *obcs_y_1(j,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
67 |
EXF_SET_OBCS_XZ |
INTEGER bi, bj |
|
./pkg/exf/exf_set_uv.F |
108 |
EXF_SET_UV |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_set_uv.F |
278 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
282 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
283 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
289 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
290 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
291 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
292 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
299 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
300 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
302 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
305 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
307 |
EXF_SET_UV |
vVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
308 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
313 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
315 |
EXF_SET_UV |
uVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
316 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
317 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
320 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
321 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
322 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
323 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
324 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
325 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
332 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
336 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
337 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
439 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
443 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
444 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
450 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
451 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
452 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
453 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
460 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
461 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
462 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
463 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
466 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
468 |
EXF_SET_UV |
vVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
469 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
470 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
474 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
476 |
EXF_SET_UV |
uVec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
477 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
478 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
481 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
482 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
483 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
484 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
485 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
486 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
493 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
497 |
EXF_SET_UV |
uVec1(i,j,bi,bj) = uVec_inScale*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
498 |
EXF_SET_UV |
vVec1(i,j,bi,bj) = vVec_inScale*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
512 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
516 |
EXF_SET_UV |
uVec(i,j,bi,bj) = fac * uVec0(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
517 |
EXF_SET_UV |
& + (exf_one - fac)* uVec1(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
518 |
EXF_SET_UV |
vVec(i,j,bi,bj) = fac * vVec0(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
519 |
EXF_SET_UV |
& + (exf_one - fac)* vVec1(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
556 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
560 |
EXF_SET_UV |
tmp_u(i,j,bi,bj) = uVec(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
561 |
EXF_SET_UV |
tmp_v(i,j,bi,bj) = vVec(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
566 |
EXF_SET_UV |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_set_uv.F |
570 |
EXF_SET_UV |
uVec(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
571 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
572 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
573 |
EXF_SET_UV |
vVec(i,j,bi,bj) = |
|
./pkg/exf/exf_set_uv.F |
574 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
575 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
103 |
EXF_SWAPFFIELDS_3D |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
108 |
EXF_SWAPFFIELDS_3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
113 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
114 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
157 |
EXF_SWAPFFIELDS_XZ |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
162 |
EXF_SWAPFFIELDS_XZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
166 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
209 |
EXF_SWAPFFIELDS_YZ |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
214 |
EXF_SWAPFFIELDS_YZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
218 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
219 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
53 |
EXF_SWAPFFIELDS |
INTEGER bi, bj |
|
./pkg/exf/exf_swapffields.F |
58 |
EXF_SWAPFFIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_swapffields.F |
62 |
EXF_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
63 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
116 |
EXF_WIND |
wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
117 |
EXF_WIND |
& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
120 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
121 |
EXF_WIND |
sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
125 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
133 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
146 |
EXF_WIND |
usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
147 |
EXF_WIND |
& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
148 |
EXF_WIND |
& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj) |
|
./pkg/exf/exf_wind.F |
149 |
EXF_WIND |
& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj) |
|
./pkg/exf/exf_wind.F |
152 |
EXF_WIND |
usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
153 |
EXF_WIND |
& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
156 |
EXF_WIND |
wStress(i,j,bi,bj) = SQRT(usSq) |
|
./pkg/exf/exf_wind.F |
158 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
159 |
EXF_WIND |
sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
161 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
162 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
163 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
179 |
EXF_WIND |
ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA |
|
./pkg/exf/exf_wind.F |
203 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
220 |
EXF_WIND |
uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
221 |
EXF_WIND |
vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
234 |
EXF_WIND |
& wspeed(i,j,bi,bj)=wspeed(i,j,bi,bj)+ |
|
./pkg/exf/exf_wind.F |
235 |
EXF_WIND |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/exf/exf_wind.F |
248 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
260 |
EXF_WIND |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
263 |
EXF_WIND |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
264 |
EXF_WIND |
& * uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
265 |
EXF_WIND |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
266 |
EXF_WIND |
& * vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
57 |
EXF_WIND |
INTEGER bi,bj |
|
./pkg/exf/exf_wind.F |
78 |
EXF_WIND |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_wind.F |
84 |
EXF_WIND |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
114 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle.F |
121 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = exf_albedo |
|
./pkg/exf/exf_zenithangle.F |
140 |
EXF_ZENITHANGLE |
IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN |
|
./pkg/exf/exf_zenithangle.F |
146 |
EXF_ZENITHANGLE |
iLat1= INT(zen_albedo_pointer(i,j,bi,bj)) |
|
./pkg/exf/exf_zenithangle.F |
147 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
158 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = |
|
./pkg/exf/exf_zenithangle.F |
192 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
193 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
258 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = |
|
./pkg/exf/exf_zenithangle.F |
277 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle.F |
301 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
302 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
310 |
EXF_ZENITHANGLE |
zen_fsol_diurnal(i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
313 |
EXF_ZENITHANGLE |
H0 = -TAN( yC(i,j,bi,bj) *deg2rad ) * TAN( DECLI ) |
|
./pkg/exf/exf_zenithangle.F |
319 |
EXF_ZENITHANGLE |
zen_fsol_daily(i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
49 |
EXF_ZENITHANGLE |
INTEGER i, j, bi, bj |
|
./pkg/exf/exf_zenithangle_table.F |
122 |
EXF_ZENITHANGLE_TABLE |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_zenithangle_table.F |
126 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
131 |
EXF_ZENITHANGLE_TABLE |
zen_albedo_pointer(i,j,bi,bj)=LLLAT |
|
./pkg/exf/exf_zenithangle_table.F |
35 |
EXF_ZENITHANGLE_TABLE |
INTEGER bi,bj |
|
./pkg/fizhi/AtoC.F |
40 |
ATOC |
integer i, j, L, bi, bj |
|
./pkg/fizhi/AtoC.F |
50 |
ATOC |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/AtoC.F |
56 |
ATOC |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
57 |
ATOC |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
64 |
ATOC |
if( (mask(i-1,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
65 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
70 |
ATOC |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
72 |
ATOC |
. ( mask(i-1,j,L,bi,bj) + mask(i,j,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
74 |
ATOC |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/AtoC.F |
76 |
ATOC |
if( (mask(i,j-1,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
77 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
82 |
ATOC |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
84 |
ATOC |
. ( mask(i,j,L,bi,bj) + mask(i,j-1,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
86 |
ATOC |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/CtoA.F |
42 |
CTOA |
integer i, j, L, bi, bj |
|
./pkg/fizhi/CtoA.F |
52 |
CTOA |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/CtoA.F |
58 |
CTOA |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
59 |
CTOA |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
64 |
CTOA |
if( (mask1(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
65 |
CTOA |
. (mask1(i+1,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
70 |
CTOA |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
72 |
CTOA |
. ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
74 |
CTOA |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/CtoA.F |
76 |
CTOA |
if( (mask2(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
77 |
CTOA |
. (mask2(i,j+1,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
82 |
CTOA |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
84 |
CTOA |
. ( mask2(i,j,L,bi,bj) + mask2(i,j+1,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
86 |
CTOA |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
171 |
DO_FIZHI |
xlats(i,j) = lats(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
172 |
DO_FIZHI |
xlons(i,j) = lons(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
173 |
DO_FIZHI |
surfZ(i,j) = Zsurf(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
184 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./pkg/fizhi/do_fizhi.F |
194 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
196 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
197 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
198 |
DO_FIZHI |
raincon(i,j) = rainconin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
199 |
DO_FIZHI |
rainlsp(i,j) = rainlspin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
200 |
DO_FIZHI |
snowfall(i,j) = snowfallin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
206 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
210 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./pkg/fizhi/do_fizhi.F |
211 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./pkg/fizhi/do_fizhi.F |
212 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
213 |
DO_FIZHI |
if (ple(i,j,L,bi,bj).gt.0.) then |
|
./pkg/fizhi/do_fizhi.F |
214 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
216 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
218 |
DO_FIZHI |
cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
219 |
DO_FIZHI |
cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
220 |
DO_FIZHI |
cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
221 |
DO_FIZHI |
lwlz(i,j,L) = lwlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
222 |
DO_FIZHI |
qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
223 |
DO_FIZHI |
fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
224 |
DO_FIZHI |
cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
225 |
DO_FIZHI |
cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
226 |
DO_FIZHI |
cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
227 |
DO_FIZHI |
swlz(i,j,L) = swlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
228 |
DO_FIZHI |
qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
229 |
DO_FIZHI |
fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
235 |
DO_FIZHI |
& pkl(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/do_fizhi.F |
239 |
DO_FIZHI |
& p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
240 |
DO_FIZHI |
& dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ, |
|
./pkg/fizhi/do_fizhi.F |
241 |
DO_FIZHI |
& fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
242 |
DO_FIZHI |
& phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
243 |
DO_FIZHI |
& chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
244 |
DO_FIZHI |
& chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
245 |
DO_FIZHI |
& ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
246 |
DO_FIZHI |
& swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
247 |
DO_FIZHI |
& ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
248 |
DO_FIZHI |
& xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
249 |
DO_FIZHI |
& albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
250 |
DO_FIZHI |
& albnirdf(1,1,bi,bj),emiss(1,1,1,bi,bj),alai(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
251 |
DO_FIZHI |
& agrn(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
252 |
DO_FIZHI |
& qstr(1,1,1,bi,bj),o3(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
254 |
DO_FIZHI |
& lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
255 |
DO_FIZHI |
& swdtclr(1,1,1,bi,bj),turbu(1,1,1,bi,bj),turbv(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
256 |
DO_FIZHI |
& turbt(1,1,1,bi,bj),turbq(1,1,1,1,bi,bj),moistu(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
257 |
DO_FIZHI |
& moistv(1,1,1,bi,bj),moistt(1,1,1,bi,bj),moistq(1,1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
258 |
DO_FIZHI |
& radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
259 |
DO_FIZHI |
& fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
260 |
DO_FIZHI |
& tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
261 |
DO_FIZHI |
& st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
& rainlsp,raincon,snowfall,iras(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
263 |
DO_FIZHI |
& nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz, |
|
./pkg/fizhi/do_fizhi.F |
264 |
DO_FIZHI |
& nswcld(bi,bj),cldtot_sw,cldras_sw,cldlsp_sw,nswlz(bi,bj),swlz, |
|
./pkg/fizhi/do_fizhi.F |
265 |
DO_FIZHI |
& imstturbsw(bi,bj),imstturblw(bi,bj),qliqavesw,qliqavelw, |
|
./pkg/fizhi/do_fizhi.F |
266 |
DO_FIZHI |
& fccavesw,fccavelw,qq(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
271 |
DO_FIZHI |
cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
272 |
DO_FIZHI |
cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
273 |
DO_FIZHI |
cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
274 |
DO_FIZHI |
lwlzin(i,j,L,bi,bj) = lwlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
275 |
DO_FIZHI |
qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
276 |
DO_FIZHI |
fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
277 |
DO_FIZHI |
cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
278 |
DO_FIZHI |
cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
279 |
DO_FIZHI |
cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
280 |
DO_FIZHI |
swlzin(i,j,L,bi,bj) = swlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
281 |
DO_FIZHI |
qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
282 |
DO_FIZHI |
fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
289 |
DO_FIZHI |
rainconin(i,j,bi,bj) = raincon(i,j) |
|
./pkg/fizhi/do_fizhi.F |
290 |
DO_FIZHI |
rainlspin(i,j,bi,bj) = rainlsp(i,j) |
|
./pkg/fizhi/do_fizhi.F |
291 |
DO_FIZHI |
snowfallin(i,j,bi,bj) = snowfall(i,j) |
|
./pkg/fizhi/do_fizhi.F |
300 |
DO_FIZHI |
duphy(i,j,L,bi,bj) = moistu(i,j,L,bi,bj) + turbu(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
301 |
DO_FIZHI |
dvphy(i,j,L,bi,bj) = moistv(i,j,L,bi,bj) + turbv(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
302 |
DO_FIZHI |
dthphy(i,j,L,bi,bj) = ((moistt(i,j,L,bi,bj)+turbt(i,j,L,bi,bj)+ |
|
./pkg/fizhi/do_fizhi.F |
303 |
DO_FIZHI |
& lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/do_fizhi.F |
304 |
DO_FIZHI |
& dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/do_fizhi.F |
305 |
DO_FIZHI |
& swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
dsphy(i,j,L,bi,bj) = (moistq(i,j,L,1,bi,bj)+turbq(i,j,L,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
307 |
DO_FIZHI |
& /p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
316 |
DO_FIZHI |
& im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer) |
|
./pkg/fizhi/do_fizhi.F |
35 |
DO_FIZHI |
INTEGER Nrphin,nSxIn,nSyIn,bi,bj,nchp |
|
./pkg/fizhi/do_fizhi.F |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
164 |
FIZHI_DRIVER |
call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
187 |
FIZHI_DRIVER |
call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
202 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj, |
|
./pkg/fizhi/fizhi_driver.F |
221 |
FIZHI_DRIVER |
& turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
227 |
FIZHI_DRIVER |
& bi,bj,rfu,rfv,rft) |
|
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
FIZHI_DRIVER |
INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
SUBROUTINE FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/fizhi_fillnegs.F |
27 |
QCHECK |
integer Nsx,Nsy,bi,bj |
|
./pkg/fizhi/fizhi_fillnegs.F |
40 |
QCHECK |
ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
42 |
QCHECK |
qz(i,j,L,bi,bj ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
51 |
QCHECK |
if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
6 |
QCHECK |
. jm1,jm2,bi,bj,dp,qz) |
|
./pkg/fizhi/fizhi_gwdrag.F |
211 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
220 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
229 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
237 |
GWDRAG |
call DIAGNOSTICS_FILL(dragx,'GWDUS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
243 |
GWDRAG |
call DIAGNOSTICS_FILL(dragy,'GWDVS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
266 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDUT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
289 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDVT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
43 |
GWDRAG |
integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal |
|
./pkg/fizhi/fizhi_gwdrag.F |
5 |
GWDRAG |
. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_init_fixed.F |
109 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
111 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_init_fixed.F |
112 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_init_fixed.F |
115 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
116 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./pkg/fizhi/fizhi_init_fixed.F |
117 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
118 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./pkg/fizhi/fizhi_init_fixed.F |
153 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
157 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).gt.0.3) then |
|
./pkg/fizhi/fizhi_init_fixed.F |
158 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = tempoverlap(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
160 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_fixed.F |
44 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./pkg/fizhi/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_fixed.F |
89 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
116 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
118 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_init_vars.F |
119 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
122 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
123 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
129 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
131 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
134 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
145 |
FIZHI_INIT_VARS |
windphy(i,j,L,bi,bj) = 0.025 * |
|
./pkg/fizhi/fizhi_init_vars.F |
146 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./pkg/fizhi/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
169 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
174 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
178 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
183 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
187 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
192 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
196 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
205 |
FIZHI_INIT_VARS |
duphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
206 |
FIZHI_INIT_VARS |
dvphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
207 |
FIZHI_INIT_VARS |
dthphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
208 |
FIZHI_INIT_VARS |
dsphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
217 |
FIZHI_INIT_VARS |
guphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
218 |
FIZHI_INIT_VARS |
gvphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
219 |
FIZHI_INIT_VARS |
gthphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
220 |
FIZHI_INIT_VARS |
gsphy(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
229 |
FIZHI_INIT_VARS |
ctmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
230 |
FIZHI_INIT_VARS |
xxmt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
231 |
FIZHI_INIT_VARS |
yymt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
232 |
FIZHI_INIT_VARS |
zetamt(i,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
tke(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
xlmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
khmt(i,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
245 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .TRUE. |
|
./pkg/fizhi/fizhi_init_vars.F |
253 |
FIZHI_INIT_VARS |
imstturblw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
254 |
FIZHI_INIT_VARS |
imstturbsw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
nlwcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
nlwlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
nswcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
259 |
FIZHI_INIT_VARS |
nswlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
266 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
267 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
268 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
269 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
270 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
271 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
274 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
280 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
281 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
282 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
296 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vars.F |
298 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .FALSE. |
|
./pkg/fizhi/fizhi_init_vars.F |
60 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./pkg/fizhi/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
bjglobal=bj+(myYGlobalLo-1)/jm |
|
./pkg/fizhi/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
160 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
164 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_veg.F |
168 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
169 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
170 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
182 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
186 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
187 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
188 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
189 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
190 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
191 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
192 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
193 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
200 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
|
./pkg/fizhi/fizhi_init_veg.F |
201 |
FIZHI_INIT_VEG |
& ', Total # of Tiles=', nchptot(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
102 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
103 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
105 |
FIZHI_INIT_VEGSURFTILES |
tcanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
111 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
115 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
116 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
118 |
FIZHI_INIT_VEGSURFTILES |
tdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
124 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
128 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
129 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
131 |
FIZHI_INIT_VEGSURFTILES |
ecanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
137 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
141 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
142 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
144 |
FIZHI_INIT_VEGSURFTILES |
swetshal(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
150 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
154 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
155 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
157 |
FIZHI_INIT_VEGSURFTILES |
swetroot(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
163 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
167 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
168 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
170 |
FIZHI_INIT_VEGSURFTILES |
swetdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
176 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
180 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
181 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
183 |
FIZHI_INIT_VEGSURFTILES |
snodep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
189 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
193 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
194 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
196 |
FIZHI_INIT_VEGSURFTILES |
capac(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
49 |
FIZHI_INIT_VEGSURFTILES |
integer bi,bj,fileprec |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
83 |
FIZHI_INIT_VEGSURFTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
87 |
FIZHI_INIT_VEGSURFTILES |
bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
88 |
FIZHI_INIT_VEGSURFTILES |
bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
91 |
FIZHI_INIT_VEGSURFTILES |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
94 |
FIZHI_INIT_VEGSURFTILES |
call GET_LANDFRAC(sNx,sNy,Nsx,Nsy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
95 |
FIZHI_INIT_VEGSURFTILES |
. surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_lwrad.F |
19 |
LWRIO |
integer nymd,nhms,istrip,npcs,bi,bj,myid |
|
./pkg/fizhi/fizhi_lwrad.F |
282 |
LWRIO |
call DIAGNOSTICS_FILL(tgz,'TGRLW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
293 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
302 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'SHRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
311 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'OZLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
317 |
LWRIO |
call DIAGNOSTICS_FILL(tempor1,'OLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
321 |
LWRIO |
call DIAGNOSTICS_FILL(tempor2,'OLRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
5 |
LWRIO |
subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_moist.F |
1142 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1143 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1159 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1160 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
21 |
MOISTIO |
integer bi,bj,ntracerin,ptracer |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_moist.F |
850 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
851 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
863 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDNP ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
877 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
890 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
903 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
916 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
930 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
944 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
958 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
972 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DQLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
985 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PREACC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
997 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PRECON ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
38 |
RAYLEIGH |
integer myid,im,jm,lm,bi,bj |
|
./pkg/fizhi/fizhi_rayleigh.F |
6 |
RAYLEIGH |
. bi,bj,rfu,rfv,rft) |
|
./pkg/fizhi/fizhi_read_pickup.F |
45 |
FIZHI_READ_PICKUP |
integer j,bi,bj |
|
./pkg/fizhi/fizhi_read_pickup.F |
74 |
FIZHI_READ_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
78 |
FIZHI_READ_PICKUP |
raincon(i,j,bi,bj) = temp(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
79 |
FIZHI_READ_PICKUP |
rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
80 |
FIZHI_READ_PICKUP |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
84 |
FIZHI_READ_PICKUP |
iras(bi,bj) = NINT(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
85 |
FIZHI_READ_PICKUP |
nlwcld(bi,bj) = NINT(temp(2,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
86 |
FIZHI_READ_PICKUP |
nlwlz(bi,bj) = NINT(temp(3,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
87 |
FIZHI_READ_PICKUP |
nswcld(bi,bj) = NINT(temp(4,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
88 |
FIZHI_READ_PICKUP |
nswlz(bi,bj) = NINT(temp(5,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
89 |
FIZHI_READ_PICKUP |
imstturbsw(bi,bj) = NINT(temp(6,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
90 |
FIZHI_READ_PICKUP |
imstturblw(bi,bj) = NINT(temp(7,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
111 |
FIZHI_WRITE_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
115 |
FIZHI_WRITE_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
120 |
FIZHI_WRITE_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
131 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ctmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
139 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xxmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
147 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = yymt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
155 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = zetamt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
165 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xlmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
176 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = khmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
187 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tke(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
198 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tcanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
207 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
216 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ecanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
225 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetshal(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
234 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetroot(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
243 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
252 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = snodep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
261 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = capac(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
323 |
FIZHI_READ_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
366 |
FIZHI_READ_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
370 |
FIZHI_READ_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
375 |
FIZHI_READ_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
392 |
FIZHI_READ_VEGTILES |
ctmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
400 |
FIZHI_READ_VEGTILES |
xxmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
408 |
FIZHI_READ_VEGTILES |
yymt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
416 |
FIZHI_READ_VEGTILES |
zetamt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
427 |
FIZHI_READ_VEGTILES |
xlmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
438 |
FIZHI_READ_VEGTILES |
khmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
449 |
FIZHI_READ_VEGTILES |
tke(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
460 |
FIZHI_READ_VEGTILES |
tcanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
469 |
FIZHI_READ_VEGTILES |
tdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
478 |
FIZHI_READ_VEGTILES |
ecanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
487 |
FIZHI_READ_VEGTILES |
swetshal(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
496 |
FIZHI_READ_VEGTILES |
swetroot(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
505 |
FIZHI_READ_VEGTILES |
swetdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
514 |
FIZHI_READ_VEGTILES |
snodep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
51 |
FIZHI_WRITE_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
523 |
FIZHI_READ_VEGTILES |
capac(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_step_diag.F |
105 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
108 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
116 |
FIZHI_STEP_DIAG |
if(radswt(i,j,bi,bj).ne.0.) then |
|
./pkg/fizhi/fizhi_step_diag.F |
117 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = osr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
123 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
131 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = st4(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
132 |
FIZHI_STEP_DIAG |
& + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
135 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGUP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
13 |
FIZHI_STEP_DIAG |
INTEGER myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer |
|
./pkg/fizhi/fizhi_step_diag.F |
143 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radlwg(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
144 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
147 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
155 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = lwgclr(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
156 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
159 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
170 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
173 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
181 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
184 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
193 |
FIZHI_STEP_DIAG |
& ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
194 |
FIZHI_STEP_DIAG |
& lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
195 |
FIZHI_STEP_DIAG |
& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/fizhi_step_diag.F |
196 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
197 |
FIZHI_STEP_DIAG |
& * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
200 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
209 |
FIZHI_STEP_DIAG |
& ( turbq(i,j,L,1,bi,bj) + moistq(i,j,L,1,bi,bj) ) * |
|
./pkg/fizhi/fizhi_step_diag.F |
213 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
222 |
FIZHI_STEP_DIAG |
& ( lwdt(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
223 |
FIZHI_STEP_DIAG |
& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
224 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
227 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
236 |
FIZHI_STEP_DIAG |
& ( lwdtclr(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
237 |
FIZHI_STEP_DIAG |
& dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
238 |
FIZHI_STEP_DIAG |
& * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
241 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
250 |
FIZHI_STEP_DIAG |
& + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
251 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
254 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
263 |
FIZHI_STEP_DIAG |
& + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
264 |
FIZHI_STEP_DIAG |
& pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
267 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
278 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'UWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
289 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
297 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
300 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TMPU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
308 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qq(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
311 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TKE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
322 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SPHU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
341 |
FIZHI_STEP_DIAG |
& moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
350 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
365 |
FIZHI_STEP_DIAG |
& turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
374 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
388 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
389 |
FIZHI_STEP_DIAG |
& dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
390 |
FIZHI_STEP_DIAG |
& *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
399 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
414 |
FIZHI_STEP_DIAG |
& swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
421 |
FIZHI_STEP_DIAG |
& radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
424 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
440 |
FIZHI_STEP_DIAG |
& sphy(i,j,L)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
449 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TPW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
54 |
FIZHI_STEP_DIAG |
pinv(i,j) = 1.0 / p(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
60 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
64 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(radswt(1,1,bi,bj),'RADSWT ', |
|
./pkg/fizhi/fizhi_step_diag.F |
65 |
FIZHI_STEP_DIAG |
& 0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
72 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
75 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
83 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
86 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
94 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
97 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
9 |
FIZHI_STEP_DIAG |
& im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_swrad.F |
18 |
SWRIO |
integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs |
|
./pkg/fizhi/fizhi_swrad.F |
235 |
SWRIO |
call DIAGNOSTICS_FILL(totcld,'CLDFRC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
245 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
256 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
261 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
265 |
SWRIO |
call DIAGNOSTICS_FILL(cldmid,'CLDMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
269 |
SWRIO |
call DIAGNOSTICS_FILL(cldhi,'CLDHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
279 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'LZRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
286 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
290 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
294 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
298 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
324 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
342 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
343 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
364 |
SWRIO |
call DIAGNOSTICS_FILL(taulow,'TAULOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
365 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
383 |
SWRIO |
call DIAGNOSTICS_FILL(taumid,'TAUMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
384 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
402 |
SWRIO |
call DIAGNOSTICS_FILL(tauhi,'TAUHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
403 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
523 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
524 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
5 |
SWRIO |
subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
119 |
FIZHI_TENDENCY_APPLY_V |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
141 |
FIZHI_TENDENCY_APPLY_V |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
142 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
151 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
152 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
163 |
FIZHI_TENDENCY_APPLY_V |
& maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
166 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
173 |
FIZHI_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
201 |
FIZHI_TENDENCY_APPLY_T |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
226 |
FIZHI_TENDENCY_APPLY_T |
& + ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
228 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
230 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
231 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
232 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
233 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
234 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
244 |
FIZHI_TENDENCY_APPLY_T |
& ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
246 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
247 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
248 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
249 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
250 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
252 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
253 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
257 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
264 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
265 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
266 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
267 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
268 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
269 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
270 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
271 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
275 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
282 |
FIZHI_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
310 |
FIZHI_TENDENCY_APPLY_S |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
325 |
FIZHI_TENDENCY_APPLY_S |
& + maskC(i,j,kLev,bi,bj)*gsphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
332 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
336 |
FIZHI_TENDENCY_APPLY_S |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
36 |
FIZHI_TENDENCY_APPLY_U |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
58 |
FIZHI_TENDENCY_APPLY_U |
& + maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
59 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
67 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
68 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
69 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
7 |
FIZHI_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_U |
& maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
90 |
FIZHI_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_turb.F |
1001 |
TURBIO |
& nn,.false., 'UFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1005 |
TURBIO |
& nn,.false., 'VFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1009 |
TURBIO |
& .false., 'USTAR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1013 |
TURBIO |
& .false., 'Z0 ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1017 |
TURBIO |
& .false., 'FRQTRB ', 0, nlay-1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1021 |
TURBIO |
& .false., 'PBL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1025 |
TURBIO |
& .false., 'U2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1029 |
TURBIO |
& .false., 'V2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1033 |
TURBIO |
& .false., 'T2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1044 |
TURBIO |
& .false., 'Q2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1048 |
TURBIO |
& .false., 'U10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1052 |
TURBIO |
& .false., 'V10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1056 |
TURBIO |
& .false., 'T10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1067 |
TURBIO |
& .false., 'Q10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1076 |
TURBIO |
& .false., 'TDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1080 |
TURBIO |
& .false., 'QCANOPY ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1084 |
TURBIO |
& .false., 'SMSHAL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1088 |
TURBIO |
& .false., 'SMROOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1092 |
TURBIO |
& .false., 'SMDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1096 |
TURBIO |
& .false., 'CAPACITY', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1100 |
TURBIO |
& .false., 'SNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
115 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1183 |
TURBIO |
CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1185 |
TURBIO |
& 'TRBQLIQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1199 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1200 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1206 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1209 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'DTG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1216 |
TURBIO |
& 'TURBV ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1218 |
TURBIO |
& 'TURBU ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1221 |
TURBIO |
& 'TURBQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1228 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
26 |
TURBIO |
SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg |
|
./pkg/fizhi/fizhi_turb.F |
315 |
TURBIO |
& 'DTG ',0,1,-3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
432 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
539 |
TURBIO |
& .false., 'QG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
589 |
TURBIO |
& .false., 'DTSRF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
679 |
TURBIO |
& .false., 'SNOWFALL', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
686 |
TURBIO |
& .false., 'RAINCON ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
693 |
TURBIO |
& .false., 'RAINLSP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
697 |
TURBIO |
& .false., 'GREEN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
701 |
TURBIO |
& .false., 'LAI ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
705 |
TURBIO |
& .false., 'PARDR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
709 |
TURBIO |
& .false., 'PARDF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
713 |
TURBIO |
& .false., 'DLWDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
717 |
TURBIO |
& .false., 'DHDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
721 |
TURBIO |
& .false., 'DEDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
725 |
TURBIO |
& .false., 'DHDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
729 |
TURBIO |
& .false., 'DEDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
733 |
TURBIO |
& .false., 'LWGDOWN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
770 |
TURBIO |
& .false., 'RUNOFF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
774 |
TURBIO |
& .false., 'FWSOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
778 |
TURBIO |
& .false., 'GDRAIN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
782 |
TURBIO |
& .false., 'SNOWMELT', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
786 |
TURBIO |
& .false., 'EVEG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
790 |
TURBIO |
& .false., 'ESNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
794 |
TURBIO |
& .false., 'ESOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
798 |
TURBIO |
& .false., 'ERESV ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
802 |
TURBIO |
& .false., 'EVPOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
806 |
TURBIO |
& .false., 'DTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
810 |
TURBIO |
& .false., 'DQC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
814 |
TURBIO |
& .false., 'TCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
818 |
TURBIO |
& .false., 'RADDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
822 |
TURBIO |
& .false., 'SENSDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
826 |
TURBIO |
& .false., 'LATDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
830 |
TURBIO |
& .false., 'TDDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
834 |
TURBIO |
& .false., 'QCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
933 |
TURBIO |
& .false., 'EVAP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
940 |
TURBIO |
& .false., 'EFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
947 |
TURBIO |
& .false., 'HFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
951 |
TURBIO |
& .false., 'TUFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
955 |
TURBIO |
& .false., 'TVFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
964 |
TURBIO |
& .false., 'TTFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
973 |
TURBIO |
& .false., 'TQFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
977 |
TURBIO |
& .false., 'RI ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
981 |
TURBIO |
& .false., 'KH ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
985 |
TURBIO |
& .false., 'KM ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
989 |
TURBIO |
& .false., 'CT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
993 |
TURBIO |
& .false., 'CU ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
997 |
TURBIO |
& .false., 'WINDS ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_wrapper.F |
104 |
FIZHI_WRAPPER |
vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
113 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
118 |
FIZHI_WRAPPER |
thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
125 |
FIZHI_WRAPPER |
thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
134 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
139 |
FIZHI_WRAPPER |
sbef(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
146 |
FIZHI_WRAPPER |
sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
156 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
166 |
FIZHI_WRAPPER |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
172 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
186 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
& pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
193 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
195 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
& drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
199 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
209 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
214 |
FIZHI_WRAPPER |
tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
227 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
229 |
FIZHI_WRAPPER |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_wrapper.F |
230 |
FIZHI_WRAPPER |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
238 |
FIZHI_WRAPPER |
tempdiag(i,j) = topoZ(i,j,bi,bj)*grav |
|
./pkg/fizhi/fizhi_wrapper.F |
239 |
FIZHI_WRAPPER |
tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
245 |
FIZHI_WRAPPER |
tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
246 |
FIZHI_WRAPPER |
tempLdiag2(i,j,L) = thphy(i,j,L,bi,bj) * |
|
./pkg/fizhi/fizhi_wrapper.F |
247 |
FIZHI_WRAPPER |
& (1.+0.609*sphy(i,j,L,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
253 |
FIZHI_WRAPPER |
& fracland(1,1,bi,bj),sNx,sNy,Nrphys,slp) |
|
./pkg/fizhi/fizhi_wrapper.F |
254 |
FIZHI_WRAPPER |
call DIAGNOSTICS_FILL( slp,'SLP ',1,1,3,bi,bj,myThid ) |
|
./pkg/fizhi/fizhi_wrapper.F |
260 |
FIZHI_WRAPPER |
turbStart(bi,bj) = turbStart(bi,bj) .AND. ( myIter.EQ.nIter0 ) |
|
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
& idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
264 |
FIZHI_WRAPPER |
& turbStart(bi,bj), nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_wrapper.F |
282 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
290 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
299 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
308 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
317 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
53 |
FIZHI_WRAPPER |
INTEGER i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/fizhi_wrapper.F |
71 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
76 |
FIZHI_WRAPPER |
ubef(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
83 |
FIZHI_WRAPPER |
udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
92 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
97 |
FIZHI_WRAPPER |
vbef(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
101 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
102 |
FIZHI_WRITE_PICKUP |
temp(2,1,4,bi,bj) = float(nlwcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
103 |
FIZHI_WRITE_PICKUP |
temp(3,1,4,bi,bj) = float(nlwlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
104 |
FIZHI_WRITE_PICKUP |
temp(4,1,4,bi,bj) = float(nswcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
105 |
FIZHI_WRITE_PICKUP |
temp(5,1,4,bi,bj) = float(nswlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
106 |
FIZHI_WRITE_PICKUP |
temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
107 |
FIZHI_WRITE_PICKUP |
temp(7,1,4,bi,bj) = float(imstturblw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
49 |
FIZHI_WRITE_PICKUP |
integer i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_write_pickup.F |
52 |
FIZHI_WRITE_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_write_pickup.F |
91 |
FIZHI_WRITE_PICKUP |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
95 |
FIZHI_WRITE_PICKUP |
temp(i,j,1,bi,bj) = raincon(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
96 |
FIZHI_WRITE_PICKUP |
temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
97 |
FIZHI_WRITE_PICKUP |
temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
101 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
102 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
108 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
110 |
STEP_FIZHI_CORR |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
113 |
STEP_FIZHI_CORR |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
114 |
STEP_FIZHI_CORR |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
123 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
124 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
125 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
133 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
142 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
151 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
160 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
169 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
188 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
194 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
195 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
196 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
197 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
213 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
217 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
222 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
227 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
231 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
236 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
240 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
245 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
249 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
258 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
261 |
STEP_FIZHI_CORR |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj, |
|
./pkg/fizhi/step_fizhi_corr.F |
265 |
STEP_FIZHI_CORR |
. jdim1,jdim2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
278 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
287 |
STEP_FIZHI_CORR |
tempij(i,j) = (uphy (i,j,L,bi,bj)-ubef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
291 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDUFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
299 |
STEP_FIZHI_CORR |
tempij(i,j) = (vphy (i,j,L,bi,bj)-vbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
303 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDVFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
311 |
STEP_FIZHI_CORR |
tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
315 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDTFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
323 |
STEP_FIZHI_CORR |
tempij(i,j) = (sphy (i,j,L,bi,bj)-sbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
327 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDQFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
341 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
346 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
347 |
STEP_FIZHI_CORR |
. (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
348 |
STEP_FIZHI_CORR |
. guphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
349 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
350 |
STEP_FIZHI_CORR |
. (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
351 |
STEP_FIZHI_CORR |
. gvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
365 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
366 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
367 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
373 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
379 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
384 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
388 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
396 |
STEP_FIZHI_CORR |
uphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
397 |
STEP_FIZHI_CORR |
. ( (uphy(i,j,L,bi,bj)-ubef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
398 |
STEP_FIZHI_CORR |
. - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
399 |
STEP_FIZHI_CORR |
vphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
400 |
STEP_FIZHI_CORR |
. ( (vphy(i,j,L,bi,bj)-vbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
401 |
STEP_FIZHI_CORR |
. - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
423 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
428 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
429 |
STEP_FIZHI_CORR |
. (theta(i,j,L,bi,bj)-thdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
430 |
STEP_FIZHI_CORR |
. gthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
437 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
443 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
451 |
STEP_FIZHI_CORR |
thphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
452 |
STEP_FIZHI_CORR |
. ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
453 |
STEP_FIZHI_CORR |
. - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
470 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
476 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
477 |
STEP_FIZHI_CORR |
. gsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
484 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
490 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
498 |
STEP_FIZHI_CORR |
sphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
499 |
STEP_FIZHI_CORR |
. ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
500 |
STEP_FIZHI_CORR |
. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
56 |
STEP_FIZHI_CORR |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/step_fizhi_corr.F |
75 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
88 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
95 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
97 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
27 |
STEP_FIZHI_FG |
integer bi, bj |
|
./pkg/fizhi/step_fizhi_fg.F |
43 |
STEP_FIZHI_FG |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/step_fizhi_fg.F |
49 |
STEP_FIZHI_FG |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
56 |
STEP_FIZHI_FG |
tempij(i,j) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
64 |
STEP_FIZHI_FG |
tempij(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
72 |
STEP_FIZHI_FG |
tempij(i,j) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
80 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
88 |
STEP_FIZHI_FG |
. jm1,jm2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
95 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_physics.F |
14 |
STEP_PHYSICS |
integer Nrphys,Nsx,Nsy,bi,bj |
|
./pkg/fizhi/step_physics.F |
30 |
STEP_PHYSICS |
uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
31 |
STEP_PHYSICS |
vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
32 |
STEP_PHYSICS |
thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt |
|
./pkg/fizhi/step_physics.F |
33 |
STEP_PHYSICS |
sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
117 |
INTERP_CHEMISTRY |
integer nwatlevs,nwatlats,nozlevs,nozlats,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
132 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
134 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
140 |
INTERP_QZ |
. irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out ) |
|
./pkg/fizhi/update_chemistry_exports.F |
159 |
INTERP_QZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
279 |
INTERP_OZ |
. irun,bi,bj,xlat,nlevs,plevs,ozrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
296 |
INTERP_OZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
35 |
UPDATE_CHEMISTRY_EXPORTS |
integer i, j, L, LL, bi, bj |
|
./pkg/fizhi/update_chemistry_exports.F |
49 |
UPDATE_CHEMISTRY_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
59 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,LL,bi,bj)=pephy(i,j,LL+1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
66 |
UPDATE_CHEMISTRY_EXPORTS |
pphy(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)+pephy(i,j,L,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
74 |
UPDATE_CHEMISTRY_EXPORTS |
xlat(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
76 |
UPDATE_CHEMISTRY_EXPORTS |
waterin(i,j,L) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
98 |
UPDATE_CHEMISTRY_EXPORTS |
. waterin,pphy(1,1,1,bi,bj),xlat, |
|
./pkg/fizhi/update_chemistry_exports.F |
99 |
UPDATE_CHEMISTRY_EXPORTS |
. im2,jm2,Nrphys,nSx,nSy,bi,bj,o3,qstr) |
|
./pkg/fizhi/update_earth_exports.F |
100 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
101 |
UPDATE_EARTH_EXPORTS |
& nchp,nSx,nSy,bi,bj,alai,agrn ) |
|
./pkg/fizhi/update_earth_exports.F |
1025 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1029 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
115 |
UPDATE_EARTH_EXPORTS |
& nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/update_earth_exports.F |
1221 |
GET_LANDFRAC |
SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
INTEGER im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1246 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
1247 |
GET_LANDFRAC |
& (tilefrac(i,j,k,bi,bj).gt.0.0))then |
|
./pkg/fizhi/update_earth_exports.F |
1248 |
GET_LANDFRAC |
frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
125 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile, |
|
./pkg/fizhi/update_earth_exports.F |
126 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
127 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
141 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
142 |
UPDATE_EARTH_EXPORTS |
tmpchp(i) = tcanopy(i,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
144 |
UPDATE_EARTH_EXPORTS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp, |
|
./pkg/fizhi/update_earth_exports.F |
145 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
148 |
UPDATE_EARTH_EXPORTS |
tgz(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
149 |
UPDATE_EARTH_EXPORTS |
if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0) |
|
./pkg/fizhi/update_earth_exports.F |
150 |
UPDATE_EARTH_EXPORTS |
& tgz(i,j,bi,bj) = sst(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
53 |
UPDATE_EARTH_EXPORTS |
INTEGER i, j, n, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
706 |
GETLGR |
& nSx,nSy,bi,bj,ALAI,AGRN) |
|
./pkg/fizhi/update_earth_exports.F |
716 |
GETLGR |
INTEGER sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
73 |
UPDATE_EARTH_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/fizhi/update_earth_exports.F |
77 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
78 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
800 |
GETLGR |
IF(ALAT(I,bi,bj).GT.0.) THEN |
|
./pkg/fizhi/update_earth_exports.F |
808 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
810 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
811 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
821 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
82 |
UPDATE_EARTH_EXPORTS |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac, |
|
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
87 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
891 |
GETALB |
ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
892 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
893 |
GETALB |
ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
903 |
GETALB |
call SIBALB(avisdr,anirdr,avisdf,anirdf,alai(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
& agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
910 |
GETALB |
tmpij(i,j) = albvr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
918 |
GETALB |
albvr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
923 |
GETALB |
tmpij(i,j) = albvf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
926 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
930 |
GETALB |
albvf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
935 |
GETALB |
tmpij(i,j) = albnr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
938 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
942 |
GETALB |
albnr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
947 |
GETALB |
tmpij(i,j) = albnf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
950 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
954 |
GETALB |
albnf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
963 |
GETEMISS |
SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
994 |
GETEMISS |
INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./pkg/fizhi/update_ocean_exports.F |
105 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./pkg/fizhi/update_ocean_exports.F |
118 |
GETSICE |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
165 |
GETSICE |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
34 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, bislot, bjslot |
|
./pkg/fizhi/update_ocean_exports.F |
354 |
GETSICE |
sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
358 |
GETSICE |
if (sice(i,j,bi,bj) .ge. 0.5) then |
|
./pkg/fizhi/update_ocean_exports.F |
359 |
GETSICE |
sice(i,j,bi,bj) = 1. |
|
./pkg/fizhi/update_ocean_exports.F |
361 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./pkg/fizhi/update_ocean_exports.F |
369 |
GETSICE |
if (sice(i,j,bi,bj) .eq. 1.) then |
|
./pkg/fizhi/update_ocean_exports.F |
370 |
GETSICE |
sice(i,j,bi,bj) = 3. |
|
./pkg/fizhi/update_ocean_exports.F |
379 |
GETSST |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
426 |
GETSST |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
616 |
GETSST |
sst(i,j,bi,bj) = sstbc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
82 |
UPDATE_OCEAN_EXPORTS |
bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/update_ocean_exports.F |
83 |
UPDATE_OCEAN_EXPORTS |
bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1 |
|
./pkg/fizhi/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/fizhi/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
91 |
UPDATE_OCEAN_EXPORTS |
. sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
92 |
UPDATE_OCEAN_EXPORTS |
. nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
93 |
UPDATE_OCEAN_EXPORTS |
. ssttimes(1,bi,bj),sst,myThid) |
|
./pkg/fizhi/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
. sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
97 |
UPDATE_OCEAN_EXPORTS |
. nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
|
./pkg/flt/exch2_recv_get_vec.F |
107 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
109 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
115 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
118 |
EXCH2_RECV_GET_VEC_RL |
CALL MPI_RECV( array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_recv_get_vec.F |
137 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
138 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
139 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
144 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+1,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
145 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+2,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
146 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+3,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
147 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+4,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
154 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
155 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
156 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
157 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+3,bi,bj,dir) = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
158 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+4,bi,bj,dir) = pj(1)*itc+pj(2)*jtc+oj-jsb |
|
./pkg/flt/exch2_recv_get_vec.F |
165 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
177 |
EXCH2_RECV_GET_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_recv_get_vec.F |
179 |
EXCH2_RECV_GET_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_recv_get_vec.F |
189 |
EXCH2_RECV_GET_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
190 |
EXCH2_RECV_GET_VEC_RL |
wHandle = theHandle(1,nN,bi,bj) |
|
./pkg/flt/exch2_recv_get_vec.F |
67 |
EXCH2_RECV_GET_VEC_RL |
INTEGER bi, bj |
|
./pkg/flt/exch2_recv_get_vec.F |
95 |
EXCH2_RECV_GET_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_recv_get_vec.F |
97 |
EXCH2_RECV_GET_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_send_put_vec.F |
104 |
EXCH2_SEND_PUT_VEC_RL |
DO bj=1,nSy |
|
./pkg/flt/exch2_send_put_vec.F |
107 |
EXCH2_SEND_PUT_VEC_RL |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_send_put_vec.F |
117 |
EXCH2_SEND_PUT_VEC_RL |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
128 |
EXCH2_SEND_PUT_VEC_RL |
bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir) |
|
./pkg/flt/exch2_send_put_vec.F |
132 |
EXCH2_SEND_PUT_VEC_RL |
& W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
139 |
EXCH2_SEND_PUT_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_send_put_vec.F |
142 |
EXCH2_SEND_PUT_VEC_RL |
CALL MPI_ISEND(array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_send_put_vec.F |
144 |
EXCH2_SEND_PUT_VEC_RL |
& theHandle(1,nN,bi,bj), mpiRc) |
|
./pkg/flt/exch2_send_put_vec.F |
68 |
EXCH2_SEND_PUT_VEC_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
100 |
EXCH_RECV_GET_VEC_X_RL |
theTag = _tileTagRecvW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
104 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
107 |
EXCH_RECV_GET_VEC_X_RL |
CALL MPI_RECV( arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
123 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
129 |
EXCH_RECV_GET_VEC_X_RL |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
130 |
EXCH_RECV_GET_VEC_X_RL |
theTag = _tileTagRecvE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
137 |
EXCH_RECV_GET_VEC_X_RL |
CALL MPI_RECV( arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
144 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
153 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
155 |
EXCH_RECV_GET_VEC_X_RL |
IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
158 |
EXCH_RECV_GET_VEC_X_RL |
& CALL MPI_WAITALL( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
163 |
EXCH_RECV_GET_VEC_X_RL |
exchNReqsX(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
184 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
187 |
EXCH_RECV_GET_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
188 |
EXCH_RECV_GET_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
190 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
191 |
EXCH_RECV_GET_VEC_X_RL |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
197 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
198 |
EXCH_RECV_GET_VEC_X_RL |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
203 |
EXCH_RECV_GET_VEC_X_RL |
IF ( westRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
204 |
EXCH_RECV_GET_VEC_X_RL |
IF ( eastRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
206 |
EXCH_RECV_GET_VEC_X_RL |
westRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
207 |
EXCH_RECV_GET_VEC_X_RL |
eastRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
262 |
EXCH_RECV_GET_VEC_Y_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
289 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
291 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
292 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
294 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
303 |
EXCH_RECV_GET_VEC_Y_RL |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
304 |
EXCH_RECV_GET_VEC_Y_RL |
theTag = _tileTagRecvS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
307 |
EXCH_RECV_GET_VEC_Y_RL |
CALL MPI_RECV( arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
314 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
320 |
EXCH_RECV_GET_VEC_Y_RL |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
321 |
EXCH_RECV_GET_VEC_Y_RL |
theTag = _tileTagRecvN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
324 |
EXCH_RECV_GET_VEC_Y_RL |
CALL MPI_RECV( arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
331 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
341 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
343 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( exchNReqsY(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
346 |
EXCH_RECV_GET_VEC_Y_RL |
& CALL MPI_WAITALL( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
351 |
EXCH_RECV_GET_VEC_Y_RL |
exchNReqsY(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
372 |
EXCH_RECV_GET_VEC_Y_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
375 |
EXCH_RECV_GET_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
376 |
EXCH_RECV_GET_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
378 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
379 |
EXCH_RECV_GET_VEC_Y_RL |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
385 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
386 |
EXCH_RECV_GET_VEC_Y_RL |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
391 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( southRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
392 |
EXCH_RECV_GET_VEC_Y_RL |
IF ( northRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
394 |
EXCH_RECV_GET_VEC_Y_RL |
southRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
395 |
EXCH_RECV_GET_VEC_Y_RL |
northRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
58 |
EXCH_RECV_GET_VEC_X_RL |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
85 |
EXCH_RECV_GET_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_recv_get_vec.F |
87 |
EXCH_RECV_GET_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
88 |
EXCH_RECV_GET_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
90 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
99 |
EXCH_RECV_GET_VEC_X_RL |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
109 |
EXCH_SEND_PUT_VEC_X_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_send_put_vec.F |
112 |
EXCH_SEND_PUT_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
113 |
EXCH_SEND_PUT_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
114 |
EXCH_SEND_PUT_VEC_X_RL |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
115 |
EXCH_SEND_PUT_VEC_X_RL |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
116 |
EXCH_SEND_PUT_VEC_X_RL |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
117 |
EXCH_SEND_PUT_VEC_X_RL |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
124 |
EXCH_SEND_PUT_VEC_X_RL |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
125 |
EXCH_SEND_PUT_VEC_X_RL |
theTag = _tileTagSendW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
128 |
EXCH_SEND_PUT_VEC_X_RL |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
130 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
131 |
EXCH_SEND_PUT_VEC_X_RL |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
132 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
134 |
EXCH_SEND_PUT_VEC_X_RL |
CALL MPI_ISEND( arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
136 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
144 |
EXCH_SEND_PUT_VEC_X_RL |
bufRecE(I,biW,bjW) = arrayW(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
155 |
EXCH_SEND_PUT_VEC_X_RL |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
156 |
EXCH_SEND_PUT_VEC_X_RL |
theTag = _tileTagSendE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
159 |
EXCH_SEND_PUT_VEC_X_RL |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
164 |
EXCH_SEND_PUT_VEC_X_RL |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
165 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
169 |
EXCH_SEND_PUT_VEC_X_RL |
CALL MPI_ISEND( arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
171 |
EXCH_SEND_PUT_VEC_X_RL |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
179 |
EXCH_SEND_PUT_VEC_X_RL |
bufRecW(I,biE,bjE) = arrayE(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
199 |
EXCH_SEND_PUT_VEC_X_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
201 |
EXCH_SEND_PUT_VEC_X_RL |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
202 |
EXCH_SEND_PUT_VEC_X_RL |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
203 |
EXCH_SEND_PUT_VEC_X_RL |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
204 |
EXCH_SEND_PUT_VEC_X_RL |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
205 |
EXCH_SEND_PUT_VEC_X_RL |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
206 |
EXCH_SEND_PUT_VEC_X_RL |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
290 |
EXCH_SEND_PUT_VEC_Y_RL |
INTEGER bi, bj, biS, bjS, biN, bjN |
|
./pkg/flt/exch_send_put_vec.F |
331 |
EXCH_SEND_PUT_VEC_Y_RL |
DO bj=1,nSy |
|
./pkg/flt/exch_send_put_vec.F |
334 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
335 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
336 |
EXCH_SEND_PUT_VEC_Y_RL |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
337 |
EXCH_SEND_PUT_VEC_Y_RL |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
338 |
EXCH_SEND_PUT_VEC_Y_RL |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
339 |
EXCH_SEND_PUT_VEC_Y_RL |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
346 |
EXCH_SEND_PUT_VEC_Y_RL |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
347 |
EXCH_SEND_PUT_VEC_Y_RL |
theTag = _tileTagSendS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
350 |
EXCH_SEND_PUT_VEC_Y_RL |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
351 |
EXCH_SEND_PUT_VEC_Y_RL |
CALL MPI_ISEND( arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
353 |
EXCH_SEND_PUT_VEC_Y_RL |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
361 |
EXCH_SEND_PUT_VEC_Y_RL |
bufRecN(I,biS,bjS) = arrayS(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
372 |
EXCH_SEND_PUT_VEC_Y_RL |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
373 |
EXCH_SEND_PUT_VEC_Y_RL |
theTag = _tileTagSendN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
376 |
EXCH_SEND_PUT_VEC_Y_RL |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
377 |
EXCH_SEND_PUT_VEC_Y_RL |
CALL MPI_ISEND( arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
379 |
EXCH_SEND_PUT_VEC_Y_RL |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
387 |
EXCH_SEND_PUT_VEC_Y_RL |
bufRecS(I,biN,bjN) = arrayN(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
407 |
EXCH_SEND_PUT_VEC_Y_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
409 |
EXCH_SEND_PUT_VEC_Y_RL |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
410 |
EXCH_SEND_PUT_VEC_Y_RL |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
411 |
EXCH_SEND_PUT_VEC_Y_RL |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
412 |
EXCH_SEND_PUT_VEC_Y_RL |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
413 |
EXCH_SEND_PUT_VEC_Y_RL |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
414 |
EXCH_SEND_PUT_VEC_Y_RL |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
65 |
EXCH_SEND_PUT_VEC_X_RL |
INTEGER bi, bj, biW, bjW, biE, bjE |
|
./pkg/flt/flt_down.F |
30 |
FLT_DOWN |
INTEGER bi, bj |
|
./pkg/flt/flt_down.F |
35 |
FLT_DOWN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_down.F |
38 |
FLT_DOWN |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_down.F |
41 |
FLT_DOWN |
& ( myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
43 |
FLT_DOWN |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
45 |
FLT_DOWN |
& (kpart(ip,bi,bj) .LE. flt_surf) |
|
./pkg/flt/flt_down.F |
47 |
FLT_DOWN |
& (iup(ip,bi,bj) .GT. 0.) |
|
./pkg/flt/flt_down.F |
58 |
FLT_DOWN |
IF (mod(myTime,iup(ip,bi,bj)).EQ.itop(ip,bi,bj)) |
|
./pkg/flt/flt_down.F |
59 |
FLT_DOWN |
& kpart(ip,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
100 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
103 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
104 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
106 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
107 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
112 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
113 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
114 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_EAST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
116 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
118 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = iNew |
|
./pkg/flt/flt_exch2.F |
120 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
121 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_EAST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
122 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
123 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
124 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_EAST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
125 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
130 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
136 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
137 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
139 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
140 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
145 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
146 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
151 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = iNew |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
155 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
157 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
158 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
163 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
171 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
178 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
189 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
191 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
192 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
196 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
197 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
198 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
200 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
201 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
202 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
203 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
204 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
207 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
223 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
225 |
FLT_EXCH2 |
IF ( npart(ip,bi,bj).NE.0 ) THEN |
|
./pkg/flt/flt_exch2.F |
228 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
229 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
231 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
232 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
237 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
238 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
239 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_NORTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
244 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jNew |
|
./pkg/flt/flt_exch2.F |
246 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_NORTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
247 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
248 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
249 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_NORTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
250 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
255 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
266 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
267 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
269 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
270 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
275 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
276 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
277 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_SOUTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
278 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
280 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
282 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jNew |
|
./pkg/flt/flt_exch2.F |
284 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_SOUTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
285 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
286 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
287 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_SOUTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
288 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
293 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
308 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
315 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
326 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
328 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
333 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
334 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
335 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
336 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
337 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
338 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
339 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
340 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
341 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
344 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
386 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exch2.F |
392 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_EAST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
395 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
396 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
397 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
399 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
400 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
401 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
402 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
403 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
404 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
409 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
411 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
412 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
424 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
42 |
FLT_EXCH2 |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
433 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
438 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
440 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
441 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
450 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_NORTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
453 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
454 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
455 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
457 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
458 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
459 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
460 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
461 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
462 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
467 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
469 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
470 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
479 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_SOUTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
482 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
483 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
484 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
486 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
487 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
488 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
489 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
490 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
491 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
496 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
498 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
499 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
74 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exch2.F |
76 |
FLT_EXCH2 |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_exch2.F |
82 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
83 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exchg.F |
100 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
101 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
104 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
106 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
115 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
117 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
118 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
119 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
121 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
126 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
133 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
134 |
FLT_EXCHG |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
136 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
145 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
146 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
147 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
148 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
149 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
151 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
152 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
153 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
154 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
159 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
167 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
174 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
185 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exchg.F |
187 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
188 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
192 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
193 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
194 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
195 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
196 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
197 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
198 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
199 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
200 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
231 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
237 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
238 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
239 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
240 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
241 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
242 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
243 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
244 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
245 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
247 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
248 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
254 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
256 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
257 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
266 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
267 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
268 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
271 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
272 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
274 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
283 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
285 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
286 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
306 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
313 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
315 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
325 |
FLT_EXCHG |
sSide = myYGlobalLo+bj .LE.2 |
|
./pkg/flt/flt_exchg.F |
326 |
FLT_EXCHG |
nSide = myYGlobalLo+bj*sNy.GT.Ny |
|
./pkg/flt/flt_exchg.F |
329 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
333 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
334 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
336 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
337 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
339 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
345 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
346 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
347 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
348 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
350 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
352 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
354 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
359 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
374 |
FLT_EXCHG |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exchg.F |
375 |
FLT_EXCHG |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
384 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
385 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
386 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
388 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
389 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
390 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
391 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
392 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
397 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
410 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
417 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
428 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exchg.F |
430 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
435 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
436 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
437 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
439 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
440 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
441 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
442 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
443 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
446 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
46 |
FLT_EXCHG |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exchg.F |
474 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
480 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
481 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
482 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
483 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
484 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
485 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
486 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
487 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
488 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
489 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
490 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
491 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
492 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
497 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
499 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
500 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
509 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
510 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
511 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
512 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
513 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
514 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
515 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
516 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
517 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
518 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
519 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
520 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
521 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
526 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
528 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
529 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
74 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_exchg.F |
79 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
80 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
81 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
82 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
96 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_init_fixed.F |
33 |
FLT_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/flt/flt_init_fixed.F |
44 |
FLT_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_init_fixed.F |
46 |
FLT_INIT_FIXED |
xLo = MAX( xLo, -xG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
47 |
FLT_INIT_FIXED |
xHi = MAX( xHi, xG(sNx+1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
48 |
FLT_INIT_FIXED |
yLo = MAX( yLo, -yG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
49 |
FLT_INIT_FIXED |
yHi = MAX( yHi, yG(1,sNy+1,bi,bj) ) |
|
./pkg/flt/flt_init_varia.F |
125 |
FLT_INIT_VARIA |
bj = 0 |
|
./pkg/flt/flt_init_varia.F |
130 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
136 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
146 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
150 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
155 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
156 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
158 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
160 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
161 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
162 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
163 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
164 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
165 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
186 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
190 |
FLT_INIT_VARIA |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/flt/flt_init_varia.F |
195 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 6*6 |
|
./pkg/flt/flt_init_varia.F |
202 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = (iG-1)*6*6+ip |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
204 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = 1+5*(i-1) |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = 1+5*(j-1) |
|
./pkg/flt/flt_init_varia.F |
206 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = 1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
208 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
209 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
210 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
218 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
220 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
224 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
226 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
231 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
235 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
236 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
244 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
245 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
246 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
247 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
248 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
249 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
250 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
251 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
252 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
263 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
265 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
266 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
268 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_init_varia.F |
269 |
FLT_INIT_VARIA |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_init_varia.F |
47 |
FLT_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/flt/flt_init_varia.F |
83 |
FLT_INIT_VARIA |
DO bj = 1,nSy |
|
./pkg/flt/flt_init_varia.F |
85 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = 0 |
|
./pkg/flt/flt_interp_linear.F |
110 |
FLT_TRILINEAR |
I nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
135 |
FLT_TRILINEAR |
INTEGER nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
17 |
FLT_BILINEAR |
I kl, nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
187 |
FLT_TRILINEAR |
uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
188 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k1,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
189 |
FLT_TRILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
190 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k1,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
191 |
FLT_TRILINEAR |
& + ddz *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
192 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
193 |
FLT_TRILINEAR |
& + ( ddx*(1.-ddy) *var(i2,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
194 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k2,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
205 |
FLT_BILINEAR2D |
I nu, bi, bj, myThid ) |
|
./pkg/flt/flt_interp_linear.F |
227 |
FLT_BILINEAR2D |
INTEGER nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
266 |
FLT_BILINEAR2D |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
267 |
FLT_BILINEAR2D |
& + ddx * ddy *var(i2,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
268 |
FLT_BILINEAR2D |
& + ( ddx *(1.-ddy)*var(i2,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
269 |
FLT_BILINEAR2D |
& + (1.-ddx)* ddy *var(i1,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
36 |
FLT_BILINEAR |
INTEGER kl, nu, bi, bj, myThid |
|
./pkg/flt/flt_interp_linear.F |
84 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
85 |
FLT_BILINEAR |
& + ddx * ddy *var(i2,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
86 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
87 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
116 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
136 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
137 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
147 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
148 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
149 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
150 |
FLT_MAP_IJLOCAL2XY |
& - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
151 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddx*( yG(i+1,j,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
152 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
153 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
154 |
FLT_MAP_IJLOCAL2XY |
& - yG(i,j+1,bi,bj) + yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
157 |
FLT_MAP_IJLOCAL2XY |
xx_ij=xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
158 |
FLT_MAP_IJLOCAL2XY |
xx_ip1j=xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
159 |
FLT_MAP_IJLOCAL2XY |
xx_ijp1=xG(i,j+1,bi,bj) |
|
./pkg/flt/flt_mapping.F |
160 |
FLT_MAP_IJLOCAL2XY |
xx_ip1jp1=xG(i+1,j+1,bi,bj) |
|
./pkg/flt/flt_mapping.F |
16 |
FLT_MAP_XY2IJLOCAL |
I xx, yy, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
182 |
FLT_MAP_IJLOCAL2XY |
I rr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
204 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
229 |
FLT_MAP_IJLOCAL2XY |
I kr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
251 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
42 |
FLT_MAP_XY2IJLOCAL |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
60 |
FLT_MAP_XY2IJLOCAL |
IF ( xG(i,j,bi,bj).LE.xx .AND. xx.LT.xG(i+1,j,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
61 |
FLT_MAP_XY2IJLOCAL |
dist = xG(i+1,j,bi,bj) - xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
62 |
FLT_MAP_XY2IJLOCAL |
fm = ( xx - xG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
71 |
FLT_MAP_XY2IJLOCAL |
IF ( yG(i,j,bi,bj).LE.yy .AND. yy.LT.yG(i,j+1,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
72 |
FLT_MAP_XY2IJLOCAL |
dist = yG(i,j+1,bi,bj) - yG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
73 |
FLT_MAP_XY2IJLOCAL |
fm = ( yy - yG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
90 |
FLT_MAP_IJLOCAL2XY |
I ix, jy, bi, bj, myThid ) |
|
./pkg/flt/flt_runga2.F |
100 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga2.F |
105 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
112 |
FLT_RUNGA2 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
113 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
114 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
120 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
131 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
148 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
150 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
151 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
157 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
167 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
178 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
190 |
FLT_RUNGA2 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
192 |
FLT_RUNGA2 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
195 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
196 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga2.F |
203 |
FLT_RUNGA2 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga2.F |
207 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
209 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga2.F |
210 |
FLT_RUNGA2 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
212 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga2.F |
222 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
223 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
226 |
FLT_RUNGA2 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga2.F |
52 |
FLT_RUNGA2 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga2.F |
78 |
FLT_RUNGA2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_runga2.F |
80 |
FLT_RUNGA2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
85 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
89 |
FLT_RUNGA2 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
90 |
FLT_RUNGA2 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga2.F |
93 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
97 |
FLT_RUNGA2 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
99 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
100 |
FLT_RUNGA4 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga4.F |
107 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
114 |
FLT_RUNGA4 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
133 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
150 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
153 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
155 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
157 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
163 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
165 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
168 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
174 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
185 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
200 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
203 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
205 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
207 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
213 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
215 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
218 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
224 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
235 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
250 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
253 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
255 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
257 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
263 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
265 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
268 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
274 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
285 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
297 |
FLT_RUNGA4 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
299 |
FLT_RUNGA4 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
302 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
303 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga4.F |
310 |
FLT_RUNGA4 |
jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) ) |
|
./pkg/flt/flt_runga4.F |
314 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
316 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga4.F |
317 |
FLT_RUNGA4 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
319 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga4.F |
329 |
FLT_RUNGA4 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga4.F |
330 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
333 |
FLT_RUNGA4 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga4.F |
52 |
FLT_RUNGA4 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga4.F |
78 |
FLT_RUNGA4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_runga4.F |
80 |
FLT_RUNGA4 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga4.F |
83 |
FLT_RUNGA4 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
85 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga4.F |
88 |
FLT_RUNGA4 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
89 |
FLT_RUNGA4 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
90 |
FLT_RUNGA4 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga4.F |
93 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
99 |
FLT_RUNGA4 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_traj.F |
100 |
FLT_TRAJ |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/flt/flt_traj.F |
102 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
105 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
107 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
108 |
FLT_TRAJ |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_traj.F |
109 |
FLT_TRAJ |
kp = NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
117 |
FLT_TRAJ |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
& ( myTime.GE.tstart(ip,bi,bj)) .AND. |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
129 |
FLT_TRAJ |
& ' FLT_TRAJ: ', (flt_io_buff(ii,ip,bi,bj),ii=1,5) |
|
./pkg/flt/flt_traj.F |
137 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
141 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
156 |
FLT_TRAJ |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_traj.F |
174 |
FLT_TRAJ |
DO bj=1,nSy |
|
./pkg/flt/flt_traj.F |
181 |
FLT_TRAJ |
I bi, bj, 1, myThid ) |
|
./pkg/flt/flt_traj.F |
210 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
229 |
FLT_TRAJ |
& bi, bj, -1, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
231 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
234 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_traj.F |
236 |
FLT_TRAJ |
I flt_io_buff(1,ip,bi,bj), dummyRS, |
|
./pkg/flt/flt_traj.F |
237 |
FLT_TRAJ |
I bi, bj, irecord, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
47 |
FLT_TRAJ |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_traj.F |
91 |
FLT_TRAJ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_traj.F |
95 |
FLT_TRAJ |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_up.F |
100 |
FLT_UP |
IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.) |
|
./pkg/flt/flt_up.F |
101 |
FLT_UP |
& kpart(ip,bi,bj) = flt_surf |
|
./pkg/flt/flt_up.F |
106 |
FLT_UP |
IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
108 |
FLT_UP |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
114 |
FLT_UP |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
116 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
117 |
FLT_UP |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_up.F |
119 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
126 |
FLT_UP |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
130 |
FLT_UP |
& ( myTime.GE.tstart(ip,bi,bj) ) .AND. |
|
./pkg/flt/flt_up.F |
131 |
FLT_UP |
& ( tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj) ) |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_up.F |
172 |
FLT_UP |
DO bj=1,nSy |
|
./pkg/flt/flt_up.F |
179 |
FLT_UP |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_up.F |
208 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
227 |
FLT_UP |
& bi, bj, -1, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
229 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
232 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
234 |
FLT_UP |
& flt_io_buff(1,ip,bi,bj), dummyRS, |
|
./pkg/flt/flt_up.F |
235 |
FLT_UP |
& bi, bj, irecord, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_up.F |
85 |
FLT_UP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/flt/flt_up.F |
89 |
FLT_UP |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/flt/flt_up.F |
90 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_up.F |
93 |
FLT_UP |
IF ( myTime.GE.tstart(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
94 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
96 |
FLT_UP |
& kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
97 |
FLT_UP |
& iup(ip,bi,bj).GT.0. |
|
./pkg/flt/flt_write_pickup.F |
101 |
FLT_WRITE_PICKUP |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_write_pickup.F |
44 |
FLT_WRITE_PICKUP |
INTEGER bi, bj, imax, iLen |
|
./pkg/flt/flt_write_pickup.F |
58 |
FLT_WRITE_PICKUP |
DO bj=1,nSy |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
77 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
79 |
FLT_WRITE_PICKUP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
81 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
86 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
88 |
FLT_WRITE_PICKUP |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
89 |
FLT_WRITE_PICKUP |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_write_pickup.F |
96 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/frazil/frazil_calc_rhs.F |
42 |
FRAZIL_CALC_RHS |
INTEGER bi,bj,i,j,k,kTop |
|
./pkg/frazil/frazil_calc_rhs.F |
53 |
FRAZIL_CALC_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/frazil/frazil_calc_rhs.F |
60 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
69 |
FRAZIL_CALC_RHS |
IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND. |
|
./pkg/frazil/frazil_calc_rhs.F |
70 |
FRAZIL_CALC_RHS |
& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
92 |
FRAZIL_CALC_RHS |
kTop = kSurfC(i,j,bi,bj) |
|
./pkg/frazil/frazil_calc_rhs.F |
95 |
FRAZIL_CALC_RHS |
& * drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_calc_rhs.F |
96 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k) |
|
./pkg/frazil/frazil_calc_rhs.F |
97 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,kTop,bi,bj) = |
|
./pkg/frazil/frazil_calc_rhs.F |
98 |
FRAZIL_CALC_RHS |
& FrazilForcingT(i,j,kTop,bi,bj) |
|
./pkg/frazil/frazil_init_varia.F |
32 |
FRAZIL_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/frazil/frazil_init_varia.F |
35 |
FRAZIL_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/frazil/frazil_init_varia.F |
40 |
FRAZIL_INIT_VARIA |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_tendency_apply.F |
15 |
FRAZIL_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/frazil/frazil_tendency_apply.F |
44 |
FRAZIL_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/frazil/frazil_tendency_apply.F |
60 |
FRAZIL_TENDENCY_APPLY_T |
& + FrazilForcingT(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_tendency_apply.F |
62 |
FRAZIL_TENDENCY_APPLY_T |
& * recip_drF(k) * _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/gchem/gchem_add_tendency.F |
12 |
GCHEM_ADD_TENDENCY |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/gchem/gchem_add_tendency.F |
41 |
GCHEM_ADD_TENDENCY |
INTEGER k, bi, bj, iTr |
|
./pkg/gchem/gchem_add_tendency.F |
64 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(i,j,k,bi,bj,jTr) |
|
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
109 |
GCHEM_CALC_TENDENCY |
U gchemTendency(1-OLx,1-OLy,1,bi,bj,jTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
110 |
GCHEM_CALC_TENDENCY |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_calc_tendency.F |
115 |
GCHEM_CALC_TENDENCY |
I pTracer (1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
116 |
GCHEM_CALC_TENDENCY |
U gchemTendency(1-OLx,1-OLy,1,bi,bj,jTr), |
|
./pkg/gchem/gchem_calc_tendency.F |
117 |
GCHEM_CALC_TENDENCY |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_calc_tendency.F |
59 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/gchem/gchem_calc_tendency.F |
63 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_calc_tendency.F |
82 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
140 |
GCHEM_FORCING_SEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
155 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
156 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
157 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
158 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
159 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
160 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
161 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
165 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
166 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
167 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
168 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
169 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
170 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
173 |
GCHEM_FORCING_SEP |
CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
174 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
175 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
176 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
177 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
190 |
GCHEM_FORCING_SEP |
CALL BLING_MAIN( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
191 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
192 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
193 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
194 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
195 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
196 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/gchem/gchem_forcing_sep.F |
197 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/gchem/gchem_forcing_sep.F |
199 |
GCHEM_FORCING_SEP |
& pTracer(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/gchem/gchem_forcing_sep.F |
201 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
214 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
215 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
217 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
218 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
220 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
221 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
223 |
GCHEM_FORCING_SEP |
CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
224 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
234 |
GCHEM_FORCING_SEP |
& bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gchem/gchem_forcing_sep.F |
250 |
GCHEM_FORCING_SEP |
I bi, bj, 0, iTr, |
|
./pkg/gchem/gchem_forcing_sep.F |
251 |
GCHEM_FORCING_SEP |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/gchem/gchem_forcing_sep.F |
62 |
GCHEM_FORCING_SEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gchem/gchem_init_vari.F |
42 |
GCHEM_INIT_VARI |
INTEGER bi,bj |
|
./pkg/gchem/gchem_init_vari.F |
50 |
GCHEM_INIT_VARI |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
32 |
GCHEM_SURFMEAN |
INTEGER i,j,bi,bj |
|
./pkg/gchem/gchem_surfmean.F |
44 |
GCHEM_SURFMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gchem/gchem_surfmean.F |
46 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = 0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
49 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = sumTracerTile(bi,bj) |
|
./pkg/gchem/gchem_surfmean.F |
50 |
GCHEM_SURFMEAN |
& + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1015 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1018 |
GAD_ADVECTION |
& *rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1029 |
GAD_ADVECTION |
& ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1030 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1031 |
GAD_ADVECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1041 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1042 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1044 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
1045 |
GAD_ADVECTION |
& )*rkSign*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1047 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1056 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
1061 |
GAD_ADVECTION |
& 'AFR', k, 1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
178 |
GAD_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
19 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
248 |
GAD_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
281 |
GAD_ADVECTION |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
282 |
GAD_ADVECTION |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
283 |
GAD_ADVECTION |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
299 |
GAD_ADVECTION |
localTij(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
301 |
GAD_ADVECTION |
localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
302 |
GAD_ADVECTION |
& *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
303 |
GAD_ADVECTION |
& + ( oneRS - maskC(i,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_advection.F |
306 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
307 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
309 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
310 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
318 |
GAD_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
386 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
405 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
409 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
413 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
422 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
428 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
434 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
445 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
454 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
486 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
489 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
494 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
495 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
497 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
498 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
509 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
512 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
517 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
518 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
520 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
521 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
538 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
541 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
546 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
547 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
549 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
550 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
595 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
614 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
618 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
622 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
626 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
631 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
637 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
643 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
654 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
663 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
695 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
698 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
703 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
704 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
707 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
718 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
721 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
726 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
729 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
730 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
747 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
750 |
GAD_ADVECTION |
& *maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
755 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
756 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
758 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
759 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
805 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afx, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
809 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afy, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
80 |
GAD_ADVECTION |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_advection.F |
813 |
GAD_ADVECTION |
CALL LAYERS_FILL(afx,trIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
814 |
GAD_ADVECTION |
CALL LAYERS_FILL(afy,trIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
826 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
854 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
856 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
862 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_R( vertAdvecScheme, bi, bj, |
|
./pkg/generic_advdiff/gad_advection.F |
883 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
885 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
891 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_R( vertAdvecScheme, bi, bj, |
|
./pkg/generic_advdiff/gad_advection.F |
939 |
GAD_ADVECTION |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
941 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
956 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
960 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
964 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
968 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
973 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_biharm_r.F |
11 |
GAD_BIHARM_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_biharm_r.F |
35 |
GAD_BIHARM_R |
INTEGER bi, bj, k |
|
./pkg/generic_advdiff/gad_biharm_r.F |
72 |
GAD_BIHARM_R |
& *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
86 |
GAD_BIHARM_R |
& *_recip_hFacC(i,j,kl,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
97 |
GAD_BIHARM_R |
& *tmpFac*_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
11 |
GAD_BIHARM_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_x.F |
35 |
GAD_BIHARM_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_x.F |
56 |
GAD_BIHARM_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
59 |
GAD_BIHARM_X |
& *sqCosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
61 |
GAD_BIHARM_X |
& *cosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
11 |
GAD_BIHARM_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_y.F |
35 |
GAD_BIHARM_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_y.F |
58 |
GAD_BIHARM_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
62 |
GAD_BIHARM_Y |
& *sqCosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
64 |
GAD_BIHARM_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
11 |
GAD_C2_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
37 |
GAD_C2_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
63 |
GAD_C2_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)* |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
11 |
GAD_C2_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
35 |
GAD_C2_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
11 |
GAD_C2_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
35 |
GAD_C2_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
10 |
GAD_C2_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
42 |
GAD_C2_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./model/inc/RECIP_HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
11 |
GAD_C4_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
39 |
GAD_C4_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
76 |
GAD_C4_ADV_R |
maskBound = maskPM*maskC(i,j,km2,bi,bj)*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
77 |
GAD_C4_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
83 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
11 |
GAD_C4_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
40 |
GAD_C4_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
75 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
11 |
GAD_C4_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
40 |
GAD_C4_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
75 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
11 |
GAD_CALC_RHS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
202 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
203 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
217 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X( bi,bj,k, uTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
220 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
229 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
234 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
238 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
241 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
257 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
262 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
273 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
I maskW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
287 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
292 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
311 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
318 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax+1, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
357 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y( bi,bj,k, vTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
360 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
369 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
374 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
378 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
381 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
393 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
397 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
402 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
413 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
414 |
GAD_CALC_RHS |
I maskS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
427 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
432 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
440 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
477 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
481 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
507 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
511 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
513 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
524 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
528 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
533 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
543 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
546 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
550 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
554 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
556 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
567 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
587 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
593 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
596 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
599 |
GAD_CALC_RHS |
CALL LAYERS_FILL(af,trIdentity,'AFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
616 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
620 |
GAD_CALC_RHS |
CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
647 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
650 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
671 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
700 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
703 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
723 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
724 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
750 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
751 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
758 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
759 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
776 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
777 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
778 |
GAD_CALC_RHS |
& *( (fZon(i+1,j)-fZon(i,j))*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
779 |
GAD_CALC_RHS |
& +(fMer(i,j+1)-fMer(i,j))*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
784 |
GAD_CALC_RHS |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
796 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
88 |
GAD_CALC_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/generic_advdiff/gad_del2.F |
11 |
GAD_DEL2 |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_del2.F |
33 |
GAD_DEL2 |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_del2.F |
58 |
GAD_DEL2 |
del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_del2.F |
59 |
GAD_DEL2 |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
112 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
119 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
120 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
123 |
GAD_DIAGNOSTICS_STATE |
& ( som_S(i,j,k,bi,bj,1)*som_S(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
124 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,2)*som_S(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
125 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,3)*som_S(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
127 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,4)*som_S(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
128 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,5)*som_S(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
129 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,6)*som_S(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
131 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,7)*som_S(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
132 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,8)*som_S(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
133 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,9)*som_S(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
140 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
45 |
GAD_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
67 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
74 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
75 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
78 |
GAD_DIAGNOSTICS_STATE |
& ( som_T(i,j,k,bi,bj,1)*som_T(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
79 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,2)*som_T(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
80 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,3)*som_T(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
82 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,4)*som_T(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
83 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,5)*som_T(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
84 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,6)*som_T(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
86 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,7)*som_T(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
87 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,8)*som_T(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
88 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,9)*som_T(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
96 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diff_r.F |
11 |
GAD_DIFF_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_diff_r.F |
37 |
GAD_DIFF_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_r.F |
64 |
GAD_DIFF_R |
& *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_diff_x.F |
11 |
GAD_DIFF_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_x.F |
36 |
GAD_DIFF_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_x.F |
55 |
GAD_DIFF_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_diff_x.F |
57 |
GAD_DIFF_X |
& *cosFacU(j,bi,bj) |
|
./model/inc/RECIP_HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diff_y.F |
11 |
GAD_DIFF_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_y.F |
36 |
GAD_DIFF_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_y.F |
57 |
GAD_DIFF_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_diff_y.F |
60 |
GAD_DIFF_Y |
& *cosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
11 |
GAD_DST2U1_ADV_R |
I bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
38 |
GAD_DST2U1_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
90 |
GAD_DST2U1_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
11 |
GAD_DST2U1_ADV_X |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
39 |
GAD_DST2U1_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
71 |
GAD_DST2U1_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
11 |
GAD_DST2U1_ADV_Y |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
39 |
GAD_DST2U1_ADV_Y |
INTEGER bi,bj, k, advectionScheme |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
70 |
GAD_DST2U1_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
10 |
GAD_DST2U1_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
47 |
GAD_DST2U1_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
11 |
GAD_DST3_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
42 |
GAD_DST3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
84 |
GAD_DST3_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
11 |
GAD_DST3_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
43 |
GAD_DST3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
87 |
GAD_DST3_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
11 |
GAD_DST3_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
42 |
GAD_DST3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
86 |
GAD_DST3_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
11 |
GAD_DST3FL_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
38 |
GAD_DST3FL_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
74 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
76 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
78 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
25 |
GAD_DST3FL_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
63 |
GAD_DST3FL_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
7 |
GAD_DST3FL_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./model/inc/RECIP_HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
25 |
GAD_DST3FL_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
59 |
GAD_DST3FL_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
7 |
GAD_DST3FL_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
103 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
10 |
GAD_DST3FL_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
112 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
114 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
145 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
146 |
GAD_DST3FL_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
147 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
50 |
GAD_DST3FL_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
107 |
GAD_FLUXLIMIT_ADV_R |
wT(i,j) = maskC(i,j,kM1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
11 |
GAD_FLUXLIMIT_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
44 |
GAD_FLUXLIMIT_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
88 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
91 |
GAD_FLUXLIMIT_ADV_R |
& *maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
11 |
GAD_FLUXLIMIT_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
44 |
GAD_FLUXLIMIT_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
78 |
GAD_FLUXLIMIT_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
11 |
GAD_FLUXLIMIT_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
44 |
GAD_FLUXLIMIT_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
78 |
GAD_FLUXLIMIT_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
10 |
GAD_FLUXLIMIT_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
45 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
90 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
92 |
GAD_FLUXLIMIT_IMPL_R |
Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_x.F |
11 |
GAD_GRAD_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_x.F |
32 |
GAD_GRAD_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_x.F |
54 |
GAD_GRAD_X |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_x.F |
63 |
GAD_GRAD_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_grad_x.F |
66 |
GAD_GRAD_X |
& *sqCosFacU(j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_x.F |
69 |
GAD_GRAD_X |
& *maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_y.F |
11 |
GAD_GRAD_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_y.F |
32 |
GAD_GRAD_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_y.F |
54 |
GAD_GRAD_Y |
& tracer, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_grad_y.F |
65 |
GAD_GRAD_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_grad_y.F |
69 |
GAD_GRAD_Y |
& *sqCosFacV(j,bi,bj) |
|
./pkg/generic_advdiff/gad_grad_y.F |
73 |
GAD_GRAD_Y |
& *maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
128 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
140 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
198 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
200 |
GAD_IMPLICIT_R |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
216 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
223 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
238 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
245 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
268 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
279 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
& * maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
319 |
GAD_IMPLICIT_R |
& * maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
334 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
335 |
GAD_IMPLICIT_R |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
339 |
GAD_IMPLICIT_R |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
385 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
386 |
GAD_IMPLICIT_R |
& *rStarFacC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
393 |
GAD_IMPLICIT_R |
& _hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
394 |
GAD_IMPLICIT_R |
& + dBHybSigF(k)*dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/generic_advdiff/gad_implicit_r.F |
401 |
GAD_IMPLICIT_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
402 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
404 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
416 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
426 |
GAD_IMPLICIT_R |
& - rkSign*div(i,j)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
433 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
437 |
GAD_IMPLICIT_R |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
51 |
GAD_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
37 |
GAD_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
40 |
GAD_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
25 |
GAD_OS7MP_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
74 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
75 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
76 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
77 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
78 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
79 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,km3,bi,bj) * float(km3-km4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
7 |
GAD_OS7MP_ADV_R |
I bi,bj,k,deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
89 |
GAD_OS7MP_ADV_R |
MskIpp = maskC(i,j,km2,bi,bj) * float(km2-km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
90 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,km1,bi,bj) * float(km1-km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
91 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
92 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
93 |
GAD_OS7MP_ADV_R |
MskImm = maskC(i,j,kp2,bi,bj) * float(kp2-kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
94 |
GAD_OS7MP_ADV_R |
MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
25 |
GAD_OS7MP_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
67 |
GAD_OS7MP_ADV_X |
IF ( calcCFL ) cfl = abs(uLoc*deltaTloc*recip_dxC(i,j,bi,bj)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
7 |
GAD_OS7MP_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
25 |
GAD_OS7MP_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
67 |
GAD_OS7MP_ADV_Y |
IF ( calcCFL ) cfl = abs(vLoc*deltaTloc*recip_dyC(i,j,bi,bj)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
7 |
GAD_OS7MP_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
110 |
GAD_OSC_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
98 |
GAD_OSC_HAT_R |
SUBROUTINE GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
106 |
GAD_OSC_HAT_X |
SUBROUTINE GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
118 |
GAD_OSC_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
106 |
GAD_OSC_HAT_Y |
SUBROUTINE GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
118 |
GAD_OSC_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
113 |
GAD_PPM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
126 |
GAD_PPM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
132 |
GAD_PPM_ADV_R |
CALL GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
137 |
GAD_PPM_ADV_R |
CALL GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
144 |
GAD_PPM_ADV_R |
CALL GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
32 |
GAD_PPM_ADV_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
6 |
GAD_PPM_ADV_R |
SUBROUTINE GAD_PPM_ADV_R(meth,bi,bj, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
108 |
GAD_PPM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
113 |
GAD_PPM_ADV_X |
CALL GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
119 |
GAD_PPM_ADV_X |
CALL GAD_PPM_P3E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
124 |
GAD_PPM_ADV_X |
CALL GAD_PPM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
131 |
GAD_PPM_ADV_X |
CALL GAD_PPM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
34 |
GAD_PPM_ADV_X |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
6 |
GAD_PPM_ADV_X |
SUBROUTINE GAD_PPM_ADV_X(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
108 |
GAD_PPM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
113 |
GAD_PPM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
119 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
124 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
131 |
GAD_PPM_ADV_Y |
CALL GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
34 |
GAD_PPM_ADV_Y |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
6 |
GAD_PPM_ADV_Y |
SUBROUTINE GAD_PPM_ADV_Y(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
31 |
GAD_PPM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
6 |
GAD_PPM_FLX_R |
SUBROUTINE GAD_PPM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
106 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
32 |
GAD_PPM_FLX_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
6 |
GAD_PPM_FLX_X |
SUBROUTINE GAD_PPM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
79 |
GAD_PPM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
106 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
32 |
GAD_PPM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
6 |
GAD_PPM_FLX_Y |
SUBROUTINE GAD_PPM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
79 |
GAD_PPM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
34 |
GAD_PPM_HAT_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
6 |
GAD_PPM_HAT_R |
SUBROUTINE GAD_PPM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
35 |
GAD_PPM_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
6 |
GAD_PPM_HAT_X |
SUBROUTINE GAD_PPM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
35 |
GAD_PPM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
6 |
GAD_PPM_HAT_Y |
SUBROUTINE GAD_PPM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
21 |
GAD_PPM_P3E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
6 |
GAD_PPM_P3E_R |
SUBROUTINE GAD_PPM_P3E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
21 |
GAD_PPM_P3E_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
6 |
GAD_PPM_P3E_X |
SUBROUTINE GAD_PPM_P3E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
21 |
GAD_PPM_P3E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
6 |
GAD_PPM_P3E_Y |
SUBROUTINE GAD_PPM_P3E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
108 |
GAD_PQM_ADV_R |
& maskC(ix,iy,ir,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
123 |
GAD_PQM_ADV_R |
CALL GAD_OSC_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
129 |
GAD_PQM_ADV_R |
CALL GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
134 |
GAD_PQM_ADV_R |
CALL GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
141 |
GAD_PQM_ADV_R |
CALL GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
32 |
GAD_PQM_ADV_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
6 |
GAD_PQM_ADV_R |
SUBROUTINE GAD_PQM_ADV_R(meth,bi,bj, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
104 |
GAD_PQM_ADV_X |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
111 |
GAD_PQM_ADV_X |
CALL GAD_OSC_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
117 |
GAD_PQM_ADV_X |
CALL GAD_PQM_P5E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
122 |
GAD_PQM_ADV_X |
CALL GAD_PQM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
129 |
GAD_PQM_ADV_X |
CALL GAD_PQM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
34 |
GAD_PQM_ADV_X |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
6 |
GAD_PQM_ADV_X |
SUBROUTINE GAD_PQM_ADV_X(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
104 |
GAD_PQM_ADV_Y |
& maskC(ix,iy,kk,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
111 |
GAD_PQM_ADV_Y |
CALL GAD_OSC_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
117 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
122 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
129 |
GAD_PQM_ADV_Y |
CALL GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
34 |
GAD_PQM_ADV_Y |
integer bi,bj,kk |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
6 |
GAD_PQM_ADV_Y |
SUBROUTINE GAD_PQM_ADV_Y(meth,bi,bj,kk, |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
31 |
GAD_PQM_FLX_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
6 |
GAD_PQM_FLX_R |
SUBROUTINE GAD_PQM_FLX_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
112 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-0,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
32 |
GAD_PQM_FLX_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
6 |
GAD_PQM_FLX_X |
SUBROUTINE GAD_PQM_FLX_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
79 |
GAD_PQM_FLX_X |
& * recip_dxF(ix-1,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
112 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-0,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
32 |
GAD_PQM_FLX_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
6 |
GAD_PQM_FLX_Y |
SUBROUTINE GAD_PQM_FLX_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
79 |
GAD_PQM_FLX_Y |
& * recip_dyF(ix,iy-1,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
36 |
GAD_PQM_HAT_R |
integer bi,bj |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
6 |
GAD_PQM_HAT_R |
SUBROUTINE GAD_PQM_HAT_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
37 |
GAD_PQM_HAT_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
6 |
GAD_PQM_HAT_X |
SUBROUTINE GAD_PQM_HAT_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
37 |
GAD_PQM_HAT_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
6 |
GAD_PQM_HAT_Y |
SUBROUTINE GAD_PQM_HAT_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
21 |
GAD_PQM_P5E_R |
integer bi,bj,ix,iy |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
6 |
GAD_PQM_P5E_R |
SUBROUTINE GAD_PQM_P5E_R(bi,bj,ix,iy, |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
21 |
GAD_PQM_P5E_X |
integer bi,bj,kk,iy |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
6 |
GAD_PQM_P5E_X |
SUBROUTINE GAD_PQM_P5E_X(bi,bj,kk,iy, |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
75 |
GAD_PQM_P5E_X |
& ) * recip_dxC(ix,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
21 |
GAD_PQM_P5E_Y |
integer bi,bj,kk,ix |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
6 |
GAD_PQM_P5E_Y |
SUBROUTINE GAD_PQM_P5E_Y(bi,bj,kk,ix, |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
76 |
GAD_PQM_P5E_Y |
& ) * recip_dyC(ix,iy,bi,bj) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
11 |
GAD_SOM_ADV_R |
I bi,bj,k, kUp, kDw, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
55 |
GAD_SOM_ADV_R |
INTEGER bi,bj,k, kUp, kDw |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
11 |
GAD_SOM_ADV_X |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
52 |
GAD_SOM_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
11 |
GAD_SOM_ADV_Y |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
52 |
GAD_SOM_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_advect.F |
17 |
GAD_SOM_ADVECT |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
216 |
GAD_SOM_ADVECT |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
246 |
GAD_SOM_ADVECT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
248 |
GAD_SOM_ADVECT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
249 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
264 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
265 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
270 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
319 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
326 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
330 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
333 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
334 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
335 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
336 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
337 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
338 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
339 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
340 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
341 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
366 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
373 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
377 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
380 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
381 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
382 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
383 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
384 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
386 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
387 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
388 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
410 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
411 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
412 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
422 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
426 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
430 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afx,tracerIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
431 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afy,tracerIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
443 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
457 |
GAD_SOM_ADVECT |
CALL GAD_SOM_LIM_R( bi,bj, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
460 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
461 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
462 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
463 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
464 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
465 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
466 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
467 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
468 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
531 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
533 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
543 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
545 |
GAD_SOM_ADVECT |
maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
556 |
GAD_SOM_ADVECT |
I bi,bj,k, kUp, kDown, |
|
./pkg/generic_advdiff/gad_som_advect.F |
558 |
GAD_SOM_ADVECT |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/generic_advdiff/gad_som_advect.F |
561 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
562 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
563 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
564 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
565 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
566 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
567 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
568 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
569 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
593 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
594 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
595 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
59 |
GAD_SOM_ADVECT |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_advect.F |
605 |
GAD_SOM_ADVECT |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
610 |
GAD_SOM_ADVECT |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
13 |
GAD_SOM_FILL_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
58 |
GAD_SOM_FILL_CS_CORNER |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
73 |
GAD_SOM_FILL_CS_CORNER |
& sm_v , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
75 |
GAD_SOM_FILL_CS_CORNER |
& sm_o , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
77 |
GAD_SOM_FILL_CS_CORNER |
& sm_x , sm_y , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
79 |
GAD_SOM_FILL_CS_CORNER |
& sm_z , bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
81 |
GAD_SOM_FILL_CS_CORNER |
& sm_xx, sm_yy, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
83 |
GAD_SOM_FILL_CS_CORNER |
& sm_zz, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
85 |
GAD_SOM_FILL_CS_CORNER |
& sm_xy, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
87 |
GAD_SOM_FILL_CS_CORNER |
& sm_xz, sm_yz, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
11 |
GAD_SOM_LIM_R |
I bi,bj, limiter, |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
32 |
GAD_SOM_LIM_R |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
113 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
114 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
115 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
116 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
117 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
118 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
119 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
120 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
121 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
122 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
134 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
13 |
GAD_SOM_PREP_CS_CORNER |
I iPass, k, myNz, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
145 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
156 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
167 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
187 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
198 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
209 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
220 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
56 |
GAD_SOM_PREP_CS_CORNER |
INTEGER iPass, k, bi, bj |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
90 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
91 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
92 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
93 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
94 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
95 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
96 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
97 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
98 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
99 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
11 |
GAD_U3_ADV_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
38 |
GAD_U3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
71 |
GAD_U3_ADV_R |
Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
76 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
11 |
GAD_U3_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
39 |
GAD_U3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
11 |
GAD_U3_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
39 |
GAD_U3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
103 |
GAD_U3C4_IMPL_R |
& 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
104 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
105 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
10 |
GAD_U3C4_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
112 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
136 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
137 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
50 |
GAD_U3C4_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/salt_fill.F |
101 |
SALT_FILL |
if(salt(i,j,1,bi,bj).lt.0.0 _d 0) |
|
./pkg/generic_advdiff/salt_fill.F |
102 |
SALT_FILL |
. salt(i,j,1,bi,bj) = 0.0 _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
113 |
SALT_FILL |
CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
62 |
SALT_FILL |
INTEGER bi,bj,i,j,L,LM1 |
|
./pkg/generic_advdiff/salt_fill.F |
70 |
SALT_FILL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
77 |
SALT_FILL |
& 0,Nr,-1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
91 |
SALT_FILL |
salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) + |
|
./pkg/generic_advdiff/salt_fill.F |
92 |
SALT_FILL |
. salt(i,j,L,bi,bj)*dpratio |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
196 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
209 |
GGL90_CALC |
& bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
215 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
267 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
376 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
377 |
GGL90_CALC |
& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
378 |
GGL90_CALC |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
387 |
GGL90_CALC |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
388 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
390 |
GGL90_CALC |
& *CosFacU(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
401 |
GGL90_CALC |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
402 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
404 |
GGL90_CALC |
& *CosFacV(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
426 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
429 |
GGL90_CALC |
KappaM(i,j) = MAX(KappaM(i,j),viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
438 |
GGL90_CALC |
tempU = ( uVel( i ,j,km1,bi,bj) - uVel( i ,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
tempUp = ( uVel(i+1,j,km1,bi,bj) - uVel(i+1,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
440 |
GGL90_CALC |
tempV = ( vVel(i, j ,km1,bi,bj) - vVel(i, j ,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
441 |
GGL90_CALC |
tempVp = ( vVel(i,j+1,km1,bi,bj) - vVel(i,j+1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
452 |
GGL90_CALC |
tempU = ( ( uVel(i,j,km1,bi,bj) + uVel(i+1,j,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
453 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj) + uVel(i+1,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
455 |
GGL90_CALC |
tempV = ( ( vVel(i,j,km1,bi,bj) + vVel(i,j+1,km1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
456 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj) + vVel(i,j+1,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
475 |
GGL90_CALC |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
|
./pkg/ggl90/ggl90_calc.F |
49 |
GGL90_CALC |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
505 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
507 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
521 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& + IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2 |
|
./pkg/ggl90/ggl90_calc.F |
535 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
579 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
586 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
622 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
634 |
GGL90_CALC |
& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& + surfaceForcingU(i+1,j, bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + surfaceForcingV(i, j+1,bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
642 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
652 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
653 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
U GGL90TKE(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
666 |
GGL90_CALC |
I bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
672 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
673 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
686 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
687 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
688 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
689 |
GGL90_CALC |
& + ( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
690 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
691 |
GGL90_CALC |
& +p16*( ( GGL90visctmp(i+1,j+1,k)*mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
692 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
693 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
694 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
697 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
698 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
699 |
GGL90_CALC |
& + ( maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
700 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
701 |
GGL90_CALC |
& +p16*( ( maskC(i+1,j+1,k,bi,bj)* mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
702 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
703 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
704 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
705 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
720 |
GGL90_CALC |
& p4 *( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
721 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
722 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
723 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
724 |
GGL90_CALC |
& + ( GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
725 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
728 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
729 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
730 |
GGL90_CALC |
& + ( maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
731 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
732 |
GGL90_CALC |
& )*maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
733 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
735 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
750 |
GGL90_CALC |
& p4 *( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
751 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
752 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
753 |
GGL90_CALC |
& + GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
754 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
755 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
758 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
759 |
GGL90_CALC |
& + maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
760 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
761 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
762 |
GGL90_CALC |
& )*maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
763 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
778 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
780 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
782 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
784 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
786 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
788 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
794 |
GGL90_CALC |
surf_flx_tke(i,j) =(GGL90TKE(i,j,kSurf,bi,bj)- |
|
./pkg/ggl90/ggl90_calc.F |
795 |
GGL90_CALC |
& GGL90TKE(i,j,kp1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
796 |
GGL90_CALC |
& *recip_drF(kSurf)*recip_hFacC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
801 |
GGL90_CALC |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
808 |
GGL90_CALC |
& halfRL*( surfaceForcingU(i, j,bi,bj)*uVel(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
809 |
GGL90_CALC |
& +surfaceForcingU(i+1,j,bi,bj)*uVel(i+1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
810 |
GGL90_CALC |
& + halfRL*( surfaceForcingV(i,j, bi,bj)*vVel(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
811 |
GGL90_CALC |
& +surfaceForcingV(i,j+1,bi,bj)*vVel(i,j+1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
815 |
GGL90_CALC |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc_diff.F |
37 |
GGL90_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/ggl90/ggl90_calc_diff.F |
54 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
65 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,kArg,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
7 |
GGL90_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/ggl90/ggl90_calc_visc.F |
30 |
GGL90_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/ggl90/ggl90_calc_visc.F |
50 |
GGL90_CALC_VISC |
& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
56 |
GGL90_CALC_VISC |
KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc_visc.F |
57 |
GGL90_CALC_VISC |
& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
7 |
GGL90_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/ggl90/ggl90_idemix.F |
10 |
GGL90_IDEMIX |
I bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
119 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
150 |
GGL90_IDEMIX |
IDEMIX_tau_d(i,j,k,bi,bj) = IDEMIX_mu0*fxb*fxc* |
|
./pkg/ggl90/ggl90_idemix.F |
164 |
GGL90_IDEMIX |
fxb = 0.5*min( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )*fxa |
|
./pkg/ggl90/ggl90_idemix.F |
165 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj) = min( IDEMIX_V0(i,j,k,bi,bj), fxb ) |
|
./pkg/ggl90/ggl90_idemix.F |
182 |
GGL90_IDEMIX |
& +GM_EG_diss(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
206 |
GGL90_IDEMIX |
& +.5 _d 0*(GM_EG_diss(i,j,k,bi,bj)+ |
|
./pkg/ggl90/ggl90_idemix.F |
207 |
GGL90_IDEMIX |
& GM_EG_diss(i,j,k-1,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
227 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
244 |
GGL90_IDEMIX |
& IDEMIX_V0(i-1,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
245 |
GGL90_IDEMIX |
& +IDEMIX_V0(i ,j,k,bi,bj)*maskC(i ,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
247 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
248 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
249 |
GGL90_IDEMIX |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
250 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i ,j,k,bi,bj)*IDEMIX_E(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
251 |
GGL90_IDEMIX |
& -IDEMIX_V0(i-1,j,k,bi,bj)*IDEMIX_E(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
252 |
GGL90_IDEMIX |
& *maskW(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
261 |
GGL90_IDEMIX |
& IDEMIX_V0(i,j ,k,bi,bj)*maskC(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
262 |
GGL90_IDEMIX |
& +IDEMIX_V0(i,j-1,k,bi,bj)*maskC(i,j-1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
264 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
265 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
266 |
GGL90_IDEMIX |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
267 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i,j ,k,bi,bj)*IDEMIX_E(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
268 |
GGL90_IDEMIX |
& -IDEMIX_V0(i,j-1,k,bi,bj)*IDEMIX_E(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
269 |
GGL90_IDEMIX |
& *maskS(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
277 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
278 |
GGL90_IDEMIX |
& + deltaTggl90*(-recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
281 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
291 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
305 |
GGL90_IDEMIX |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
314 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
333 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)!*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
343 |
GGL90_IDEMIX |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
346 |
GGL90_IDEMIX |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
354 |
GGL90_IDEMIX |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
370 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
371 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
375 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
379 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
387 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
390 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
391 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
395 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
398 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
399 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
403 |
GGL90_IDEMIX |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
412 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
413 |
GGL90_IDEMIX |
& +deltaTggl90*IDEMIX_F_s(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
415 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
416 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
417 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
418 |
GGL90_IDEMIX |
& -deltaTggl90*IDEMIX_F_b(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
420 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
428 |
GGL90_IDEMIX |
U IDEMIX_E(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ggl90/ggl90_idemix.F |
430 |
GGL90_IDEMIX |
I bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
443 |
GGL90_IDEMIX |
& *IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
444 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
451 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
453 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
455 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
457 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
459 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
461 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
462 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_b,'IDEM_F_b',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
463 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL(IDEMIX_F_s,'IDEM_F_s',0,1,1,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
465 |
GGL90_IDEMIX |
& 0,1,2,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_idemix.F |
48 |
GGL90_IDEMIX |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
33 |
GGL90_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
50 |
GGL90_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_fixed.F |
54 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
60 |
GGL90_INIT_FIXED |
U mskCor(1-OLx,1-OLy,bi,bj), |
|
./pkg/ggl90/ggl90_init_fixed.F |
61 |
GGL90_INIT_FIXED |
I bi,bj, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
102 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
106 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = -MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
107 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_b(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
109 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = IDEMIX_frac_F_b* |
|
./pkg/ggl90/ggl90_init_varia.F |
111 |
GGL90_INIT_VARIA |
& IDEMIX_F_b(i,j,bi,bj)/1024. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
121 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
125 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
126 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_s(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
128 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = IDEMIX_frac_F_s* |
|
./pkg/ggl90/ggl90_init_varia.F |
130 |
GGL90_INIT_VARIA |
& IDEMIX_F_s(i,j,bi,bj)/1024. |
|
./pkg/ggl90/ggl90_init_varia.F |
145 |
GGL90_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
150 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
151 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
36 |
GGL90_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_init_varia.F |
42 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
73 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
88 |
GGL90_INIT_VARIA |
IDEMIX_F_B(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
89 |
GGL90_INIT_VARIA |
IDEMIX_F_S(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
112 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
114 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
115 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
116 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
117 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
118 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = 0. |
|
./pkg/ggl90/ggl90_output.F |
125 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
128 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
130 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
132 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
134 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
136 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = GGL90_timeAve(bi,bj)+DDTT |
|
./pkg/ggl90/ggl90_output.F |
147 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
150 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
152 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
154 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
156 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
176 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
178 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
179 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
180 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
181 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
182 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = 0. |
|
./pkg/ggl90/ggl90_output.F |
69 |
GGL90_OUTPUT |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_diff.F |
40 |
GMREDI_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/gmredi/gmredi_calc_diff.F |
58 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
59 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
62 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
64 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
66 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
77 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
78 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
7 |
GMREDI_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/gmredi/gmredi_calc_diff.F |
81 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
83 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
85 |
GMREDI_CALC_DIFF |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
103 |
GMREDI_CALC_EIGS |
fCori2(i,j) = fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
10 |
GMREDI_CALC_EIGS |
I bi, bj, N2, myThid, kLow, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
295 |
GMREDI_CALC_EIGS |
Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
37 |
GMREDI_CALC_EIGS |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
114 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
120 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
122 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
132 |
GMREDI_CALC_PSI_B |
I bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
147 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
150 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
152 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i-1,j,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
153 |
GMREDI_CALC_PSI_B |
& + kapGM(i-1,j,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
157 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
160 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
162 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
164 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
16 |
GMREDI_CALC_PSI_B |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
170 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
173 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
175 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i,j-1,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
176 |
GMREDI_CALC_PSI_B |
& + kapGM(i,j-1,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
180 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
183 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
185 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
187 |
GMREDI_CALC_PSI_B |
& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
55 |
GMREDI_CALC_PSI_B |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
78 |
GMREDI_CALC_PSI_B |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
10 |
GMREDI_CALC_PSI_BVP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
113 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
115 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
125 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,k,bi,bj) = half_K*sigmaX_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
126 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
142 |
GMREDI_CALC_PSI_BVP |
IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
145 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
148 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
149 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
151 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
162 |
GMREDI_CALC_PSI_BVP |
& GM_PsiX(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
163 |
GMREDI_CALC_PSI_BVP |
& errCode, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
192 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
194 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
204 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,k,bi,bj) = half_K*sigmaY_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
205 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
214 |
GMREDI_CALC_PSI_BVP |
IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
217 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
220 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
221 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacS(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
223 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
234 |
GMREDI_CALC_PSI_BVP |
& GM_PsiY(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
235 |
GMREDI_CALC_PSI_BVP |
& errCode, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
249 |
GMREDI_CALC_PSI_BVP |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
251 |
GMREDI_CALC_PSI_BVP |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
40 |
GMREDI_CALC_PSI_BVP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
89 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
90 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1002 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1005 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1021 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1023 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1024 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1028 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1031 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1034 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1044 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1045 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1046 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1047 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1050 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1051 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1052 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1053 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1055 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1056 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1060 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1074 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1076 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1078 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1082 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1088 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1090 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1093 |
GMREDI_CALC_TENSOR |
GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1100 |
GMREDI_CALC_TENSOR |
CALL GMREDI_DIAGNOSTICS_FILL(bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1117 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1139 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1152 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1153 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1154 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
128 |
GMREDI_CALC_TENSOR |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
168 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
169 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
181 |
GMREDI_CALC_TENSOR |
kLow_W(i,j) = MIN(kLowC(i-1,j,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
kLow_S(i,j) = MIN(kLowC(i,j-1,bi,bj),kLowC(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
199 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
21 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
223 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
224 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
235 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
237 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
238 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
241 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = R_low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
262 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
271 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = hMixLayer(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
285 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
319 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
345 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
346 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
369 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
370 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
372 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
429 |
GMREDI_CALC_TENSOR |
I kLowC(1-OLx,1-OLy,bi,bj), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
430 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
435 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
436 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
437 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
454 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
484 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
505 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)= |
|
./pkg/gmredi/gmredi_calc_tensor.F |
506 |
GMREDI_CALC_TENSOR |
& MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
538 |
GMREDI_CALC_TENSOR |
Kgm_tmp = kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
540 |
GMREDI_CALC_TENSOR |
Kgm_tmp = op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
543 |
GMREDI_CALC_TENSOR |
Kgm_tmp = isopycK*GM_isoFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
549 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
552 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*bolus_K*GM_bolFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
562 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( op5*(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
568 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
571 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( isopycK*GM_isoFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
579 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
586 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( hTransLay, 'GM_hTrsL', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
587 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( baseSlope, 'GM_baseS', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
588 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
600 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
610 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
626 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
641 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
642 |
GMREDI_CALC_TENSOR |
& + KPPhbl( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
651 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
652 |
GMREDI_CALC_TENSOR |
& + hMixLayer( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
65 |
GMREDI_CALC_TENSOR |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
663 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
679 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
682 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
685 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
709 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
720 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
723 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
725 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
729 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
732 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
735 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
747 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
762 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
765 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
771 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
775 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
777 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
781 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
784 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
787 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
803 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
806 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
810 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
813 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
816 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
826 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
827 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
828 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
829 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
832 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
833 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
834 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
835 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
838 |
GMREDI_CALC_TENSOR |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
842 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
856 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
857 |
GMREDI_CALC_TENSOR |
& + KPPhbl(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
866 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
867 |
GMREDI_CALC_TENSOR |
& + hMixLayer(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
897 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
899 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
902 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
938 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
941 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
943 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
947 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
950 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
953 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
965 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
980 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
983 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
985 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
989 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
995 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
999 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
10 |
GMREDI_CALC_URMS |
I bi, bj, N2, myThid, |
|
./pkg/gmredi/gmredi_calc_urms.F |
34 |
GMREDI_CALC_URMS |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_urms.F |
60 |
GMREDI_CALC_URMS |
k = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_urms.F |
63 |
GMREDI_CALC_URMS |
& /(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
73 |
GMREDI_CALC_URMS |
IF (k.LT.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_calc_urms.F |
75 |
GMREDI_CALC_URMS |
& const(i,j)*(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
86 |
GMREDI_CALC_URMS |
if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
100 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
27 |
GMREDI_DIAGNOSTICS_FILL |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
51 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
55 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
56 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
60 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
61 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
64 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
65 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
69 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
70 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
79 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
80 |
GMREDI_DIAGNOSTICS_FILL |
& 0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
81 |
GMREDI_DIAGNOSTICS_FILL |
& Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
86 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
8 |
GMREDI_DIAGNOSTICS_FILL |
I bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
93 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
94 |
GMREDI_DIAGNOSTICS_FILL |
& -0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
95 |
GMREDI_DIAGNOSTICS_FILL |
& Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
44 |
GMREDI_DIAGNOSTICS_IMPL |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
54 |
GMREDI_DIAGNOSTICS_IMPL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
56 |
GMREDI_DIAGNOSTICS_IMPL |
CALL DIAGNOSTICS_COUNT( 'GM_KwzTz', bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
61 |
GMREDI_DIAGNOSTICS_IMPL |
& *(theta(i,j,k,bi,bj)-theta(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
62 |
GMREDI_DIAGNOSTICS_IMPL |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
63 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
64 |
GMREDI_DIAGNOSTICS_IMPL |
& *rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
68 |
GMREDI_DIAGNOSTICS_IMPL |
& k, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_init_fixed.F |
43 |
GMREDI_INIT_FIXED |
INTEGER bi,bj |
|
./pkg/gmredi/gmredi_init_fixed.F |
46 |
GMREDI_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_fixed.F |
50 |
GMREDI_INIT_FIXED |
GM_isoFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
51 |
GMREDI_INIT_FIXED |
GM_bolFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
122 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
126 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = beta |
|
./pkg/gmredi/gmredi_init_varia.F |
132 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
136 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = recip_rSphere*fCoriCos(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
142 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
146 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = .5 _d 0*angleSinC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
147 |
GMREDI_INIT_VARIA |
& (fCori(i+1,j,bi,bj)-fCori(i ,j,bi,bj))*recip_dxC(i+1,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
148 |
GMREDI_INIT_VARIA |
& +(fCori(i ,j,bi,bj)-fCori(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
149 |
GMREDI_INIT_VARIA |
& + .5 _d 0*angleCosC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
150 |
GMREDI_INIT_VARIA |
& (fCori(i,j+1,bi,bj)-fCori(i,j ,bi,bj))*recip_dyC(i,j+1,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
151 |
GMREDI_INIT_VARIA |
& +(fCori(i,j ,bi,bj)-fCori(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
152 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj)=max(1. _d -18, gradf(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
39 |
GMREDI_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/gmredi/gmredi_init_varia.F |
41 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
50 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
53 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
57 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
61 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
64 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
75 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
76 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
77 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
78 |
GMREDI_INIT_VARIA |
GM_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
80 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
83 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
84 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1007 |
GMREDI_K3D |
IF (kLowC(i,j,bi,bj).GT.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
1009 |
GMREDI_K3D |
& (uKdqdyInt(i,j)-uInt(i,j)*KdqdyInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1010 |
GMREDI_K3D |
& -(vKdqdxInt(i,j)-vInt(i,j)*KdqdxInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1060 |
GMREDI_K3D |
psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1067 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1078 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1079 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1085 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1086 |
GMREDI_K3D |
& - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1087 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1088 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1099 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1100 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(KPV, 'GM_KPV ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1101 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(urms, 'GM_URMS ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1102 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rdef, 'GM_RDEF ',0, 1,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1103 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rurms, 'GM_RURMS',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1104 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(RRhines,'GM_RRHNS',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1105 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Rmix, 'GM_RMIX ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1106 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(supp, 'GM_SUPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1107 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xix, 'GM_Xix ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1108 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xiy, 'GM_Xiy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1109 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(cDopp, 'GM_C ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1110 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Ubaro, 'GM_UBARO',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1111 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(eady, 'GM_EADY ',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1112 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeX, 'GM_Sx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1113 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeY, 'GM_Sy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1114 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxX, 'GM_TFLXX',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1115 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxY, 'GM_TFLXY',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1116 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqx, 'GM_dqdx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1117 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqy, 'GM_dqdy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1118 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdy, 'GM_Kdqdy',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1119 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdx, 'GM_Kdqdx',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1120 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(surfkz, 'GM_SFLYR',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1121 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ustar, 'GM_USTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1122 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(vstar, 'GM_VSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1123 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(umc, 'GM_UMC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1124 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ubar, 'GM_UBAR ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1125 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(modesC, 'GM_MODEC',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1126 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4loc, 'GM_M4 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1127 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(N2loc, 'GM_N2 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1128 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4onN2, 'GM_M4_N2',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1129 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(slopeC, 'GM_SLOPE',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1130 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Renorm, 'GM_RENRM',0, 1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1132 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(psistar,'GM_PSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1143 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
1151 |
GMREDI_K3D |
& CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D_T',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
11 |
GMREDI_K3D |
I bi, bj, myTime, myThid ) |
|
./pkg/gmredi/gmredi_k3d.F |
223 |
GMREDI_K3D |
kLow_C(i,j) = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
252 |
GMREDI_K3D |
dfdx(i,j) = ( fCori(i,j,bi,bj)-fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
253 |
GMREDI_K3D |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
254 |
GMREDI_K3D |
dfdy(i,j) = ( fCori(i,j,bi,bj)-fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
255 |
GMREDI_K3D |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
264 |
GMREDI_K3D |
fCoriU(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
fCoriV(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
282 |
GMREDI_K3D |
fCoriU(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
284 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
288 |
GMREDI_K3D |
fCoriV(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
289 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
290 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
344 |
GMREDI_K3D |
uFldX(i,j,k) = uEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
345 |
GMREDI_K3D |
vFldY(i,j,k) = vEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
354 |
GMREDI_K3D |
uFldX(i,j,k) = uVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
355 |
GMREDI_K3D |
vFldY(i,j,k) = vVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
383 |
GMREDI_K3D |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
384 |
GMREDI_K3D |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
391 |
GMREDI_K3D |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
392 |
GMREDI_K3D |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
404 |
GMREDI_K3D |
& drF(k)*hfacC(i,j,k,bi,bj)*ubar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
40 |
GMREDI_K3D |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_k3d.F |
412 |
GMREDI_K3D |
Ubaro(i,j) = -Ubaro(i,j)/r_Low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
424 |
GMREDI_K3D |
N2(i,j,k) = MAX(N2(i,j,k),GM_K3D_minN2)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
447 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
456 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
457 |
GMREDI_K3D |
I kLow_C, maskC(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
458 |
GMREDI_K3D |
I hfacC(:,:,:,bi,bj), recip_hfacC(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
459 |
GMREDI_K3D |
I R_Low(:,:,bi,bj), 1, .TRUE., |
|
./pkg/gmredi/gmredi_k3d.F |
460 |
GMREDI_K3D |
O Rmid, modesC(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
465 |
GMREDI_K3D |
Req = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj))) |
|
./pkg/gmredi/gmredi_k3d.F |
466 |
GMREDI_K3D |
Rdef(i,j,bi,bj) = MIN(Rmid(i,j),Req) |
|
./pkg/gmredi/gmredi_k3d.F |
509 |
GMREDI_K3D |
& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
520 |
GMREDI_K3D |
& + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
553 |
GMREDI_K3D |
Rurms(i,j) = MIN(Rdef(i,j,bi,bj),GM_K3D_Rmax) |
|
./pkg/gmredi/gmredi_k3d.F |
560 |
GMREDI_K3D |
RRhines(i,j) = SQRT(urms(i,j,1)/gradf(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
563 |
GMREDI_K3D |
Rmix(i,j) = MIN(Rdef(i,j,bi,bj), RRhines(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
569 |
GMREDI_K3D |
& - gradf(i,j,bi,bj)*Rdef(i,j,bi,bj)*Rdef(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
580 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
589 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
592 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
597 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
602 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MIN(K3D(i,j,k,bi,bj),GM_maxK3D) |
|
./pkg/gmredi/gmredi_k3d.F |
603 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MAX(K3D(i,j,k,bi,bj),GM_K3D_smallK) |
|
./pkg/gmredi/gmredi_k3d.F |
620 |
GMREDI_K3D |
surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
621 |
GMREDI_K3D |
surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
622 |
GMREDI_K3D |
IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
658 |
GMREDI_K3D |
SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
666 |
GMREDI_K3D |
SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
680 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
683 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
687 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
698 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
699 |
GMREDI_K3D |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
702 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
703 |
GMREDI_K3D |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
707 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
730 |
GMREDI_K3D |
hsurf = -rLowW(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
737 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
740 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
749 |
GMREDI_K3D |
hsurf = -rLowS(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
756 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
759 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
783 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
784 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
794 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
795 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
809 |
GMREDI_K3D |
N2W(i,j,k) = maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
811 |
GMREDI_K3D |
N2S(i,j,k) = maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
838 |
GMREDI_K3D |
Xix(i,j,k) = -maskW(i,j,k,bi,bj)*KPV(i,j,k)*gradqx(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
839 |
GMREDI_K3D |
Xiy(i,j,k) = -maskS(i,j,k,bi,bj)*KPV(i,j,k)*gradqy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
853 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2W,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
854 |
GMREDI_K3D |
I kLow_U,maskW(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
855 |
GMREDI_K3D |
I hfacW(:,:,:,bi,bj),recip_hfacW(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
856 |
GMREDI_K3D |
I rLowW(:,:,bi,bj),GM_K3D_NModes,.FALSE., |
|
./pkg/gmredi/gmredi_k3d.F |
857 |
GMREDI_K3D |
O dummy,modesW(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
874 |
GMREDI_K3D |
& - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
875 |
GMREDI_K3D |
& *Kdqdx(i,j,k)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
894 |
GMREDI_K3D |
& + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
905 |
GMREDI_K3D |
I iMin,iMax,jMin,jMax,bi,bj,N2S,myThid, |
|
./pkg/gmredi/gmredi_k3d.F |
906 |
GMREDI_K3D |
I kLow_V,maskS(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
907 |
GMREDI_K3D |
I hfacS(:,:,:,bi,bj),recip_hfacS(:,:,:,bi,bj), |
|
./pkg/gmredi/gmredi_k3d.F |
908 |
GMREDI_K3D |
I rLowS(:,:,bi,bj), GM_K3D_NModes, .FALSE., |
|
./pkg/gmredi/gmredi_k3d.F |
909 |
GMREDI_K3D |
O dummy,modesS(:,:,:,:,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
925 |
GMREDI_K3D |
& - drF(k)*hfacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
926 |
GMREDI_K3D |
& *Kdqdy(i,j,k)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
945 |
GMREDI_K3D |
& + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
973 |
GMREDI_K3D |
centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
977 |
GMREDI_K3D |
& + centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
979 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
981 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
985 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
988 |
GMREDI_K3D |
centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
991 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
993 |
GMREDI_K3D |
& + CentreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
995 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
999 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
119 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
121 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
127 |
GMREDI_OUTPUT |
& 1 , bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
134 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
196 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
198 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
199 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
203 |
GMREDI_OUTPUT |
& CALL TIMEAVE_RESET( Visbeck_K_T, 1, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
207 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
208 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
211 |
GMREDI_OUTPUT |
GM_timeAve(bi,bj) = 0. |
|
./pkg/gmredi/gmredi_output.F |
53 |
GMREDI_OUTPUT |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_read_pickup.F |
143 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
148 |
GMREDI_READ_PICKUP |
modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
161 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
166 |
GMREDI_READ_PICKUP |
modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
180 |
GMREDI_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
185 |
GMREDI_READ_PICKUP |
modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
46 |
GMREDI_READ_PICKUP |
INTEGER i,j,k,n,nm,ioUnit,bi,bj |
|
./pkg/gmredi/gmredi_residual_flow.F |
106 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
107 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
108 |
GMREDI_RESIDUAL_FLOW |
ustar = delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
109 |
GMREDI_RESIDUAL_FLOW |
uEulerMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar |
|
./pkg/gmredi/gmredi_residual_flow.F |
114 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
115 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
116 |
GMREDI_RESIDUAL_FLOW |
vstar = delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
117 |
GMREDI_RESIDUAL_FLOW |
vEulerMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar |
|
./pkg/gmredi/gmredi_residual_flow.F |
11 |
GMREDI_RESIDUAL_FLOW |
I bi, bj, myIter, myThid ) |
|
./pkg/gmredi/gmredi_residual_flow.F |
125 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(uEulerMean,'U_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
126 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(vEulerMean,'V_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
37 |
GMREDI_RESIDUAL_FLOW |
INTEGER bi, bj, myIter, myThid |
|
./pkg/gmredi/gmredi_residual_flow.F |
67 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
68 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
70 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
75 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
76 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
78 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
83 |
GMREDI_RESIDUAL_FLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
84 |
GMREDI_RESIDUAL_FLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
85 |
GMREDI_RESIDUAL_FLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
86 |
GMREDI_RESIDUAL_FLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
87 |
GMREDI_RESIDUAL_FLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
88 |
GMREDI_RESIDUAL_FLOW |
wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
103 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
104 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
106 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
110 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
112 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
113 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
118 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
119 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
121 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
122 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
124 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
125 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
127 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
128 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
12 |
GMREDI_RTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_rtransport.F |
147 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
148 |
GMREDI_RTRANSPORT |
& *( LS_Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
149 |
GMREDI_RTRANSPORT |
& + LS_Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
157 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
158 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
159 |
GMREDI_RTRANSPORT |
& + Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
172 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
173 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
174 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
175 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
187 |
GMREDI_RTRANSPORT |
& *maskInC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
57 |
GMREDI_RTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_rtransport.F |
79 |
GMREDI_RTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
134 |
GMREDI_SLOPE_LIMIT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
19 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
95 |
GMREDI_SLOPE_LIMIT |
INTEGER k, bi,bj |
|
./pkg/gmredi/gmredi_slope_psi.F |
15 |
GMREDI_SLOPE_PSI |
I bi,bj, myThid ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
54 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
|
./pkg/gmredi/gmredi_slope_psi.F |
79 |
GMREDI_SLOPE_PSI |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
104 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
119 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
124 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
54 |
GMREDI_WRITE_PICKUP |
INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar |
|
./pkg/gmredi/gmredi_write_pickup.F |
80 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_write_pickup.F |
85 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
99 |
GMREDI_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
134 |
GMREDI_XTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
143 |
GMREDI_XTRANSPORT |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
164 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
166 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
16 |
GMREDI_XTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
179 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
194 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
221 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
222 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
223 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
227 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
61 |
GMREDI_XTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_xtransport.F |
95 |
GMREDI_XTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
130 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
133 |
GMREDI_YTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
142 |
GMREDI_YTRANSPORT |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
159 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
15 |
GMREDI_YTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_ytransport.F |
163 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
165 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
177 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
193 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
219 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
220 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
221 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
225 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
60 |
GMREDI_YTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_ytransport.F |
94 |
GMREDI_YTRANSPORT |
act2 = bj - myByLo(myThid) |
|
./pkg/gmredi/submeso_calc_psi.F |
10 |
SUBMESO_CALC_PSI |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/submeso_calc_psi.F |
157 |
SUBMESO_CALC_PSI |
& *MIN( dxC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
174 |
SUBMESO_CALC_PSI |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
183 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
185 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
190 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
192 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
200 |
SUBMESO_CALC_PSI |
& *MIN( dyC(i,j,bi,bj), subMeso_Lmax ) |
|
./pkg/gmredi/submeso_calc_psi.F |
217 |
SUBMESO_CALC_PSI |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
226 |
SUBMESO_CALC_PSI |
& 0, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
231 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
|
./pkg/gmredi/submeso_calc_psi.F |
41 |
SUBMESO_CALC_PSI |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/submeso_calc_psi.F |
82 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
88 |
SUBMESO_CALC_PSI |
mixLayerV(i,j) = MIN( mixLayerV(i,j), -rLowS(i,j,bi,bj) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
98 |
SUBMESO_CALC_PSI |
fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
110 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
114 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
115 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
133 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
137 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
138 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
156 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
160 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
161 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
41 |
GRDCHK_GET_OBCS_MASK |
integer bi,bj |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
87 |
GRDCHK_GET_OBCS_MASK |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
91 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
92 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
131 |
GRDCHK_GET_POSITION |
bj = jtile |
|
./pkg/grdchk/grdchk_get_position.F |
145 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
148 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
155 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
158 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
162 |
GRDCHK_GET_POSITION |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
165 |
GRDCHK_GET_POSITION |
wetlocal = maskSHI(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
170 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
178 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
179 |
GRDCHK_GET_POSITION |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
182 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
186 |
GRDCHK_GET_POSITION |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
187 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
190 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
194 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
195 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
198 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
207 |
GRDCHK_GET_POSITION |
& bj .EQ. jtile .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
243 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
59 |
GRDCHK_GET_POSITION |
integer bi,bj |
|
./pkg/grdchk/grdchk_init.F |
100 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
105 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
108 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
114 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetitile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
123 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
129 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
130 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
134 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
135 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
139 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
140 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
144 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
145 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
167 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
171 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
182 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
184 |
GRDCHK_INIT |
iwetsum(bi,bj,0) = 0 |
|
./pkg/grdchk/grdchk_init.F |
186 |
GRDCHK_INIT |
iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) + |
|
./pkg/grdchk/grdchk_init.F |
187 |
GRDCHK_INIT |
& nwettile(bi,bj,k,1) |
|
./pkg/grdchk/grdchk_init.F |
43 |
GRDCHK_INIT |
integer bi,bj |
|
./pkg/grdchk/grdchk_init.F |
68 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
72 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_init.F |
81 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
84 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetctile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
89 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./pkg/grdchk/grdchk_init.F |
92 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetstile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
97 |
GRDCHK_INIT |
do bj = jtlo,jthi |
|
./model/src/adams_bashforth2.F |
10 |
ADAMS_BASHFORTH2 |
I bi, bj, kArg, kSize, |
|
./model/src/adams_bashforth2.F |
47 |
ADAMS_BASHFORTH2 |
INTEGER bi, bj, kArg, kSize |
|
./pkg/grdchk/grdchk_loc.F |
158 |
GRDCHK_LOC |
bj = jLocTile |
|
./pkg/grdchk/grdchk_loc.F |
161 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
162 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
165 |
GRDCHK_LOC |
& bi, bj, icomptest, ichknum |
|
./pkg/grdchk/grdchk_loc.F |
185 |
GRDCHK_LOC |
jtile = bj |
|
./pkg/grdchk/grdchk_loc.F |
193 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
205 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
221 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
222 |
GRDCHK_LOC |
& .and. j.eq. OB_Jn(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
225 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
230 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
& .and. j.eq. OB_Js(I,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
234 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
240 |
GRDCHK_LOC |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
242 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
248 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
249 |
GRDCHK_LOC |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
251 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
282 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
74 |
GRDCHK_LOC |
integer bi,bj |
|
./pkg/grdchk/grdchk_main.F |
100 |
GRDCHK_MAIN |
INTEGER bi, bj |
|
./pkg/grdchk/grdchk_main.F |
177 |
GRDCHK_MAIN |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/grdchk/grdchk_main.F |
182 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
183 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
184 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gridalt/dyn2phys.F |
102 |
DYN2PHYS |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
108 |
DYN2PHYS |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
109 |
DYN2PHYS |
windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn |
|
./pkg/gridalt/dyn2phys.F |
116 |
DYN2PHYS |
. weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum |
|
./pkg/gridalt/dyn2phys.F |
117 |
DYN2PHYS |
if( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).lt.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
119 |
DYN2PHYS |
. (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd |
|
./pkg/gridalt/dyn2phys.F |
120 |
DYN2PHYS |
elseif( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).ge.10000.)) then |
|
./pkg/gridalt/dyn2phys.F |
123 |
DYN2PHYS |
qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy) |
|
./pkg/gridalt/dyn2phys.F |
47 |
DYN2PHYS |
integer idim1, idim2, jdim1, jdim2, bi, bj |
|
./pkg/gridalt/dyn2phys.F |
7 |
DYN2PHYS |
. idim1,idim2,jdim1,jdim2,bi,bj,windphy,pephy,Lbot,lmphy,nlperdyn, |
|
./pkg/gridalt/dyn2phys.F |
80 |
DYN2PHYS |
. (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2. |
|
./pkg/gridalt/dyn2phys.F |
90 |
DYN2PHYS |
qd = qdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
92 |
DYN2PHYS |
if(L.ge.Lbot(i,j,bi,bj))then |
|
./pkg/gridalt/dyn2phys.F |
93 |
DYN2PHYS |
if(L.eq.Lbot(i,j,bi,bj)) then |
|
./pkg/gridalt/dyn2phys.F |
96 |
DYN2PHYS |
Lout1 = nlperdyn(i,j,L-1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
98 |
DYN2PHYS |
Lout2 = nlperdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/gridalt_initialise.F |
30 |
GRIDALT_INITIALISE |
integer bi, bj |
|
./pkg/gridalt/gridalt_initialise.F |
44 |
GRIDALT_INITIALISE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./model/src/adams_bashforth3.F |
10 |
ADAMS_BASHFORTH3 |
I bi, bj, kArg, kSize, |
|
./model/src/adams_bashforth3.F |
110 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
111 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
112 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
123 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
124 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) |
|
./model/src/adams_bashforth3.F |
65 |
ADAMS_BASHFORTH3 |
INTEGER bi, bj, kArg, kSize |
|
./pkg/gridalt/gridalt_update.F |
30 |
GRIDALT_UPDATE |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/gridalt_update.F |
49 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_update.F |
55 |
GRIDALT_UPDATE |
dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) * |
|
./pkg/gridalt/gridalt_update.F |
56 |
GRIDALT_UPDATE |
. rstarfacC(i,j,bi,bj) |
|
./pkg/gridalt/gridalt_update.F |
71 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/gridalt/gridalt_update.F |
76 |
GRIDALT_UPDATE |
temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2 |
|
./pkg/gridalt/make_phys_grid.F |
123 |
MAKE_PHYS_GRID |
Lbotij = Lbot(i,j,bi,bj) |
|
./pkg/gridalt/make_phys_grid.F |
130 |
MAKE_PHYS_GRID |
& (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge. |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
156 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
157 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
160 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
163 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
167 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
191 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
193 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
196 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
198 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
207 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
209 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
217 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
219 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
222 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
225 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
231 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
233 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
240 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs |
|
./pkg/gridalt/make_phys_grid.F |
242 |
MAKE_PHYS_GRID |
dpphys(i,j,Lnew,bi,bj) = thindp |
|
./pkg/gridalt/make_phys_grid.F |
244 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Nr,bi,bj) = numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
48 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
7 |
MAKE_PHYS_GRID |
& nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
98 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = 0 |
|
./pkg/gridalt/phys2dyn.F |
43 |
PHYS2DYN |
integer idim1, idim2, jdim1, jdim2, bi, bj |
|
./pkg/gridalt/phys2dyn.F |
74 |
PHYS2DYN |
qdyn(i,j,L,bi,bj) = 0. |
|
./pkg/gridalt/phys2dyn.F |
76 |
PHYS2DYN |
if(L.ge.Lbot(i,j,bi,bj))then |
|
./pkg/gridalt/phys2dyn.F |
77 |
PHYS2DYN |
if(L.eq.Lbot(i,j,bi,bj)) then |
|
./pkg/gridalt/phys2dyn.F |
7 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
|
./pkg/gridalt/phys2dyn.F |
80 |
PHYS2DYN |
Lout1 = nlperdyn(i,j,L-1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
82 |
PHYS2DYN |
Lout2 = nlperdyn(i,j,L,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
86 |
PHYS2DYN |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
92 |
PHYS2DYN |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
93 |
PHYS2DYN |
sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn) |
|
./pkg/gridalt/phys2dyn.F |
95 |
PHYS2DYN |
qdyn(i,j,L,bi,bj) = sum |
|
./pkg/icefront/icefront_init_fixed.F |
100 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
108 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
113 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_fixed.F |
115 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_init_fixed.F |
37 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
83 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
87 |
ICEFRONT_INIT_FIXED |
R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj)) |
|
./pkg/icefront/icefront_init_fixed.F |
93 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
97 |
ICEFRONT_INIT_FIXED |
K_icefront(i,j,bi,bj) = 0 |
|
./pkg/icefront/icefront_init_fixed.F |
99 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_varia.F |
31 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
34 |
ICEFRONT_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_init_varia.F |
39 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/add_walls2masks.F |
108 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
112 |
ADD_WALLS2MASKS |
IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
114 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
116 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
117 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
119 |
ADD_WALLS2MASKS |
IF ( tmpFldS(i,j,bi,bj).EQ.oneRS ) THEN |
|
./model/src/add_walls2masks.F |
121 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
123 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
124 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
45 |
ADD_WALLS2MASKS |
INTEGER bi, bj |
|
./model/src/add_walls2masks.F |
54 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
58 |
ADD_WALLS2MASKS |
tmpFldW(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
59 |
ADD_WALLS2MASKS |
tmpFldS(i,j,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
81 |
ADD_WALLS2MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/add_walls2masks.F |
85 |
ADD_WALLS2MASKS |
IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
87 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
89 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
90 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
92 |
ADD_WALLS2MASKS |
IF ( dxG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./model/src/add_walls2masks.F |
94 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
96 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
97 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./pkg/icefront/icefront_tendency_apply.F |
103 |
ICEFRONT_TENDENCY_APPLY_S |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
105 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
17 |
ICEFRONT_TENDENCY_APPLY_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
39 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_tendency_apply.F |
51 |
ICEFRONT_TENDENCY_APPLY_T |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
53 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
69 |
ICEFRONT_TENDENCY_APPLY_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
91 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_thermodynamics.F |
113 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
121 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
125 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
126 |
ICEFRONT_THERMODYNAMICS |
& / R_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
161 |
ICEFRONT_THERMODYNAMICS |
IF (k .LT. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
162 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
163 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
164 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
165 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
166 |
ICEFRONT_THERMODYNAMICS |
ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
170 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
171 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
173 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
174 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
192 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
194 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
61 |
ICEFRONT_THERMODYNAMICS |
INTEGER bi,bj |
|
./pkg/icefront/icefront_thermodynamics.F |
85 |
ICEFRONT_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
93 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
95 |
ICEFRONT_THERMODYNAMICS |
& *abs(wVEL(I,J,K,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
106 |
KL10_CALC |
& ,bj).GT.0)) THEN |
|
./pkg/kl10/kl10_calc.F |
11 |
KL10_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/kl10/kl10_calc.F |
122 |
KL10_CALC |
KLdiffKr(I,J,1,bi,bj) = MAX(KLviscAr(I,J,1,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
124 |
KL10_CALC |
& diffKr(I,J,1,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
166 |
KL10_CALC |
KLdiffKr(I,J,K,bi,bj) = MAX(KTemp, |
|
./pkg/kl10/kl10_calc.F |
168 |
KL10_CALC |
& diffKr(I,J,K,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
187 |
KL10_CALC |
IF (hfacW(I+di,J-1,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
189 |
KL10_CALC |
& +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
191 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
|
./pkg/kl10/kl10_calc.F |
192 |
KL10_CALC |
& -1,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
194 |
KL10_CALC |
& ,bj) |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj)) |
|
./pkg/kl10/kl10_calc.F |
206 |
KL10_CALC |
IF (hfacS(I-1,J+di,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
208 |
KL10_CALC |
& +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
210 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
|
./pkg/kl10/kl10_calc.F |
211 |
KL10_CALC |
& +di,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
213 |
KL10_CALC |
& ,bj) |
|
./pkg/kl10/kl10_calc.F |
220 |
KL10_CALC |
dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
242 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec) |
|
./pkg/kl10/kl10_calc.F |
244 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = ec |
|
./pkg/kl10/kl10_calc.F |
259 |
KL10_CALC |
KLeps(I-1,J-1,Nr,bi,bj) =ep |
|
./pkg/kl10/kl10_calc.F |
51 |
KL10_CALC |
INTEGER bi, bj |
|
./pkg/kl10/kl10_calc.F |
82 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
83 |
KL10_CALC |
& totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
87 |
KL10_CALC |
KLeps(I-1,J-1,1,bi,bj)=0.0 |
|
./pkg/kl10/kl10_calc.F |
92 |
KL10_CALC |
KLviscAr(I,J,1,bi,bj) = viscArNr(1) |
|
./pkg/kl10/kl10_calc.F |
93 |
KL10_CALC |
KLviscold = KLviscAr(I,J,1,bi,bj) ! at previous cell center |
|
./pkg/kl10/kl10_calc.F |
97 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
98 |
KL10_CALC |
& ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc_diff.F |
39 |
KL10_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kl10/kl10_calc_diff.F |
56 |
KL10_CALC_DIFF |
& +( KLdiffKr(i,j,k,bi,bj) |
|
./pkg/kl10/kl10_calc_diff.F |
58 |
KL10_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/kl10/kl10_calc_diff.F |
71 |
KL10_CALC_DIFF |
& +( KLdiffKr(i,j,kArg,bi,bj) |
|
./pkg/kl10/kl10_calc_diff.F |
73 |
KL10_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./pkg/kl10/kl10_calc_diff.F |
7 |
KL10_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kl10/kl10_calc_visc.F |
31 |
KL10_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/kl10/kl10_calc_visc.F |
45 |
KL10_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
46 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
53 |
KL10_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
54 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
6 |
KL10_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/apply_forcing.F |
111 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
118 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
125 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
134 |
APPLY_FORCING_U |
& - recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
135 |
APPLY_FORCING_U |
& * ( phiTide2d(i,j,bi,bj) - phiTide2d(i-1,j,bi,bj) ) |
|
./model/src/apply_forcing.F |
136 |
APPLY_FORCING_U |
& *_maskW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
148 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
149 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
155 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
157 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
158 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
167 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
175 |
APPLY_FORCING_U |
I k, bi, bj, -1, |
|
./model/src/apply_forcing.F |
185 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
194 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
20 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
210 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
243 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
264 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
268 |
APPLY_FORCING_V |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
275 |
APPLY_FORCING_V |
tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
276 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
301 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
308 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
315 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
324 |
APPLY_FORCING_V |
& - recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
325 |
APPLY_FORCING_V |
& *( phiTide2d(i,j,bi,bj) - phiTide2d(i,j-1,bi,bj) ) |
|
./model/src/apply_forcing.F |
326 |
APPLY_FORCING_V |
& *_maskS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
338 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
339 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
345 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
347 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
348 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
357 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
365 |
APPLY_FORCING_V |
I k, bi, bj, -2, |
|
./model/src/apply_forcing.F |
374 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
383 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
399 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
433 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
465 |
APPLY_FORCING_T |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
469 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + gT(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
495 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
502 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
509 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
520 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
521 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
522 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
531 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
533 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
534 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
556 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/apply_forcing.F |
557 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
590 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/apply_forcing.F |
591 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
592 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
602 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
603 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/apply_forcing.F |
604 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
613 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
621 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 2, bi,bj,myThid ) |
|
./model/src/apply_forcing.F |
631 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
632 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
638 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
640 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
641 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
652 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/apply_forcing.F |
664 |
APPLY_FORCING_T |
& + geothermalFlux(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
666 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
690 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
691 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/apply_forcing.F |
693 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
703 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
711 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
719 |
APPLY_FORCING_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
726 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
734 |
APPLY_FORCING_T |
I k, bi, bj, 1, |
|
./model/src/apply_forcing.F |
743 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
751 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
759 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
775 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
78 |
APPLY_FORCING_U |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
809 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
831 |
APPLY_FORCING_S |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
835 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + gS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
85 |
APPLY_FORCING_U |
tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
860 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
867 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
86 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
874 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
885 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
886 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
887 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
888 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
896 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
898 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
899 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
912 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
913 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
921 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/apply_forcing.F |
922 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
931 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
933 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
943 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
951 |
APPLY_FORCING_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
958 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
966 |
APPLY_FORCING_S |
I k, bi, bj, 2, |
|
./model/src/apply_forcing.F |
975 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
983 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
991 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./pkg/kl10/kl10_init_varia.F |
31 |
KL10_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kl10/kl10_init_varia.F |
37 |
KL10_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_init_varia.F |
42 |
KL10_INIT_VARIA |
KLviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/kl10/kl10_init_varia.F |
43 |
KL10_INIT_VARIA |
KLdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./pkg/kl10/kl10_output.F |
109 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
111 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
112 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
113 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = 0. |
|
./pkg/kl10/kl10_output.F |
120 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
123 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
125 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
127 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = KL_timeAve(bi,bj)+DDTT |
|
./pkg/kl10/kl10_output.F |
138 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
141 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
143 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
159 |
KL10_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kl10/kl10_output.F |
161 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
162 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
163 |
KL10_OUTPUT |
KL_timeAve(bi,bj) = 0. |
|
./pkg/kl10/kl10_output.F |
69 |
KL10_OUTPUT |
INTEGER bi, bj |
|
./model/src/calc_3d_diffusivity.F |
106 |
CALC_3D_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
109 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
11 |
CALC_3D_DIFFUSIVITY |
I bi, bj, iMin,iMax,jMin,jMax, |
|
./model/src/calc_3d_diffusivity.F |
121 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
134 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
173 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
185 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
201 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
210 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
219 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
228 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
237 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
252 |
CALC_3D_DIFFUSIVITY |
IF ( k.GT.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
253 |
CALC_3D_DIFFUSIVITY |
& k.LE.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
255 |
CALC_3D_DIFFUSIVITY |
& *twoRL/(hFacC(i,j,km,bi,bj)+hFacC(i,j,k,bi,bj)) |
|
./model/src/calc_3d_diffusivity.F |
278 |
CALC_3D_DIFFUSIVITY |
IF ( k.EQ.kLowC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
279 |
CALC_3D_DIFFUSIVITY |
& k.GT.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
280 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
325 |
CALC_3D_DIFFUSIVITY |
IF ( km.EQ.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
326 |
CALC_3D_DIFFUSIVITY |
& km.LT.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
327 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,km,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
55 |
CALC_3D_DIFFUSIVITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_3d_diffusivity.F |
96 |
CALC_3D_DIFFUSIVITY |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
99 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
136 |
KPP_CALC |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
17 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
225 |
KPP_CALC |
act2 = bj - myByLo(myThid) |
|
./pkg/kpp/kpp_calc.F |
278 |
KPP_CALC |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_calc.F |
296 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
306 |
KPP_CALC |
I 1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
311 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
315 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
319 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
336 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
337 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
338 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
339 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
340 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
341 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
342 |
KPP_CALC |
if(k.eq.nzmax(i,j,bi,bj)) then |
|
./pkg/kpp/kpp_calc.F |
416 |
KPP_CALC |
temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
424 |
KPP_CALC |
temp1(i,j,k) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
425 |
KPP_CALC |
temp2(i,j,k) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_calc.F |
472 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
491 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
518 |
KPP_CALC |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
520 |
KPP_CALC |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
523 |
KPP_CALC |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
525 |
KPP_CALC |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
537 |
KPP_CALC |
I ikppkey,1-OLx,sNx+OLx,1-OLy,sNy+OLy,bi,bj,myThid) |
|
./pkg/kpp/kpp_calc.F |
543 |
KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
544 |
KPP_CALC |
work2(i,j) = Fcori(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
549 |
KPP_CALC |
I , maskC(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
552 |
KPP_CALC |
I , boplume, SaltPlumeDepth(1-OLx,1-OLy,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
554 |
KPP_CALC |
I , XC(1-OLx,1-OLy,bi,bj), YC(1-OLx,1-OLy,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
558 |
KPP_CALC |
I , KPPdiffKzS(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
559 |
KPP_CALC |
I , KPPdiffKzT(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
574 |
KPP_CALC |
KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
575 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
576 |
KPP_CALC |
KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
577 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
578 |
KPP_CALC |
KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
579 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
580 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
581 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
587 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
596 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
597 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
608 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
609 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
612 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
629 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
638 |
KPP_CALC |
KPPfrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
649 |
KPP_CALC |
work2(i,j) = SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
650 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
652 |
KPP_CALC |
lon(i,j) = XC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
653 |
KPP_CALC |
lat(i,j) = YC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
689 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
714 |
KPP_CALC_DUMMY |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
726 |
KPP_CALC_DUMMY |
KPPhbl (i,j,bi,bj) = 1.0 |
|
./pkg/kpp/kpp_calc.F |
727 |
KPP_CALC_DUMMY |
KPPfrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
729 |
KPP_CALC_DUMMY |
KPPplumefrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
732 |
KPP_CALC_DUMMY |
KPPghat (i,j,k,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
733 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc.F |
739 |
KPP_CALC_DUMMY |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
741 |
KPP_CALC_DUMMY |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
744 |
KPP_CALC_DUMMY |
I bi,bj,1-OLx,sNx+OLx,1-OLy,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
746 |
KPP_CALC_DUMMY |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
43 |
KPP_CALC_DIFF_PTR |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
61 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
63 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
78 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
7 |
KPP_CALC_DIFF_PTR |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
80 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
37 |
KPP_CALC_DIFF_S |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_s.F |
53 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
62 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
7 |
KPP_CALC_DIFF_S |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_diff_t.F |
37 |
KPP_CALC_DIFF_T |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_t.F |
53 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
62 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
7 |
KPP_CALC_DIFF_T |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/kpp/kpp_calc_visc.F |
29 |
KPP_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
7 |
KPP_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/kpp/kpp_forcing_surf.F |
100 |
KPP_FORCING_SURF |
INTEGER bi, bj |
|
./pkg/kpp/kpp_forcing_surf.F |
184 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
185 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
186 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
187 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_forcing_surf.F |
213 |
KPP_FORCING_SURF |
& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_forcing_surf.F |
214 |
KPP_FORCING_SURF |
& surfForcTice(i,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
215 |
KPP_FORCING_SURF |
& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
217 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_forcing_surf.F |
262 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bo ,'KPPbo ',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
263 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bosol ,'KPPbosol',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
265 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
29 |
KPP_FORCING_SURF |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_forcing_surf.F |
304 |
KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_forcing_surf.F |
306 |
KPP_FORCING_SURF |
IF ( k .LT. nzmax(i,j,bi,bj) .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
314 |
KPP_FORCING_SURF |
IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
330 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
331 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
332 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
334 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
335 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
336 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
337 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
355 |
KPP_FORCING_SURF |
uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
356 |
KPP_FORCING_SURF |
vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
358 |
KPP_FORCING_SURF |
ustarX = ( surfForcU(i, j,bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
359 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
360 |
KPP_FORCING_SURF |
ustarY = ( surfForcV(i,j, bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
387 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
388 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
389 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
390 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
391 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
393 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
394 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
397 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
408 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
428 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
429 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
430 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
432 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
433 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
435 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
438 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
443 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
444 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
445 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
446 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
447 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
448 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
449 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
451 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
452 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
453 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./model/src/calc_adv_flow.F |
129 |
CALC_ADV_FLOW |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
130 |
CALC_ADV_FLOW |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/calc_adv_flow.F |
15 |
CALC_ADV_FLOW |
I k, bi, bj, myThid ) |
|
./model/src/calc_adv_flow.F |
63 |
CALC_ADV_FLOW |
INTEGER k,bi,bj |
|
./model/src/calc_adv_flow.F |
75 |
CALC_ADV_FLOW |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
76 |
CALC_ADV_FLOW |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
77 |
CALC_ADV_FLOW |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
78 |
CALC_ADV_FLOW |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
95 |
CALC_ADV_FLOW |
rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj) |
|
./model/src/calc_adv_flow.F |
96 |
CALC_ADV_FLOW |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k+1,bi,bj) |
|
./pkg/kpp/kpp_init_varia.F |
32 |
KPP_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kpp/kpp_init_varia.F |
40 |
KPP_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_init_varia.F |
45 |
KPP_INIT_VARIA |
nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj) |
|
./pkg/kpp/kpp_init_varia.F |
66 |
KPP_INIT_VARIA |
KPPhbl(i,j,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
72 |
KPP_INIT_VARIA |
KPPghat (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
73 |
KPP_INIT_VARIA |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_init_varia.F |
74 |
KPP_INIT_VARIA |
KPPdiffKzS (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
75 |
KPP_INIT_VARIA |
KPPdiffKzT (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
208 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
210 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
211 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
212 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
213 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
214 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
215 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
228 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
231 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
233 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
235 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
239 |
KPP_OUTPUT |
KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
240 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
242 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
244 |
KPP_OUTPUT |
& )*KPPghat(i,j,k-1,bi,bj)*DDTT |
|
./pkg/kpp/kpp_output.F |
249 |
KPP_OUTPUT |
& KPPhbltave, KPPhbl, 1, DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
251 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = KPP_timeAve(bi,bj)+DDTT |
|
./pkg/kpp/kpp_output.F |
273 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
276 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
278 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
280 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
282 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
284 |
KPP_OUTPUT |
& KPP_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
356 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
358 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
359 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
360 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
361 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
362 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
363 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
386 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/kpp/kpp_output.F |
396 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
|
./pkg/kpp/kpp_output.F |
397 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
399 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
405 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
88 |
KPP_OUTPUT |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
1212 |
SMOOTH_HORIZ |
I k, bi, bj, |
|
./pkg/kpp/kpp_routines.F |
1228 |
SMOOTH_HORIZ |
integer k, bi, bj |
|
./pkg/kpp/kpp_routines.F |
1254 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1255 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1256 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1257 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1258 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1259 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1260 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1261 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1262 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1265 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1266 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1267 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1268 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1269 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1270 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1271 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1272 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1273 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1632 |
STATEKPP |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1673 |
STATEKPP |
INTEGER bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1713 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1715 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1724 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1728 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1755 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1757 |
STATEKPP |
I k, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1767 |
STATEKPP |
I theta(1-OLx,1-OLy,k-1,bi,bj),salt(1-OLx,1-OLy,k-1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1769 |
STATEKPP |
I k-1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1779 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1781 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1793 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1797 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1824 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1825 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1840 |
KPP_DOUBLEDIFF |
I ikppkey, imin, imax, jmin, jmax, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1877 |
KPP_DOUBLEDIFF |
INTEGER ikppkey, imin, imax, jmin, jmax, bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1926 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1928 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1986 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1987 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
219 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
307 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
357 |
BLDEPTH |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
46 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
581 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
582 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
96 |
KPPMIX |
INTEGER bi, bj |
|
./pkg/kpp/kpp_transport_ptr.F |
105 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
107 |
KPP_TRANSPORT_PTR |
& *( LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
109 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
111 |
KPP_TRANSPORT_PTR |
& )*LS_KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
113 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
115 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
117 |
KPP_TRANSPORT_PTR |
& )*KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
119 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I bi, bj, k, km1, iTr, |
|
./pkg/kpp/kpp_transport_ptr.F |
65 |
KPP_TRANSPORT_PTR |
INTEGER bi, bj, k, km1, iTr |
|
./pkg/kpp/kpp_transport_ptr.F |
90 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
91 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
92 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,iTr) |
|
./pkg/kpp/kpp_transport_s.F |
101 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
102 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
112 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
113 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
114 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
115 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
117 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
118 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
13 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
53 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
96 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
97 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_s.F |
98 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
99 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
100 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_t.F |
10 |
KPP_TRANSPORT_T |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_t.F |
51 |
KPP_TRANSPORT_T |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_t.F |
79 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
80 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
81 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
82 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
83 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
84 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
85 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_t.F |
94 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
95 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
96 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
97 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
98 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
99 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./model/src/calc_div_ghat.F |
10 |
CALC_DIV_GHAT |
I bi,bj,k, |
|
./model/src/calc_div_ghat.F |
115 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
123 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
132 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
142 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
151 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
158 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
166 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
175 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
186 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/calc_div_ghat.F |
187 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
194 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
195 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
43 |
CALC_DIV_GHAT |
INTEGER bi,bj |
|
./model/src/calc_div_ghat.F |
67 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
68 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
69 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
70 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
83 |
CALC_DIV_GHAT |
pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./model/src/calc_div_ghat.F |
92 |
CALC_DIV_GHAT |
& *xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./pkg/land/land_albedo.F |
12 |
LAND_ALBEDO |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_albedo.F |
45 |
LAND_ALBEDO |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_albedo.F |
63 |
LAND_ALBEDO |
alb_land(i,j) = grnd_alb(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
64 |
LAND_ALBEDO |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_albedo.F |
65 |
LAND_ALBEDO |
Tsf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
67 |
LAND_ALBEDO |
ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0 |
|
./pkg/land/land_albedo.F |
68 |
LAND_ALBEDO |
hSnow = land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_do_diags.F |
10 |
LAND_DO_DIAGS |
I land_frc, bi,bj, myTime, myIter, myThid ) |
|
./pkg/land/land_do_diags.F |
43 |
LAND_DO_DIAGS |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_do_diags.F |
60 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
62 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
64 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
66 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
68 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
70 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
72 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
74 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
|
./pkg/land/land_do_diags.F |
77 |
LAND_DO_DIAGS |
land_timeAve(bi,bj) = land_timeAve(bi,bj)+land_deltaT |
|
./pkg/land/land_do_diags.F |
90 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
92 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
94 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
96 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_do_diags.F |
98 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
|
./pkg/land/land_impl_temp.F |
131 |
LAND_IMPL_TEMP |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_impl_temp.F |
135 |
LAND_IMPL_TEMP |
tSurf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
136 |
LAND_IMPL_TEMP |
mSnow = land_rhoSnow*land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
139 |
LAND_IMPL_TEMP |
alpha = land_hSnow(i,j,bi,bj)/diffKsnow |
|
./pkg/land/land_impl_temp.F |
13 |
LAND_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_impl_temp.F |
142 |
LAND_IMPL_TEMP |
eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
143 |
LAND_IMPL_TEMP |
mW(k) = land_dzF(k)*land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
147 |
LAND_IMPL_TEMP |
tg(k) = land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
176 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
196 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
201 |
LAND_IMPL_TEMP |
& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj), |
|
./pkg/land/land_impl_temp.F |
222 |
LAND_IMPL_TEMP |
IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
236 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
237 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
249 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
|
./pkg/land/land_impl_temp.F |
254 |
LAND_IMPL_TEMP |
& land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj), |
|
./pkg/land/land_impl_temp.F |
289 |
LAND_IMPL_TEMP |
tg(1) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_impl_temp.F |
290 |
LAND_IMPL_TEMP |
tg(2) = land_groundT(i,j,2,bi,bj) |
|
./pkg/land/land_impl_temp.F |
306 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
309 |
LAND_IMPL_TEMP |
ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
327 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
328 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
343 |
LAND_IMPL_TEMP |
& dTsurf(i,j) = tSurf - land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
344 |
LAND_IMPL_TEMP |
land_skinT(i,j,bi,bj) = tSurf |
|
./pkg/land/land_impl_temp.F |
346 |
LAND_IMPL_TEMP |
land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k) |
|
./pkg/land/land_impl_temp.F |
347 |
LAND_IMPL_TEMP |
land_groundT(i,j,k,bi,bj) = tg(k) |
|
./pkg/land/land_impl_temp.F |
354 |
LAND_IMPL_TEMP |
& (land_enthalp(i,j,k,bi,bj),k=1,2), land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
51 |
LAND_IMPL_TEMP |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_ini_vars.F |
126 |
LAND_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/land/land_ini_vars.F |
139 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
141 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
142 |
LAND_INI_VARS |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
143 |
LAND_INI_VARS |
IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0) |
|
./pkg/land/land_ini_vars.F |
144 |
LAND_INI_VARS |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
147 |
LAND_INI_VARS |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_ini_vars.F |
156 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
159 |
LAND_INI_VARS |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_ini_vars.F |
162 |
LAND_INI_VARS |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_ini_vars.F |
163 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
49 |
LAND_INI_VARS |
INTEGER i,j,k,bi,bj |
|
./pkg/land/land_ini_vars.F |
58 |
LAND_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_ini_vars.F |
65 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
66 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
67 |
LAND_INI_VARS |
land_groundW(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
75 |
LAND_INI_VARS |
land_skinT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
76 |
LAND_INI_VARS |
land_hSnow (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
77 |
LAND_INI_VARS |
land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
78 |
LAND_INI_VARS |
land_runOff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
79 |
LAND_INI_VARS |
land_enRnOf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
80 |
LAND_INI_VARS |
land_HeatFLx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
81 |
LAND_INI_VARS |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
82 |
LAND_INI_VARS |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/calc_eddy_stress.F |
101 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./model/src/calc_eddy_stress.F |
11 |
CALC_EDDY_STRESS |
SUBROUTINE CALC_EDDY_STRESS( bi, bj, myThid ) |
|
./model/src/calc_eddy_stress.F |
38 |
CALC_EDDY_STRESS |
INTEGER bi,bj |
|
./model/src/calc_eddy_stress.F |
58 |
CALC_EDDY_STRESS |
psiy = op25*(GM_PsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
59 |
CALC_EDDY_STRESS |
& +GM_PsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
60 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
61 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
63 |
CALC_EDDY_STRESS |
psiy = op25*(eddyPsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
64 |
CALC_EDDY_STRESS |
& +eddyPsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
65 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
66 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
68 |
CALC_EDDY_STRESS |
coriU = op5*(fcori(i-1,j,bi,bj) |
|
./model/src/calc_eddy_stress.F |
69 |
CALC_EDDY_STRESS |
& +fCori(i ,j,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
70 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
77 |
CALC_EDDY_STRESS |
psix = op25*(GM_PsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
78 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
79 |
CALC_EDDY_STRESS |
& +GM_PsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
80 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
82 |
CALC_EDDY_STRESS |
psix = op25*(eddyPsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
83 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
84 |
CALC_EDDY_STRESS |
& +eddyPsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
85 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
87 |
CALC_EDDY_STRESS |
coriV = op5*(fcori(i,j-1,bi,bj) |
|
./model/src/calc_eddy_stress.F |
88 |
CALC_EDDY_STRESS |
& +fCori(i,j ,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
89 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |
|
./model/src/calc_eddy_stress.F |
99 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
170 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
172 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
173 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
174 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
175 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
176 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
177 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
178 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
179 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
180 |
LAND_OUTPUT |
land_timeAve(bi,bj) = 0. |
|
./pkg/land/land_output.F |
190 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
193 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
195 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
197 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
199 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
201 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
203 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
205 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
207 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
279 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/land/land_output.F |
281 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
282 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
283 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
284 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
285 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
286 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
287 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
288 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
289 |
LAND_OUTPUT |
land_timeAve(bi,bj) = 0. |
|
./pkg/land/land_output.F |
52 |
LAND_OUTPUT |
INTEGER bi, bj, k |
|
./pkg/land/land_stepfwd.F |
10 |
LAND_STEPFWD |
I land_frc, bi, bj, myTime, myIter, myThid) |
|
./pkg/land/land_stepfwd.F |
112 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
115 |
LAND_STEPFWD |
& ( land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
116 |
LAND_STEPFWD |
& -land_groundT(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
120 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
137 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
138 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
152 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
154 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
157 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
159 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
160 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
166 |
LAND_STEPFWD |
& k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf |
|
./pkg/land/land_stepfwd.F |
179 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
180 |
LAND_STEPFWD |
mPmE = land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
181 |
LAND_STEPFWD |
enWfx = land_EnWFlux(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
182 |
LAND_STEPFWD |
enGr1 = land_enthalp(i,j,1,bi,bj)*land_dzF(1) |
|
./pkg/land/land_stepfwd.F |
187 |
LAND_STEPFWD |
& mPmE,enWfx,enGr1/land_deltaT,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
190 |
LAND_STEPFWD |
land_snowAge(i,j,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
191 |
LAND_STEPFWD |
& ( land_deltaT + land_snowAge(i,j,bi,bj)*ageFac ) |
|
./pkg/land/land_stepfwd.F |
203 |
LAND_STEPFWD |
land_snowAge(i,j,bi,bj) = land_snowAge(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
209 |
LAND_STEPFWD |
& land_hMaxSnow - land_hSnow(i,j,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
211 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) + dhSnow |
|
./pkg/land/land_stepfwd.F |
213 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = mIceDt |
|
./pkg/land/land_stepfwd.F |
214 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = -mIceDt*land_Lfreez |
|
./pkg/land/land_stepfwd.F |
218 |
LAND_STEPFWD |
& 3,snowPrec,mPmE,hNewSnow,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
225 |
LAND_STEPFWD |
mSnow = land_hSnow(i,j,bi,bj)*land_rhoSnow |
|
./pkg/land/land_stepfwd.F |
229 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
233 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
241 |
LAND_STEPFWD |
& 4,dMsn,mPmE,land_hSnow(i,j,bi,bj),flxEngU(i,j) |
|
./pkg/land/land_stepfwd.F |
246 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
247 |
LAND_STEPFWD |
& land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
260 |
LAND_STEPFWD |
flxkup(i,j) = land_Pr_m_Ev(i,j,bi,bj)/land_rhoLiqW |
|
./pkg/land/land_stepfwd.F |
283 |
LAND_STEPFWD |
IF ( land_frc(i,j,bi,bj).GT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
292 |
LAND_STEPFWD |
IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
296 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
299 |
LAND_STEPFWD |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
303 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
305 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
317 |
LAND_STEPFWD |
& land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
324 |
LAND_STEPFWD |
& ( land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
325 |
LAND_STEPFWD |
& -land_groundW(i,j,kp1,bi,bj) ) |
|
./pkg/land/land_stepfwd.F |
330 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
333 |
LAND_STEPFWD |
& *land_groundT(i,j,kp1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
338 |
LAND_STEPFWD |
groundWnp1 = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
343 |
LAND_STEPFWD |
& ,5,land_groundW(i,j,k,bi,bj)-1., |
|
./pkg/land/land_stepfwd.F |
348 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1) |
|
./pkg/land/land_stepfwd.F |
353 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
361 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
363 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
367 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
375 |
LAND_STEPFWD |
& 7, land_groundT(i,j,k,bi,bj), flxEngU(i,j), flxkup(i,j) |
|
./pkg/land/land_stepfwd.F |
381 |
LAND_STEPFWD |
& 8, land_runOff(i,j,bi,bj),land_enRnOf(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
38 |
LAND_STEPFWD |
INTEGER bi, bj, myIter, myThid |
|
./pkg/land/land_stepfwd.F |
402 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
406 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
409 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
411 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
412 |
LAND_STEPFWD |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
414 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
424 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
425 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0) |
|
./pkg/land/land_stepfwd.F |
427 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
434 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
99 |
LAND_STEPFWD |
flxkup(i,j) = land_HeatFlx(i,j,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
103 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
104 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
10 |
CALC_GRAD_PHI_FV |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_fv.F |
47 |
CALC_GRAD_PHI_FV |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_fv.F |
79 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_fv.F |
83 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*dPhiHydX(i,j) |
|
./model/src/calc_grad_phi_fv.F |
91 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i,j-1,bi,bj) ) |
|
./model/src/calc_grad_phi_fv.F |
95 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*dPhiHydY(i,j) |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
182 |
LAYERS_CALC |
& theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
183 |
LAYERS_CALC |
& salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
184 |
LAYERS_CALC |
& prho(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
185 |
LAYERS_CALC |
& k, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
189 |
LAYERS_CALC |
CALL FIND_ALPHA( bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, |
|
./pkg/layers/layers_calc.F |
191 |
LAYERS_CALC |
& layers_alpha(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
192 |
LAYERS_CALC |
CALL FIND_BETA( bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, |
|
./pkg/layers/layers_calc.F |
194 |
LAYERS_CALC |
& layers_beta(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
198 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = prho(i,j,k,bi,bj) + rhoShift |
|
./pkg/layers/layers_calc.F |
402 |
LAYERS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
407 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
410 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
415 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
418 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
425 |
LAYERS_CALC |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
428 |
LAYERS_CALC |
layers_TimeAve(bi,bj)=layers_TimeAve(bi,bj)+deltaTClock |
|
./pkg/layers/layers_calc.F |
440 |
LAYERS_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_calc.F |
445 |
LAYERS_CALC |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
451 |
LAYERS_CALC |
layers_dfx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
452 |
LAYERS_CALC |
layers_dfy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
453 |
LAYERS_CALC |
layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
454 |
LAYERS_CALC |
layers_afx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
455 |
LAYERS_CALC |
layers_afy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
456 |
LAYERS_CALC |
layers_afr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
457 |
LAYERS_CALC |
layers_tottend (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
459 |
LAYERS_CALC |
layers_sw (i,j,k,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
87 |
LAYERS_CALC |
INTEGER bi, bj, iLa |
|
./pkg/layers/layers_fluxcalc.F |
107 |
LAYERS_FLUXCALC |
INTEGER bi, bj |
|
./pkg/layers/layers_fluxcalc.F |
127 |
LAYERS_FLUXCALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_fluxcalc.F |
146 |
LAYERS_FLUXCALC |
UH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
149 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
150 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
154 |
LAYERS_FLUXCALC |
VH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
Hs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
157 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
158 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
181 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
183 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
216 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
219 |
LAYERS_FLUXCALC |
UH(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
220 |
LAYERS_FLUXCALC |
& UH(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
221 |
LAYERS_FLUXCALC |
& dzfac * uVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
227 |
LAYERS_FLUXCALC |
& ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
228 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
229 |
LAYERS_FLUXCALC |
& ) * maskW(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
230 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
231 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
232 |
LAYERS_FLUXCALC |
& ) * maskW(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
233 |
LAYERS_FLUXCALC |
& ) * recip_rAw(i,j,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
236 |
LAYERS_FLUXCALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
237 |
LAYERS_FLUXCALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
240 |
LAYERS_FLUXCALC |
UH(i,j,kloc,bi,bj) = UH(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
241 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
247 |
LAYERS_FLUXCALC |
Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
261 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
263 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
296 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
309 |
LAYERS_FLUXCALC |
VH(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
310 |
LAYERS_FLUXCALC |
& VH(i,j,kloc,bi,bj) + dzfac * vVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
316 |
LAYERS_FLUXCALC |
& ( rA(i,j-1,bi,bj)*Kwy(i,j-1,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
317 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j ,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
318 |
LAYERS_FLUXCALC |
& ) * maskS(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
319 |
LAYERS_FLUXCALC |
& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
321 |
LAYERS_FLUXCALC |
& ) * maskS(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
322 |
LAYERS_FLUXCALC |
& ) * recip_rAs(i,j,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
325 |
LAYERS_FLUXCALC |
delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
326 |
LAYERS_FLUXCALC |
& - GM_PsiY(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
329 |
LAYERS_FLUXCALC |
VH(i,j,kloc,bi,bj) = VH(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
330 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
336 |
LAYERS_FLUXCALC |
Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj) + dzfac |
|
./pkg/layers/layers_fluxcalc.F |
351 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
352 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
353 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
354 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
358 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
359 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
360 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
361 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
453 |
LAYERS_DIAPYCNAL |
INTEGER bi, bj |
|
./pkg/layers/layers_fluxcalc.F |
476 |
LAYERS_DIAPYCNAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/layers/layers_fluxcalc.F |
495 |
LAYERS_DIAPYCNAL |
TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
496 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
497 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
498 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
499 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
500 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
501 |
LAYERS_DIAPYCNAL |
StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
502 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
503 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
504 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
505 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
506 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
507 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
515 |
LAYERS_DIAPYCNAL |
Hc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
516 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
529 |
LAYERS_DIAPYCNAL |
IF (maskC(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
530 |
LAYERS_DIAPYCNAL |
TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
531 |
LAYERS_DIAPYCNAL |
& (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
613 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
615 |
LAYERS_DIAPYCNAL |
dzfac = dRf(kci) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
620 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kloc,bi,bj) = Hcw(i,j,kloc,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
623 |
LAYERS_DIAPYCNAL |
Hc(i,j,kgc(i,j),bi,bj) = Hc(i,j,kgc(i,j),bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
630 |
LAYERS_DIAPYCNAL |
Tfac = layers_alpha(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
631 |
LAYERS_DIAPYCNAL |
Sfac = layers_beta(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
635 |
LAYERS_DIAPYCNAL |
TtendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
636 |
LAYERS_DIAPYCNAL |
& TtendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
637 |
LAYERS_DIAPYCNAL |
& Tfac * dzfac * layers_surfflux(i,j,1,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
638 |
LAYERS_DIAPYCNAL |
StendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
639 |
LAYERS_DIAPYCNAL |
& StendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
640 |
LAYERS_DIAPYCNAL |
& Sfac * dzfac * layers_surfflux(i,j,1,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
644 |
LAYERS_DIAPYCNAL |
TtendSurf(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
645 |
LAYERS_DIAPYCNAL |
& TtendSurf(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
646 |
LAYERS_DIAPYCNAL |
& Tfac * dzfac * layers_sw(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
650 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
651 |
LAYERS_DIAPYCNAL |
& TtendDiffh(i,j,kloc,bi,bj) + dzfac * Tfac * |
|
./pkg/layers/layers_fluxcalc.F |
652 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
653 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
654 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
655 |
LAYERS_DIAPYCNAL |
& TtendDiffr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
656 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_dfr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
657 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
658 |
LAYERS_DIAPYCNAL |
& StendDiffh(i,j,kloc,bi,bj) + dzfac * Sfac * |
|
./pkg/layers/layers_fluxcalc.F |
659 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
660 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
661 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
662 |
LAYERS_DIAPYCNAL |
& StendDiffr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
663 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_dfr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
665 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
666 |
LAYERS_DIAPYCNAL |
& TtendAdvh(i,j,kloc,bi,bj) + dzfac * Tfac * |
|
./pkg/layers/layers_fluxcalc.F |
667 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
668 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
669 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
670 |
LAYERS_DIAPYCNAL |
& TtendAdvr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
671 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_afr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
672 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
673 |
LAYERS_DIAPYCNAL |
& StendAdvh(i,j,kloc,bi,bj) + dzfac * Sfac * |
|
./pkg/layers/layers_fluxcalc.F |
674 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
675 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
676 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
677 |
LAYERS_DIAPYCNAL |
& StendAdvr(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
678 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_afr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
680 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
681 |
LAYERS_DIAPYCNAL |
& Ttendtot(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
682 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_tottend(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
683 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kloc,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
684 |
LAYERS_DIAPYCNAL |
& Stendtot(i,j,kloc,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
685 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_tottend(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
695 |
LAYERS_DIAPYCNAL |
IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
696 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_init_varia.F |
28 |
LAYERS_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/layers/layers_init_varia.F |
34 |
LAYERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_init_varia.F |
42 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
43 |
LAYERS_INIT_VARIA |
layers_PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
50 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
51 |
LAYERS_INIT_VARIA |
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
52 |
LAYERS_INIT_VARIA |
layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
53 |
LAYERS_INIT_VARIA |
layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
54 |
LAYERS_INIT_VARIA |
layers_TtendAdvh (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
55 |
LAYERS_INIT_VARIA |
layers_TtendAdvr (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
56 |
LAYERS_INIT_VARIA |
layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
57 |
LAYERS_INIT_VARIA |
layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
58 |
LAYERS_INIT_VARIA |
layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
59 |
LAYERS_INIT_VARIA |
layers_StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
60 |
LAYERS_INIT_VARIA |
layers_StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
layers_alpha(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
69 |
LAYERS_INIT_VARIA |
layers_beta(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
78 |
LAYERS_INIT_VARIA |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
84 |
LAYERS_INIT_VARIA |
layers_tottend (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
85 |
LAYERS_INIT_VARIA |
layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
86 |
LAYERS_INIT_VARIA |
layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_afx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
89 |
LAYERS_INIT_VARIA |
layers_afy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
90 |
LAYERS_INIT_VARIA |
layers_afr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
92 |
LAYERS_INIT_VARIA |
layers_sw (i,j,kg,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_output.F |
104 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
107 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
114 |
LAYERS_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
156 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
158 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
160 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
162 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
167 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
169 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
175 |
LAYERS_OUTPUT |
& CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
49 |
LAYERS_OUTPUT |
INTEGER bi, bj |
|
./pkg/layers/layers_output.F |
61 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
63 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
65 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
67 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
72 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
74 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
79 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
90 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_output.F |
95 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
98 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_save.F |
150 |
LAYERS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
218 |
LAYERS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_save.F |
223 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,bi,bj), |
|
./pkg/layers/layers_save.F |
226 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
233 |
LAYERS_FILL_FIELD |
bj = MIN(bjArg,sizTy) |
|
./pkg/layers/layers_save.F |
240 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
289 |
LAYERS_CUMULATE |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
318 |
LAYERS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
331 |
LAYERS_CUMULATE |
cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
102 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
106 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj) - factPI) |
|
./model/src/calc_grad_phi_hyd.F |
108 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
115 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_hyd.F |
123 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
124 |
CALC_GRAD_PHI_HYD |
& / (Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
125 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
137 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
151 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
157 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
170 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
171 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
179 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
187 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
197 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
198 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
205 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
206 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
228 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
229 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
231 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj)-pStarFacK(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
232 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
241 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
242 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
244 |
CALC_GRAD_PHI_HYD |
& *(pStarFacK(i,j,bi,bj)-pStarFacK(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
245 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
257 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
258 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
45 |
CALC_GRAD_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
78 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*pStarFacK(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
79 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
85 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
86 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
97 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./pkg/layers/layers_thermodynamics.F |
105 |
LAYERS_CALC_RHS |
tmpfac = -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/layers/layers_thermodynamics.F |
106 |
LAYERS_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/layers/layers_thermodynamics.F |
107 |
LAYERS_CALC_RHS |
layers_dfx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
108 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
109 |
LAYERS_CALC_RHS |
& layers_dfx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
110 |
LAYERS_CALC_RHS |
layers_dfy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
111 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
112 |
LAYERS_CALC_RHS |
& layers_dfy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
113 |
LAYERS_CALC_RHS |
layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
114 |
LAYERS_CALC_RHS |
& ( layers_dfr(i,j,kdown,iTracer,bi,bj)*downfac - |
|
./pkg/layers/layers_thermodynamics.F |
115 |
LAYERS_CALC_RHS |
& layers_dfr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
117 |
LAYERS_CALC_RHS |
layers_afx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
118 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
119 |
LAYERS_CALC_RHS |
& layers_afx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
120 |
LAYERS_CALC_RHS |
layers_afy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
121 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
122 |
LAYERS_CALC_RHS |
& layers_afy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
123 |
LAYERS_CALC_RHS |
layers_afr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
124 |
LAYERS_CALC_RHS |
& ( layers_afr(i,j,kdown,iTracer,bi,bj)*downfac - |
|
./pkg/layers/layers_thermodynamics.F |
125 |
LAYERS_CALC_RHS |
& layers_afr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
151 |
LAYERS_CALC_RHS |
layers_sw(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
152 |
LAYERS_CALC_RHS |
& layers_sw(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
153 |
LAYERS_CALC_RHS |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
154 |
LAYERS_CALC_RHS |
& -swfracb(2)*maskC(i,j,kdown,bi,bj)) |
|
./pkg/layers/layers_thermodynamics.F |
156 |
LAYERS_CALC_RHS |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
51 |
LAYERS_CALC_RHS |
INTEGER bi, bj |
|
./pkg/layers/layers_thermodynamics.F |
66 |
LAYERS_CALC_RHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_thermodynamics.F |
78 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
79 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
81 |
LAYERS_CALC_RHS |
& +Qsw(i,j,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
85 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
86 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
87 |
LAYERS_CALC_RHS |
& *recip_drF(1)*_recip_hFacC(i,j,1,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
54 |
LAYERS_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./pkg/layers/layers_wsurf_tr.F |
60 |
LAYERS_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/layers/layers_wsurf_tr.F |
64 |
LAYERS_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
67 |
LAYERS_WSURF_TR |
tcor = -wVelFld(i,j,ks,bi,bj) * thetaFld(i,j,ks,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
68 |
LAYERS_WSURF_TR |
scor = -wVelFld(i,j,ks,bi,bj) * saltFld(i,j,ks,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
74 |
LAYERS_WSURF_TR |
layers_surfflux(i,j,1,1,bi,bj) = |
|
./pkg/layers/layers_wsurf_tr.F |
75 |
LAYERS_WSURF_TR |
& layers_surfflux(i,j,1,1,bi,bj) + |
|
./pkg/layers/layers_wsurf_tr.F |
78 |
LAYERS_WSURF_TR |
layers_surfflux(i,j,1,2,bi,bj) = |
|
./pkg/layers/layers_wsurf_tr.F |
79 |
LAYERS_WSURF_TR |
& layers_surfflux(i,j,1,2,bi,bj) + |
|
./pkg/longstep/longstep_average_3d.F |
43 |
LONGSTEP_AVERAGE_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d.F |
47 |
LONGSTEP_AVERAGE_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_average_3d.F |
49 |
LONGSTEP_AVERAGE_3D |
factor = lsCnt(bi,bj) |
|
./pkg/longstep/longstep_average_3d.F |
50 |
LONGSTEP_AVERAGE_3D |
IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/longstep/longstep_average_3d.F |
54 |
LONGSTEP_AVERAGE_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./pkg/longstep/longstep_average_3d_fac.F |
45 |
LONGSTEP_AVERAGE_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d_fac.F |
49 |
LONGSTEP_AVERAGE_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_average_3d_fac.F |
54 |
LONGSTEP_AVERAGE_3D_FAC |
factor = lsCnt(bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
55 |
LONGSTEP_AVERAGE_3D_FAC |
factor = factor*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
57 |
LONGSTEP_AVERAGE_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./model/src/calc_grad_phi_surf.F |
36 |
CALC_GRAD_PHI_SURF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_grad_phi_surf.F |
51 |
CALC_GRAD_PHI_SURF |
phiSurfX(i,j)=_recip_dxC(i,j,bi,bj)* |
|
./model/src/calc_grad_phi_surf.F |
52 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
53 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
60 |
CALC_GRAD_PHI_SURF |
phiSurfY(i,j)=_recip_dyC(i,j,bi,bj)* |
|
./model/src/calc_grad_phi_surf.F |
61 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
62 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
9 |
CALC_GRAD_PHI_SURF |
SUBROUTINE CALC_GRAD_PHI_SURF( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_fill_3d.F |
44 |
LONGSTEP_FILL_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d.F |
47 |
LONGSTEP_FILL_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d.F |
49 |
LONGSTEP_FILL_3D |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d.F |
53 |
LONGSTEP_FILL_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
45 |
LONGSTEP_FILL_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_fac.F |
48 |
LONGSTEP_FILL_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
50 |
LONGSTEP_FILL_3D_FAC |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d_fac.F |
54 |
LONGSTEP_FILL_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
55 |
LONGSTEP_FILL_3D_FAC |
& + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
45 |
LONGSTEP_FILL_3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_rs.F |
48 |
LONGSTEP_FILL_3D_RS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
50 |
LONGSTEP_FILL_3D_RS |
lsCnt(bi,bj) = lsCnt(bi,bj) + 1 |
|
./pkg/longstep/longstep_fill_3d_rs.F |
54 |
LONGSTEP_FILL_3D_RS |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
118 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
119 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
11 |
LONGSTEP_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_forcing_surf.F |
120 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
121 |
LONGSTEP_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/longstep/longstep_forcing_surf.F |
142 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
143 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
144 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
38 |
LONGSTEP_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/longstep/longstep_forcing_surf.F |
63 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
85 |
LONGSTEP_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/longstep/longstep_forcing_surf.F |
86 |
LONGSTEP_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/longstep/longstep_forcing_surf.F |
87 |
LONGSTEP_FORCING_SURF |
& + LS_fwFlux(i,j,bi,bj) |
|
./pkg/longstep/longstep_forcing_surf.F |
88 |
LONGSTEP_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/longstep/longstep_reset_3d.F |
42 |
LONGSTEP_RESET_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_reset_3d.F |
45 |
LONGSTEP_RESET_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/longstep/longstep_reset_3d.F |
47 |
LONGSTEP_RESET_3D |
lsCnt(bi,bj) = 0 |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
107 |
LONGSTEP_THERMODYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
113 |
LONGSTEP_THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
146 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
147 |
LONGSTEP_THERMODYNAMICS |
& / rStarExpC(i,j,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
157 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/longstep/longstep_thermodynamics.F |
160 |
LONGSTEP_THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
170 |
LONGSTEP_THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
171 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
173 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
184 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
199 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_thermodynamics.F |
207 |
LONGSTEP_THERMODYNAMICS |
uFld(i,j,k) = LS_uVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
208 |
LONGSTEP_THERMODYNAMICS |
vFld(i,j,k) = LS_vVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
209 |
LONGSTEP_THERMODYNAMICS |
wFld(i,j,k) = LS_wVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
218 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myIter, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
231 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, recip_hFacNew, |
|
./pkg/longstep/longstep_thermodynamics.F |
90 |
LONGSTEP_THERMODYNAMICS |
INTEGER bi, bj |
|
./model/src/calc_grid_angles.F |
100 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
102 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = rSphere |
|
./model/src/calc_grid_angles.F |
103 |
CALC_GRID_ANGLES |
& *( SIN( yG(i,j+1,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
104 |
CALC_GRID_ANGLES |
& - SIN( yG(i, j, bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
105 |
CALC_GRID_ANGLES |
& )* _dxC(i,j,bi,bj)/tmpVal |
|
./model/src/calc_grid_angles.F |
108 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = 1. |
|
./model/src/calc_grid_angles.F |
117 |
CALC_GRID_ANGLES |
tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad* |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
120 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = -rSphere |
|
./model/src/calc_grid_angles.F |
121 |
CALC_GRID_ANGLES |
& *( SIN( yG(i+1,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
122 |
CALC_GRID_ANGLES |
& - SIN( yG(i,j,bi,bj)*deg2rad ) |
|
./model/src/calc_grid_angles.F |
123 |
CALC_GRID_ANGLES |
& )* _dyC(i,j,bi,bj)/tmpVal |
|
./model/src/calc_grid_angles.F |
126 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = 0. |
|
./model/src/calc_grid_angles.F |
40 |
CALC_GRID_ANGLES |
INTEGER bi, bj |
|
./model/src/calc_grid_angles.F |
49 |
CALC_GRID_ANGLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_grid_angles.F |
56 |
CALC_GRID_ANGLES |
IF ( _dyG(i,j,bi,bj).GT.0. ) THEN |
|
./model/src/calc_grid_angles.F |
58 |
CALC_GRID_ANGLES |
& - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
59 |
CALC_GRID_ANGLES |
& / _dyG(i,j,bi,bj) |
|
./model/src/calc_grid_angles.F |
63 |
CALC_GRID_ANGLES |
u2zonDir(i,j,bi,bj) = rSphere*uPseudo(i,j) |
|
./model/src/calc_grid_angles.F |
68 |
CALC_GRID_ANGLES |
IF ( _dxG(i,j,bi,bj).GT.0. ) THEN |
|
./model/src/calc_grid_angles.F |
70 |
CALC_GRID_ANGLES |
& + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad |
|
./model/src/calc_grid_angles.F |
71 |
CALC_GRID_ANGLES |
& / _dxG(i,j,bi,bj) |
|
./model/src/calc_grid_angles.F |
75 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j) |
|
./model/src/calc_grid_angles.F |
85 |
CALC_GRID_ANGLES |
angleCosC(i,j,bi,bj) = uC*uNorm |
|
./model/src/calc_grid_angles.F |
86 |
CALC_GRID_ANGLES |
angleSinC(i,j,bi,bj) = -vC*uNorm |
|
./model/src/calc_grid_angles.F |
99 |
CALC_GRID_ANGLES |
tmpVal = _rAw(i,j,bi,bj) * COS( deg2rad* |
|
./pkg/matrix/matrix_init_varia.F |
23 |
MATRIX_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/matrix/matrix_init_varia.F |
29 |
MATRIX_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_init_varia.F |
31 |
MATRIX_INIT_VARIA |
expMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_init_varia.F |
32 |
MATRIX_INIT_VARIA |
impMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_init_varia.F |
36 |
MATRIX_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_init_varia.F |
41 |
MATRIX_INIT_VARIA |
PTRACERS_initial(i,j,k,bi,bj,iTracer) = |
|
./pkg/matrix/matrix_init_varia.F |
42 |
MATRIX_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_init_varia.F |
43 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_init_varia.F |
44 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_store_tendency.F |
108 |
MATRIX_STORE_TENDENCY_IMP |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_store_tendency.F |
109 |
MATRIX_STORE_TENDENCY_IMP |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_store_tendency.F |
110 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
111 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
112 |
MATRIX_STORE_TENDENCY_IMP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
117 |
MATRIX_STORE_TENDENCY_IMP |
impMatrixCounter(bi,bj) = impMatrixCounter(bi,bj) + 1 |
|
./pkg/matrix/matrix_store_tendency.F |
17 |
MATRIX_STORE_TENDENCY_EXP |
I iTracer, bi, bj, |
|
./pkg/matrix/matrix_store_tendency.F |
39 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_store_tendency.F |
53 |
MATRIX_STORE_TENDENCY_EXP |
MATRIX(i,j,k,bi,bj,iTracer,1) = MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_store_tendency.F |
54 |
MATRIX_STORE_TENDENCY_EXP |
& + ( tracNew(i,j,k) - PTRACERS_initial(i,j,k,bi,bj,iTracer) ) |
|
./pkg/matrix/matrix_store_tendency.F |
55 |
MATRIX_STORE_TENDENCY_EXP |
tracNew(i,j,k) = PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
62 |
MATRIX_STORE_TENDENCY_EXP |
expMatrixCounter(bi,bj) = expMatrixCounter(bi,bj) + 1 |
|
./pkg/matrix/matrix_store_tendency.F |
75 |
MATRIX_STORE_TENDENCY_IMP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
93 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_write_tendency.F |
103 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
108 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_write_tendency.F |
109 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_write_tendency.F |
117 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
120 |
MATRIX_WRITE_TENDENCY |
& iTracer, impMatrixWriteCount, impMatrixCounter(bi,bj) |
|
./pkg/matrix/matrix_write_tendency.F |
134 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
136 |
MATRIX_WRITE_TENDENCY |
impMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_write_tendency.F |
140 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
145 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
29 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
38 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
40 |
MATRIX_WRITE_TENDENCY |
recipExpDeltaTtracer = expMatrixCounter(bi,bj)*dTtracerLev(1) |
|
./pkg/matrix/matrix_write_tendency.F |
44 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
49 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_write_tendency.F |
50 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_write_tendency.F |
58 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
61 |
MATRIX_WRITE_TENDENCY |
& iTracer, expMatrixWriteCount, expMatrixCounter(bi,bj) |
|
./pkg/matrix/matrix_write_tendency.F |
75 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
77 |
MATRIX_WRITE_TENDENCY |
expMatrixCounter(bi,bj) = 0 |
|
./pkg/matrix/matrix_write_tendency.F |
81 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
97 |
MATRIX_WRITE_TENDENCY |
bj=myByLo(myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
99 |
MATRIX_WRITE_TENDENCY |
recipImpMatrixCounter = impMatrixCounter(bi,bj) |
|
./model/src/calc_gw.F |
154 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
15 |
CALC_GW |
I bi, bj, kappaRU, kappaRV, |
|
./model/src/calc_gw.F |
194 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
195 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
200 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
201 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
210 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
211 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
218 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
219 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
222 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
230 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
233 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
244 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
249 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
255 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
256 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
259 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
260 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
263 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
264 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
266 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
267 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
269 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
272 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
308 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
315 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
317 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
320 |
CALC_GW |
& *maskInW(i,j,bi,bj) |
|
./model/src/calc_gw.F |
329 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
338 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
341 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
345 |
CALC_GW |
& *maskInS(i,j,bi,bj) |
|
./model/src/calc_gw.F |
356 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
369 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
370 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
371 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
372 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
374 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
376 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
378 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
386 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
387 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
388 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
390 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
392 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
394 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
397 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
414 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
416 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
432 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
433 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
434 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
450 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
461 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
481 |
CALC_GW |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
502 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
504 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
515 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
532 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
533 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
539 |
CALC_GW |
& )*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
548 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
550 |
CALC_GW |
& *rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
568 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
576 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./model/src/calc_gw.F |
578 |
CALC_GW |
& *( addMass(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
579 |
CALC_GW |
& +addMass(i,j,km1,bi,bj)*mskM1 ) |
|
./model/src/calc_gw.F |
580 |
CALC_GW |
& *recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
58 |
CALC_GW |
INTEGER bi,bj |
|
./model/src/calc_gw.F |
610 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
616 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
622 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
628 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
638 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
645 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
654 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
663 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
664 |
CALC_GW |
U gW(1-OLx,1-OLy,1,bi,bj), gwNm, |
|
./model/src/calc_gw.F |
669 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
670 |
CALC_GW |
U gW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/calc_gw.F |
671 |
CALC_GW |
U gwNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/calc_gw.F |
677 |
CALC_GW |
CALL DIAGNOSTICS_FILL(gw_AB,'AB_gW ',k,1,2,bi,bj,myThid) |
|
./model/src/calc_gw.F |
685 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
695 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
|
./model/src/calc_gw.F |
696 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
|
./pkg/mdsio/mdsio_facef_read.F |
104 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i+tBx) |
|
./pkg/mdsio/mdsio_facef_read.F |
128 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
138 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
19 |
MDS_FACEF_READ_RS |
I bi,bj, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
45 |
MDS_FACEF_READ_RS |
INTEGER bi,bj, myThid |
|
./pkg/mdsio/mdsio_facef_read.F |
71 |
MDS_FACEF_READ_RS |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_facef_read.F |
93 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i+tBx) |
|
./pkg/mdsio/mdsio_gl.F |
1014 |
MDSREADFIELD_2D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
1019 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1057 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl.F |
1072 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1075 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1089 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1092 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1174 |
MDSREADFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1177 |
MDSREADFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1180 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1379 |
MDSWRITEFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1382 |
MDSWRITEFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1385 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1461 |
MDSWRITEFIELD_2D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
1465 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1483 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1491 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1494 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1508 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1511 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1545 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1552 |
MDSWRITEFIELD_2D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
1553 |
MDSWRITEFIELD_2D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
227 |
MDSREADFIELD_3D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
232 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
270 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
288 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
302 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
319 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
387 |
MDSREADFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
390 |
MDSREADFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
393 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
590 |
MDSWRITEFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
596 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
672 |
MDSWRITEFIELD_3D_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
702 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
705 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
719 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
722 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
756 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
763 |
MDSWRITEFIELD_3D_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl.F |
764 |
MDSWRITEFIELD_3D_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
141 |
MDSREADFIELD_XZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
146 |
MDSREADFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
191 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
205 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
208 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
381 |
MDSREADFIELD_YZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
386 |
MDSREADFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
428 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
448 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
462 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
618 |
MDSWRITEFIELD_XZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
622 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
639 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
647 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
650 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
664 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
667 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
699 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
706 |
MDSWRITEFIELD_XZ_GL |
dimList(2,2)=(jp-1)*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
707 |
MDSWRITEFIELD_XZ_GL |
dimList(3,2)= jp*nSy+bj |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
859 |
MDSWRITEFIELD_YZ_GL |
do bj=1,nSy |
|
./pkg/mdsio/mdsio_gl_slice.F |
863 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
880 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
888 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
891 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
905 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
908 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
940 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
947 |
MDSWRITEFIELD_YZ_GL |
dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1 |
|
./pkg/mdsio/mdsio_gl_slice.F |
948 |
MDSWRITEFIELD_YZ_GL |
dimList(3,2)=((jp-1)*nSy+bj)*sNy |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
103 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
112 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
58 |
MDS_PASS_R4TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
68 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
74 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
81 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
87 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
97 |
MDS_PASS_R4TORL |
bj = bjArg |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
103 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
112 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
58 |
MDS_PASS_R4TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
68 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
74 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
81 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
87 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
97 |
MDS_PASS_R4TORS |
bj = bjArg |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
103 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
112 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
58 |
MDS_PASS_R8TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
68 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
74 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
81 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
87 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
97 |
MDS_PASS_R8TORL |
bj = bjArg |
|
./model/src/calc_ivdc.F |
35 |
CALC_IVDC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/calc_ivdc.F |
9 |
CALC_IVDC |
I bi, bj, iMin, iMax, jMin, jMax, K, |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
103 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
112 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
58 |
MDS_PASS_R8TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
68 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
74 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
81 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
87 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
97 |
MDS_PASS_R8TORS |
bj = bjArg |
|
./pkg/mdsio/mdsio_read_field.F |
110 |
MDS_READ_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_read_field.F |
391 |
MDS_READ_FIELD |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_field.F |
393 |
MDS_READ_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_read_field.F |
403 |
MDS_READ_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
408 |
MDS_READ_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_field.F |
454 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
165 |
MDS_READ_SEC_XZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_section.F |
170 |
MDS_READ_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
203 |
MDS_READ_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
216 |
MDS_READ_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_read_section.F |
231 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
234 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
248 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORS_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
251 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORL_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
443 |
MDS_READ_SEC_YZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_read_section.F |
448 |
MDS_READ_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
481 |
MDS_READ_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
494 |
MDS_READ_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_section.F |
509 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
512 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
526 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
529 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_whalos.F |
90 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_readvec_loc.F |
144 |
MDS_READVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
164 |
MDS_READVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_readvec_loc.F |
16 |
MDS_READVEC_LOC |
I bi, bj, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
67 |
MDS_READVEC_LOC |
INTEGER bi,bj |
|
./model/src/calc_oce_mxlayer.F |
105 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
112 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
114 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
118 |
CALC_OCE_MXLAYER |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
12 |
CALC_OCE_MXLAYER |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
145 |
CALC_OCE_MXLAYER |
IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
146 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = drF(1) |
|
./model/src/calc_oce_mxlayer.F |
149 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
158 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
160 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
164 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
178 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_oce_mxlayer.F |
195 |
CALC_OCE_MXLAYER |
rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
196 |
CALC_OCE_MXLAYER |
& tmpFac * ( hMixLayer(i-1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
197 |
CALC_OCE_MXLAYER |
& hMixLayer(i+1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
198 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j-1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
199 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j+1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
202 |
CALC_OCE_MXLAYER |
& tmpFac * ( maskC(i-1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
203 |
CALC_OCE_MXLAYER |
& maskC(i+1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
204 |
CALC_OCE_MXLAYER |
& maskC(i,j-1,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
205 |
CALC_OCE_MXLAYER |
& maskC(i,j+1,1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
206 |
CALC_OCE_MXLAYER |
& ) * maskC(i,j,1,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
211 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
219 |
CALC_OCE_MXLAYER |
& 0, 1, 1, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
42 |
CALC_OCE_MXLAYER |
INTEGER bi, bj |
|
./model/src/calc_oce_mxlayer.F |
97 |
CALC_OCE_MXLAYER |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/mdsio/mdsio_seg4torl.F |
22 |
MDS_SEG4TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4torl.F |
31 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
35 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4torl.F |
6 |
MDS_SEG4TORL |
SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg4tors.F |
22 |
MDS_SEG4TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4tors.F |
31 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
35 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4tors.F |
6 |
MDS_SEG4TORS |
SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8torl.F |
22 |
MDS_SEG8TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8torl.F |
31 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
35 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8torl.F |
6 |
MDS_SEG8TORL |
SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8tors.F |
22 |
MDS_SEG8TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8tors.F |
31 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
35 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
6 |
MDS_SEG8TORS |
SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
115 |
MDS_SEG8TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
125 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
129 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
138 |
MDS_SEG8TORS_2D |
SUBROUTINE MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
156 |
MDS_SEG8TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
15 |
MDS_SEG4TORL_2D |
SUBROUTINE MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
166 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
170 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
33 |
MDS_SEG4TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
43 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
47 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
56 |
MDS_SEG4TORS_2D |
SUBROUTINE MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
74 |
MDS_SEG4TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
84 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
88 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
97 |
MDS_SEG8TORL_2D |
SUBROUTINE MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
157 |
MDS_WR_METAFILES |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
161 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
168 |
MDS_WR_METAFILES |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
173 |
MDS_WR_METAFILES |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
97 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
127 |
MDS_WRITE_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_write_field.F |
441 |
MDS_WRITE_FIELD |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_field.F |
443 |
MDS_WRITE_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_write_field.F |
449 |
MDS_WRITE_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
452 |
MDS_WRITE_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_field.F |
498 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
532 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./model/src/calc_phi_hyd.F |
123 |
CALC_PHI_HYD |
act2 = bj - myByLo(myThid) |
|
./model/src/calc_phi_hyd.F |
14 |
CALC_PHI_HYD |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
167 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
168 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
170 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
188 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
194 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
203 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
212 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
242 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
243 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
245 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
288 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
291 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
329 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
330 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
332 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
340 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
357 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
376 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
412 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
413 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
415 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
447 |
CALC_PHI_HYD |
alphaRho(i,j) = ( tFld(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
449 |
CALC_PHI_HYD |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
455 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
476 |
CALC_PHI_HYD |
locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
478 |
CALC_PHI_HYD |
locDepth = locDepth + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
481 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
485 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
489 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth |
|
./model/src/calc_phi_hyd.F |
551 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
552 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
554 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
595 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
596 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
598 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
626 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
641 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
662 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
669 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
68 |
CALC_PHI_HYD |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/mdsio/mdsio_write_section.F |
151 |
MDS_WRITE_SEC_XZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_section.F |
156 |
MDS_WRITE_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
174 |
MDS_WRITE_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
187 |
MDS_WRITE_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_write_section.F |
198 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
201 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
215 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
218 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
404 |
MDS_WRITE_SEC_YZ |
DO bj=1,nSy |
|
./pkg/mdsio/mdsio_write_section.F |
409 |
MDS_WRITE_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
427 |
MDS_WRITE_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
440 |
MDS_WRITE_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_section.F |
451 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
454 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
468 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
471 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_whalos.F |
92 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_writelocal.F |
120 |
MDS_WRITELOCAL |
INTEGER bi, bj |
|
./pkg/mdsio/mdsio_writelocal.F |
288 |
MDS_WRITELOCAL |
bj = bjArg + myByLo(ith) - 1 |
|
./pkg/mdsio/mdsio_writelocal.F |
290 |
MDS_WRITELOCAL |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_writelocal.F |
304 |
MDS_WRITELOCAL |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
307 |
MDS_WRITELOCAL |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_writelocal.F |
352 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
386 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
156 |
MDS_WRITEVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
162 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
16 |
MDS_WRITEVEC_LOC |
I bi, bj, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
216 |
MDS_WRITEVEC_LOC |
IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
228 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
68 |
MDS_WRITEVEC_LOC |
INTEGER bi,bj |
|
./pkg/mdsio/mdsio_writevec_loc.F |
96 |
MDS_WRITEVEC_LOC |
IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN |
|
./model/src/calc_r_star.F |
105 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
106 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
107 |
CALC_R_STAR |
& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
108 |
CALC_R_STAR |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
110 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
118 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
119 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
120 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
123 |
CALC_R_STAR |
& )*recip_rAw(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
126 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
132 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
133 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
134 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
135 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/calc_r_star.F |
136 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
137 |
CALC_R_STAR |
& )*recip_rAs(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
140 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
148 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
150 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
154 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
160 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
161 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
162 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
163 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
166 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
174 |
CALC_R_STAR |
I bi, bj, etaFld, |
|
./model/src/calc_r_star.F |
188 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
191 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
194 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
197 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_r_star.F |
199 |
CALC_R_STAR |
maxhFacC = max(rStarFacC(i,j,bi,bj),maxhFacC) |
|
./model/src/calc_r_star.F |
208 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
211 |
CALC_R_STAR |
& rStarFacC(i,j,bi,bj), |
|
./model/src/calc_r_star.F |
212 |
CALC_R_STAR |
& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), |
|
./model/src/calc_r_star.F |
213 |
CALC_R_STAR |
& etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
215 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
216 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
219 |
CALC_R_STAR |
& rStarFacW(i,j,bi,bj), tmpfldW, |
|
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
222 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
223 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
226 |
CALC_R_STAR |
& rStarFacS(i,j,bi,bj), tmpfldS, |
|
./model/src/calc_r_star.F |
227 |
CALC_R_STAR |
& etaFld(i,j-1,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
234 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
238 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
242 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
253 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
267 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_r_star.F |
281 |
CALC_R_STAR |
IF (kSurfC(1-i,1-j,bi,bj).GT.Nr) rStarFacC(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
282 |
CALC_R_STAR |
IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
283 |
CALC_R_STAR |
IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
284 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
286 |
CALC_R_STAR |
IF (kSurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
287 |
CALC_R_STAR |
IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
288 |
CALC_R_STAR |
IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
289 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
291 |
CALC_R_STAR |
IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
292 |
CALC_R_STAR |
IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
293 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
294 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
303 |
CALC_R_STAR |
rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
304 |
CALC_R_STAR |
& -rStarExpC(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
305 |
CALC_R_STAR |
rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
306 |
CALC_R_STAR |
& -rStarExpW(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
307 |
CALC_R_STAR |
rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
308 |
CALC_R_STAR |
& -rStarExpS(i,j,bi,bj))/deltaTFreeSurf |
|
./model/src/calc_r_star.F |
309 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
310 |
CALC_R_STAR |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
311 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
312 |
CALC_R_STAR |
& / rStarExpW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
313 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
314 |
CALC_R_STAR |
& / rStarExpS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
321 |
CALC_R_STAR |
pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa |
|
./model/src/calc_r_star.F |
328 |
CALC_R_STAR |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./model/src/calc_r_star.F |
53 |
CALC_R_STAR |
INTEGER i,j,bi,bj |
|
./model/src/calc_r_star.F |
79 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_r_star.F |
85 |
CALC_R_STAR |
rStarFacNm1C(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
86 |
CALC_R_STAR |
rStarFacNm1S(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
87 |
CALC_R_STAR |
rStarFacNm1W(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
96 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
97 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
98 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
100 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
136 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
16 |
MNC_CW_WRITE_CVAR |
I bi, bj, |
|
./pkg/mnc/mnc_cw_cvars.F |
172 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
210 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
246 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
282 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
41 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_cw_cvars.F |
68 |
MNC_CW_WRITE_CVAR |
xtmin = exch2_tbasex(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
69 |
MNC_CW_WRITE_CVAR |
ytmin = exch2_tbasey(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
77 |
MNC_CW_WRITE_CVAR |
ytmin = sNy * ( bj+(myYGlobalLo-1)/sNy - 1 ) |
|
./pkg/mnc/mnc_cw_model_attr.F |
13 |
MNC_CW_SET_GATTR |
I bi, bj, tnum, |
|
./pkg/mnc/mnc_cw_model_attr.F |
36 |
MNC_CW_SET_GATTR |
integer myThid, bi,bj, tnum |
|
./pkg/mnc/mnc_cw_model_attr.F |
83 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
606 |
MNC_CW_GET_TILE_NUM |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
622 |
MNC_CW_GET_TILE_NUM |
integer myThid, bi,bj, uniq_tnum |
|
./pkg/mnc/mnc_cwrapper.F |
633 |
MNC_CW_GET_TILE_NUM |
uniq_tnum = W2_myTileList(bi,bj) |
|
./pkg/mnc/mnc_cwrapper.F |
639 |
MNC_CW_GET_TILE_NUM |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/mnc/mnc_cwrapper.F |
656 |
MNC_CW_GET_FACE_NUM |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
672 |
MNC_CW_GET_FACE_NUM |
integer myThid, bi,bj, uniq_fnum |
|
./pkg/mnc/mnc_cwrapper.F |
677 |
MNC_CW_GET_FACE_NUM |
uniq_fnum = exch2_myFace( W2_myTileList(bi,bj) ) |
|
./pkg/mnc/mnc_cwrapper.F |
695 |
MNC_CW_GET_XYFO |
I bi, bj, |
|
./pkg/mnc/mnc_cwrapper.F |
711 |
MNC_CW_GET_XYFO |
integer myThid, bi,bj, ixoff,iyoff |
|
./pkg/mnc/mnc_cwrapper.F |
721 |
MNC_CW_GET_XYFO |
uniq_tnum = W2_myTileList(bi,bj) |
|
./pkg/mnc/mnc_cwrapper.F |
732 |
MNC_CW_GET_XYFO |
iyoff = myYGlobalLo + bj * sNy |
|
./pkg/mnc/mnc_dim.F |
154 |
MNC_DIM_INIT_ALL_CV |
& mnc_f_info(indf,2), idd, bi, bj, myThid) |
|
./pkg/mnc/mnc_dim.F |
69 |
MNC_DIM_INIT_ALL_CV |
I bi,bj, |
|
./pkg/mnc/mnc_dim.F |
82 |
MNC_DIM_INIT_ALL_CV |
integer myThid, dlen, bi,bj |
|
./model/src/calc_surf_dr.F |
103 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
116 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
121 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
122 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
123 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
127 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_surf_dr.F |
131 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
133 |
CALC_SURF_DR |
& 'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj), |
|
./model/src/calc_surf_dr.F |
134 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = h0FacW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
160 |
CALC_SURF_DR |
& - MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/calc_surf_dr.F |
161 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
168 |
CALC_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
179 |
CALC_SURF_DR |
hFac_surfS(i,j,bi,bj) = h0FacS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
181 |
CALC_SURF_DR |
& - MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/calc_surf_dr.F |
182 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
191 |
CALC_SURF_DR |
I bi, bj, etaFld, |
|
./model/src/calc_surf_dr.F |
51 |
CALC_SURF_DR |
INTEGER i,j,bi,bj |
|
./model/src/calc_surf_dr.F |
66 |
CALC_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_surf_dr.F |
72 |
CALC_SURF_DR |
hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
73 |
CALC_SURF_DR |
hFac_surfNm1S(i,j,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
74 |
CALC_SURF_DR |
hFac_surfNm1W(i,j,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
83 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
84 |
CALC_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
86 |
CALC_SURF_DR |
IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN |
|
./model/src/calc_surf_dr.F |
90 |
CALC_SURF_DR |
hFactmp = h0FacC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
91 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks) |
|
./model/src/calc_surf_dr.F |
95 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
99 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_viscosity.F |
105 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
11 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./model/src/calc_viscosity.F |
134 |
CALC_VISCOSITY |
IF ( k.GT.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
135 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
138 |
CALC_VISCOSITY |
& *twoRL/(hFacW(i,j,km,bi,bj)+hFacW(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
144 |
CALC_VISCOSITY |
IF ( k.GT.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
145 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
148 |
CALC_VISCOSITY |
& *twoRL/(hFacS(i,j,km,bi,bj)+hFacS(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
171 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
172 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
173 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
214 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
215 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
216 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
261 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
262 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
264 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
305 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
306 |
CALC_VISCOSITY |
& km.LT.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
308 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,km,bi,bj) |
|
./model/src/calc_viscosity.F |
39 |
CALC_VISCOSITY |
INTEGER bi,bj |
|
./model/src/calc_viscosity.F |
69 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
78 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
87 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
96 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
111 |
MOM_CALC_3D_STRAIN |
& recip_dyU(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
112 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
113 |
MOM_CALC_3D_STRAIN |
& +recip_dxV(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
114 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
133 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
134 |
MOM_CALC_3D_STRAIN |
& +recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
135 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
13 |
MOM_CALC_3D_STRAIN |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
143 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
144 |
MOM_CALC_3D_STRAIN |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
145 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
155 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
156 |
MOM_CALC_3D_STRAIN |
& +recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
157 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
166 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
167 |
MOM_CALC_3D_STRAIN |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
168 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
178 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j-1,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
185 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
191 |
MOM_CALC_3D_STRAIN |
& *maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
218 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
228 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
31 |
MOM_CALC_3D_STRAIN |
INTEGER bi, bj |
|
./pkg/mom_common/mom_calc_3d_strain.F |
86 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = recip_dxF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
87 |
MOM_CALC_3D_STRAIN |
& *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
94 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = recip_dyF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
95 |
MOM_CALC_3D_STRAIN |
& *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_absvort3.F |
24 |
MOM_CALC_ABSVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_absvort3.F |
47 |
MOM_CALC_ABSVORT3 |
& fCoriG(i,j,bi,bj)*useCoriolisFac |
|
./pkg/mom_common/mom_calc_absvort3.F |
7 |
MOM_CALC_ABSVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_hdiv.F |
24 |
MOM_CALC_HDIV |
INTEGER bi,bj,k,hDivScheme |
|
./pkg/mom_common/mom_calc_hdiv.F |
39 |
MOM_CALC_HDIV |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
40 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
41 |
MOM_CALC_HDIV |
& +vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
42 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
43 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
45 |
MOM_CALC_HDIV |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
58 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
59 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
60 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
61 |
MOM_CALC_HDIV |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
63 |
MOM_CALC_HDIV |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
7 |
MOM_CALC_HDIV |
I bi,bj,k, hDivScheme, |
|
./pkg/mom_common/mom_calc_hfacz.F |
117 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
119 |
MOM_CALC_HFACZ |
& MIN(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& _hFacW(i ,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
122 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
125 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
127 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
130 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
145 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
14 |
MOM_CALC_HFACZ |
I bi, bj, k, |
|
./pkg/mom_common/mom_calc_hfacz.F |
196 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
197 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
198 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
199 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
214 |
MOM_CALC_HFACZ |
& _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
215 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
216 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
217 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
225 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
226 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
227 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
228 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
239 |
MOM_CALC_HFACZ |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
261 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
262 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
263 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
268 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
269 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
270 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
273 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
274 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
275 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
286 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
287 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
288 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
293 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
295 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
298 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
303 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
316 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
317 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
318 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
325 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
328 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
333 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
345 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
346 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
347 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
352 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
353 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
354 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
357 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
43 |
MOM_CALC_HFACZ |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_calc_hfacz.F |
89 |
MOM_CALC_HFACZ |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_common/mom_calc_ke.F |
100 |
MOM_CALC_KE |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
110 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
111 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
112 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
113 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
114 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
11 |
MOM_CALC_KE |
I bi,bj,k,KEscheme, |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
131 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
133 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
134 |
MOM_CALC_KE |
& ) )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
135 |
MOM_CALC_KE |
& * recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
35 |
MOM_CALC_KE |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_ke.F |
96 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
97 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
98 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
99 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
118 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
119 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
120 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
121 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
132 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
133 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
134 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
135 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
136 |
MOM_CALC_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
139 |
MOM_CALC_RELVORT3 |
& *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
160 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
161 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
163 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
167 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
168 |
MOM_CALC_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
169 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
170 |
MOM_CALC_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
174 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
175 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
177 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
189 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
190 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
191 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
193 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
195 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
217 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
218 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
219 |
MOM_CALC_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
220 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
224 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
226 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
227 |
MOM_CALC_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
231 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
232 |
MOM_CALC_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
233 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
234 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
246 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
247 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
248 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
249 |
MOM_CALC_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
250 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
252 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
253 |
MOM_CALC_RELVORT3 |
& *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
274 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
275 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
276 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
277 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
281 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
282 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
283 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
284 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
296 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
297 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
298 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
299 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
29 |
MOM_CALC_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_relvort3.F |
300 |
MOM_CALC_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
302 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
303 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
58 |
MOM_CALC_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
59 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
61 |
MOM_CALC_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
62 |
MOM_CALC_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
85 |
MOM_CALC_RELVORT3 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
8 |
MOM_CALC_RELVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_smag_3d.F |
130 |
MOM_CALC_SMAG_3D |
& smag3D_hLsC(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
147 |
MOM_CALC_SMAG_3D |
& smag3D_hLsZ(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
16 |
MOM_CALC_SMAG_3D |
I k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
182 |
MOM_CALC_SMAG_3D |
& smag3D_hLsW(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
199 |
MOM_CALC_SMAG_3D |
& smag3D_hLsS(i,j,bi,bj)*tmpFac*SQRT( |
|
./pkg/mom_common/mom_calc_smag_3d.F |
57 |
MOM_CALC_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_calc_strain.F |
11 |
MOM_CALC_STRAIN |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_strain.F |
38 |
MOM_CALC_STRAIN |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_strain.F |
58 |
MOM_CALC_STRAIN |
& ( dyC( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
59 |
MOM_CALC_STRAIN |
& -dyC(i-1, j ,bi,bj)*vFld(i-1, j ) |
|
./pkg/mom_common/mom_calc_strain.F |
60 |
MOM_CALC_STRAIN |
& +dxC( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_strain.F |
61 |
MOM_CALC_STRAIN |
& -dxC( i ,j-1,bi,bj)*uFld( i ,j-1) |
|
./pkg/mom_common/mom_calc_strain.F |
62 |
MOM_CALC_STRAIN |
& )*recip_rAz(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
11 |
MOM_CALC_TENSION |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_tension.F |
35 |
MOM_CALC_TENSION |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyG(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyG( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
57 |
MOM_CALC_TENSION |
& -dxG( i ,j+1,bi,bj)*vFld( i ,j+1) |
|
./pkg/mom_common/mom_calc_tension.F |
58 |
MOM_CALC_TENSION |
& +dxG( i , j ,bi,bj)*vFld( i , j ) |
|
./pkg/mom_common/mom_calc_tension.F |
59 |
MOM_CALC_TENSION |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_tension.F |
61 |
MOM_CALC_TENSION |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
150 |
MOM_CALC_VISC |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
15 |
MOM_CALC_VISC |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_visc.F |
264 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
269 |
MOM_CALC_VISC |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
277 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
282 |
MOM_CALC_VISC |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
291 |
MOM_CALC_VISC |
& *recip_dxG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
292 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
294 |
MOM_CALC_VISC |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
302 |
MOM_CALC_VISC |
& *recip_dyG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
303 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
305 |
MOM_CALC_VISC |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
329 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
331 |
MOM_CALC_VISC |
L3 = L3_D(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
332 |
MOM_CALC_VISC |
L4rdt = L4rdt_D(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
411 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
425 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
437 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
439 |
MOM_CALC_VISC |
L3 = L3_Z(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
440 |
MOM_CALC_VISC |
L4rdt = L4rdt_Z(i,j,bi,bj)*deepFac4 |
|
./pkg/mom_common/mom_calc_visc.F |
519 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
530 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
559 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
560 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
567 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
569 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
593 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
594 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
595 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
596 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
598 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
599 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
600 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
601 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
603 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
604 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
605 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
606 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
608 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
609 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
610 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
611 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
614 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
620 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
625 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
91 |
MOM_CALC_VISC |
INTEGER bi,bj,k |
|
./model/src/calc_wsurf_tr.F |
50 |
CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./model/src/calc_wsurf_tr.F |
64 |
CALC_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/calc_wsurf_tr.F |
66 |
CALC_WSURF_TR |
wT_Tile(bi,bj) = 0. |
|
./model/src/calc_wsurf_tr.F |
67 |
CALC_WSURF_TR |
wS_Tile(bi,bj) = 0. |
|
./model/src/calc_wsurf_tr.F |
70 |
CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
72 |
CALC_WSURF_TR |
wT_Tile(bi,bj) = wT_Tile(bi,bj) |
|
./model/src/calc_wsurf_tr.F |
73 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
74 |
CALC_WSURF_TR |
& *thetaFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
75 |
CALC_WSURF_TR |
wS_Tile(bi,bj) = wS_Tile(bi,bj) |
|
./model/src/calc_wsurf_tr.F |
76 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
77 |
CALC_WSURF_TR |
& *saltFld(i,j,ks,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
27 |
MOM_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_hdissip.F |
49 |
MOM_HDISSIP |
& recip_dyG(i,j,bi,bj)*recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
50 |
MOM_HDISSIP |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
52 |
MOM_HDISSIP |
& dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
54 |
MOM_HDISSIP |
& -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
57 |
MOM_HDISSIP |
& +recip_dxC(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
58 |
MOM_HDISSIP |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
60 |
MOM_HDISSIP |
& dxV( i ,j+1,bi,bj)*dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
62 |
MOM_HDISSIP |
& -dxV( i , j ,bi,bj)*dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
67 |
MOM_HDISSIP |
& recip_dyC(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
68 |
MOM_HDISSIP |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
70 |
MOM_HDISSIP |
& dyU(i+1, j ,bi,bj)*dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
72 |
MOM_HDISSIP |
& -dyU( i , j ,bi,bj)*dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
75 |
MOM_HDISSIP |
& -recip_dxG(i,j,bi,bj)*recip_dxG(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
76 |
MOM_HDISSIP |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
78 |
MOM_HDISSIP |
& dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
7 |
MOM_HDISSIP |
I bi, bj, k, |
|
./pkg/mom_common/mom_hdissip.F |
80 |
MOM_HDISSIP |
& -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
104 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
110 |
MOM_INIT_FIXED |
IF ( recip_dxV(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
111 |
MOM_INIT_FIXED |
& recip_dyU(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
112 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
113 |
MOM_INIT_FIXED |
& /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
120 |
MOM_INIT_FIXED |
L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
121 |
MOM_INIT_FIXED |
L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
122 |
MOM_INIT_FIXED |
& *L2_Z(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
129 |
MOM_INIT_FIXED |
smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
130 |
MOM_INIT_FIXED |
smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
131 |
MOM_INIT_FIXED |
smag3D_hLsS(i,j,bi,bj) = rAs(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
132 |
MOM_INIT_FIXED |
smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
33 |
MOM_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/mom_common/mom_init_fixed.F |
42 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
49 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
59 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
60 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
70 |
MOM_INIT_FIXED |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./pkg/mom_common/mom_init_fixed.F |
80 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
86 |
MOM_INIT_FIXED |
IF ( recip_dxF(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
87 |
MOM_INIT_FIXED |
& recip_dyF(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
89 |
MOM_INIT_FIXED |
& /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
96 |
MOM_INIT_FIXED |
L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
97 |
MOM_INIT_FIXED |
L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
98 |
MOM_INIT_FIXED |
& *L2_D(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_quasihydrostatic.F |
102 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
103 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
104 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
105 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
11 |
MOM_QUASIHYDROSTATIC |
I bi,bj,k, |
|
./pkg/mom_common/mom_quasihydrostatic.F |
38 |
MOM_QUASIHYDROSTATIC |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_quasihydrostatic.F |
87 |
MOM_QUASIHYDROSTATIC |
& fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_quasihydrostatic.F |
88 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
89 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
90 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
91 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
107 |
MOM_U_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
108 |
MOM_U_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
122 |
MOM_U_BOTDRAG_IMPL |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
143 |
MOM_U_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
144 |
MOM_U_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
145 |
MOM_U_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
146 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
147 |
MOM_U_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
166 |
MOM_U_BOTDRAG_IMPL |
& + ( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
167 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
168 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
169 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
16 |
MOM_U_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
183 |
MOM_U_BOTDRAG_IMPL |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
184 |
MOM_U_BOTDRAG_IMPL |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
187 |
MOM_U_BOTDRAG_IMPL |
& +( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
188 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
189 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
190 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
45 |
MOM_U_BOTDRAG_IMPL |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
87 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
94 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
95 |
MOM_U_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
103 |
MOM_U_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
104 |
MOM_U_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
118 |
MOM_U_BOTTOMDRAG |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
14 |
MOM_U_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
152 |
MOM_U_BOTTOMDRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
153 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
154 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
155 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
169 |
MOM_U_BOTTOMDRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
170 |
MOM_U_BOTTOMDRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
173 |
MOM_U_BOTTOMDRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
174 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
175 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
176 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
195 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
43 |
MOM_U_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
90 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
91 |
MOM_U_BOTTOMDRAG |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
11 |
MOM_U_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
34 |
MOM_U_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
57 |
MOM_U_CORIOLIS_NH |
& 0.5*( fCoriCos( i ,j,bi,bj)*angleCosC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
59 |
MOM_U_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
61 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
62 |
MOM_U_CORIOLIS_NH |
& +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
108 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
110 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
11 |
MOM_U_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
133 |
MOM_U_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
134 |
MOM_U_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
137 |
MOM_U_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
152 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
167 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
171 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
175 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
179 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
183 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
192 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
194 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
197 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
200 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
231 |
MOM_U_IMPLICIT_R |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
243 |
MOM_U_IMPLICIT_R |
U gU(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
245 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
258 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
267 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = dU_psFacX(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
274 |
MOM_U_IMPLICIT_R |
U dU_psFacX(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_u_implicit_r.F |
276 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
300 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_u_implicit_r.F |
301 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
302 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
306 |
MOM_U_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_u_implicit_r.F |
33 |
MOM_U_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
97 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_metric_nh.F |
11 |
MOM_U_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_metric_nh.F |
35 |
MOM_U_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_metric_nh.F |
57 |
MOM_U_METRIC_NH |
& *0.25*( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_u_rviscflux.F |
11 |
MOM_U_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_rviscflux.F |
36 |
MOM_U_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
63 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
65 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
66 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k-1,bi,bj) |
|
./model/src/cg2d.F |
117 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
121 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
122 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
133 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
137 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
138 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
150 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
155 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
161 |
CG2D |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d.F |
164 |
CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
165 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
171 |
CG2D |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d.F |
172 |
CG2D |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
173 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
174 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
175 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
176 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
179 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
181 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
182 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
183 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d.F |
220 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
222 |
CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
228 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
229 |
CG2D |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
230 |
CG2D |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
231 |
CG2D |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
232 |
CG2D |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
233 |
CG2D |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
238 |
CG2D |
localBuf(i,j,bi,bj) = |
|
./model/src/cg2d.F |
239 |
CG2D |
& cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
241 |
CG2D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d.F |
242 |
CG2D |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
261 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
265 |
CG2D |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
266 |
CG2D |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
277 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
279 |
CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
285 |
CG2D |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d.F |
286 |
CG2D |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
287 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
288 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
289 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
290 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
292 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
294 |
CG2D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d.F |
295 |
CG2D |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
314 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
316 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
319 |
CG2D |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
324 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
325 |
CG2D |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
351 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
355 |
CG2D |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d.F |
369 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
373 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d.F |
382 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d.F |
386 |
CG2D |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
90 |
CG2D |
INTEGER bi, bj |
|
./pkg/mom_common/mom_u_sidedrag.F |
110 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
111 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
113 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
114 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
119 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
11 |
MOM_U_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
123 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
125 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
131 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
133 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
135 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
137 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
152 |
MOM_U_SIDEDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_sidedrag.F |
39 |
MOM_U_SIDEDRAG |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_u_sidedrag.F |
68 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
69 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
74 |
MOM_U_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
78 |
MOM_U_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
81 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
82 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
83 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
84 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
85 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
86 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
89 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
91 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
93 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
101 |
MOM_UV_SMAG_3D |
& *dyU( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
104 |
MOM_UV_SMAG_3D |
& *dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
106 |
MOM_UV_SMAG_3D |
& *dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
113 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
17 |
MOM_UV_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
44 |
MOM_UV_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_uv_smag_3d.F |
75 |
MOM_UV_SMAG_3D |
uDissip(i,j) = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
77 |
MOM_UV_SMAG_3D |
& *dyF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
79 |
MOM_UV_SMAG_3D |
& *dyF(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
82 |
MOM_UV_SMAG_3D |
& *dxV( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
84 |
MOM_UV_SMAG_3D |
& *dxV( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
97 |
MOM_UV_SMAG_3D |
vDissip(i,j) = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
99 |
MOM_UV_SMAG_3D |
& *dyU(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
107 |
MOM_V_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
108 |
MOM_V_BOTDRAG_IMPL |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
122 |
MOM_V_BOTDRAG_IMPL |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
143 |
MOM_V_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
144 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
145 |
MOM_V_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
146 |
MOM_V_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
147 |
MOM_V_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
166 |
MOM_V_BOTDRAG_IMPL |
& + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
167 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
168 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
169 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
16 |
MOM_V_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
170 |
MOM_V_BOTDRAG_IMPL |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
183 |
MOM_V_BOTDRAG_IMPL |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
184 |
MOM_V_BOTDRAG_IMPL |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
187 |
MOM_V_BOTDRAG_IMPL |
& +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
188 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
189 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
190 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
45 |
MOM_V_BOTDRAG_IMPL |
INTEGER bi, bj |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
87 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
94 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
95 |
MOM_V_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
103 |
MOM_V_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
104 |
MOM_V_BOTTOMDRAG |
& + bottomDragFld(i,j,bi,bj) )*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
118 |
MOM_V_BOTTOMDRAG |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
14 |
MOM_V_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
152 |
MOM_V_BOTTOMDRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
153 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
154 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
155 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
156 |
MOM_V_BOTTOMDRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
169 |
MOM_V_BOTTOMDRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
170 |
MOM_V_BOTTOMDRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
173 |
MOM_V_BOTTOMDRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
174 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
175 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
176 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
195 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
43 |
MOM_V_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
83 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
91 |
MOM_V_BOTTOMDRAG |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
11 |
MOM_V_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
34 |
MOM_V_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
57 |
MOM_V_CORIOLIS_NH |
& -0.5*( fCoriCos( i ,j,bi,bj)*angleSinC(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
59 |
MOM_V_CORIOLIS_NH |
& +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
61 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
62 |
MOM_V_CORIOLIS_NH |
& +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
108 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
110 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
11 |
MOM_V_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
133 |
MOM_V_IMPLICIT_R |
I uVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
134 |
MOM_V_IMPLICIT_R |
I vVel(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
137 |
MOM_V_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
152 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
167 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
171 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
175 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
179 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
183 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
192 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
194 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
197 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
200 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
231 |
MOM_V_IMPLICIT_R |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
243 |
MOM_V_IMPLICIT_R |
U gV(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
245 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
258 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
267 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = dV_psFacY(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
274 |
MOM_V_IMPLICIT_R |
U dV_psFacY(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/mom_common/mom_v_implicit_r.F |
276 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
300 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_v_implicit_r.F |
301 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
302 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
306 |
MOM_V_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_v_implicit_r.F |
33 |
MOM_V_IMPLICIT_R |
INTEGER bi, bj |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
97 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_metric_nh.F |
11 |
MOM_V_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_metric_nh.F |
35 |
MOM_V_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_metric_nh.F |
57 |
MOM_V_METRIC_NH |
& *0.25*( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
59 |
MOM_V_METRIC_NH |
& + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_v_rviscflux.F |
11 |
MOM_V_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_rviscflux.F |
36 |
MOM_V_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
63 |
MOM_V_RVISCFLUX |
& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
65 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
66 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
107 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
108 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
110 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
111 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
114 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
116 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
119 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
11 |
MOM_V_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_sidedrag.F |
121 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
123 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
128 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
139 |
MOM_V_SIDEDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_sidedrag.F |
39 |
MOM_V_SIDEDRAG |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_v_sidedrag.F |
68 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
69 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
74 |
MOM_V_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
83 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
85 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
86 |
MOM_V_SIDEDRAG |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
87 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
88 |
MOM_V_SIDEDRAG |
& *_recip_dxV(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
90 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
92 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& -A4tmp*del2v(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
11 |
MOM_W_CORIOLIS_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
35 |
MOM_W_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
56 |
MOM_W_CORIOLIS_NH |
& -gravitySign*fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
57 |
MOM_W_CORIOLIS_NH |
& ( angleCosC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
58 |
MOM_W_CORIOLIS_NH |
& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
59 |
MOM_W_CORIOLIS_NH |
& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
61 |
MOM_W_CORIOLIS_NH |
& -angleSinC(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
62 |
MOM_W_CORIOLIS_NH |
& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
63 |
MOM_W_CORIOLIS_NH |
& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj)) |
|
./model/src/cg2d_ex0.F |
106 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
109 |
CG2D_EX0 |
actualIts(bi,bj) = 0 |
|
./model/src/cg2d_ex0.F |
110 |
CG2D_EX0 |
minResIter(bi,bj) = 0 |
|
./model/src/cg2d_ex0.F |
111 |
CG2D_EX0 |
minResTile(bi,bj) = -1. _d 0 |
|
./model/src/cg2d_ex0.F |
112 |
CG2D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
116 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_ex0.F |
117 |
CG2D_EX0 |
rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc) |
|
./model/src/cg2d_ex0.F |
120 |
CG2D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
121 |
CG2D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg2d_ex0.F |
125 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
126 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
142 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
147 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
153 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_ex0.F |
156 |
CG2D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
157 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
163 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_ex0.F |
164 |
CG2D_EX0 |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
165 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
166 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
167 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
168 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
170 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
171 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
172 |
CG2D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
176 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
178 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
179 |
CG2D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg2d_ex0.F |
204 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
206 |
CG2D_EX0 |
IF ( errTile(bi,bj).GE.cg2dTolerance_sq ) THEN |
|
./model/src/cg2d_ex0.F |
210 |
CG2D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
216 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
217 |
CG2D_EX0 |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
218 |
CG2D_EX0 |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
219 |
CG2D_EX0 |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
220 |
CG2D_EX0 |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
221 |
CG2D_EX0 |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
222 |
CG2D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_ex0.F |
223 |
CG2D_EX0 |
& +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
227 |
CG2D_EX0 |
cgBeta = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj) |
|
./model/src/cg2d_ex0.F |
228 |
CG2D_EX0 |
eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_ex0.F |
232 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
233 |
CG2D_EX0 |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
239 |
CG2D_EX0 |
U cg2d_s(0,0,bi,bj), |
|
./model/src/cg2d_ex0.F |
241 |
CG2D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg2d_ex0.F |
245 |
CG2D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
251 |
CG2D_EX0 |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_ex0.F |
252 |
CG2D_EX0 |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
253 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
254 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
255 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
256 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
257 |
CG2D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
258 |
CG2D_EX0 |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
261 |
CG2D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
265 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
268 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
269 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
270 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
271 |
CG2D_EX0 |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
274 |
CG2D_EX0 |
actualIts(bi,bj) = it2d |
|
./model/src/cg2d_ex0.F |
279 |
CG2D_EX0 |
& bj, '): iter=', it2d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg2d_ex0.F |
284 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GE. cg2dTolerance_sq .AND. |
|
./model/src/cg2d_ex0.F |
285 |
CG2D_EX0 |
& errTile(bi,bj) .LT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
287 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
288 |
CG2D_EX0 |
minResIter(bi,bj) = it2d |
|
./model/src/cg2d_ex0.F |
291 |
CG2D_EX0 |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
297 |
CG2D_EX0 |
U cg2d_r(0,0,bi,bj), |
|
./model/src/cg2d_ex0.F |
299 |
CG2D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg2d_ex0.F |
302 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
314 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
318 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
321 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
331 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
335 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
349 |
CG2D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_ex0.F |
351 |
CG2D_EX0 |
nIterMin = MIN( actualIts(bi,bj), nIterMin ) |
|
./model/src/cg2d_ex0.F |
352 |
CG2D_EX0 |
numIters = MAX( actualIts(bi,bj), numIters ) |
|
./model/src/cg2d_ex0.F |
353 |
CG2D_EX0 |
minResidualSq = MIN( errTile(bi,bj), minResidualSq ) |
|
./model/src/cg2d_ex0.F |
82 |
CG2D_EX0 |
INTEGER bi, bj |
|
./pkg/mom_common/mom_w_metric_nh.F |
11 |
MOM_W_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_metric_nh.F |
35 |
MOM_W_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_metric_nh.F |
55 |
MOM_W_METRIC_NH |
& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
56 |
MOM_W_METRIC_NH |
& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
57 |
MOM_W_METRIC_NH |
& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
58 |
MOM_W_METRIC_NH |
& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
60 |
MOM_W_METRIC_NH |
& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
61 |
MOM_W_METRIC_NH |
& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
62 |
MOM_W_METRIC_NH |
& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
63 |
MOM_W_METRIC_NH |
& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_sidedrag.F |
102 |
MOM_W_SIDEDRAG |
& +heightStepS*_dxG(i,j,bi,bj)*_recip_dyC(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
103 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
105 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
107 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
110 |
MOM_W_SIDEDRAG |
& *sqCosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
112 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
116 |
MOM_W_SIDEDRAG |
& +heightStepN*_dxG(i,j+1,bi,bj)*_recip_dyC(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
117 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
119 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
11 |
MOM_W_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_sidedrag.F |
121 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
124 |
MOM_W_SIDEDRAG |
& *sqCosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
126 |
MOM_W_SIDEDRAG |
& *cosFacV(j+1,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
130 |
MOM_W_SIDEDRAG |
& )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
136 |
MOM_W_SIDEDRAG |
CALL DIAGNOSTICS_FILL(gwSideDrag,'WSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_w_sidedrag.F |
42 |
MOM_W_SIDEDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_sidedrag.F |
82 |
MOM_W_SIDEDRAG |
& *( heightStepW*_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
83 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
84 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
85 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
87 |
MOM_W_SIDEDRAG |
& *sqCosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
89 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
92 |
MOM_W_SIDEDRAG |
& +heightStepE*_dyG(i+1,j,bi,bj)*_recip_dxC(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
93 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
94 |
MOM_W_SIDEDRAG |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
95 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
97 |
MOM_W_SIDEDRAG |
& *sqCosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
99 |
MOM_W_SIDEDRAG |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
16 |
MOM_W_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_w_smag_3d.F |
47 |
MOM_W_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_w_smag_3d.F |
76 |
MOM_W_SMAG_3D |
& recip_rA(i,j,bi,bj)*( |
|
./pkg/mom_common/mom_w_smag_3d.F |
79 |
MOM_W_SMAG_3D |
& *dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
82 |
MOM_W_SMAG_3D |
& *dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
86 |
MOM_W_SMAG_3D |
& *dxG( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
89 |
MOM_W_SMAG_3D |
& *dxG( i , j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
10 |
MOM_CALC_RTRANS |
I k, bi, bj, |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
121 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = rStarDhCDt(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
122 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
123 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
128 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
129 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
130 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
131 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
139 |
MOM_CALC_RTRANS |
dWtransC(i,j,bi,bj) = dWtransC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
140 |
MOM_CALC_RTRANS |
& - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
141 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
146 |
MOM_CALC_RTRANS |
dWtransU(i,j,bi,bj) = dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
147 |
MOM_CALC_RTRANS |
& - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
148 |
MOM_CALC_RTRANS |
& *rAw(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
149 |
MOM_CALC_RTRANS |
dWtransV(i,j,bi,bj) = dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
151 |
MOM_CALC_RTRANS |
& *rAs(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
157 |
MOM_CALC_RTRANS |
rTransU(i,j) = rTransU(i,j)-dWtransU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
158 |
MOM_CALC_RTRANS |
& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
159 |
MOM_CALC_RTRANS |
rTransV(i,j) = rTransV(i,j)-dWtransV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
160 |
MOM_CALC_RTRANS |
& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
82 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
185 |
MOM_FLUXFORM |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
265 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
271 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
273 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
274 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
295 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
308 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
312 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
324 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
325 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
326 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
327 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
336 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
339 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
357 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
362 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
365 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
373 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k+1, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
380 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k+1, |
|
./pkg/mom_fluxform/mom_fluxform.F |
382 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
383 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
413 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
415 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
418 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
41 |
MOM_FLUXFORM |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
432 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
439 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
441 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
442 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
456 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
457 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
458 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerUkm,'ADVrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
469 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
470 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
477 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
478 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
489 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
MOM_FLUXFORM |
& *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
492 |
MOM_FLUXFORM |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
503 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
515 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U( bi, bj, k, uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
519 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX( bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
523 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,kappaRU,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
529 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,kappaRU,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
538 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
539 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
542 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
554 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
555 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
557 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
564 |
MOM_FLUXFORM |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
578 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
591 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
618 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
624 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
633 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
636 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
648 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
650 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
652 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
657 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
665 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
674 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
675 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
677 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
678 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
689 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
691 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerVkm,'ADVrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
701 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
702 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
703 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
710 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
711 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
725 |
MOM_FLUXFORM |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
726 |
MOM_FLUXFORM |
& * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
736 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
747 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V( bi, bj, k, vFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
751 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX( bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
755 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX( bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
760 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj, k, vVel,KappaRV,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
761 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj,k+1,vVel,KappaRV,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
770 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
771 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
773 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
774 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
787 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
789 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
796 |
MOM_FLUXFORM |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
810 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
823 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
847 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH( bi,bj,k,vFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
850 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
856 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE( bi,bj,k,uFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
859 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
86 |
MOM_FLUXFORM |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_fluxform.F |
877 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS( bi,bj,k,vFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
880 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
885 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
887 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
890 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
895 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
901 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
904 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
909 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
912 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
921 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
922 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
923 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
924 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
930 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
931 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
932 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
933 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
934 |
MOM_FLUXFORM |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
11 |
MOM_U_ADV_UU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
35 |
MOM_U_ADV_UU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
54 |
MOM_U_ADV_UU |
& *( uFld(i,j)*_maskW(i+1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
55 |
MOM_U_ADV_UU |
& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
11 |
MOM_U_ADV_VU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
35 |
MOM_U_ADV_VU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
54 |
MOM_U_ADV_VU |
& *( uFld(i,j)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
60 |
MOM_U_ADV_VU |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
61 |
MOM_U_ADV_VU |
& *_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
100 |
MOM_U_ADV_WU |
& (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
101 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
102 |
MOM_U_ADV_WU |
& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
104 |
MOM_U_ADV_WU |
& *uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
11 |
MOM_U_ADV_WU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
36 |
MOM_U_ADV_WU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
55 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
73 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
85 |
MOM_U_ADV_WU |
& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
99 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./model/src/cg2d_nsa.F |
100 |
CG2D_NSA |
INTEGER bi, bj |
|
./model/src/cg2d_nsa.F |
147 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
151 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
152 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
164 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
168 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
169 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
186 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
188 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
189 |
CG2D_NSA |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
192 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_nsa.F |
198 |
CG2D_NSA |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
199 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
200 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
201 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
202 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
204 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
205 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
206 |
CG2D_NSA |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
256 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
258 |
CG2D_NSA |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
261 |
CG2D_NSA |
cg2d_z(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
262 |
CG2D_NSA |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
263 |
CG2D_NSA |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
264 |
CG2D_NSA |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
265 |
CG2D_NSA |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
266 |
CG2D_NSA |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
267 |
CG2D_NSA |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_nsa.F |
268 |
CG2D_NSA |
& +cg2d_z(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
286 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
290 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
291 |
CG2D_NSA |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
309 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
311 |
CG2D_NSA |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
314 |
CG2D_NSA |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
316 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
336 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
338 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
341 |
CG2D_NSA |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
342 |
CG2D_NSA |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
343 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
344 |
CG2D_NSA |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
371 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_nsa.F |
375 |
CG2D_NSA |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
11 |
MOM_U_CORIOLIS |
I bi,bj,k,vFld, |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
34 |
MOM_U_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
54 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
56 |
MOM_U_CORIOLIS |
& + _fCori(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
65 |
MOM_U_CORIOLIS |
& 0.5*( _fCori( i ,j,bi,bj) + |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
66 |
MOM_U_CORIOLIS |
& _fCori(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
84 |
MOM_U_CORIOLIS |
& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
105 |
MOM_U_DEL2U |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
106 |
MOM_U_DEL2U |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
108 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
109 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
112 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
113 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
114 |
MOM_U_DEL2U |
& *( hFacZClosedS*dxV(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
115 |
MOM_U_DEL2U |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
116 |
MOM_U_DEL2U |
& +hFacZClosedN*dxV(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
117 |
MOM_U_DEL2U |
& *_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
119 |
MOM_U_DEL2U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
11 |
MOM_U_DEL2U |
I bi, bj, k, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
34 |
MOM_U_DEL2U |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
56 |
MOM_U_DEL2U |
& *_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
57 |
MOM_U_DEL2U |
& *_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
60 |
MOM_U_DEL2U |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
63 |
MOM_U_DEL2U |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
74 |
MOM_U_DEL2U |
& *_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
75 |
MOM_U_DEL2U |
& *_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
78 |
MOM_U_DEL2U |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
89 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
90 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
93 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
& *maskInW(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
11 |
MOM_U_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
35 |
MOM_U_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
11 |
MOM_U_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
35 |
MOM_U_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
55 |
MOM_U_METRIC_SPHERE |
& )*_tanPhiAtU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
11 |
MOM_U_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
37 |
MOM_U_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
60 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
63 |
MOM_U_XVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
65 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
67 |
MOM_U_XVISCFLUX |
& )*_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
11 |
MOM_U_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
37 |
MOM_U_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
62 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
67 |
MOM_U_YVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
69 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
72 |
MOM_U_YVISCFLUX |
& )*_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
11 |
MOM_UV_BOUNDARY |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
129 |
MOM_UV_BOUNDARY |
IF (maskW(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
135 |
MOM_UV_BOUNDARY |
& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
137 |
MOM_UV_BOUNDARY |
& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
143 |
MOM_UV_BOUNDARY |
IF (maskS(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
149 |
MOM_UV_BOUNDARY |
& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
151 |
MOM_UV_BOUNDARY |
& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
37 |
MOM_UV_BOUNDARY |
INTEGER bi,bj |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
70 |
MOM_UV_BOUNDARY |
uBnd(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
71 |
MOM_UV_BOUNDARY |
vBnd(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
95 |
MOM_UV_BOUNDARY |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
96 |
MOM_UV_BOUNDARY |
& * dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
98 |
MOM_UV_BOUNDARY |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
99 |
MOM_UV_BOUNDARY |
& * dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
11 |
MOM_V_ADV_UV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
35 |
MOM_V_ADV_UV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
59 |
MOM_V_ADV_UV |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
60 |
MOM_V_ADV_UV |
& *_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
11 |
MOM_V_ADV_VV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
35 |
MOM_V_ADV_VV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
100 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
101 |
MOM_V_ADV_WV |
& (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
102 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
103 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
105 |
MOM_V_ADV_WV |
& *vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
12 |
MOM_V_ADV_WV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
37 |
MOM_V_ADV_WV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
56 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
74 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./model/src/cg2d_sr.F |
122 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
126 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
127 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
142 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
143 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
155 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
160 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
166 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_sr.F |
177 |
CG2D_SR |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
178 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
179 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
180 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
181 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
183 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
184 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
218 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
220 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
226 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
227 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
228 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
229 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
230 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
231 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
232 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
233 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
234 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
249 |
CG2D_SR |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
255 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
257 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
258 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
259 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
260 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
261 |
CG2D_SR |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
262 |
CG2D_SR |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
274 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
278 |
CG2D_SR |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
279 |
CG2D_SR |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
295 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
302 |
CG2D_SR |
cg2d_y(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
303 |
CG2D_SR |
& pC(i ,j ,bi,bj)*cg2d_r(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
304 |
CG2D_SR |
& +pW(i ,j ,bi,bj)*cg2d_r(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
305 |
CG2D_SR |
& +pW(i+1,j ,bi,bj)*cg2d_r(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
306 |
CG2D_SR |
& +pS(i ,j ,bi,bj)*cg2d_r(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
307 |
CG2D_SR |
& +pS(i ,j+1,bi,bj)*cg2d_r(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
319 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
321 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
deltaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
329 |
CG2D_SR |
cg2d_v(i,j,bi,bj) = |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_y(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
331 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_y(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
332 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_y(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
333 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_y(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
334 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_y(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
335 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
336 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
337 |
CG2D_SR |
deltaTile(bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
338 |
CG2D_SR |
& +cg2d_y(i,j,bi,bj)*cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
339 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
340 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
343 |
CG2D_SR |
sumPhi(1,bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
344 |
CG2D_SR |
sumPhi(2,bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
345 |
CG2D_SR |
sumPhi(3,bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
371 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
375 |
CG2D_SR |
cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
388 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
393 |
CG2D_SR |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
394 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
395 |
CG2D_SR |
& + sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
396 |
CG2D_SR |
cg2d_q(i,j,bi,bj) = cg2d_v(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
397 |
CG2D_SR |
& + cgBeta*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
398 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
399 |
CG2D_SR |
& - sigma*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
409 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
411 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
414 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
415 |
CG2D_SR |
& + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
425 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
429 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
438 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg2d_sr.F |
442 |
CG2D_SR |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
96 |
CG2D_SR |
INTEGER bi, bj |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
11 |
MOM_V_CORIOLIS |
I bi,bj,k,uFld, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
34 |
MOM_V_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
54 |
MOM_V_CORIOLIS |
& -0.5*( _fCori(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
56 |
MOM_V_CORIOLIS |
& + _fCori(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
65 |
MOM_V_CORIOLIS |
& -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
82 |
MOM_V_CORIOLIS |
& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
104 |
MOM_V_DEL2V |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
105 |
MOM_V_DEL2V |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
107 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
108 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
111 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
112 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
113 |
MOM_V_DEL2V |
& *( hFacZClosedW*dyU( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
114 |
MOM_V_DEL2V |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
115 |
MOM_V_DEL2V |
& +hFacZClosedE*dyU(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
116 |
MOM_V_DEL2V |
& *_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
118 |
MOM_V_DEL2V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
11 |
MOM_V_DEL2V |
I bi, bj, k, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
34 |
MOM_V_DEL2V |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_v_del2v.F |
55 |
MOM_V_DEL2V |
& *_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
56 |
MOM_V_DEL2V |
& *_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
59 |
MOM_V_DEL2V |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
70 |
MOM_V_DEL2V |
& *_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
71 |
MOM_V_DEL2V |
& *_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
74 |
MOM_V_DEL2V |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
77 |
MOM_V_DEL2V |
& *maskInC(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
88 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
89 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
92 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
11 |
MOM_V_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
35 |
MOM_V_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
11 |
MOM_V_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
34 |
MOM_V_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
56 |
MOM_V_METRIC_SPHERE |
& *_tanPhiAtV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
11 |
MOM_V_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
37 |
MOM_V_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
61 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
64 |
MOM_V_XVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
66 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
68 |
MOM_V_XVISCFLUX |
& )*_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
11 |
MOM_V_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
37 |
MOM_V_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
57 |
MOM_V_YVISCFLUX |
& _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
61 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
66 |
MOM_V_YVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
68 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
71 |
MOM_V_YVISCFLUX |
& )*_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
13 |
MOM_VECINV |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_vecinv/mom_vecinv.F |
152 |
MOM_VECINV |
act2 = bj - myByLo(myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
173 |
MOM_VECINV |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
242 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
271 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
316 |
MOM_VECINV |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_vecinv/mom_vecinv.F |
317 |
MOM_VECINV |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
330 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
334 |
MOM_VECINV |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
369 |
MOM_VECINV |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
397 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
406 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
407 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
427 |
MOM_VECINV |
CALL MOM_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
435 |
MOM_VECINV |
CALL MOM_VI_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
448 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,kappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
466 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
467 |
MOM_VECINV |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
477 |
MOM_VECINV |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
492 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
504 |
MOM_VECINV |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
521 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,kappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
537 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
538 |
MOM_VECINV |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
563 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
575 |
MOM_VECINV |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
598 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
613 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
616 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
631 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
636 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
638 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
645 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
669 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
674 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
679 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
694 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
699 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
704 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
708 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
714 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
727 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
732 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
734 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
73 |
MOM_VECINV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vecinv.F |
743 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
745 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
750 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
751 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
757 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,k,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
760 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
763 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,k,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
766 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
771 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
772 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
778 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
781 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
784 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
787 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
792 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
793 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
797 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
799 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
810 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
813 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
818 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
821 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
829 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
832 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
835 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
838 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
846 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
847 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
857 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
864 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
866 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
868 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
870 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
873 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
874 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3BC,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
875 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
876 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
877 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
879 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
880 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
881 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
885 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3, |
|
./pkg/mom_vecinv/mom_vecinv.F |
887 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3BC, |
|
./pkg/mom_vecinv/mom_vecinv.F |
889 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
891 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
893 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension, |
|
./pkg/mom_vecinv/mom_vecinv.F |
895 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strainBC, |
|
./pkg/mom_vecinv/mom_vecinv.F |
897 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
899 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
907 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3BC,'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
908 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
910 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
913 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension, 'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
914 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strainBC,'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
916 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
917 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
918 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
919 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
24 |
MOM_VI_CORIOLIS |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
51 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
60 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
61 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
62 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
63 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
7 |
MOM_VI_CORIOLIS |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
81 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
82 |
MOM_VI_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
84 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
96 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
99 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
110 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
118 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i,j-1) )*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
119 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
121 |
MOM_VI_DEL2UV |
& *recip_dxG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
122 |
MOM_VI_DEL2UV |
& )*maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
124 |
MOM_VI_DEL2UV |
& *maskInS(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
22 |
MOM_VI_DEL2UV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
7 |
MOM_VI_DEL2UV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
85 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
93 |
MOM_VI_DEL2UV |
& ( ( hDiv(i,j) - hDiv(i-1,j) )*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
94 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
96 |
MOM_VI_DEL2UV |
& *recip_dyG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
97 |
MOM_VI_DEL2UV |
& )*maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
99 |
MOM_VI_DEL2UV |
& *maskInW(i,j,bi,bj) |
|
./model/src/cg3d.F |
138 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
143 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
144 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
154 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
159 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
160 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
171 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
173 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
174 |
CG3D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
186 |
CG3D |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
192 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
194 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
196 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
213 |
CG3D |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
215 |
CG3D |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
216 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
217 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
218 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
220 |
CG3D |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d.F |
221 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
223 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
226 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
227 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
233 |
CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d.F |
270 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
272 |
CG3D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
279 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
280 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
290 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
291 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
292 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
303 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
304 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
314 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
315 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
323 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
324 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
339 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
344 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
345 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
354 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
356 |
CG3D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
368 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
374 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
376 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
377 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
378 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
390 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
391 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
393 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
394 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
395 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
396 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
398 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
400 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
411 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
412 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
414 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
415 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
416 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
418 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
420 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
431 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
432 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
433 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
434 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
436 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
437 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
438 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
440 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
442 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
454 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
455 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
456 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
457 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
458 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
459 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
460 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
464 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
480 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
482 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
489 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
490 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
491 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
493 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
494 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
523 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d.F |
528 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
95 |
CG3D |
INTEGER bi, bj |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
100 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
101 |
MOM_VI_HDISSIP |
& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
103 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
132 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
136 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
137 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
138 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
156 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
157 |
MOM_VI_HDISSIP |
& ( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
158 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
160 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
163 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
167 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
172 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
173 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
175 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
179 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
180 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
182 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
196 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
197 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
201 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
202 |
MOM_VI_HDISSIP |
Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
218 |
MOM_VI_HDISSIP |
& viscA4D*( Dij-Dmj )*cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
221 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
224 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
228 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
233 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
237 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
239 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
240 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
241 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
243 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
258 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
260 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
26 |
MOM_VI_HDISSIP |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
63 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
64 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
66 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
70 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
71 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
73 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
7 |
MOM_VI_HDISSIP |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
93 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
94 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
99 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
108 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
109 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
10 |
MOM_VI_U_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
119 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
120 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
122 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
123 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
135 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
136 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
154 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
160 |
MOM_VI_U_CORIOLIS |
& *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
166 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
172 |
MOM_VI_U_CORIOLIS |
& *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
175 |
MOM_VI_U_CORIOLIS |
& *0.25 _d 0 *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
176 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
195 |
MOM_VI_U_CORIOLIS |
& (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
196 |
MOM_VI_U_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
34 |
MOM_VI_U_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
69 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
70 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
71 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
83 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
84 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
94 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
95 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i, j )) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
96 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
97 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
10 |
MOM_VI_U_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
133 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
134 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
135 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
145 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
146 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
158 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
159 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
173 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
174 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
176 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
177 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
186 |
MOM_VI_U_CORIOLIS_C4 |
Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
187 |
MOM_VI_U_CORIOLIS_C4 |
Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
202 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
203 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
38 |
MOM_VI_U_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
80 |
MOM_VI_U_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
23 |
MOM_VI_U_GRAD_KE |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
33 |
MOM_VI_U_GRAD_KE |
dKEdx(i,j)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j)) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
34 |
MOM_VI_U_GRAD_KE |
& *_maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
7 |
MOM_VI_U_GRAD_KE |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
126 |
MOM_VI_U_VERTSHEAR |
& )*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
131 |
MOM_VI_U_VERTSHEAR |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
24 |
MOM_VI_U_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
72 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
79 |
MOM_VI_U_VERTSHEAR |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
7 |
MOM_VI_U_VERTSHEAR |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
89 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
90 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
108 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
109 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
10 |
MOM_VI_V_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
119 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
120 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
122 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
123 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
135 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
136 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
154 |
MOM_VI_V_CORIOLIS |
& *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
160 |
MOM_VI_V_CORIOLIS |
& *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
166 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
172 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
175 |
MOM_VI_V_CORIOLIS |
& *0.25 _d 0 *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
176 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
195 |
MOM_VI_V_CORIOLIS |
& (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
196 |
MOM_VI_V_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
34 |
MOM_VI_V_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
69 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
70 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
71 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
94 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
95 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ( i ,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
96 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
97 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
10 |
MOM_VI_V_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
MOM_VI_V_CORIOLIS_C4 |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
133 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
134 |
MOM_VI_V_CORIOLIS_C4 |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
135 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
145 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
146 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
158 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
159 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
173 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
174 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
176 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
177 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
186 |
MOM_VI_V_CORIOLIS_C4 |
Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
187 |
MOM_VI_V_CORIOLIS_C4 |
Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
202 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
203 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
38 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
80 |
MOM_VI_V_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
23 |
MOM_VI_V_GRAD_KE |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
33 |
MOM_VI_V_GRAD_KE |
dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1)) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
34 |
MOM_VI_V_GRAD_KE |
& *_maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
7 |
MOM_VI_V_GRAD_KE |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
126 |
MOM_VI_V_VERTSHEAR |
& )*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
131 |
MOM_VI_V_VERTSHEAR |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
24 |
MOM_VI_V_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
72 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
79 |
MOM_VI_V_VERTSHEAR |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
7 |
MOM_VI_V_VERTSHEAR |
I bi,bj,K, |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
89 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
90 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./model/src/cg3d_ex0.F |
127 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
130 |
CG3D_EX0 |
actualIts(bi,bj) = 0 |
|
./model/src/cg3d_ex0.F |
131 |
CG3D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
136 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
137 |
CG3D_EX0 |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
138 |
CG3D_EX0 |
rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc) |
|
./model/src/cg3d_ex0.F |
142 |
CG3D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
143 |
CG3D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg3d_ex0.F |
147 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
148 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
164 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
166 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
167 |
CG3D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
179 |
CG3D_EX0 |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
185 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
187 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
188 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
189 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
206 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
208 |
CG3D_EX0 |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
209 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
210 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
211 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
213 |
CG3D_EX0 |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |
|
./model/src/cg3d_ex0.F |
214 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
216 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
219 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
220 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
226 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d_ex0.F |
230 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
231 |
CG3D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg3d_ex0.F |
259 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
261 |
CG3D_EX0 |
IF ( errTile(bi,bj).GE.cg3dTolerance_sq ) THEN |
|
./model/src/cg3d_ex0.F |
269 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
276 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
277 |
CG3D_EX0 |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
287 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
288 |
CG3D_EX0 |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
289 |
CG3D_EX0 |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
300 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
301 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
311 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
312 |
CG3D_EX0 |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
320 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
321 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
326 |
CG3D_EX0 |
cgBeta = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj) |
|
./model/src/cg3d_ex0.F |
327 |
CG3D_EX0 |
eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d_ex0.F |
332 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
333 |
CG3D_EX0 |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
340 |
CG3D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
352 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
358 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
360 |
CG3D_EX0 |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
361 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
362 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d_ex0.F |
374 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
375 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
376 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
377 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
378 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
379 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
380 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
382 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
384 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
385 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
395 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
396 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
397 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
398 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
399 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
400 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
402 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
404 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
405 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
415 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
416 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
417 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
418 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
419 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
420 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
421 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
422 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
424 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
426 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
427 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
438 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
439 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
440 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
441 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
442 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
443 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
444 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
446 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
448 |
CG3D_EX0 |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
449 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
453 |
CG3D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
457 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
464 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
465 |
CG3D_EX0 |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
466 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
468 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
469 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
473 |
CG3D_EX0 |
actualIts(bi,bj) = it3d |
|
./model/src/cg3d_ex0.F |
478 |
CG3D_EX0 |
& bj, '): iter=', it3d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg3d_ex0.F |
485 |
CG3D_EX0 |
U cg3d_r(0,0,1,bi,bj), |
|
./model/src/cg3d_ex0.F |
487 |
CG3D_EX0 |
I EXCH_IGNORE_CORNERS, bi, bj, myThid ) |
|
./model/src/cg3d_ex0.F |
490 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
507 |
CG3D_EX0 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/cg3d_ex0.F |
512 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
516 |
CG3D_EX0 |
numIters = MAX( actualIts(bi,bj), numIters ) |
|
./model/src/cg3d_ex0.F |
87 |
CG3D_EX0 |
INTEGER bi, bj |
|
./pkg/monitor/mon_advcfl.F |
33 |
MON_ADVCFL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcfl.F |
38 |
MON_ADVCFL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./pkg/monitor/mon_advcflw.F |
33 |
MON_ADVCFLW |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw.F |
38 |
MON_ADVCFLW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw2.F |
35 |
MON_ADVCFLW2 |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw2.F |
40 |
MON_ADVCFLW2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./pkg/monitor/mon_advcflw2.F |
46 |
MON_ADVCFLW2 |
& *max( rDrF(K)*rHfac(I,J,K,bi,bj), |
|
./pkg/monitor/mon_advcflw2.F |
47 |
MON_ADVCFLW2 |
& rDrF(K-1)*rHfac(I,J,K-1,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
111 |
MON_CALC_ADVCFL_TILE |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
154 |
MON_CALC_ADVCFL_GLOB |
INTEGER bi, bj |
|
./pkg/monitor/mon_calc_advcfl.F |
160 |
MON_CALC_ADVCFL_GLOB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_advcfl.F |
162 |
MON_CALC_ADVCFL_GLOB |
uCFL = MAX( uCFL, maxCFL(1,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
163 |
MON_CALC_ADVCFL_GLOB |
vCFL = MAX( vCFL, maxCFL(2,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
164 |
MON_CALC_ADVCFL_GLOB |
wCFL = MAX( wCFL, maxCFL(3,bi,bj) ) |
|
./pkg/monitor/mon_calc_advcfl.F |
17 |
MON_CALC_ADVCFL_TILE |
I myNr, bi, bj, |
|
./pkg/monitor/mon_calc_advcfl.F |
44 |
MON_CALC_ADVCFL_TILE |
INTEGER myNr, bi, bj |
|
./pkg/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
79 |
MON_CALC_ADVCFL_TILE |
& *hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
80 |
MON_CALC_ADVCFL_TILE |
vTrans(i,j) = vFld(i,j,k)*dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
81 |
MON_CALC_ADVCFL_TILE |
& *hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
87 |
MON_CALC_ADVCFL_TILE |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
88 |
MON_CALC_ADVCFL_TILE |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
100 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rl.F |
102 |
MON_CALC_STATS_RL |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
104 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rl.F |
105 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
106 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
135 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rl.F |
137 |
MON_CALC_STATS_RL |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
142 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
144 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
145 |
MON_CALC_STATS_RL |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
36 |
MON_CALC_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rl.F |
61 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rl.F |
63 |
MON_CALC_STATS_RL |
tileNbPt(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
64 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
65 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
66 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
67 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
71 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
72 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
MON_CALC_STATS_RL |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
92 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
100 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rs.F |
102 |
MON_CALC_STATS_RS |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
104 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rs.F |
105 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
106 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
135 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rs.F |
137 |
MON_CALC_STATS_RS |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
142 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
144 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
145 |
MON_CALC_STATS_RS |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
36 |
MON_CALC_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rs.F |
61 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rs.F |
63 |
MON_CALC_STATS_RS |
tileNbPt(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
64 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
65 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
66 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
67 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
71 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
72 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
MON_CALC_STATS_RS |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
92 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
101 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
105 |
MON_KE |
& )*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
106 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
108 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
113 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
115 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
117 |
MON_KE |
& )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
118 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
119 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
127 |
MON_KE |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_ke.F |
137 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
138 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
142 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
143 |
MON_KE |
tilePEav(bi,bj) = tilePEav(bi,bj) |
|
./pkg/monitor/mon_ke.F |
144 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
145 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
170 |
MON_KE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_ke.F |
195 |
MON_KE |
tmpVal = abFac1*guNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
196 |
MON_KE |
& + abFac2*guNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
198 |
MON_KE |
tmpVal = abFac1*guNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
200 |
MON_KE |
tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
202 |
MON_KE |
& + R_drK*tmpVal*_hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
211 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
212 |
MON_KE |
& *cosLat*rAw(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
213 |
MON_KE |
& *maskInW(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
216 |
MON_KE |
tileAMu(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
219 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
234 |
MON_KE |
tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
235 |
MON_KE |
& + abFac2*gvNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
237 |
MON_KE |
tmpVal = abFac1*gvNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
239 |
MON_KE |
tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
241 |
MON_KE |
& + R_drK*tmpVal*_hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
250 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
251 |
MON_KE |
& *cosLat*rAs(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
252 |
MON_KE |
& *maskInS(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
257 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
265 |
MON_KE |
tmpFld(i,j) = etaHnm1(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
274 |
MON_KE |
tmpFld(i,j) = etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
282 |
MON_KE |
cosLat = COS( deg2rad*yG(i,j,bi,bj) ) |
|
./pkg/monitor/mon_ke.F |
297 |
MON_KE |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
299 |
MON_KE |
& *maskInC(i,j,bi,bj)*deepFac2F(ks) |
|
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
|
./pkg/monitor/mon_ke.F |
303 |
MON_KE |
tileAMs(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
306 |
MON_KE |
tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
33 |
MON_KE |
INTEGER bi, bj |
|
./pkg/monitor/mon_ke.F |
64 |
MON_KE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_ke.F |
66 |
MON_KE |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
tileMean(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
tileVlAv(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
69 |
MON_KE |
tilePEav(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
80 |
MON_KE |
tileVol(bi,bj) = tileVol(bi,bj) |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
83 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
99 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
102 |
MON_STATS_LATBND_RL |
n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
103 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
104 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
109 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
112 |
MON_STATS_LATBND_RL |
tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
113 |
MON_STATS_LATBND_RL |
& *arrMask(i,j,km,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
114 |
MON_STATS_LATBND_RL |
tileVol (bi,bj,n) = tileVol (bi,bj,n) + tmpVol |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
115 |
MON_STATS_LATBND_RL |
tileMean(bi,bj,n) = tileMean(bi,bj,n) + tmpVol*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
116 |
MON_STATS_LATBND_RL |
tileVar (bi,bj,n) = tileVar (bi,bj,n) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
51 |
MON_STATS_LATBND_RL |
INTEGER bi,bj,i,j,k,n |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
91 |
MON_STATS_LATBND_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
94 |
MON_STATS_LATBND_RL |
tileVol (bi,bj,n) = 0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
95 |
MON_STATS_LATBND_RL |
tileMean(bi,bj,n) = 0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
96 |
MON_STATS_LATBND_RL |
tileVar (bi,bj,n) = 0. |
|
./pkg/monitor/mon_stats_rl.F |
130 |
MON_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_stats_rl.F |
132 |
MON_STATS_RL |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_stats_rl.F |
136 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
137 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
138 |
MON_STATS_RL |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
139 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
140 |
MON_STATS_RL |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
35 |
MON_STATS_RL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rl.F |
61 |
MON_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_stats_rl.F |
63 |
MON_STATS_RL |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rl.F |
64 |
MON_STATS_RL |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rl.F |
65 |
MON_STATS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rl.F |
66 |
MON_STATS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
71 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN |
|
./pkg/monitor/mon_stats_rl.F |
76 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
79 |
MON_STATS_RL |
tileDel2(bi,bj) = tileDel2(bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
83 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
84 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
87 |
MON_STATS_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
88 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
89 |
MON_STATS_RL |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_stats_rl.F |
90 |
MON_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
91 |
MON_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
103 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
105 |
MON_STATS_RS |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
32 |
MON_STATS_RS |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rs.F |
49 |
MON_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_stats_rs.F |
51 |
MON_STATS_RS |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rs.F |
52 |
MON_STATS_RS |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
66 |
MON_STATS_RS |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
67 |
MON_STATS_RS |
tileVar (bi,bj)=tileVar (bi,bj)+tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
97 |
MON_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_stats_rs.F |
99 |
MON_STATS_RS |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
tile_wS(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
110 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
111 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
112 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
113 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
114 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
115 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
131 |
MON_SURFCOR |
tileTh2pe(bi,bj) = tileTh2pe(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
132 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
133 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_surfcor.F |
134 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
135 |
MON_SURFCOR |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
154 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
155 |
MON_SURFCOR |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
156 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
159 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
166 |
MON_SURFCOR |
tile_wT(bi,bj) = tile_wT(bi,bj) + vT_Mean |
|
./pkg/monitor/mon_surfcor.F |
167 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) + vS_Mean |
|
./pkg/monitor/mon_surfcor.F |
168 |
MON_SURFCOR |
tileWHeat(bi,bj) = tileWHeat(bi,bj) + vT_Heat |
|
./pkg/monitor/mon_surfcor.F |
54 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
|
./pkg/monitor/mon_surfcor.F |
75 |
MON_SURFCOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_surfcor.F |
77 |
MON_SURFCOR |
tileArea(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
78 |
MON_SURFCOR |
tile_wT(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
79 |
MON_SURFCOR |
tile_wS(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
80 |
MON_SURFCOR |
tileWHeat(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
81 |
MON_SURFCOR |
tileTh2pe(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
87 |
MON_SURFCOR |
tileArea(bi,bj) = tileArea(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
tmpVal = rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
91 |
MON_SURFCOR |
tile_wT(bi,bj) = tile_wT(bi,bj) + tmpVal |
|
./pkg/monitor/mon_surfcor.F |
92 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
93 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& *wVel(i,j,ks,bi,bj)*salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
97 |
MON_SURFCOR |
tileWHeat(bi,bj) = tileWHeat(bi,bj) |
|
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
114 |
MON_VORT3 |
& )*recip_rAw(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
115 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
116 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
117 |
MON_VORT3 |
& )*recip_rAw(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
118 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
119 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
120 |
MON_VORT3 |
& )*recip_rAs(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
121 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
122 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
123 |
MON_VORT3 |
& )*recip_rAs( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
129 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
130 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
131 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
132 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
135 |
MON_VORT3 |
vort3(i,j) = recip_rAz(i,j,bi,bj)*( |
|
./pkg/monitor/mon_vort3.F |
136 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
137 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
138 |
MON_VORT3 |
& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
139 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
165 |
MON_VORT3 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/monitor/mon_vort3.F |
187 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
188 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
189 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
190 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
192 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
193 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
194 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
202 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
203 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
204 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
205 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
207 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
208 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
209 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
217 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
218 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
219 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
220 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
222 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
223 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
224 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
232 |
MON_VORT3 |
& +recip_rAz(i,j,bi,bj)/AZcorner*( |
|
./pkg/monitor/mon_vort3.F |
233 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
234 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
235 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
238 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
239 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
246 |
MON_VORT3 |
IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN |
|
./pkg/monitor/mon_vort3.F |
252 |
MON_VORT3 |
& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
255 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
263 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
265 |
MON_VORT3 |
IF (yG(1,1,bi,bj).EQ.-90.) THEN |
|
./pkg/monitor/mon_vort3.F |
270 |
MON_VORT3 |
& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
273 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
281 |
MON_VORT3 |
vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
293 |
MON_VORT3 |
tileArea(bi,bj) = tileArea(bi,bj) + tmpAre |
|
./pkg/monitor/mon_vort3.F |
298 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
299 |
MON_VORT3 |
tileSum(bi,bj) = tileSum(bi,bj) + tmpAre*tmpVal |
|
./pkg/monitor/mon_vort3.F |
300 |
MON_VORT3 |
tileVar(bi,bj) = tileVar(bi,bj) + tmpAre*tmpVal*tmpVal |
|
./pkg/monitor/mon_vort3.F |
303 |
MON_VORT3 |
tileVol(bi,bj) = tileVol(bi,bj) + tmpVol |
|
./pkg/monitor/mon_vort3.F |
304 |
MON_VORT3 |
tileVSum(bi,bj)= tileVSum(bi,bj)+ tmpVol*tmpVal |
|
./pkg/monitor/mon_vort3.F |
305 |
MON_VORT3 |
tileVSq(bi,bj) = tileVSq(bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_vort3.F |
35 |
MON_VORT3 |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_vort3.F |
71 |
MON_VORT3 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_vort3.F |
73 |
MON_VORT3 |
tileArea(bi,bj)= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
74 |
MON_VORT3 |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
75 |
MON_VORT3 |
tileSum(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
76 |
MON_VORT3 |
tileVar(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
77 |
MON_VORT3 |
tileVSum(bi,bj)= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
78 |
MON_VORT3 |
tileVSq(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
85 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
86 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./pkg/my82/my82_calc.F |
11 |
MY82_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/my82/my82_calc.F |
151 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
153 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
162 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
167 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc.F |
176 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |
|
./pkg/my82/my82_calc.F |
177 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
178 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax) |
|
./pkg/my82/my82_calc.F |
179 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
47 |
MY82_CALC |
INTEGER bi, bj |
|
./pkg/my82/my82_calc.F |
98 |
MY82_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/my82/my82_calc_diff.F |
37 |
MY82_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/my82/my82_calc_diff.F |
54 |
MY82_CALC_DIFF |
& +( MYdiffKr(i,j,k,bi,bj) |
|
./pkg/my82/my82_calc_diff.F |
56 |
MY82_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc_diff.F |
69 |
MY82_CALC_DIFF |
& +( MYdiffKr(i,j,kArg,bi,bj) |
|
./pkg/my82/my82_calc_diff.F |
71 |
MY82_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./pkg/my82/my82_calc_diff.F |
7 |
MY82_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/my82/my82_calc_visc.F |
28 |
MY82_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/my82/my82_calc_visc.F |
42 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
51 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
6 |
MY82_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/my82/my82_init_varia.F |
31 |
MY82_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/my82/my82_init_varia.F |
48 |
MY82_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/my82/my82_init_varia.F |
53 |
MY82_INIT_VARIA |
MYhbl (i,j ,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_init_varia.F |
54 |
MY82_INIT_VARIA |
MYviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/my82/my82_init_varia.F |
55 |
MY82_INIT_VARIA |
MYdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./pkg/my82/my82_output.F |
138 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/my82/my82_output.F |
140 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
141 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
142 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
143 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = 0. |
|
./pkg/my82/my82_output.F |
150 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/my82/my82_output.F |
153 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
155 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
157 |
MY82_OUTPUT |
& 1 , DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
159 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = MY_timeAve(bi,bj)+DDTT |
|
./pkg/my82/my82_output.F |
170 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/my82/my82_output.F |
173 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
175 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
177 |
MY82_OUTPUT |
& MY_timeAve, 1 , bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
217 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/my82/my82_output.F |
219 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
220 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
221 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
222 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = 0. |
|
./pkg/my82/my82_output.F |
72 |
MY82_OUTPUT |
INTEGER bi, bj |
|
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
105 |
MY82_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
108 |
MY82_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
11 |
MY82_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/my82/my82_ri_number.F |
45 |
MY82_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/my82/my82_ri_number.F |
91 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./pkg/my82/my82_ri_number.F |
93 |
MY82_RI_NUMBER |
I Km1, bi, bj, myThid ) |
|
./pkg/my82/my82_ri_number.F |
96 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/my82/my82_ri_number.F |
98 |
MY82_RI_NUMBER |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
102 |
CONVECTIVE_ADJUSTMENT |
act2 = bj - myByLo(myThid) |
|
./model/src/convective_adjustment.F |
14 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment.F |
150 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
151 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
153 |
CONVECTIVE_ADJUSTMENT |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
164 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
165 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
167 |
CONVECTIVE_ADJUSTMENT |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
183 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment.F |
189 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
195 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
203 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment.F |
213 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTClock, bi, bj, myThid) |
|
./model/src/convective_adjustment.F |
220 |
CONVECTIVE_ADJUSTMENT |
I 0, Nr, 2, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
44 |
CONVECTIVE_ADJUSTMENT |
INTEGER bi,bj |
|
./pkg/mypackage/mypackage_calc_rhs.F |
34 |
MYPACKAGE_CALC_RHS |
INTEGER bi, bj |
|
./pkg/mypackage/mypackage_calc_rhs.F |
38 |
MYPACKAGE_CALC_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/mypackage/mypackage_init_varia.F |
33 |
MYPACKAGE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/mypackage/mypackage_init_varia.F |
35 |
MYPACKAGE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/mypackage/mypackage_init_varia.F |
44 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
45 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
46 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
47 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
50 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
51 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
52 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
53 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
63 |
MYPACKAGE_INIT_VARIA |
myPa_Surf1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
64 |
MYPACKAGE_INIT_VARIA |
myPa_Surf2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_tendency_apply.F |
114 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
128 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
136 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
137 |
MYPACKAGE_TENDENCY_APPLY_V |
& +myPa_TendVelV(i, j ,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
155 |
MYPACKAGE_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
181 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
195 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
19 |
MYPACKAGE_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
212 |
MYPACKAGE_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
238 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
252 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
46 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
60 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
68 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
69 |
MYPACKAGE_TENDENCY_APPLY_U |
& +myPa_TendVelU( i ,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
87 |
MYPACKAGE_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/convective_adjustment_ini.F |
102 |
CONVECTIVE_ADJUSTMENT_INI |
act2 = bj - myByLo(myThid) |
|
./model/src/convective_adjustment_ini.F |
14 |
CONVECTIVE_ADJUSTMENT_INI |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment_ini.F |
150 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
151 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
153 |
CONVECTIVE_ADJUSTMENT_INI |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
164 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
165 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
167 |
CONVECTIVE_ADJUSTMENT_INI |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
181 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment_ini.F |
187 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
193 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
201 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment_ini.F |
48 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER bi,bj |
|
./model/src/convective_weights.F |
10 |
CONVECTIVE_WEIGHTS |
I bi, bj, k, rhoKm1, rhoK, |
|
./model/src/convective_weights.F |
41 |
CONVECTIVE_WEIGHTS |
INTEGER bi,bj,k |
|
./model/src/convective_weights.F |
60 |
CONVECTIVE_WEIGHTS |
IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./model/src/convective_weights.F |
65 |
CONVECTIVE_WEIGHTS |
d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convective_weights.F |
66 |
CONVECTIVE_WEIGHTS |
d2 = _hFacC(i,j, k ,bi,bj)*drF( k ) |
|
./pkg/obcs/obcs_add_tides.F |
102 |
OBCS_ADD_TIDES |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
105 |
OBCS_ADD_TIDES |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
106 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
107 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBNph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
117 |
OBCS_ADD_TIDES |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
120 |
OBCS_ADD_TIDES |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
123 |
OBCS_ADD_TIDES |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
124 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
125 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBSph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
50 |
OBCS_ADD_TIDES |
INTEGER bi, bj |
|
./pkg/obcs/obcs_add_tides.F |
59 |
OBCS_ADD_TIDES |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_add_tides.F |
63 |
OBCS_ADD_TIDES |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
66 |
OBCS_ADD_TIDES |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
69 |
OBCS_ADD_TIDES |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
70 |
OBCS_ADD_TIDES |
& maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
71 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBEph(j,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
81 |
OBCS_ADD_TIDES |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_add_tides.F |
84 |
OBCS_ADD_TIDES |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_add_tides.F |
87 |
OBCS_ADD_TIDES |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
88 |
OBCS_ADD_TIDES |
& maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
89 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBWph(j,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
99 |
OBCS_ADD_TIDES |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
104 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
105 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
106 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
107 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
108 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
109 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
112 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
113 |
OBCS_ADJUST_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
114 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
116 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
117 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
119 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
120 |
OBCS_ADJUST_UVICE |
& * _maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
122 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
123 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
124 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
125 |
OBCS_ADJUST_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
126 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
127 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
130 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
131 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
132 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
133 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
134 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
135 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
145 |
OBCS_ADJUST_UVICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
148 |
OBCS_ADJUST_UVICE |
IF (OB_Ie(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
150 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
151 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
152 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
153 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
154 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
155 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
158 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
159 |
OBCS_ADJUST_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
160 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
162 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
163 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
165 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
166 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
168 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
169 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
170 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
171 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
172 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
173 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
176 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
177 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
178 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
179 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
180 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
181 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
190 |
OBCS_ADJUST_UVICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
193 |
OBCS_ADJUST_UVICE |
IF (OB_Iw(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
195 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
196 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
197 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
203 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
204 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
205 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
208 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
209 |
OBCS_ADJUST_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
210 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
212 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
213 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
215 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
216 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
218 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
219 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
220 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
221 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
222 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
223 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
226 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
227 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
228 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
229 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Iw(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
230 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
231 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
40 |
OBCS_ADJUST_UVICE |
INTEGER I,J,K,bi,bj |
|
./pkg/obcs/obcs_adjust_uvice.F |
44 |
OBCS_ADJUST_UVICE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_adjust_uvice.F |
49 |
OBCS_ADJUST_UVICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
52 |
OBCS_ADJUST_UVICE |
IF (OB_Jn(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
54 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
55 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
56 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
57 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
58 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
59 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
62 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
63 |
OBCS_ADJUST_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
64 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
66 |
OBCS_ADJUST_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
67 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
69 |
OBCS_ADJUST_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
70 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
72 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
73 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
74 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
75 |
OBCS_ADJUST_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
76 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
77 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
80 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
81 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
82 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
83 |
OBCS_ADJUST_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
84 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
85 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
94 |
OBCS_ADJUST_UVICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
97 |
OBCS_ADJUST_UVICE |
IF (OB_Js(I,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
37 |
OBCS_APPLY_ETA |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_eta.F |
51 |
OBCS_APPLY_ETA |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
61 |
OBCS_APPLY_ETA |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
64 |
OBCS_APPLY_ETA |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
66 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
67 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
73 |
OBCS_APPLY_ETA |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
83 |
OBCS_APPLY_ETA |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
86 |
OBCS_APPLY_ETA |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
88 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
89 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
9 |
OBCS_APPLY_ETA |
SUBROUTINE OBCS_APPLY_ETA( bi, bj, |
|
./pkg/obcs/obcs_apply_ptracer.F |
100 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
103 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
107 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
10 |
OBCS_APPLY_PTRACER |
I bi, bj, kArg, iTracer, |
|
./pkg/obcs/obcs_apply_ptracer.F |
115 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
118 |
OBCS_APPLY_PTRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
122 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
41 |
OBCS_APPLY_PTRACER |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_ptracer.F |
69 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
72 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
84 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
87 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
91 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_r_star.F |
101 |
OBCS_APPLY_R_STAR |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
104 |
OBCS_APPLY_R_STAR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
105 |
OBCS_APPLY_R_STAR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
106 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
108 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
109 |
OBCS_APPLY_R_STAR |
& + OBEeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
111 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
112 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
118 |
OBCS_APPLY_R_STAR |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
121 |
OBCS_APPLY_R_STAR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
122 |
OBCS_APPLY_R_STAR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_r_star.F |
123 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
125 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
126 |
OBCS_APPLY_R_STAR |
& + OBWeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
128 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
129 |
OBCS_APPLY_R_STAR |
& + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
12 |
OBCS_APPLY_R_STAR |
I bi, bj, etaFld, |
|
./pkg/obcs/obcs_apply_r_star.F |
41 |
OBCS_APPLY_R_STAR |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_r_star.F |
65 |
OBCS_APPLY_R_STAR |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
69 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
72 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
73 |
OBCS_APPLY_R_STAR |
& + OBNeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
75 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
76 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
82 |
OBCS_APPLY_R_STAR |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
85 |
OBCS_APPLY_R_STAR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
86 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_r_star.F |
87 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
89 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
90 |
OBCS_APPLY_R_STAR |
& + OBSeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
92 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
93 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
101 |
OBCS_APPLY_SEAICE |
HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
109 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
112 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
114 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
115 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
116 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
118 |
OBCS_APPLY_SEAICE |
HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
131 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
134 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
136 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
140 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
141 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
145 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
146 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
147 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
151 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
152 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
153 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
158 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
159 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
160 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
170 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
173 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
175 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
179 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
180 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
184 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
185 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
186 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
190 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
191 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
192 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
197 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
198 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
199 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
209 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
214 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
218 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
219 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
223 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
224 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
225 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
229 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
230 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
231 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
236 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
237 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
238 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
248 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
251 |
OBCS_APPLY_SEAICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
253 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
257 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
258 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
262 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
263 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
264 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
268 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
269 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
270 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
275 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
276 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
277 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
46 |
OBCS_APPLY_SEAICE |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_seaice.F |
54 |
OBCS_APPLY_SEAICE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_apply_seaice.F |
58 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
61 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBNh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
64 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
65 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
67 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBNsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
75 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
78 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBSh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
81 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
84 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc,bi,bj) = OBSsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
92 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
97 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
98 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
99 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
100 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j-1,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
102 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
109 |
OBCS_APPLY_SURF_DR |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
112 |
OBCS_APPLY_SURF_DR |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
113 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
114 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
117 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
118 |
OBCS_APPLY_SURF_DR |
& + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
120 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
121 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
123 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
128 |
OBCS_APPLY_SURF_DR |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
12 |
OBCS_APPLY_SURF_DR |
I bi, bj, etaFld, |
|
./pkg/obcs/obcs_apply_surf_dr.F |
131 |
OBCS_APPLY_SURF_DR |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
132 |
OBCS_APPLY_SURF_DR |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_surf_dr.F |
133 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
136 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
137 |
OBCS_APPLY_SURF_DR |
& + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
139 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
140 |
OBCS_APPLY_SURF_DR |
& + etaFld(i-1,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
142 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
43 |
OBCS_APPLY_SURF_DR |
INTEGER bi,bj |
|
./pkg/obcs/obcs_apply_surf_dr.F |
69 |
OBCS_APPLY_SURF_DR |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
72 |
OBCS_APPLY_SURF_DR |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
73 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
74 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
& + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
80 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
81 |
OBCS_APPLY_SURF_DR |
& + etaFld(i,j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
83 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
88 |
OBCS_APPLY_SURF_DR |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
91 |
OBCS_APPLY_SURF_DR |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
92 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_apply_surf_dr.F |
93 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
96 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
97 |
OBCS_APPLY_SURF_DR |
& + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
99 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
10 |
OBCS_APPLY_TS |
SUBROUTINE OBCS_APPLY_TS( bi, bj, kArg, |
|
./pkg/obcs/obcs_apply_ts.F |
111 |
OBCS_APPLY_TS |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
117 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
132 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
135 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
146 |
OBCS_APPLY_TS |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
152 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
155 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
156 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
157 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
158 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
167 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
170 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
171 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
180 |
OBCS_APPLY_TS |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
186 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
189 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
190 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
191 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
192 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
201 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
204 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
205 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
39 |
OBCS_APPLY_TS |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_ts.F |
77 |
OBCS_APPLY_TS |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
88 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
89 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
98 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./model/src/convectively_mixtracer.F |
10 |
CONVECTIVELY_MIXTRACER |
I bi, bj, k, weightA, weightB, |
|
./model/src/convectively_mixtracer.F |
31 |
CONVECTIVELY_MIXTRACER |
INTEGER bi,bj,k |
|
./model/src/convectively_mixtracer.F |
49 |
CONVECTIVELY_MIXTRACER |
delTrac=Tracer(i,j,k,bi,bj)-Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
50 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k-1,bi,bj)=Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
52 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
114 |
OBCS_APPLY_UV |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
117 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
120 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
128 |
OBCS_APPLY_UV |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
131 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
134 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
145 |
OBCS_APPLY_UV |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
148 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
151 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
152 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
153 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
154 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
162 |
OBCS_APPLY_UV |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
165 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
168 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
169 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
170 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
171 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
181 |
OBCS_APPLY_UV |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
184 |
OBCS_APPLY_UV |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
187 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
188 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
189 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
190 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
198 |
OBCS_APPLY_UV |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
201 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
204 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
205 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
206 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
207 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
38 |
OBCS_APPLY_UV |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_uv.F |
84 |
OBCS_APPLY_UV |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
90 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
91 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
98 |
OBCS_APPLY_UV |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
9 |
OBCS_APPLY_UV |
SUBROUTINE OBCS_APPLY_UV( bi, bj, kArg, |
|
./pkg/obcs/obcs_apply_uvice.F |
105 |
OBCS_APPLY_UVICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
110 |
OBCS_APPLY_UVICE |
vFld(Iobc,j,bi,bj) = OBEvice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
111 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
118 |
OBCS_APPLY_UVICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
121 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
123 |
OBCS_APPLY_UVICE |
vFld(Iobc,j,bi,bj) = OBWvice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
124 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
134 |
OBCS_APPLY_UVICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
139 |
OBCS_APPLY_UVICE |
vFld(i,Jobc,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
142 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc+1,bi,bj) = OBNvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
143 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
151 |
OBCS_APPLY_UVICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
156 |
OBCS_APPLY_UVICE |
vFld(i,Jobc+1,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
157 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
159 |
OBCS_APPLY_UVICE |
& vFld(i,Jobc,bi,bj) = OBSvice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& *seaiceMaskV(i,Jobc+1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
169 |
OBCS_APPLY_UVICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
172 |
OBCS_APPLY_UVICE |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
174 |
OBCS_APPLY_UVICE |
uFld(Iobc,j,bi,bj) = OBEuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
175 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
177 |
OBCS_APPLY_UVICE |
& uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
178 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
186 |
OBCS_APPLY_UVICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
189 |
OBCS_APPLY_UVICE |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
192 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
194 |
OBCS_APPLY_UVICE |
& uFld(Iobc,j,bi,bj) = OBWuice(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
195 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(Iobc+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
53 |
OBCS_APPLY_UVICE |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_uvice.F |
71 |
OBCS_APPLY_UVICE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_apply_uvice.F |
78 |
OBCS_APPLY_UVICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
81 |
OBCS_APPLY_UVICE |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
83 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBNuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
91 |
OBCS_APPLY_UVICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
uFld(i,Jobc,bi,bj) = OBSuice(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
97 |
OBCS_APPLY_UVICE |
& *seaiceMaskU(i,Jobc,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
104 |
OBCS_APPLY_W |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
107 |
OBCS_APPLY_W |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
111 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
112 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
115 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
116 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
123 |
OBCS_APPLY_W |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
126 |
OBCS_APPLY_W |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
130 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
131 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
134 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
135 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
38 |
OBCS_APPLY_W |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_w.F |
65 |
OBCS_APPLY_W |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
68 |
OBCS_APPLY_W |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
73 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
76 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
77 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
84 |
OBCS_APPLY_W |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
91 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
92 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
96 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
9 |
OBCS_APPLY_W |
SUBROUTINE OBCS_APPLY_W( bi, bj, kArg, |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
102 |
OBCS_BALANCE_FLOW |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
103 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
104 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
109 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
110 |
OBCS_BALANCE_FLOW |
tileAreaOB(bi,bj) = tileAreaOB(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
111 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacE |
|
./pkg/obcs/obcs_balance_flow.F |
113 |
OBCS_BALANCE_FLOW |
areaE = areaE + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
114 |
OBCS_BALANCE_FLOW |
flowE = flowE + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
139 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
141 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
142 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
143 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
146 |
OBCS_BALANCE_FLOW |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
151 |
OBCS_BALANCE_FLOW |
& *maskInW(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
152 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
153 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
158 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
159 |
OBCS_BALANCE_FLOW |
tileAreaOB(bi,bj) = tileAreaOB(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
160 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacW |
|
./pkg/obcs/obcs_balance_flow.F |
162 |
OBCS_BALANCE_FLOW |
areaW = areaW + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
163 |
OBCS_BALANCE_FLOW |
flowW = flowW + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
188 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
190 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
191 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
192 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
195 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
199 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
200 |
OBCS_BALANCE_FLOW |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
201 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
202 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
207 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
208 |
OBCS_BALANCE_FLOW |
tileAreaOB(bi,bj) = tileAreaOB(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
209 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacN |
|
./pkg/obcs/obcs_balance_flow.F |
211 |
OBCS_BALANCE_FLOW |
areaN = areaN + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
212 |
OBCS_BALANCE_FLOW |
flowN = flowN + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
237 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
239 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
240 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
241 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
244 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
248 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
249 |
OBCS_BALANCE_FLOW |
& *maskInS(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
250 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_balance_flow.F |
251 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
256 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
257 |
OBCS_BALANCE_FLOW |
tileAreaOB(bi,bj) = tileAreaOB(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
258 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacS |
|
./pkg/obcs/obcs_balance_flow.F |
260 |
OBCS_BALANCE_FLOW |
areaS = areaS + tileArea(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
261 |
OBCS_BALANCE_FLOW |
flowS = flowS + tileFlow(bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
320 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
322 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
325 |
OBCS_BALANCE_FLOW |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
327 |
OBCS_BALANCE_FLOW |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
328 |
OBCS_BALANCE_FLOW |
& + flowE*maskW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
340 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
342 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
345 |
OBCS_BALANCE_FLOW |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
347 |
OBCS_BALANCE_FLOW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
348 |
OBCS_BALANCE_FLOW |
& + flowW*maskW(1+iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
360 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
362 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
365 |
OBCS_BALANCE_FLOW |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
367 |
OBCS_BALANCE_FLOW |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
368 |
OBCS_BALANCE_FLOW |
& + flowN*maskS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
380 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
382 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
385 |
OBCS_BALANCE_FLOW |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
387 |
OBCS_BALANCE_FLOW |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
388 |
OBCS_BALANCE_FLOW |
& + flowS*maskS(i,1+jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
47 |
OBCS_BALANCE_FLOW |
INTEGER bi, bj |
|
./pkg/obcs/obcs_balance_flow.F |
79 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
81 |
OBCS_BALANCE_FLOW |
tileAreaOB(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
82 |
OBCS_BALANCE_FLOW |
tileInFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
90 |
OBCS_BALANCE_FLOW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_balance_flow.F |
92 |
OBCS_BALANCE_FLOW |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
93 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = 0. |
|
./pkg/obcs/obcs_balance_flow.F |
94 |
OBCS_BALANCE_FLOW |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_balance_flow.F |
97 |
OBCS_BALANCE_FLOW |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
103 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
104 |
OBCS_CALC |
OBEu(j,k,bi,bj)= U_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
105 |
OBCS_CALC |
OBEv(j,k,bi,bj)= V_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
106 |
OBCS_CALC |
OBEt(j,k,bi,bj)= T_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
107 |
OBCS_CALC |
OBEs(j,k,bi,bj)= S_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
109 |
OBCS_CALC |
OBEeta(j,bi,bj)= ETA_F1(j,1,2) |
|
./pkg/obcs/obcs_calc.F |
118 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
119 |
OBCS_CALC |
OBEu(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
120 |
OBCS_CALC |
OBEv(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
121 |
OBCS_CALC |
OBEt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
122 |
OBCS_CALC |
OBEs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
124 |
OBCS_CALC |
OBEw(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
127 |
OBCS_CALC |
OBEeta(j,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
145 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
153 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
154 |
OBCS_CALC |
OBWu(j,k,bi,bj)= U_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
155 |
OBCS_CALC |
OBWv(j,k,bi,bj)= V_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
156 |
OBCS_CALC |
OBWt(j,k,bi,bj)= T_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
157 |
OBCS_CALC |
OBWs(j,k,bi,bj)= S_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
159 |
OBCS_CALC |
OBWeta(j,bi,bj)= ETA_F1(j,1,1) |
|
./pkg/obcs/obcs_calc.F |
168 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
169 |
OBCS_CALC |
OBWu(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
170 |
OBCS_CALC |
OBWv(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
171 |
OBCS_CALC |
OBWt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
172 |
OBCS_CALC |
OBWs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
174 |
OBCS_CALC |
OBWw(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
177 |
OBCS_CALC |
OBWeta(j,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
195 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
205 |
OBCS_CALC |
OBNt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
208 |
OBCS_CALC |
OBNw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
211 |
OBCS_CALC |
OBNeta(i,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
229 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
237 |
OBCS_CALC |
OBSu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
240 |
OBCS_CALC |
OBSs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
242 |
OBCS_CALC |
OBSw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
245 |
OBCS_CALC |
OBSeta(i,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
285 |
OBCS_CALC |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
286 |
OBCS_CALC |
I_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
287 |
OBCS_CALC |
OBEptr(j,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
288 |
OBCS_CALC |
& pTracer(I_obc-1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
289 |
OBCS_CALC |
& *_maskW(I_obc,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
317 |
OBCS_CALC |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
318 |
OBCS_CALC |
I_obc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
319 |
OBCS_CALC |
OBWptr(j,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
320 |
OBCS_CALC |
& pTracer(I_obc+1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
321 |
OBCS_CALC |
& *_maskW(I_obc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
349 |
OBCS_CALC |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
350 |
OBCS_CALC |
J_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
OBNptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& pTracer(i,J_obc-1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
353 |
OBCS_CALC |
& *_maskS(i,J_obc,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
381 |
OBCS_CALC |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc.F |
382 |
OBCS_CALC |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
OBSptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& pTracer(i,J_obc+1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
385 |
OBCS_CALC |
& *_maskS(i,J_obc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
60 |
OBCS_CALC |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc.F |
74 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
95 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc_stevens.F |
1042 |
OBCS_STEVENS_SAVE_TRACERS |
INTEGER bi,bj,i,j,k,Iobc,Jobc |
|
./pkg/obcs/obcs_calc_stevens.F |
1045 |
OBCS_STEVENS_SAVE_TRACERS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
1048 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1051 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1054 |
OBCS_STEVENS_SAVE_TRACERS |
OBNtStevens(i,k,bi,bj) = theta(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1055 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1056 |
OBCS_STEVENS_SAVE_TRACERS |
OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1057 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1064 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1067 |
OBCS_STEVENS_SAVE_TRACERS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1070 |
OBCS_STEVENS_SAVE_TRACERS |
OBStStevens(i,k,bi,bj) = theta(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1071 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1072 |
OBCS_STEVENS_SAVE_TRACERS |
OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1073 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1080 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1083 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1086 |
OBCS_STEVENS_SAVE_TRACERS |
OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1087 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1088 |
OBCS_STEVENS_SAVE_TRACERS |
OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1089 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1096 |
OBCS_STEVENS_SAVE_TRACERS |
IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
1099 |
OBCS_STEVENS_SAVE_TRACERS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
109 |
OBCS_CALC_STEVENS |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc_stevens.F |
1102 |
OBCS_STEVENS_SAVE_TRACERS |
OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1103 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1104 |
OBCS_STEVENS_SAVE_TRACERS |
OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1105 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
144 |
OBCS_CALC_STEVENS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
150 |
OBCS_CALC_STEVENS |
act2 = bj - myByLo(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
175 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
185 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
187 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
189 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
195 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
197 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
199 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
213 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
217 |
OBCS_CALC_STEVENS |
OBEw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
228 |
OBCS_CALC_STEVENS |
OBEeta(J,bi,bj) = etaN(I-1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
237 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
254 |
OBCS_CALC_STEVENS |
I OB_Ie, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
262 |
OBCS_CALC_STEVENS |
I OB_Ie, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
302 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
312 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
314 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
316 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
324 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBWuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
326 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
332 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
334 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
340 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
341 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
344 |
OBCS_CALC_STEVENS |
OBWw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
353 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
355 |
OBCS_CALC_STEVENS |
OBWeta(J,bi,bj) = etaN(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
364 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
381 |
OBCS_CALC_STEVENS |
I OB_Iw, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
389 |
OBCS_CALC_STEVENS |
I OB_Iw, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
413 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
423 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
425 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
427 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
428 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
433 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
435 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBNvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
443 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
445 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
451 |
OBCS_CALC_STEVENS |
OBNv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
452 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
455 |
OBCS_CALC_STEVENS |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
464 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
466 |
OBCS_CALC_STEVENS |
OBNeta(I,bi,bj) = etaN(I,J-1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
492 |
OBCS_CALC_STEVENS |
I OB_Jn, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
500 |
OBCS_CALC_STEVENS |
I OB_Jn, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
525 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
535 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
537 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
539 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
540 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
545 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
547 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBSvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
549 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
555 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
556 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
557 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
563 |
OBCS_CALC_STEVENS |
OBSv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
564 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
567 |
OBCS_CALC_STEVENS |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
576 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
578 |
OBCS_CALC_STEVENS |
OBSeta(I,bi,bj) = etaN(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
587 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
589 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
604 |
OBCS_CALC_STEVENS |
I OB_Js, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
612 |
OBCS_CALC_STEVENS |
I OB_Js, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
631 |
OBCS_CALC_STEVENS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
639 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
641 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
643 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
645 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
680 |
OBCS_STEVENS_CALC_TRACER_EAST |
I OB_I, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
703 |
OBCS_STEVENS_CALC_TRACER_EAST |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc_stevens.F |
727 |
OBCS_STEVENS_CALC_TRACER_EAST |
I = OB_I(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
729 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracSpace = (tracer(I-1,J,K,bi,bj)-tracer(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
730 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
731 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracTime = (tracer(I-1,J,K,bi,bj)-OBE_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
740 |
OBCS_STEVENS_CALC_TRACER_EAST |
OBEf(J,K,bi,bj) = _maskW(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
742 |
OBCS_STEVENS_CALC_TRACER_EAST |
& *(tracer(I,J,K,bi,bj)-tracer(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
743 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
745 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * (tracer(I,J,K,bi,bj)-OBEf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
761 |
OBCS_STEVENS_CALC_TRACER_WEST |
I OB_I, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
784 |
OBCS_STEVENS_CALC_TRACER_WEST |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc_stevens.F |
809 |
OBCS_STEVENS_CALC_TRACER_WEST |
I = OB_I(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
811 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracSpace = (tracer(I+2,J,K,bi,bj)-tracer(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
812 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
813 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracTime = (tracer(I+1,J,K,bi,bj)-OBW_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
822 |
OBCS_STEVENS_CALC_TRACER_WEST |
OBWf(J,K,bi,bj) = _maskW(I+1,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
824 |
OBCS_STEVENS_CALC_TRACER_WEST |
& *(tracer(I+1,J,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
825 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
827 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * (tracer(I,J,K,bi,bj)-OBWf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
843 |
OBCS_STEVENS_CALC_TRACER_NORTH |
I OB_J, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
866 |
OBCS_STEVENS_CALC_TRACER_NORTH |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc_stevens.F |
890 |
OBCS_STEVENS_CALC_TRACER_NORTH |
J = OB_J(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
893 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracSpace = (tracer(I,J-1,K,bi,bj)-tracer(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
894 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _maskS(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
895 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracTime = (tracer(I,J-1,K,bi,bj)-OBN_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
904 |
OBCS_STEVENS_CALC_TRACER_NORTH |
OBNf(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
906 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& *(tracer(I,J,K,bi,bj)-tracer(I,J-1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
907 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
909 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * (tracer(I,J,K,bi,bj)-OBNf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
925 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
I OB_J, OB_indexNone, bi, bj, |
|
./pkg/obcs/obcs_calc_stevens.F |
948 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc_stevens.F |
972 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
J = OB_J(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
974 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracSpace = (tracer(I,J+2,K,bi,bj)-tracer(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
975 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _maskS(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
976 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracTime = (tracer(I,J+1,K,bi,bj)-OBS_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
985 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
OBSf(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
987 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& *(tracer(I,J+1,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
988 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _recip_dyC(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
990 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * (tracer(I,J,K,bi,bj)-OBSf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_check.F |
118 |
OBCS_CHECK |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_check.F |
121 |
OBCS_CHECK |
& '======== Tile bi=', bi, ' , bj=', bj, ' ========' |
|
./pkg/obcs/obcs_check.F |
125 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Jn(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
129 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Js(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
133 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Ie(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
137 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Iw(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
154 |
OBCS_CHECK |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_check.F |
157 |
OBCS_CHECK |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
162 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Northern OB' |
|
./pkg/obcs/obcs_check.F |
168 |
OBCS_CHECK |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
173 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Southern OB' |
|
./pkg/obcs/obcs_check.F |
179 |
OBCS_CHECK |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
184 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Eastern OB' |
|
./pkg/obcs/obcs_check.F |
190 |
OBCS_CHECK |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
195 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Western OB' |
|
./pkg/obcs/obcs_check.F |
458 |
OBCS_CHECK |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_check.F |
463 |
OBCS_CHECK |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
465 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
468 |
OBCS_CHECK |
& ' from OB_Ie (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
475 |
OBCS_CHECK |
IF ( maskInC(i-1,j,bi,bj).GT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
476 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
477 |
OBCS_CHECK |
& .AND. i.NE.OB_Ie(j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
480 |
OBCS_CHECK |
& ' from insideMask (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
487 |
OBCS_CHECK |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
489 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
492 |
OBCS_CHECK |
& ' from OB_Iw (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
499 |
OBCS_CHECK |
IF ( maskInC(i-1,j,bi,bj).LT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
500 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
501 |
OBCS_CHECK |
& .AND. i.NE.OB_Iw(j,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check.F |
504 |
OBCS_CHECK |
& ' from insideMask (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
50 |
OBCS_CHECK |
INTEGER bi, bj |
|
./pkg/obcs/obcs_check.F |
514 |
OBCS_CHECK |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
516 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
519 |
OBCS_CHECK |
& ' from OB_Jn (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
526 |
OBCS_CHECK |
IF ( maskInC(i,j-1,bi,bj).GT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
527 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
528 |
OBCS_CHECK |
& .AND. j.NE.OB_Jn(i,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
531 |
OBCS_CHECK |
& ' from insideMask (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
538 |
OBCS_CHECK |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check.F |
540 |
OBCS_CHECK |
IF ( maskInC(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/obcs/obcs_check.F |
543 |
OBCS_CHECK |
& ' from OB_Js (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check.F |
550 |
OBCS_CHECK |
IF ( maskInC(i,j-1,bi,bj).LT.maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
551 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
552 |
OBCS_CHECK |
& .AND. j.NE.OB_Js(i,bi,bj)+1 ) THEN |
|
./pkg/obcs/obcs_check.F |
555 |
OBCS_CHECK |
& ' from insideMask (bi,bj=', bi, ',', bj, |
|
./pkg/obcs/obcs_check_depths.F |
100 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
32 |
OBCS_CHECK_DEPTHS |
INTEGER bi, bj, i, j, ichanged |
|
./pkg/obcs/obcs_check_depths.F |
39 |
OBCS_CHECK_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_check_depths.F |
44 |
OBCS_CHECK_DEPTHS |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
46 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j-1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
48 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
51 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
60 |
OBCS_CHECK_DEPTHS |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
62 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j+1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
64 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
67 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
76 |
OBCS_CHECK_DEPTHS |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
78 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i-1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
80 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
83 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj)=', i, j, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
93 |
OBCS_CHECK_DEPTHS |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
95 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i+1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
97 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
106 |
OBCS_COPY_TRACER |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
109 |
OBCS_COPY_TRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
12 |
OBCS_COPY_TRACER |
I kSiz, bi, bj, myThid ) |
|
./pkg/obcs/obcs_copy_tracer.F |
44 |
OBCS_COPY_TRACER |
INTEGER bi, bj |
|
./pkg/obcs/obcs_copy_tracer.F |
57 |
OBCS_COPY_TRACER |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
60 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
73 |
OBCS_COPY_TRACER |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
76 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
90 |
OBCS_COPY_TRACER |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
93 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
104 |
OBCS_COPY_UV_N |
IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
107 |
OBCS_COPY_UV_N |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
12 |
OBCS_COPY_UV_N |
I kSiz, bi, bj, myThid ) |
|
./pkg/obcs/obcs_copy_uv_n.F |
42 |
OBCS_COPY_UV_N |
INTEGER bi, bj |
|
./pkg/obcs/obcs_copy_uv_n.F |
55 |
OBCS_COPY_UV_N |
IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
58 |
OBCS_COPY_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
71 |
OBCS_COPY_UV_N |
IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
74 |
OBCS_COPY_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_uv_n.F |
88 |
OBCS_COPY_UV_N |
IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN |
|
./pkg/obcs/obcs_copy_uv_n.F |
91 |
OBCS_COPY_UV_N |
Iobc = OB_Ie(j,bi,bj) |
|
./model/src/correction_step.F |
109 |
CORRECTION_STEP |
& + nhFac*_recip_dxC(i,j,bi,bj) |
|
./model/src/correction_step.F |
10 |
CORRECTION_STEP |
SUBROUTINE CORRECTION_STEP( bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/correction_step.F |
110 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
112 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
122 |
CORRECTION_STEP |
& + nhFac*_recip_dyC(i,j,bi,bj) |
|
./model/src/correction_step.F |
123 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/correction_step.F |
125 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
136 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
138 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
140 |
CORRECTION_STEP |
& *maskInW(i,j,bi,bj) |
|
./model/src/correction_step.F |
148 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
150 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
152 |
CORRECTION_STEP |
& *maskInS(i,j,bi,bj) |
|
./model/src/correction_step.F |
43 |
CORRECTION_STEP |
INTEGER bi, bj |
|
./model/src/correction_step.F |
76 |
CORRECTION_STEP |
& -psFac*dU_psFacX(i,j,k,bi,bj)*phiSurfX(i,j) |
|
./model/src/correction_step.F |
85 |
CORRECTION_STEP |
& -psFac*dV_psFacY(i,j,k,bi,bj)*phiSurfY(i,j) |
|
./pkg/obcs/obcs_diag_balance.F |
100 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj,n) = tileInFlow(bi,bj,n) |
|
./pkg/obcs/obcs_diag_balance.F |
101 |
OBCS_DIAG_BALANCE |
& - uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
111 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
113 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
115 |
OBCS_DIAG_BALANCE |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
117 |
OBCS_DIAG_BALANCE |
n = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
120 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
121 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
122 |
OBCS_DIAG_BALANCE |
tileAreaOB(bi,bj,n) = tileAreaOB(bi,bj,n) + tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
123 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj,n) = tileInFlow(bi,bj,n) |
|
./pkg/obcs/obcs_diag_balance.F |
124 |
OBCS_DIAG_BALANCE |
& + uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
134 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
136 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
138 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
140 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
142 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
143 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
144 |
OBCS_DIAG_BALANCE |
tileAreaOB(bi,bj,n) = tileAreaOB(bi,bj,n) + tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
145 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj,n) = tileInFlow(bi,bj,n) |
|
./pkg/obcs/obcs_diag_balance.F |
146 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
156 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
158 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
160 |
OBCS_DIAG_BALANCE |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
162 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
166 |
OBCS_DIAG_BALANCE |
& *maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
167 |
OBCS_DIAG_BALANCE |
tileAreaOB(bi,bj,n) = tileAreaOB(bi,bj,n) + tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
168 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj,n) = tileInFlow(bi,bj,n) |
|
./pkg/obcs/obcs_diag_balance.F |
169 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
200 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
203 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
206 |
OBCS_DIAG_BALANCE |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
207 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
208 |
OBCS_DIAG_BALANCE |
n = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
210 |
OBCS_DIAG_BALANCE |
div2d(iB ,j,bi,bj) = div2d(iB ,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
211 |
OBCS_DIAG_BALANCE |
& - uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
213 |
OBCS_DIAG_BALANCE |
div2d(iB ,j,bi,bj) = div2d(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
214 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
215 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
223 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
226 |
OBCS_DIAG_BALANCE |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
227 |
OBCS_DIAG_BALANCE |
iBt = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
229 |
OBCS_DIAG_BALANCE |
n = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
231 |
OBCS_DIAG_BALANCE |
div2d(iBt,j,bi,bj) = div2d(iBt,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
232 |
OBCS_DIAG_BALANCE |
& + uTrans(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
234 |
OBCS_DIAG_BALANCE |
div2d(iBt,j,bi,bj) = div2d(iBt,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
235 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
236 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
244 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
247 |
OBCS_DIAG_BALANCE |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
248 |
OBCS_DIAG_BALANCE |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
249 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
251 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
252 |
OBCS_DIAG_BALANCE |
& - vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
254 |
OBCS_DIAG_BALANCE |
div2d(i,jB ,bi,bj) = div2d(i,jB ,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
255 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
256 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
264 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
267 |
OBCS_DIAG_BALANCE |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
268 |
OBCS_DIAG_BALANCE |
jBt = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
270 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
272 |
OBCS_DIAG_BALANCE |
div2d(i,jBt,bi,bj) = div2d(i,jBt,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
273 |
OBCS_DIAG_BALANCE |
& + vTrans(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
275 |
OBCS_DIAG_BALANCE |
div2d(i,jBt,bi,bj) = div2d(i,jBt,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
276 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
277 |
OBCS_DIAG_BALANCE |
& *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
62 |
OBCS_DIAG_BALANCE |
INTEGER bi, bj, n |
|
./pkg/obcs/obcs_diag_balance.F |
80 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
82 |
OBCS_DIAG_BALANCE |
tileAreaOB(bi,bj,n) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
83 |
OBCS_DIAG_BALANCE |
tileInFlow(bi,bj,n) = 0. |
|
./pkg/obcs/obcs_diag_balance.F |
89 |
OBCS_DIAG_BALANCE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_diag_balance.F |
91 |
OBCS_DIAG_BALANCE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
93 |
OBCS_DIAG_BALANCE |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
95 |
OBCS_DIAG_BALANCE |
n = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
97 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
98 |
OBCS_DIAG_BALANCE |
& *maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
99 |
OBCS_DIAG_BALANCE |
tileAreaOB(bi,bj,n) = tileAreaOB(bi,bj,n) + tmpA |
|
./pkg/obcs/obcs_fields_load.F |
108 |
OBCS_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
115 |
OBCS_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', iRecP,OBCS_ldRec(bi,bj), iRec0,iRec1, |
|
./pkg/obcs/obcs_fields_load.F |
132 |
OBCS_FIELDS_LOAD |
IF ( iRec1.NE.OBCS_ldRec(bi,bj) ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
143 |
OBCS_FIELDS_LOAD |
& ' (prev=', iRecP, OBCS_ldRec(bi,bj), ' )' |
|
./pkg/obcs/obcs_fields_load.F |
334 |
OBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
336 |
OBCS_FIELDS_LOAD |
OBCS_ldRec(bi,bj) = iRec1 |
|
./pkg/obcs/obcs_fields_load.F |
528 |
OBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
531 |
OBCS_FIELDS_LOAD |
OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
532 |
OBCS_FIELDS_LOAD |
& +aWght*OBEeta1(j,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
554 |
OBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
557 |
OBCS_FIELDS_LOAD |
OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
558 |
OBCS_FIELDS_LOAD |
& +aWght*OBWeta1(j,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
580 |
OBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
583 |
OBCS_FIELDS_LOAD |
OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
584 |
OBCS_FIELDS_LOAD |
& +aWght*OBNeta1(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
606 |
OBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
609 |
OBCS_FIELDS_LOAD |
OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
610 |
OBCS_FIELDS_LOAD |
& +aWght*OBSeta1(i,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
693 |
OBCS_TIME_INTERP_XZ |
INTEGER bi,bj,i,k |
|
./pkg/obcs/obcs_fields_load.F |
695 |
OBCS_TIME_INTERP_XZ |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
699 |
OBCS_TIME_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
700 |
OBCS_TIME_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
744 |
OBCS_TIME_INTERP_YZ |
INTEGER bi,bj,j,k |
|
./pkg/obcs/obcs_fields_load.F |
746 |
OBCS_TIME_INTERP_YZ |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_fields_load.F |
750 |
OBCS_TIME_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
751 |
OBCS_TIME_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
88 |
OBCS_FIELDS_LOAD |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_fixed.F |
100 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
104 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
106 |
OBCS_INIT_FIXED |
DO j=OB_Js(i,bi,bj),1,-1 |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
109 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
124 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
128 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).NE.0. ) |
|
./pkg/obcs/obcs_init_fixed.F |
129 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
144 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
148 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = maskInW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
149 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i-1,j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
150 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
151 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = maskInS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
152 |
OBCS_INIT_FIXED |
& *MAX( OBCS_insideMask(i,j-1,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
153 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
173 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
179 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
180 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
182 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
183 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
184 |
OBCS_INIT_FIXED |
OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
186 |
OBCS_INIT_FIXED |
& ' Sets OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
188 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Ie(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
192 |
OBCS_INIT_FIXED |
& ' OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
202 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
203 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
205 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i+1,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
206 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
207 |
OBCS_INIT_FIXED |
OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_init_fixed.F |
209 |
OBCS_INIT_FIXED |
& ' Sets OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
211 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Iw(j,bi,bj).NE.i ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
215 |
OBCS_INIT_FIXED |
& ' OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
225 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
226 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
228 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
229 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
230 |
OBCS_INIT_FIXED |
OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
232 |
OBCS_INIT_FIXED |
& ' Sets OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
234 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Jn(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
238 |
OBCS_INIT_FIXED |
& ' OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
248 |
OBCS_INIT_FIXED |
IF ( OBCS_insideMask(i,j,bi,bj).LT. |
|
./pkg/obcs/obcs_init_fixed.F |
249 |
OBCS_INIT_FIXED |
& OBCS_insideMask(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
251 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j+1,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
252 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).EQ.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
253 |
OBCS_INIT_FIXED |
OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_init_fixed.F |
255 |
OBCS_INIT_FIXED |
& ' Sets OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
257 |
OBCS_INIT_FIXED |
ELSEIF ( OB_Js(i,bi,bj).NE.j ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
261 |
OBCS_INIT_FIXED |
& ' OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj), |
|
./pkg/obcs/obcs_init_fixed.F |
286 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
293 |
OBCS_INIT_FIXED |
iB = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
296 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
299 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
301 |
OBCS_INIT_FIXED |
IF ( OB_Ie(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
302 |
OBCS_INIT_FIXED |
iB = MAX( iB, OB_Ie(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
304 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
312 |
OBCS_INIT_FIXED |
iB = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
315 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
318 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
320 |
OBCS_INIT_FIXED |
IF ( OB_Iw(jm,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
321 |
OBCS_INIT_FIXED |
iB = MIN( iB, OB_Iw(jm,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
323 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
331 |
OBCS_INIT_FIXED |
jB = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
334 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
337 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
339 |
OBCS_INIT_FIXED |
IF ( OB_Jn(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
340 |
OBCS_INIT_FIXED |
jB = MAX( jB, OB_Jn(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
342 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
350 |
OBCS_INIT_FIXED |
jB = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
353 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
356 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
358 |
OBCS_INIT_FIXED |
IF ( OB_Js(im,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
359 |
OBCS_INIT_FIXED |
jB = MIN( jB, OB_Js(im,bi,bj) ) |
|
./pkg/obcs/obcs_init_fixed.F |
361 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
370 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = maskInC(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
371 |
OBCS_INIT_FIXED |
& *OBCS_insideMask(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
382 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
384 |
OBCS_INIT_FIXED |
tileHasOBE(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
385 |
OBCS_INIT_FIXED |
tileHasOBW(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
386 |
OBCS_INIT_FIXED |
tileHasOBN(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
387 |
OBCS_INIT_FIXED |
tileHasOBS(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
389 |
OBCS_INIT_FIXED |
tileHasOBE(bi,bj) = tileHasOBE(bi,bj) .OR. |
|
./pkg/obcs/obcs_init_fixed.F |
390 |
OBCS_INIT_FIXED |
& ( OB_Ie(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
391 |
OBCS_INIT_FIXED |
tileHasOBW(bi,bj) = tileHasOBW(bi,bj) .OR. |
|
./pkg/obcs/obcs_init_fixed.F |
392 |
OBCS_INIT_FIXED |
& ( OB_Iw(j,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
395 |
OBCS_INIT_FIXED |
tileHasOBN(bi,bj) = tileHasOBN(bi,bj) .OR. |
|
./pkg/obcs/obcs_init_fixed.F |
396 |
OBCS_INIT_FIXED |
& ( OB_Jn(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
397 |
OBCS_INIT_FIXED |
tileHasOBS(bi,bj) = tileHasOBS(bi,bj) .OR. |
|
./pkg/obcs/obcs_init_fixed.F |
398 |
OBCS_INIT_FIXED |
& ( OB_Js(i,bi,bj).NE.OB_indexNone ) |
|
./pkg/obcs/obcs_init_fixed.F |
45 |
OBCS_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_fixed.F |
58 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
62 |
OBCS_INIT_FIXED |
OBCS_insideMask(i,j,bi,bj) = 1. |
|
./pkg/obcs/obcs_init_fixed.F |
71 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
75 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
77 |
OBCS_INIT_FIXED |
DO i=OB_Ie(j,bi,bj),sNx |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
80 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
84 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
86 |
OBCS_INIT_FIXED |
DO i=OB_Iw(j,bi,bj),1,-1 |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
89 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
95 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
97 |
OBCS_INIT_FIXED |
DO j=OB_Jn(i,bi,bj),sNy |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
100 |
OBCS_INIT_VARIABLES |
OBSv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
101 |
OBCS_INIT_VARIABLES |
OBSt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
102 |
OBCS_INIT_VARIABLES |
OBSs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
105 |
OBCS_INIT_VARIABLES |
OBSvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
106 |
OBCS_INIT_VARIABLES |
OBStStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
107 |
OBCS_INIT_VARIABLES |
OBSsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
114 |
OBCS_INIT_VARIABLES |
OBEu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
115 |
OBCS_INIT_VARIABLES |
OBEv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
116 |
OBCS_INIT_VARIABLES |
OBEt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
117 |
OBCS_INIT_VARIABLES |
OBEs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
119 |
OBCS_INIT_VARIABLES |
OBEu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
120 |
OBCS_INIT_VARIABLES |
OBEv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
121 |
OBCS_INIT_VARIABLES |
OBEt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
122 |
OBCS_INIT_VARIABLES |
OBEs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
123 |
OBCS_INIT_VARIABLES |
OBEu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
124 |
OBCS_INIT_VARIABLES |
OBEv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
125 |
OBCS_INIT_VARIABLES |
OBEt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
126 |
OBCS_INIT_VARIABLES |
OBEs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
129 |
OBCS_INIT_VARIABLES |
OBEuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
130 |
OBCS_INIT_VARIABLES |
OBEtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
131 |
OBCS_INIT_VARIABLES |
OBEsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
136 |
OBCS_INIT_VARIABLES |
OBWu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
137 |
OBCS_INIT_VARIABLES |
OBWv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
138 |
OBCS_INIT_VARIABLES |
OBWt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
139 |
OBCS_INIT_VARIABLES |
OBWs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
141 |
OBCS_INIT_VARIABLES |
OBWu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
142 |
OBCS_INIT_VARIABLES |
OBWv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
143 |
OBCS_INIT_VARIABLES |
OBWt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
144 |
OBCS_INIT_VARIABLES |
OBWs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
145 |
OBCS_INIT_VARIABLES |
OBWu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
146 |
OBCS_INIT_VARIABLES |
OBWv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
147 |
OBCS_INIT_VARIABLES |
OBWt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
148 |
OBCS_INIT_VARIABLES |
OBWs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
151 |
OBCS_INIT_VARIABLES |
OBWuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
152 |
OBCS_INIT_VARIABLES |
OBWtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
153 |
OBCS_INIT_VARIABLES |
OBWsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
165 |
OBCS_INIT_VARIABLES |
OBNw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
166 |
OBCS_INIT_VARIABLES |
OBSw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
167 |
OBCS_INIT_VARIABLES |
OBNw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
168 |
OBCS_INIT_VARIABLES |
OBSw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
172 |
OBCS_INIT_VARIABLES |
OBEw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
173 |
OBCS_INIT_VARIABLES |
OBWw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
175 |
OBCS_INIT_VARIABLES |
OBEw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
176 |
OBCS_INIT_VARIABLES |
OBWw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
177 |
OBCS_INIT_VARIABLES |
OBEw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
178 |
OBCS_INIT_VARIABLES |
OBWw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
187 |
OBCS_INIT_VARIABLES |
OBSeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
189 |
OBCS_INIT_VARIABLES |
OBNeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
190 |
OBCS_INIT_VARIABLES |
OBSeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
191 |
OBCS_INIT_VARIABLES |
OBNeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
192 |
OBCS_INIT_VARIABLES |
OBSeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
196 |
OBCS_INIT_VARIABLES |
OBEeta (j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
197 |
OBCS_INIT_VARIABLES |
OBWeta (j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
199 |
OBCS_INIT_VARIABLES |
OBEeta0(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
200 |
OBCS_INIT_VARIABLES |
OBWeta0(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
201 |
OBCS_INIT_VARIABLES |
OBEeta1(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
202 |
OBCS_INIT_VARIABLES |
OBWeta1(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
212 |
OBCS_INIT_VARIABLES |
OBNa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
213 |
OBCS_INIT_VARIABLES |
OBNh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
214 |
OBCS_INIT_VARIABLES |
OBNa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
215 |
OBCS_INIT_VARIABLES |
OBNh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
216 |
OBCS_INIT_VARIABLES |
OBNa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
217 |
OBCS_INIT_VARIABLES |
OBNh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
218 |
OBCS_INIT_VARIABLES |
OBNsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
219 |
OBCS_INIT_VARIABLES |
OBNsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
220 |
OBCS_INIT_VARIABLES |
OBNsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
221 |
OBCS_INIT_VARIABLES |
OBNsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
222 |
OBCS_INIT_VARIABLES |
OBNsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
223 |
OBCS_INIT_VARIABLES |
OBNsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
224 |
OBCS_INIT_VARIABLES |
OBNuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
225 |
OBCS_INIT_VARIABLES |
OBNvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
226 |
OBCS_INIT_VARIABLES |
OBNuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
227 |
OBCS_INIT_VARIABLES |
OBNvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
228 |
OBCS_INIT_VARIABLES |
OBNuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
229 |
OBCS_INIT_VARIABLES |
OBNvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
232 |
OBCS_INIT_VARIABLES |
OBSa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
233 |
OBCS_INIT_VARIABLES |
OBSh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
234 |
OBCS_INIT_VARIABLES |
OBSa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
235 |
OBCS_INIT_VARIABLES |
OBSh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
236 |
OBCS_INIT_VARIABLES |
OBSa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
237 |
OBCS_INIT_VARIABLES |
OBSh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
238 |
OBCS_INIT_VARIABLES |
OBSsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
239 |
OBCS_INIT_VARIABLES |
OBSsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
240 |
OBCS_INIT_VARIABLES |
OBSsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
241 |
OBCS_INIT_VARIABLES |
OBSsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
242 |
OBCS_INIT_VARIABLES |
OBSsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
243 |
OBCS_INIT_VARIABLES |
OBSsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
244 |
OBCS_INIT_VARIABLES |
OBSuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
245 |
OBCS_INIT_VARIABLES |
OBSvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
246 |
OBCS_INIT_VARIABLES |
OBSuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
247 |
OBCS_INIT_VARIABLES |
OBSvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
248 |
OBCS_INIT_VARIABLES |
OBSuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
249 |
OBCS_INIT_VARIABLES |
OBSvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
254 |
OBCS_INIT_VARIABLES |
OBEa (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
255 |
OBCS_INIT_VARIABLES |
OBEh (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
256 |
OBCS_INIT_VARIABLES |
OBEa0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
257 |
OBCS_INIT_VARIABLES |
OBEh0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
258 |
OBCS_INIT_VARIABLES |
OBEa1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
259 |
OBCS_INIT_VARIABLES |
OBEh1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
260 |
OBCS_INIT_VARIABLES |
OBEsl (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
261 |
OBCS_INIT_VARIABLES |
OBEsn (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
262 |
OBCS_INIT_VARIABLES |
OBEsl0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
263 |
OBCS_INIT_VARIABLES |
OBEsn0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
264 |
OBCS_INIT_VARIABLES |
OBEsl1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
265 |
OBCS_INIT_VARIABLES |
OBEsn1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
266 |
OBCS_INIT_VARIABLES |
OBEuice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
267 |
OBCS_INIT_VARIABLES |
OBEvice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
268 |
OBCS_INIT_VARIABLES |
OBEuice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
269 |
OBCS_INIT_VARIABLES |
OBEvice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
270 |
OBCS_INIT_VARIABLES |
OBEuice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
271 |
OBCS_INIT_VARIABLES |
OBEvice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
274 |
OBCS_INIT_VARIABLES |
OBWa (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
275 |
OBCS_INIT_VARIABLES |
OBWh (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
276 |
OBCS_INIT_VARIABLES |
OBWa0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
277 |
OBCS_INIT_VARIABLES |
OBWh0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
278 |
OBCS_INIT_VARIABLES |
OBWa1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
279 |
OBCS_INIT_VARIABLES |
OBWh1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
280 |
OBCS_INIT_VARIABLES |
OBWsl (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
281 |
OBCS_INIT_VARIABLES |
OBWsn (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
282 |
OBCS_INIT_VARIABLES |
OBWsl0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
283 |
OBCS_INIT_VARIABLES |
OBWsn0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
284 |
OBCS_INIT_VARIABLES |
OBWsl1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
285 |
OBCS_INIT_VARIABLES |
OBWsn1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
286 |
OBCS_INIT_VARIABLES |
OBWuice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
287 |
OBCS_INIT_VARIABLES |
OBWvice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
288 |
OBCS_INIT_VARIABLES |
OBWuice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
289 |
OBCS_INIT_VARIABLES |
OBWvice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
290 |
OBCS_INIT_VARIABLES |
OBWuice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
291 |
OBCS_INIT_VARIABLES |
OBWvice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
304 |
OBCS_INIT_VARIABLES |
OBNptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
306 |
OBCS_INIT_VARIABLES |
OBNptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
307 |
OBCS_INIT_VARIABLES |
OBNptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
312 |
OBCS_INIT_VARIABLES |
OBSptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
314 |
OBCS_INIT_VARIABLES |
OBSptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
315 |
OBCS_INIT_VARIABLES |
OBSptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
322 |
OBCS_INIT_VARIABLES |
OBEptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
324 |
OBCS_INIT_VARIABLES |
OBEptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
325 |
OBCS_INIT_VARIABLES |
OBEptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
330 |
OBCS_INIT_VARIABLES |
OBWptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
332 |
OBCS_INIT_VARIABLES |
OBWptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
333 |
OBCS_INIT_VARIABLES |
OBWptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
352 |
OBCS_INIT_VARIABLES |
CALL ORLANSKI_INIT(bi, bj, myThid) |
|
./pkg/obcs/obcs_init_variables.F |
360 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
OBNam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
366 |
OBCS_INIT_VARIABLES |
OBNph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
369 |
OBCS_INIT_VARIABLES |
OBSam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
370 |
OBCS_INIT_VARIABLES |
OBSph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
375 |
OBCS_INIT_VARIABLES |
OBEam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
376 |
OBCS_INIT_VARIABLES |
OBEph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
379 |
OBCS_INIT_VARIABLES |
OBWam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
380 |
OBCS_INIT_VARIABLES |
OBWph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
435 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
437 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
438 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
46 |
OBCS_INIT_VARIABLES |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_variables.F |
479 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
482 |
OBCS_INIT_VARIABLES |
I bi, bj, 0, iTracer, |
|
./pkg/obcs/obcs_init_variables.F |
483 |
OBCS_INIT_VARIABLES |
U ptracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/obcs/obcs_init_variables.F |
59 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
63 |
OBCS_INIT_VARIABLES |
OBCS_ldRec(bi,bj) = 0 |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
73 |
OBCS_INIT_VARIABLES |
OBNu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
74 |
OBCS_INIT_VARIABLES |
OBNv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
75 |
OBCS_INIT_VARIABLES |
OBNt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBNs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBNu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBNv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBNt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
80 |
OBCS_INIT_VARIABLES |
OBNs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBNvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBNtStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBNsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
90 |
OBCS_INIT_VARIABLES |
OBSu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
91 |
OBCS_INIT_VARIABLES |
OBSv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
92 |
OBCS_INIT_VARIABLES |
OBSt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
93 |
OBCS_INIT_VARIABLES |
OBSs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
95 |
OBCS_INIT_VARIABLES |
OBSu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
96 |
OBCS_INIT_VARIABLES |
OBSv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
97 |
OBCS_INIT_VARIABLES |
OBSt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
98 |
OBCS_INIT_VARIABLES |
OBSs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
99 |
OBCS_INIT_VARIABLES |
OBSu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
103 |
OBCS_MON_STATS_EW_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_mon_stats.F |
105 |
OBCS_MON_STATS_EW_RL |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
106 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
107 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
108 |
OBCS_MON_STATS_EW_RL |
IF ( tHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
113 |
OBCS_MON_STATS_EW_RL |
ii = iEb(j,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
118 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
119 |
OBCS_MON_STATS_EW_RL |
& *( mskInC(ii-1,j,bi,bj)-mskInC(ii,j,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
122 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
123 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
131 |
OBCS_MON_STATS_EW_RL |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_mon_stats.F |
132 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
133 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
175 |
OBCS_MON_STATS_EW_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_mon_stats.F |
177 |
OBCS_MON_STATS_EW_RL |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
178 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
179 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
180 |
OBCS_MON_STATS_EW_RL |
IF ( tHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
185 |
OBCS_MON_STATS_EW_RL |
ii = iWb(j,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
190 |
OBCS_MON_STATS_EW_RL |
tmpMask = arrhFac(iB,j,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
191 |
OBCS_MON_STATS_EW_RL |
& *( mskInC(ii+1,j,bi,bj)-mskInC(ii,j,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
195 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
196 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
204 |
OBCS_MON_STATS_EW_RL |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_mon_stats.F |
205 |
OBCS_MON_STATS_EW_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
206 |
OBCS_MON_STATS_EW_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
312 |
OBCS_MON_STATS_NS_RL |
INTEGER bi, bj |
|
./pkg/obcs/obcs_mon_stats.F |
335 |
OBCS_MON_STATS_NS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_mon_stats.F |
337 |
OBCS_MON_STATS_NS_RL |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
338 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
339 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
340 |
OBCS_MON_STATS_NS_RL |
IF ( tHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
345 |
OBCS_MON_STATS_NS_RL |
jj = jNb(i,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
350 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
351 |
OBCS_MON_STATS_NS_RL |
& *( mskInC(i,jj-1,bi,bj)-mskInC(i,jj,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
354 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
355 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
363 |
OBCS_MON_STATS_NS_RL |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_mon_stats.F |
364 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
365 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
407 |
OBCS_MON_STATS_NS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_mon_stats.F |
409 |
OBCS_MON_STATS_NS_RL |
tileArea(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
410 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
411 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/obcs/obcs_mon_stats.F |
412 |
OBCS_MON_STATS_NS_RL |
IF ( tHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
417 |
OBCS_MON_STATS_NS_RL |
jj = jSb(i,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
422 |
OBCS_MON_STATS_NS_RL |
tmpMask = arrhFac(i,jB,km,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
423 |
OBCS_MON_STATS_NS_RL |
& *( mskInC(i,jj+1,bi,bj)-mskInC(i,jj,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
427 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
428 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
436 |
OBCS_MON_STATS_NS_RL |
tileArea(bi,bj) = tileArea(bi,bj) + tmpA |
|
./pkg/obcs/obcs_mon_stats.F |
437 |
OBCS_MON_STATS_NS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
438 |
OBCS_MON_STATS_NS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV |
|
./pkg/obcs/obcs_mon_stats.F |
80 |
OBCS_MON_STATS_EW_RL |
INTEGER bi, bj |
|
./model/src/cycle_ab_tracer.F |
10 |
CYCLE_AB_TRACER |
I bi, bj, |
|
./model/src/cycle_ab_tracer.F |
37 |
CYCLE_AB_TRACER |
INTEGER bi,bj |
|
./pkg/obcs/obcs_readparms.F |
576 |
OBCS_READPARMS |
DO bj = 1, nSy |
|
./pkg/obcs/obcs_readparms.F |
580 |
OBCS_READPARMS |
OB_Jn(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
581 |
OBCS_READPARMS |
OB_Js(i,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
585 |
OBCS_READPARMS |
OB_Ie(j,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
586 |
OBCS_READPARMS |
OB_Iw(J,bi,bj) = OB_indexNone |
|
./pkg/obcs/obcs_readparms.F |
592 |
OBCS_READPARMS |
tN = W2_myTileList(bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
59 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_readparms.F |
603 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
610 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
624 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
631 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jG) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
643 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
655 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
663 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
675 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
677 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
683 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_save_uv_n.F |
102 |
OBCS_SAVE_UV_N |
OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
103 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
110 |
OBCS_SAVE_UV_N |
IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
113 |
OBCS_SAVE_UV_N |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
116 |
OBCS_SAVE_UV_N |
OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
117 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
40 |
OBCS_SAVE_UV_N |
INTEGER bi, bj |
|
./pkg/obcs/obcs_save_uv_n.F |
67 |
OBCS_SAVE_UV_N |
IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
70 |
OBCS_SAVE_UV_N |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
73 |
OBCS_SAVE_UV_N |
OBNvStevens(i,k,bi,bj) = vFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
74 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
81 |
OBCS_SAVE_UV_N |
IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
84 |
OBCS_SAVE_UV_N |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
87 |
OBCS_SAVE_UV_N |
OBSvStevens(i,k,bi,bj) = vFld(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
88 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
96 |
OBCS_SAVE_UV_N |
IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN |
|
./pkg/obcs/obcs_save_uv_n.F |
99 |
OBCS_SAVE_UV_N |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
9 |
OBCS_SAVE_UV_N |
SUBROUTINE OBCS_SAVE_UV_N( bi, bj, iMin, iMax, jMin, jMax, kArg, |
|
./pkg/obcs/obcs_seaice_sponge.F |
109 |
OBCS_SEAICE_SPONGE_A |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
111 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
113 |
OBCS_SEAICE_SPONGE_A |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
124 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
125 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
126 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBEa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
136 |
OBCS_SEAICE_SPONGE_A |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
138 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
140 |
OBCS_SEAICE_SPONGE_A |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
151 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
152 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
153 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBWa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
203 |
OBCS_SEAICE_SPONGE_H |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
207 |
OBCS_SEAICE_SPONGE_H |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_seaice_sponge.F |
212 |
OBCS_SEAICE_SPONGE_H |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
214 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
216 |
OBCS_SEAICE_SPONGE_H |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
227 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
228 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
229 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBNh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
239 |
OBCS_SEAICE_SPONGE_H |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
241 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
243 |
OBCS_SEAICE_SPONGE_H |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
254 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
255 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
256 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBSh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
266 |
OBCS_SEAICE_SPONGE_H |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
268 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
270 |
OBCS_SEAICE_SPONGE_H |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
281 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
282 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
283 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBEh(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
293 |
OBCS_SEAICE_SPONGE_H |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
295 |
OBCS_SEAICE_SPONGE_H |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
297 |
OBCS_SEAICE_SPONGE_H |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
308 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
309 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
310 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBWh(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
360 |
OBCS_SEAICE_SPONGE_SL |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
364 |
OBCS_SEAICE_SPONGE_SL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_seaice_sponge.F |
369 |
OBCS_SEAICE_SPONGE_SL |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
371 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
373 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
384 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
385 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
386 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBNsl(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
396 |
OBCS_SEAICE_SPONGE_SL |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
398 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
400 |
OBCS_SEAICE_SPONGE_SL |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
411 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
412 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
413 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBSsl(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
423 |
OBCS_SEAICE_SPONGE_SL |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
425 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
427 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
438 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
439 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
440 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBEsl(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
450 |
OBCS_SEAICE_SPONGE_SL |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
452 |
OBCS_SEAICE_SPONGE_SL |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
454 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
465 |
OBCS_SEAICE_SPONGE_SL |
HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
466 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
467 |
OBCS_SEAICE_SPONGE_SL |
& * ( HSALT(i,j,bi,bj) - OBWsl(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
46 |
OBCS_SEAICE_SPONGE_A |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
50 |
OBCS_SEAICE_SPONGE_A |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_seaice_sponge.F |
517 |
OBCS_SEAICE_SPONGE_SN |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
521 |
OBCS_SEAICE_SPONGE_SN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/obcs/obcs_seaice_sponge.F |
526 |
OBCS_SEAICE_SPONGE_SN |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
528 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
530 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
541 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
542 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
543 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBNsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
553 |
OBCS_SEAICE_SPONGE_SN |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
555 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
557 |
OBCS_SEAICE_SPONGE_SN |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
55 |
OBCS_SEAICE_SPONGE_A |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
568 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
569 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
570 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBSsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
57 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
580 |
OBCS_SEAICE_SPONGE_SN |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
582 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
584 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
595 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
596 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
597 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBEsn(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
59 |
OBCS_SEAICE_SPONGE_A |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
607 |
OBCS_SEAICE_SPONGE_SN |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
609 |
OBCS_SEAICE_SPONGE_SN |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
611 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
622 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
623 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
624 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBWsn(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
70 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
71 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
72 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBNa(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
82 |
OBCS_SEAICE_SPONGE_A |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
84 |
OBCS_SEAICE_SPONGE_A |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
86 |
OBCS_SEAICE_SPONGE_A |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
97 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
98 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
99 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBSa(i,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
107 |
OBCS_SET_CONNECT |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_set_connect.F |
109 |
OBCS_SET_CONNECT |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
112 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
124 |
OBCS_SET_CONNECT |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_set_connect.F |
126 |
OBCS_SET_CONNECT |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
129 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = NINT( tmpYZ(j,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
141 |
OBCS_SET_CONNECT |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_set_connect.F |
143 |
OBCS_SET_CONNECT |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
146 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = NINT( tmpYZ(j,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
157 |
OBCS_SET_CONNECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_set_connect.F |
161 |
OBCS_SET_CONNECT |
IF (OB_Jn(i,bi,bj).EQ.OB_indexNone) OBN_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
162 |
OBCS_SET_CONNECT |
IF (OB_Js(i,bi,bj).EQ.OB_indexNone) OBS_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
165 |
OBCS_SET_CONNECT |
IF (OB_Ie(j,bi,bj).EQ.OB_indexNone) OBE_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
166 |
OBCS_SET_CONNECT |
IF (OB_Iw(j,bi,bj).EQ.OB_indexNone) OBW_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
177 |
OBCS_SET_CONNECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_set_connect.F |
182 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
183 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
186 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
187 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
191 |
OBCS_SET_CONNECT |
numLocal(bi,bj) = 0 |
|
./pkg/obcs/obcs_set_connect.F |
193 |
OBCS_SET_CONNECT |
listLocal(n,bi,bj) = 0 |
|
./pkg/obcs/obcs_set_connect.F |
202 |
OBCS_SET_CONNECT |
numLocal(bi,bj) = numLocal(bi,bj) + 1 |
|
./pkg/obcs/obcs_set_connect.F |
203 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).LE.OBCS_maxConnect ) |
|
./pkg/obcs/obcs_set_connect.F |
204 |
OBCS_SET_CONNECT |
& listLocal(numLocal(bi,bj),bi,bj) = newConnect |
|
./pkg/obcs/obcs_set_connect.F |
211 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).GT.OBCS_maxConnect ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
213 |
OBCS_SET_CONNECT |
& 'k=', k, ' numLocal(', bi,',',bj,')=', numLocal(bi,bj), |
|
./pkg/obcs/obcs_set_connect.F |
219 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).EQ.0 ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
221 |
OBCS_SET_CONNECT |
& bi, bj, ' , numLocal=', numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
224 |
OBCS_SET_CONNECT |
& bi, bj, ' , numLocal=', numLocal(bi,bj), |
|
./pkg/obcs/obcs_set_connect.F |
225 |
OBCS_SET_CONNECT |
& ' , listLocal:', listLocal(1,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
229 |
OBCS_SET_CONNECT |
DO j=2,numLocal(bi,bj),15 |
|
./pkg/obcs/obcs_set_connect.F |
230 |
OBCS_SET_CONNECT |
n = MIN(numLocal(bi,bj),j+14) |
|
./pkg/obcs/obcs_set_connect.F |
232 |
OBCS_SET_CONNECT |
& ' ... ', (listLocal(i,bi,bj),i=j,n) |
|
./pkg/obcs/obcs_set_connect.F |
237 |
OBCS_SET_CONNECT |
DO n=1,numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
238 |
OBCS_SET_CONNECT |
maxConnect = MAX( maxConnect, listLocal(n,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
252 |
OBCS_SET_CONNECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_set_connect.F |
254 |
OBCS_SET_CONNECT |
DO n=1,numLocal(bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
255 |
OBCS_SET_CONNECT |
IF ( listLocal(n,bi,bj).EQ.j ) tmpRL = oneRL |
|
./pkg/obcs/obcs_set_connect.F |
290 |
OBCS_SET_CONNECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_set_connect.F |
295 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
296 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
299 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
300 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
312 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = tmpConnect(i) |
|
./pkg/obcs/obcs_set_connect.F |
313 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = tmpConnect(sNx+i) |
|
./pkg/obcs/obcs_set_connect.F |
316 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = tmpConnect(sNx*2+j) |
|
./pkg/obcs/obcs_set_connect.F |
317 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = tmpConnect(sNx*2+sNy+j) |
|
./pkg/obcs/obcs_set_connect.F |
41 |
OBCS_SET_CONNECT |
INTEGER bi, bj |
|
./pkg/obcs/obcs_set_connect.F |
58 |
OBCS_SET_CONNECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/obcs/obcs_set_connect.F |
64 |
OBCS_SET_CONNECT |
IF ( tileHasOBN(bi,bj) ) idN = 1 |
|
./pkg/obcs/obcs_set_connect.F |
65 |
OBCS_SET_CONNECT |
IF ( tileHasOBS(bi,bj) ) idS = 1 |
|
./pkg/obcs/obcs_set_connect.F |
66 |
OBCS_SET_CONNECT |
IF ( tileHasOBE(bi,bj) ) idE = 1 |
|
./pkg/obcs/obcs_set_connect.F |
67 |
OBCS_SET_CONNECT |
IF ( tileHasOBW(bi,bj) ) idW = 1 |
|
./pkg/obcs/obcs_set_connect.F |
70 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = idN |
|
./pkg/obcs/obcs_set_connect.F |
71 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = idS |
|
./pkg/obcs/obcs_set_connect.F |
74 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = idE |
|
./pkg/obcs/obcs_set_connect.F |
75 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = idW |
|
./pkg/obcs/obcs_set_connect.F |
90 |
OBCS_SET_CONNECT |
DO bj = 1,nSy |
|
./pkg/obcs/obcs_set_connect.F |
92 |
OBCS_SET_CONNECT |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
95 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
101 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
104 |
OBCS_SPONGE_U |
urelax= OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
108 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
121 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
122 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
134 |
OBCS_SPONGE_U |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
136 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
139 |
OBCS_SPONGE_U |
urelax=OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
142 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
156 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
157 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
169 |
OBCS_SPONGE_U |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
174 |
OBCS_SPONGE_U |
urelax= OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
177 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
18 |
OBCS_SPONGE_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
191 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
192 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
212 |
OBCS_SPONGE_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
240 |
OBCS_SPONGE_V |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
258 |
OBCS_SPONGE_V |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
260 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
vrelax= OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
266 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
267 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
280 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
281 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
293 |
OBCS_SPONGE_V |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
295 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
vrelax= OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
301 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
302 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
315 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
328 |
OBCS_SPONGE_V |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
330 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
vrelax= OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
336 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
350 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
363 |
OBCS_SPONGE_V |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
365 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
vrelax = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
371 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
385 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
386 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
406 |
OBCS_SPONGE_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
438 |
OBCS_SPONGE_T |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
455 |
OBCS_SPONGE_T |
act2 = bj - myByLo(myThid) |
|
./pkg/obcs/obcs_sponge.F |
46 |
OBCS_SPONGE_U |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
473 |
OBCS_SPONGE_T |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
475 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
477 |
OBCS_SPONGE_T |
IF (OBNt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
479 |
OBCS_SPONGE_T |
trelax = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
482 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
483 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
496 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
515 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
517 |
OBCS_SPONGE_T |
IF (OBSt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
519 |
OBCS_SPONGE_T |
trelax= OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
522 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
523 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
537 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
553 |
OBCS_SPONGE_T |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
557 |
OBCS_SPONGE_T |
IF (OBEt(j,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
559 |
OBCS_SPONGE_T |
trelax = OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
562 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
563 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
577 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
593 |
OBCS_SPONGE_T |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
595 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
IF (OBWt(j,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
599 |
OBCS_SPONGE_T |
trelax= OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
602 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
616 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
617 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
638 |
OBCS_SPONGE_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
66 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
670 |
OBCS_SPONGE_S |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
687 |
OBCS_SPONGE_S |
act2 = bj - myByLo(myThid) |
|
./pkg/obcs/obcs_sponge.F |
69 |
OBCS_SPONGE_U |
urelax = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
707 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
709 |
OBCS_SPONGE_S |
IF (OBNs(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
711 |
OBCS_SPONGE_S |
srelax= OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
714 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
715 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
72 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
747 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
749 |
OBCS_SPONGE_S |
IF (OBSs(i,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
751 |
OBCS_SPONGE_S |
srelax= OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
754 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
755 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
769 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
785 |
OBCS_SPONGE_S |
IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
789 |
OBCS_SPONGE_S |
IF (OBEs(j,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
791 |
OBCS_SPONGE_S |
srelax= OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
794 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
795 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
808 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
825 |
OBCS_SPONGE_S |
IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_sponge.F |
827 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
829 |
OBCS_SPONGE_S |
IF (OBWs(j,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
831 |
OBCS_SPONGE_S |
srelax= OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
834 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
835 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
848 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
849 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
86 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
87 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
103 |
OBCS_U1_ADV_TRACER |
& *( maskInC(i-1,j,bi,bj) - maskInC(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
116 |
OBCS_U1_ADV_TRACER |
& maskInC(i-1,j,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
12 |
OBCS_U1_ADV_TRACER |
I trIdentity, bi, bj, k, |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
133 |
OBCS_U1_ADV_TRACER |
& *( maskInC(i,j-1,bi,bj) - maskInC(i,j,bi,bj) ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
146 |
OBCS_U1_ADV_TRACER |
& maskInC(i,j-1,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
51 |
OBCS_U1_ADV_TRACER |
INTEGER bi, bj, k |
|
./pkg/obcs/orlanski_east.F |
108 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
111 |
ORLANSKI_EAST |
IF ((UE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
112 |
ORLANSKI_EAST |
& (UE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
115 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
116 |
ORLANSKI_EAST |
& (ab1*UE_STORE_2(J,K,bi,bj) + ab2*UE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
126 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
128 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_east.F |
129 |
ORLANSKI_EAST |
& )+f2*CVEL_UE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
133 |
ORLANSKI_EAST |
& CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
134 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
135 |
ORLANSKI_EAST |
& ab2*(UE_STORE_4(J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
137 |
ORLANSKI_EAST |
IF ((VE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
138 |
ORLANSKI_EAST |
& (VE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
141 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
142 |
ORLANSKI_EAST |
& (ab1*VE_STORE_2(J,K,bi,bj) + ab2*VE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
152 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
154 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
155 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_VE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
159 |
ORLANSKI_EAST |
& CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
160 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
161 |
ORLANSKI_EAST |
& ab2*(VE_STORE_4(J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
163 |
ORLANSKI_EAST |
IF ((TE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
164 |
ORLANSKI_EAST |
& (TE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
167 |
ORLANSKI_EAST |
CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
168 |
ORLANSKI_EAST |
& (ab1*TE_STORE_2(J,K,bi,bj) + ab2*TE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
178 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
180 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
181 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_TE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
184 |
ORLANSKI_EAST |
OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
185 |
ORLANSKI_EAST |
& CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
186 |
ORLANSKI_EAST |
& (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
187 |
ORLANSKI_EAST |
& ab2*(TE_STORE_4(J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
189 |
ORLANSKI_EAST |
IF ((SE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
190 |
ORLANSKI_EAST |
& (SE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
193 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
194 |
ORLANSKI_EAST |
& (ab1*SE_STORE_2(J,K,bi,bj) + ab2*SE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
204 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
206 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
207 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_SE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
211 |
ORLANSKI_EAST |
& CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
212 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
213 |
ORLANSKI_EAST |
& ab2*(SE_STORE_4(J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
217 |
ORLANSKI_EAST |
IF ((WE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
218 |
ORLANSKI_EAST |
& (WE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
221 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
222 |
ORLANSKI_EAST |
& (ab1*WE_STORE_2(J,K,bi,bj)+ab2*WE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
232 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
234 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_east.F |
235 |
ORLANSKI_EAST |
& + f2*CVEL_WE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
239 |
ORLANSKI_EAST |
& CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
240 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
241 |
ORLANSKI_EAST |
& ab2*(WE_STORE_4(J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
247 |
ORLANSKI_EAST |
UE_STORE_3(J,K,bi,bj)=UE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
251 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
252 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
255 |
ORLANSKI_EAST |
VE_STORE_3(J,K,bi,bj)=VE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
259 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
260 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
263 |
ORLANSKI_EAST |
TE_STORE_3(J,K,bi,bj)=TE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
265 |
ORLANSKI_EAST |
TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
266 |
ORLANSKI_EAST |
& theta(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
267 |
ORLANSKI_EAST |
TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
268 |
ORLANSKI_EAST |
TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_3(J,K,bi,bj)=SE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
275 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
276 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_3(J,K,bi,bj)=WE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
284 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
285 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
286 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
7 |
ORLANSKI_EAST |
SUBROUTINE ORLANSKI_EAST( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_east.F |
80 |
ORLANSKI_EAST |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_init.F |
100 |
ORLANSKI_INIT |
UE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
101 |
ORLANSKI_INIT |
VE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
102 |
ORLANSKI_INIT |
TE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
103 |
ORLANSKI_INIT |
SE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
104 |
ORLANSKI_INIT |
UW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
105 |
ORLANSKI_INIT |
VW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
106 |
ORLANSKI_INIT |
TW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
107 |
ORLANSKI_INIT |
SW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
108 |
ORLANSKI_INIT |
UW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
109 |
ORLANSKI_INIT |
VW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
110 |
ORLANSKI_INIT |
TW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
111 |
ORLANSKI_INIT |
SW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
112 |
ORLANSKI_INIT |
UW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
113 |
ORLANSKI_INIT |
VW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
114 |
ORLANSKI_INIT |
TW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
115 |
ORLANSKI_INIT |
SW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
116 |
ORLANSKI_INIT |
UW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
117 |
ORLANSKI_INIT |
VW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
118 |
ORLANSKI_INIT |
TW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
119 |
ORLANSKI_INIT |
SW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
120 |
ORLANSKI_INIT |
CVEL_UE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
121 |
ORLANSKI_INIT |
CVEL_VE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
122 |
ORLANSKI_INIT |
CVEL_TE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
123 |
ORLANSKI_INIT |
CVEL_SE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
124 |
ORLANSKI_INIT |
CVEL_UW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
125 |
ORLANSKI_INIT |
CVEL_VW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
126 |
ORLANSKI_INIT |
CVEL_TW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
127 |
ORLANSKI_INIT |
CVEL_SW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
129 |
ORLANSKI_INIT |
WE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
130 |
ORLANSKI_INIT |
WE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
131 |
ORLANSKI_INIT |
WE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
132 |
ORLANSKI_INIT |
WE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
133 |
ORLANSKI_INIT |
WW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
134 |
ORLANSKI_INIT |
WW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
135 |
ORLANSKI_INIT |
WW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
136 |
ORLANSKI_INIT |
WW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
137 |
ORLANSKI_INIT |
CVEL_WE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
138 |
ORLANSKI_INIT |
CVEL_WW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
25 |
ORLANSKI_INIT |
INTEGER bi, bj, myThid |
|
./pkg/obcs/orlanski_init.F |
34 |
ORLANSKI_INIT |
UN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
35 |
ORLANSKI_INIT |
VN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
36 |
ORLANSKI_INIT |
TN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
37 |
ORLANSKI_INIT |
SN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
38 |
ORLANSKI_INIT |
UN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
39 |
ORLANSKI_INIT |
VN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
40 |
ORLANSKI_INIT |
TN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
41 |
ORLANSKI_INIT |
SN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
42 |
ORLANSKI_INIT |
UN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
43 |
ORLANSKI_INIT |
VN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
44 |
ORLANSKI_INIT |
TN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
45 |
ORLANSKI_INIT |
SN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
46 |
ORLANSKI_INIT |
UN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
47 |
ORLANSKI_INIT |
VN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
48 |
ORLANSKI_INIT |
TN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
49 |
ORLANSKI_INIT |
SN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
50 |
ORLANSKI_INIT |
US_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
51 |
ORLANSKI_INIT |
VS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
52 |
ORLANSKI_INIT |
TS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
53 |
ORLANSKI_INIT |
SS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
54 |
ORLANSKI_INIT |
US_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
55 |
ORLANSKI_INIT |
VS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
56 |
ORLANSKI_INIT |
TS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
57 |
ORLANSKI_INIT |
SS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
58 |
ORLANSKI_INIT |
US_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
59 |
ORLANSKI_INIT |
VS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
60 |
ORLANSKI_INIT |
TS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
61 |
ORLANSKI_INIT |
SS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
62 |
ORLANSKI_INIT |
US_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
63 |
ORLANSKI_INIT |
VS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
64 |
ORLANSKI_INIT |
TS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
65 |
ORLANSKI_INIT |
SS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
66 |
ORLANSKI_INIT |
CVEL_UN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
67 |
ORLANSKI_INIT |
CVEL_VN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
68 |
ORLANSKI_INIT |
CVEL_TN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
69 |
ORLANSKI_INIT |
CVEL_SN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
6 |
ORLANSKI_INIT |
SUBROUTINE ORLANSKI_INIT(bi, bj, myThid ) |
|
./pkg/obcs/orlanski_init.F |
70 |
ORLANSKI_INIT |
CVEL_US(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
71 |
ORLANSKI_INIT |
CVEL_VS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
72 |
ORLANSKI_INIT |
CVEL_TS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
73 |
ORLANSKI_INIT |
CVEL_SS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
75 |
ORLANSKI_INIT |
WN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
76 |
ORLANSKI_INIT |
WN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
77 |
ORLANSKI_INIT |
WN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
78 |
ORLANSKI_INIT |
WN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
79 |
ORLANSKI_INIT |
WS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
80 |
ORLANSKI_INIT |
WS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
81 |
ORLANSKI_INIT |
WS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
82 |
ORLANSKI_INIT |
WS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
83 |
ORLANSKI_INIT |
CVEL_WN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
84 |
ORLANSKI_INIT |
CVEL_WS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
88 |
ORLANSKI_INIT |
UE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
89 |
ORLANSKI_INIT |
VE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
90 |
ORLANSKI_INIT |
TE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
91 |
ORLANSKI_INIT |
SE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
92 |
ORLANSKI_INIT |
UE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
93 |
ORLANSKI_INIT |
VE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
94 |
ORLANSKI_INIT |
TE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
95 |
ORLANSKI_INIT |
SE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
96 |
ORLANSKI_INIT |
UE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
97 |
ORLANSKI_INIT |
VE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
98 |
ORLANSKI_INIT |
TE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
99 |
ORLANSKI_INIT |
SE_STORE_3(J,K,bi,bj)=0. |
|
./model/src/cycle_tracer.F |
10 |
CYCLE_TRACER |
I bi, bj, |
|
./model/src/cycle_tracer.F |
33 |
CYCLE_TRACER |
INTEGER bi,bj |
|
./pkg/obcs/orlanski_north.F |
102 |
ORLANSKI_NORTH |
IF ((UN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
103 |
ORLANSKI_NORTH |
& (UN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
106 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
107 |
ORLANSKI_NORTH |
& (ab1*UN_STORE_2(I,K,bi,bj) + ab2*UN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
114 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
& f2*CVEL_UN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
118 |
ORLANSKI_NORTH |
& CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
119 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
120 |
ORLANSKI_NORTH |
& ab2*(UN_STORE_4(I,K,bi,bj)-UN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
122 |
ORLANSKI_NORTH |
IF ((VN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
123 |
ORLANSKI_NORTH |
& (VN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
126 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
127 |
ORLANSKI_NORTH |
& (ab1*VN_STORE_2(I,K,bi,bj) + ab2*VN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
134 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
& f2*CVEL_VN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
138 |
ORLANSKI_NORTH |
& CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
139 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
140 |
ORLANSKI_NORTH |
& ab2*(VN_STORE_4(I,K,bi,bj)-VN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
142 |
ORLANSKI_NORTH |
IF ((TN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
143 |
ORLANSKI_NORTH |
& (TN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
146 |
ORLANSKI_NORTH |
CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
147 |
ORLANSKI_NORTH |
& (ab1*TN_STORE_2(I,K,bi,bj) + ab2*TN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
154 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
155 |
ORLANSKI_NORTH |
& f2*CVEL_TN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
157 |
ORLANSKI_NORTH |
OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
158 |
ORLANSKI_NORTH |
& CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
159 |
ORLANSKI_NORTH |
& (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
160 |
ORLANSKI_NORTH |
& ab2*(TN_STORE_4(I,K,bi,bj)-TN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
162 |
ORLANSKI_NORTH |
IF ((SN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
163 |
ORLANSKI_NORTH |
& (SN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
166 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
167 |
ORLANSKI_NORTH |
& (ab1*SN_STORE_2(I,K,bi,bj) + ab2*SN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
174 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
& f2*CVEL_SN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
178 |
ORLANSKI_NORTH |
& CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
179 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
180 |
ORLANSKI_NORTH |
& ab2*(SN_STORE_4(I,K,bi,bj)-SN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
184 |
ORLANSKI_NORTH |
IF ((WN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
185 |
ORLANSKI_NORTH |
& (WN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
188 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
189 |
ORLANSKI_NORTH |
& (ab1*WN_STORE_2(I,K,bi,bj)+ab2*WN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
196 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
& + f2*CVEL_WN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
200 |
ORLANSKI_NORTH |
& CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
201 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
202 |
ORLANSKI_NORTH |
& ab2*(WN_STORE_4(I,K,bi,bj)-WN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
208 |
ORLANSKI_NORTH |
UN_STORE_3(I,K,bi,bj)=UN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
212 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
213 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
216 |
ORLANSKI_NORTH |
VN_STORE_3(I,K,bi,bj)=VN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
220 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
221 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
224 |
ORLANSKI_NORTH |
TN_STORE_3(I,K,bi,bj)=TN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
226 |
ORLANSKI_NORTH |
TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
227 |
ORLANSKI_NORTH |
& theta(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
228 |
ORLANSKI_NORTH |
TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
229 |
ORLANSKI_NORTH |
TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_3(I,K,bi,bj)=SN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
236 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
237 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_3(I,K,bi,bj)=WN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
245 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
246 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
247 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
6 |
ORLANSKI_NORTH |
SUBROUTINE ORLANSKI_NORTH( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_north.F |
71 |
ORLANSKI_NORTH |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_north.F |
99 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
102 |
ORLANSKI_SOUTH |
IF ((US_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
103 |
ORLANSKI_SOUTH |
& (US_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
106 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
107 |
ORLANSKI_SOUTH |
& (ab1*US_STORE_2(I,K,bi,bj) + ab2*US_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
114 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
& f2*CVEL_US(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
118 |
ORLANSKI_SOUTH |
& CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
119 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
120 |
ORLANSKI_SOUTH |
& ab2*(US_STORE_1(I,K,bi,bj)-US_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
122 |
ORLANSKI_SOUTH |
IF ((VS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
123 |
ORLANSKI_SOUTH |
& (VS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
126 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
127 |
ORLANSKI_SOUTH |
& (ab1*VS_STORE_2(I,K,bi,bj) + ab2*VS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
134 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
& f2*CVEL_VS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
138 |
ORLANSKI_SOUTH |
& CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
139 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
140 |
ORLANSKI_SOUTH |
& ab2*(VS_STORE_1(I,K,bi,bj)-VS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
142 |
ORLANSKI_SOUTH |
IF ((TS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
143 |
ORLANSKI_SOUTH |
& (TS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
146 |
ORLANSKI_SOUTH |
CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
147 |
ORLANSKI_SOUTH |
& (ab1*TS_STORE_2(I,K,bi,bj) + ab2*TS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
154 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
155 |
ORLANSKI_SOUTH |
& f2*CVEL_TS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
157 |
ORLANSKI_SOUTH |
OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
158 |
ORLANSKI_SOUTH |
& CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
159 |
ORLANSKI_SOUTH |
& (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
160 |
ORLANSKI_SOUTH |
& ab2*(TS_STORE_1(I,K,bi,bj)-TS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
162 |
ORLANSKI_SOUTH |
IF ((SS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
163 |
ORLANSKI_SOUTH |
& (SS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
166 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
167 |
ORLANSKI_SOUTH |
& (ab1*SS_STORE_2(I,K,bi,bj) + ab2*SS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
174 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
& f2*CVEL_SS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
178 |
ORLANSKI_SOUTH |
& CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
179 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
180 |
ORLANSKI_SOUTH |
& ab2*(SS_STORE_1(I,K,bi,bj)-SS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
184 |
ORLANSKI_SOUTH |
IF ((WS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
185 |
ORLANSKI_SOUTH |
& (WS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
188 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
189 |
ORLANSKI_SOUTH |
& (ab1*WS_STORE_2(I,K,bi,bj)+ab2*WS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
196 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
& + f2*CVEL_WS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
200 |
ORLANSKI_SOUTH |
& CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
201 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
202 |
ORLANSKI_SOUTH |
& ab2*(WS_STORE_1(I,K,bi,bj)-WS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
208 |
ORLANSKI_SOUTH |
US_STORE_3(I,K,bi,bj)=US_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
212 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
213 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
216 |
ORLANSKI_SOUTH |
VS_STORE_3(I,K,bi,bj)=VS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
220 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
221 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
224 |
ORLANSKI_SOUTH |
TS_STORE_3(I,K,bi,bj)=TS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
226 |
ORLANSKI_SOUTH |
TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
227 |
ORLANSKI_SOUTH |
& theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
228 |
ORLANSKI_SOUTH |
TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
229 |
ORLANSKI_SOUTH |
TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_3(I,K,bi,bj)=SS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
236 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
237 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_3(I,K,bi,bj)=WS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
245 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
246 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
247 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
6 |
ORLANSKI_SOUTH |
SUBROUTINE ORLANSKI_SOUTH( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_south.F |
71 |
ORLANSKI_SOUTH |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_south.F |
99 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
110 |
ORLANSKI_WEST |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
113 |
ORLANSKI_WEST |
IF ((UW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
114 |
ORLANSKI_WEST |
& (UW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
117 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
118 |
ORLANSKI_WEST |
& (ab1*UW_STORE_2(J,K,bi,bj) + ab2*UW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
128 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
130 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
131 |
ORLANSKI_WEST |
& )+f2*CVEL_UW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
135 |
ORLANSKI_WEST |
& CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
136 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
137 |
ORLANSKI_WEST |
& ab2*(UW_STORE_1(J,K,bi,bj)-UW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
139 |
ORLANSKI_WEST |
IF ((VW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
140 |
ORLANSKI_WEST |
& (VW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
143 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
144 |
ORLANSKI_WEST |
& (ab1*VW_STORE_2(J,K,bi,bj) + ab2*VW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
154 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
156 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
157 |
ORLANSKI_WEST |
& )+f2*CVEL_VW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
161 |
ORLANSKI_WEST |
& CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
162 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
163 |
ORLANSKI_WEST |
& ab2*(VW_STORE_1(J,K,bi,bj)-VW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
165 |
ORLANSKI_WEST |
IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
166 |
ORLANSKI_WEST |
& (TW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
169 |
ORLANSKI_WEST |
CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
170 |
ORLANSKI_WEST |
& (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
180 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
182 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
183 |
ORLANSKI_WEST |
& )+f2*CVEL_TW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
186 |
ORLANSKI_WEST |
OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
187 |
ORLANSKI_WEST |
& CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
188 |
ORLANSKI_WEST |
& (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
189 |
ORLANSKI_WEST |
& ab2*(TW_STORE_1(J,K,bi,bj)-TW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
191 |
ORLANSKI_WEST |
IF ((SW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
192 |
ORLANSKI_WEST |
& (SW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
195 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
196 |
ORLANSKI_WEST |
& (ab1*SW_STORE_2(J,K,bi,bj) + ab2*SW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
206 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
208 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
209 |
ORLANSKI_WEST |
& )+f2*CVEL_SW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
213 |
ORLANSKI_WEST |
& CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
214 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
215 |
ORLANSKI_WEST |
& ab2*(SW_STORE_1(J,K,bi,bj)-SW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
219 |
ORLANSKI_WEST |
IF ((WW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
220 |
ORLANSKI_WEST |
& (WW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
223 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
224 |
ORLANSKI_WEST |
& (ab1*WW_STORE_2(J,K,bi,bj)+ab2*WW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
234 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
236 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_west.F |
237 |
ORLANSKI_WEST |
& + f2*CVEL_WW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
241 |
ORLANSKI_WEST |
& CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
242 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
243 |
ORLANSKI_WEST |
& ab2*(WW_STORE_1(J,K,bi,bj)-WW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
249 |
ORLANSKI_WEST |
UW_STORE_3(J,K,bi,bj)=UW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
253 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
254 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
257 |
ORLANSKI_WEST |
VW_STORE_3(J,K,bi,bj)=VW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
261 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
262 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
265 |
ORLANSKI_WEST |
TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
267 |
ORLANSKI_WEST |
TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
268 |
ORLANSKI_WEST |
& theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
269 |
ORLANSKI_WEST |
TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
270 |
ORLANSKI_WEST |
TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_3(J,K,bi,bj)=SW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
277 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
278 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_3(J,K,bi,bj)=WW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
286 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
287 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
288 |
ORLANSKI_WEST |
WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
7 |
ORLANSKI_WEST |
SUBROUTINE ORLANSKI_WEST( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_west.F |
82 |
ORLANSKI_WEST |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
107 |
CPL_DIAGNOSTICS_FILL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
112 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
113 |
CPL_DIAGNOSTICS_FILL |
& * sIceThick_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
117 |
CPL_DIAGNOSTICS_FILL |
I sIceQ1_cpl(1-OLx,1-OLy,bi,bj), |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
119 |
CPL_DIAGNOSTICS_FILL |
I 0, 1, 2,bi,bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
121 |
CPL_DIAGNOSTICS_FILL |
I sIceQ2_cpl(1-OLx,1-OLy,bi,bj), |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
123 |
CPL_DIAGNOSTICS_FILL |
I 0, 1, 2,bi,bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
42 |
CPL_DIAGNOSTICS_FILL |
INTEGER bi,bj |
|
./model/src/diags_oceanic_surf_flux.F |
117 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
121 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
123 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
125 |
DIAGS_OCEANIC_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj)) |
|
./model/src/diags_oceanic_surf_flux.F |
134 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
135 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
153 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
157 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
158 |
DIAGS_OCEANIC_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
167 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
168 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
49 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
101 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
102 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
103 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
104 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
105 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
106 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
107 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
108 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
109 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
110 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
111 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
112 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
114 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( aCO2tave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
115 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( sWSpdtave,1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
116 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( iceftave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
117 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( fCO2tave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
119 |
CPL_INI_VARS |
CPL_timeAve(bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
47 |
CPL_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
ocMxlD2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
SSTocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
SSSocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
vSqocn2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
fluxCO2cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
sIceFrac_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
sIceThick_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
sIceSnowH_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
66 |
CPL_INI_VARS |
sIceQ1_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
sIceQ2_cpl (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
70 |
CPL_INI_VARS |
atmSLPr (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
71 |
CPL_INI_VARS |
HeatFlux (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
qShortWave(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
tauX (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
tauY (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
FWflux (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
76 |
CPL_INI_VARS |
iceSaltFlx(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
77 |
CPL_INI_VARS |
seaIceMass(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
79 |
CPL_INI_VARS |
saltPlmFlx_cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
82 |
CPL_INI_VARS |
RunOff_cpl(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
83 |
CPL_INI_VARS |
airCO2 (i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
84 |
CPL_INI_VARS |
surfWSpeed(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
169 |
CPL_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
171 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
172 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
173 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
174 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
175 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
176 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
177 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
178 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
179 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
180 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
181 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
182 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
185 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( aCO2tave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
186 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( sWSpdtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
187 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( iceftave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
188 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( fCO2tave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
191 |
CPL_OUTPUT |
CPL_timeAve(bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_output.F |
51 |
CPL_OUTPUT |
INTEGER bi,bj |
|
./pkg/ocn_compon_interf/cpl_output.F |
64 |
CPL_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
66 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SLPtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
67 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(HFtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
68 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(QSWtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
69 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TXtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
70 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TYtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
71 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(FWtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
72 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SFxtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
73 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SICtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
74 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(MXLtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
75 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSTtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
76 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSStave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
77 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(vSqtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
80 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(aCO2tave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
81 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(sWSpdtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
82 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(iceftave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
83 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(fCO2tave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_register.F |
100 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
|
./pkg/ocn_compon_interf/cpl_register.F |
103 |
CPL_REGISTER |
tN = W2_myTileList(bi,bj) |
|
./pkg/ocn_compon_interf/cpl_register.F |
109 |
CPL_REGISTER |
iReg(2,j) = bj |
|
./pkg/ocn_compon_interf/cpl_register.F |
48 |
CPL_REGISTER |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/cpl_register.F |
96 |
CPL_REGISTER |
DO bj=1,nSy |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
101 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
107 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
117 |
OCN_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
118 |
OCN_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
119 |
OCN_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
120 |
OCN_APPLY_IMPORT |
Qice1 (i,j,bi,bj) = sIceQ1_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
121 |
OCN_APPLY_IMPORT |
Qice2 (i,j,bi,bj) = sIceQ2_cpl (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
133 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
134 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
140 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
141 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
147 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
155 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
47 |
OCN_APPLY_IMPORT |
INTEGER bi,bj,i,j |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
51 |
OCN_APPLY_IMPORT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
61 |
OCN_APPLY_IMPORT |
fu(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
62 |
OCN_APPLY_IMPORT |
fv(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
69 |
OCN_APPLY_IMPORT |
pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
76 |
OCN_APPLY_IMPORT |
sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
85 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
92 |
OCN_APPLY_IMPORT |
saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
100 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst |
|
./model/src/diags_phi_hyd.F |
101 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
102 |
DIAGS_PHI_HYD |
& phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
104 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
105 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
112 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity |
|
./model/src/diags_phi_hyd.F |
113 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
114 |
DIAGS_PHI_HYD |
& phiHydC(i,j)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
116 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
117 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
11 |
DIAGS_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_hyd.F |
125 |
DIAGS_PHI_HYD |
CALL DIAGNOSTICS_FILL(phiHydCstR,'PHIHYDcR',k,1,2,bi,bj,myThid) |
|
./model/src/diags_phi_hyd.F |
44 |
DIAGS_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_hyd.F |
65 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_hyd.F |
66 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
67 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
69 |
DIAGS_PHI_HYD |
phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/diags_phi_hyd.F |
83 |
DIAGS_PHI_HYD |
facP = pStarFacK(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
84 |
DIAGS_PHI_HYD |
dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
85 |
DIAGS_PHI_HYD |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
86 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
89 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
45 |
OCN_CHECK_CPLCONFIG |
INTEGER i, j, bi, bj |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
78 |
OCN_CHECK_CPLCONFIG |
DO bj=1,nSy |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
82 |
OCN_CHECK_CPLCONFIG |
IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
83 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .EQ. depth_noWater ) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
84 |
OCN_CHECK_CPLCONFIG |
& .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
85 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .NE. depth_noWater ) ) THEN |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
89 |
OCN_CHECK_CPLCONFIG |
& ',bi=', bi, ',bj=', bj, ')' |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
92 |
OCN_CHECK_CPLCONFIG |
& 'Land (atmosphere) ==', landMask(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
95 |
OCN_CHECK_CPLCONFIG |
& 'Depth (ocean) ==', R_low(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
43 |
OCN_CPL_DIAGS |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
53 |
OCN_CPL_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
59 |
OCN_CPL_DIAGS |
SLPtave(i,j,bi,bj) = SLPtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
60 |
OCN_CPL_DIAGS |
& + DDTT * atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
61 |
OCN_CPL_DIAGS |
HFtave(i,j,bi,bj) = HFtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
62 |
OCN_CPL_DIAGS |
& + DDTT * HeatFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
63 |
OCN_CPL_DIAGS |
QSWtave(i,j,bi,bj) = QSWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
64 |
OCN_CPL_DIAGS |
& + DDTT * qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
65 |
OCN_CPL_DIAGS |
TXtave(i,j,bi,bj) = TXtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
66 |
OCN_CPL_DIAGS |
& + DDTT * tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
67 |
OCN_CPL_DIAGS |
TYtave(i,j,bi,bj) = TYtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
68 |
OCN_CPL_DIAGS |
& + DDTT * tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
69 |
OCN_CPL_DIAGS |
FWtave(i,j,bi,bj) = FWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
70 |
OCN_CPL_DIAGS |
& + DDTT * FWFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
71 |
OCN_CPL_DIAGS |
SFxtave(i,j,bi,bj) = SFxtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
72 |
OCN_CPL_DIAGS |
& + DDTT * iceSaltFlx(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
73 |
OCN_CPL_DIAGS |
SICtave(i,j,bi,bj) = SICtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
74 |
OCN_CPL_DIAGS |
& + DDTT * seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
75 |
OCN_CPL_DIAGS |
MXLtave(i,j,bi,bj) = MXLtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
76 |
OCN_CPL_DIAGS |
& + DDTT * ocMxlD2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
77 |
OCN_CPL_DIAGS |
SSTtave(i,j,bi,bj) = SSTtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
78 |
OCN_CPL_DIAGS |
& + DDTT * SSTocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
79 |
OCN_CPL_DIAGS |
SSStave(i,j,bi,bj) = SSStave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
80 |
OCN_CPL_DIAGS |
& + DDTT * SSSocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
81 |
OCN_CPL_DIAGS |
vSqtave(i,j,bi,bj) = vSqtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
82 |
OCN_CPL_DIAGS |
& + DDTT * vSqocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
85 |
OCN_CPL_DIAGS |
iceftave(i,j,bi,bj) = iceftave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
86 |
OCN_CPL_DIAGS |
& + DDTT * sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
87 |
OCN_CPL_DIAGS |
aCO2tave(i,j,bi,bj) = aCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
88 |
OCN_CPL_DIAGS |
& + DDTT * airCO2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
89 |
OCN_CPL_DIAGS |
sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
90 |
OCN_CPL_DIAGS |
& + DDTT * surfWSpeed(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
91 |
OCN_CPL_DIAGS |
fCO2tave(i,j,bi,bj) = fCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
92 |
OCN_CPL_DIAGS |
& + DDTT * fluxCO2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
99 |
OCN_CPL_DIAGS |
CPL_timeAve(bi,bj) = CPL_timeAve(bi,bj)+DDTT |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
37 |
OCN_EXPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
41 |
OCN_EXPORT_OCNCONFIG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
45 |
OCN_EXPORT_OCNCONFIG |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
39 |
OCN_IMPORT_ATMCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
42 |
OCN_IMPORT_ATMCONFIG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
46 |
OCN_IMPORT_ATMCONFIG |
landMask(i,j,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
100 |
OCN_STORE_MY_DATA |
vSqocn2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
101 |
OCN_STORE_MY_DATA |
& ( uVel(i , j,1,bi,bj)*uVel(i , j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
102 |
OCN_STORE_MY_DATA |
& + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
103 |
OCN_STORE_MY_DATA |
& + vVel(i,j+1,1,bi,bj)*vVel(i,j+1,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
104 |
OCN_STORE_MY_DATA |
& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
113 |
OCN_STORE_MY_DATA |
sIceFrac_cpl (i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
114 |
OCN_STORE_MY_DATA |
sIceThick_cpl(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
115 |
OCN_STORE_MY_DATA |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
116 |
OCN_STORE_MY_DATA |
sIceQ1_cpl (i,j,bi,bj) = Qice1(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
117 |
OCN_STORE_MY_DATA |
sIceQ2_cpl (i,j,bi,bj) = Qice2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
58 |
OCN_STORE_MY_DATA |
INTEGER bi,bj |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
61 |
OCN_STORE_MY_DATA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
67 |
OCN_STORE_MY_DATA |
SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
68 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
76 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
77 |
OCN_STORE_MY_DATA |
& h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
83 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
93 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./model/src/diags_phi_rlow.F |
108 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
109 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
10 |
DIAGS_PHI_RLOW |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_rlow.F |
110 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_rlow.F |
132 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydF(i,j) |
|
./model/src/diags_phi_rlow.F |
145 |
DIAGS_PHI_RLOW |
facP = pStarFacK(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
146 |
DIAGS_PHI_RLOW |
dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
147 |
DIAGS_PHI_RLOW |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
148 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
149 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*facP |
|
./model/src/diags_phi_rlow.F |
151 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
159 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
161 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
162 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
163 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
164 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
172 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
174 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
175 |
DIAGS_PHI_RLOW |
& phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
176 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
177 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
188 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
189 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
190 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
47 |
DIAGS_PHI_RLOW |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_rlow.F |
78 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./pkg/offline/offline_fields_load.F |
103 |
OFFLINE_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP, offlineLdRec(bi,bj), |
|
./pkg/offline/offline_fields_load.F |
119 |
OFFLINE_FIELDS_LOAD |
IF ( intime1.NE.offlineLdRec(bi,bj) ) THEN |
|
./pkg/offline/offline_fields_load.F |
137 |
OFFLINE_FIELDS_LOAD |
& ' (prev=', intimeP, offlineLdRec(bi,bj), ' )' |
|
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
344 |
OFFLINE_FIELDS_LOAD |
offlineLdRec(bi,bj) = intime1 |
|
./pkg/offline/offline_fields_load.F |
352 |
OFFLINE_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
354 |
OFFLINE_FIELDS_LOAD |
offline_Wght(1,bi,bj) = bWght |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
offline_Wght(2,bi,bj) = aWght |
|
./pkg/offline/offline_fields_load.F |
363 |
OFFLINE_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
369 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
370 |
OFFLINE_FIELDS_LOAD |
& + aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
372 |
OFFLINE_FIELDS_LOAD |
& + aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
373 |
OFFLINE_FIELDS_LOAD |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
374 |
OFFLINE_FIELDS_LOAD |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
375 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj)= bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
376 |
OFFLINE_FIELDS_LOAD |
& + aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
377 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
378 |
OFFLINE_FIELDS_LOAD |
& + aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
387 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
388 |
OFFLINE_FIELDS_LOAD |
& / rStarFacW(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
389 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
390 |
OFFLINE_FIELDS_LOAD |
& / rStarFacS(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
73 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k |
|
./pkg/offline/offline_fields_load.F |
97 |
OFFLINE_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/offline/offline_get_diffus.F |
107 |
OFFLINE_GET_DIFFUS |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
108 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
109 |
OFFLINE_GET_DIFFUS |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
110 |
OFFLINE_GET_DIFFUS |
& + aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
111 |
OFFLINE_GET_DIFFUS |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
112 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
123 |
OFFLINE_GET_DIFFUS |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
124 |
OFFLINE_GET_DIFFUS |
& + aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
127 |
OFFLINE_GET_DIFFUS |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
128 |
OFFLINE_GET_DIFFUS |
& + aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
141 |
OFFLINE_GET_DIFFUS |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
142 |
OFFLINE_GET_DIFFUS |
& + aWght*sflx1(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
143 |
OFFLINE_GET_DIFFUS |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
55 |
OFFLINE_GET_DIFFUS |
INTEGER bi,bj |
|
./pkg/offline/offline_get_diffus.F |
75 |
OFFLINE_GET_DIFFUS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_get_diffus.F |
78 |
OFFLINE_GET_DIFFUS |
bWght = offline_Wght(1,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
79 |
OFFLINE_GET_DIFFUS |
aWght = offline_Wght(2,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
86 |
OFFLINE_GET_DIFFUS |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
87 |
OFFLINE_GET_DIFFUS |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
96 |
OFFLINE_GET_DIFFUS |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
97 |
OFFLINE_GET_DIFFUS |
& + aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_init_varia.F |
27 |
OFFLINE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/offline/offline_init_varia.F |
29 |
OFFLINE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/offline/offline_init_varia.F |
31 |
OFFLINE_INIT_VARIA |
offlineLdRec(bi,bj) = 0 |
|
./pkg/offline/offline_init_varia.F |
32 |
OFFLINE_INIT_VARIA |
offline_Wght(1,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
33 |
OFFLINE_INIT_VARIA |
offline_Wght(2,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
37 |
OFFLINE_INIT_VARIA |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
38 |
OFFLINE_INIT_VARIA |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
44 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
54 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
55 |
OFFLINE_INIT_VARIA |
kdfs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
56 |
OFFLINE_INIT_VARIA |
kdfs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
57 |
OFFLINE_INIT_VARIA |
kght0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
58 |
OFFLINE_INIT_VARIA |
kght1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
66 |
OFFLINE_INIT_VARIA |
sflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
67 |
OFFLINE_INIT_VARIA |
sflx1(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_rho.F |
151 |
DIAGS_RHO_G |
INTEGER k, bi,bj |
|
./model/src/diags_rho.F |
164 |
DIAGS_RHO_G |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
170 |
DIAGS_RHO_G |
& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
17 |
DIAGS_RHO_L |
I diagRho, k, bi, bj, |
|
./model/src/diags_rho.F |
181 |
DIAGS_RHO_G |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/diags_rho.F |
186 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
187 |
DIAGS_RHO_G |
& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
191 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
198 |
DIAGS_RHO_G |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/diags_rho.F |
204 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
210 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
211 |
DIAGS_RHO_G |
& *(rho3d(i,j,k-1,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
216 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
49 |
DIAGS_RHO_L |
INTEGER k, bi, bj |
|
./model/src/diags_rho.F |
73 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
77 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHO_P ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
78 |
DIAGS_RHO_L |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHO_P ',bi,bj,myThid) |
|
./model/src/diags_rho.F |
86 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
90 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHOdP ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
91 |
DIAGS_RHO_L |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHOdP ',bi,bj,myThid) |
|
./pkg/openad/externalDummies.F |
221 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
INTEGER i, j, bi, bj, k |
|
./pkg/openad/externalDummies.F |
225 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/openad/externalDummies.F |
230 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
q_int1(i,j,bi,bj) = 0.0 |
|
./pkg/openad/externalDummies.F |
231 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
q_int2(i,j,bi,bj) = 0.0 |
|
./pkg/openad/externalDummies.F |
232 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
X(i,j,bi,bj) = X(i,j,bi,bj) * 1.0 |
|
./model/src/do_atmospheric_phys.F |
104 |
DO_ATMOSPHERIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_atmospheric_phys.F |
109 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_atmospheric_phys.F |
64 |
DO_ATMOSPHERIC_PHYS |
INTEGER bi, bj |
|
./model/src/do_atmospheric_phys.F |
77 |
DO_ATMOSPHERIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_atmospheric_phys.F |
92 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_atmospheric_phys.F |
93 |
DO_ATMOSPHERIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_atmospheric_phys.F |
95 |
DO_ATMOSPHERIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./pkg/opps/opps_calc.F |
139 |
OPPS_CALC |
Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
179 |
OPPS_CALC |
& i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
22 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
233 |
OPPS_CALC |
Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
420 |
OPPS_CALC |
OPPSconvectCount(I,J,K,bi,bj) = |
|
./pkg/opps/opps_calc.F |
421 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_calc.F |
440 |
OPPS_CALC |
_RL FUNCTION STATE1( sLoc, tLoc, i, j, kRef, bi, bj, myThid ) |
|
./pkg/opps/opps_calc.F |
466 |
OPPS_CALC |
INTEGER i, j, kRef, bi, bj, myThid |
|
./pkg/opps/opps_calc.F |
482 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
483 |
OPPS_CALC |
& + phi_nh(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
485 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = pRef4EOS(kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
503 |
OPPS_CALC |
pLoc = rhoConst*phiRef(2*kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
507 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
81 |
OPPS_CALC |
INTEGER I, J, bi, bj, KMax, nTracer, nTracerInUse |
|
./pkg/opps/opps_init.F |
31 |
OPPS_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/opps/opps_init.F |
37 |
OPPS_INIT |
do bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/opps/opps_init.F |
42 |
OPPS_INIT |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./pkg/opps/opps_interface.F |
108 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
109 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
10 |
OPPS_INTERFACE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/opps/opps_interface.F |
110 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
114 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
115 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
141 |
OPPS_INTERFACE |
kMax = kLowC(I,J,bi,bj) |
|
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
|
./pkg/opps/opps_interface.F |
172 |
OPPS_INTERFACE |
theta(I,J,K,bi,bj) = tracerLoc(K,1) |
|
./pkg/opps/opps_interface.F |
173 |
OPPS_INTERFACE |
salt(I,J,K,bi,bj) = tracerLoc(K,2) |
|
./pkg/opps/opps_interface.F |
178 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr) |
|
./pkg/opps/opps_interface.F |
52 |
OPPS_INTERFACE |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/opps/opps_interface.F |
97 |
OPPS_INTERFACE |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_output.F |
102 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/opps/opps_output.F |
104 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
105 |
OPPS_OUTPUT |
OPPS_timeAve(bi,bj) = 0. |
|
./pkg/opps/opps_output.F |
112 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/opps/opps_output.F |
115 |
OPPS_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
117 |
OPPS_OUTPUT |
OPPS_timeAve(bi,bj) = OPPS_timeAve(bi,bj)+DDTT |
|
./pkg/opps/opps_output.F |
128 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/opps/opps_output.F |
131 |
OPPS_OUTPUT |
& OPPS_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
145 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/opps/opps_output.F |
147 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
148 |
OPPS_OUTPUT |
OPPS_timeAve(bi,bj) = 0. |
|
./pkg/opps/opps_output.F |
69 |
OPPS_OUTPUT |
INTEGER bi, bj |
|
./pkg/pp81/pp81_calc.F |
105 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
106 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
114 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
115 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
116 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
117 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./pkg/pp81/pp81_calc.F |
49 |
PP81_CALC |
INTEGER bi, bj |
|
./pkg/pp81/pp81_calc.F |
72 |
PP81_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_calc.F |
88 |
PP81_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
39 |
PP81_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
58 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
71 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,kArg,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
73 |
PP81_CALC_DIFF |
& - diffKr(i,j,kArg,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
7 |
PP81_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,kArg,kSize, |
|
./pkg/pp81/pp81_calc_visc.F |
31 |
PP81_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
46 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
54 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
6 |
PP81_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/do_oceanic_phys.F |
1003 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1008 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1020 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1031 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1042 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1058 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1065 |
DO_OCEANIC_PHYS |
CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid) |
|
./model/src/do_oceanic_phys.F |
1069 |
DO_OCEANIC_PHYS |
I Nr, deltaTClock, bi, bj, myThid) |
|
./model/src/do_oceanic_phys.F |
1097 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1103 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
1113 |
DO_OCEANIC_PHYS |
I bi, bj, kSurfC, rhoInSitu, |
|
./model/src/do_oceanic_phys.F |
1117 |
DO_OCEANIC_PHYS |
I bi, bj, kLowC, rhoInSitu, |
|
./model/src/do_oceanic_phys.F |
1182 |
DO_OCEANIC_PHYS |
& CALL SALT_PLUME_DIAGNOSTICS_FILL(bi,bj,myThid) |
|
./model/src/do_oceanic_phys.F |
214 |
DO_OCEANIC_PHYS |
INTEGER bi, bj |
|
./model/src/do_oceanic_phys.F |
288 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_oceanic_phys.F |
292 |
DO_OCEANIC_PHYS |
saltPlumeDepth(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
293 |
DO_OCEANIC_PHYS |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
301 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_oceanic_phys.F |
306 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
614 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_oceanic_phys.F |
624 |
DO_OCEANIC_PHYS |
act2 = bj - myByLo(myThid) |
|
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
664 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
665 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
666 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
670 |
DO_OCEANIC_PHYS |
SPforcingS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
671 |
DO_OCEANIC_PHYS |
SPforcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
683 |
DO_OCEANIC_PHYS |
IVDConvCount(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
695 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
696 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
697 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
699 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
700 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
703 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
704 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
707 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
708 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
711 |
DO_OCEANIC_PHYS |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
725 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
726 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
771 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
772 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
785 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
794 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
795 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
796 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
797 |
DO_OCEANIC_PHYS |
I k, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
813 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_oceanic_phys.F |
814 |
DO_OCEANIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
816 |
DO_OCEANIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
826 |
DO_OCEANIC_PHYS |
& 'ENTERING UPWARD K LOOP (bi=', bi, ', bj=', bj,')' |
|
./model/src/do_oceanic_phys.F |
866 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
867 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
869 |
DO_OCEANIC_PHYS |
I k-1, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
877 |
DO_OCEANIC_PHYS |
rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
881 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
882 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
889 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k) |
|
./model/src/do_oceanic_phys.F |
911 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
918 |
DO_OCEANIC_PHYS |
CALL DIAGS_RHO_L( doDiagsRho, k, bi, bj, |
|
./model/src/do_oceanic_phys.F |
919 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
937 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
|
./model/src/do_oceanic_phys.F |
938 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
944 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
|
./model/src/do_oceanic_phys.F |
945 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
948 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
951 |
DO_OCEANIC_PHYS |
I 1, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
955 |
DO_OCEANIC_PHYS |
I 2, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
960 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/do_oceanic_phys.F |
969 |
DO_OCEANIC_PHYS |
& 2, bi, bj, myThid) |
|
./pkg/pp81/pp81_init_varia.F |
31 |
PP81_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/pp81/pp81_init_varia.F |
37 |
PP81_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/pp81/pp81_init_varia.F |
42 |
PP81_INIT_VARIA |
PPviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_init_varia.F |
43 |
PP81_INIT_VARIA |
PPdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./pkg/pp81/pp81_output.F |
106 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/pp81/pp81_output.F |
108 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
109 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
110 |
PP81_OUTPUT |
PP_timeAve(bi,bj) = 0. |
|
./pkg/pp81/pp81_output.F |
117 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/pp81/pp81_output.F |
120 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
122 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
124 |
PP81_OUTPUT |
PP_timeAve(bi,bj) = PP_timeAve(bi,bj)+DDTT |
|
./pkg/pp81/pp81_output.F |
135 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/pp81/pp81_output.F |
138 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
140 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
156 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/pp81/pp81_output.F |
158 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
159 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
160 |
PP81_OUTPUT |
PP_timeAve(bi,bj) = 0. |
|
./pkg/pp81/pp81_output.F |
69 |
PP81_OUTPUT |
INTEGER bi, bj |
|
./pkg/pp81/pp81_ri_number.F |
100 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/pp81/pp81_ri_number.F |
102 |
PP81_RI_NUMBER |
I K, bi, bj, myThid ) |
|
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
109 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
112 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
11 |
PP81_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_ri_number.F |
47 |
PP81_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/pp81/pp81_ri_number.F |
95 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./pkg/pp81/pp81_ri_number.F |
97 |
PP81_RI_NUMBER |
I Km1, bi, bj, myThid ) |
|
./pkg/profiles/active_file_control_profiles.F |
101 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
102 |
ACTIVE_READ_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+2 ) |
|
./pkg/profiles/active_file_control_profiles.F |
108 |
ACTIVE_READ_PROFILE_RL |
prof_mask1D_cur(ivar,bi,bj)=vec_tmp(ivar) |
|
./pkg/profiles/active_file_control_profiles.F |
160 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
161 |
ACTIVE_READ_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
182 |
ACTIVE_READ_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
183 |
ACTIVE_READ_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
219 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
220 |
ACTIVE_READ_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
255 |
ACTIVE_WRITE_PROFILE_RL |
I bj, |
|
./pkg/profiles/active_file_control_profiles.F |
26 |
ACTIVE_READ_PROFILE_RL |
I bj, |
|
./pkg/profiles/active_file_control_profiles.F |
284 |
ACTIVE_WRITE_PROFILE_RL |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_control_profiles.F |
321 |
ACTIVE_WRITE_PROFILE_RL |
& prof_mask1D_cur(1,bi,bj)) |
|
./pkg/profiles/active_file_control_profiles.F |
337 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
338 |
ACTIVE_WRITE_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
341 |
ACTIVE_WRITE_PROFILE_RL |
vec_tmp(ivar)=prof_mask1D_cur(ivar,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
347 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
348 |
ACTIVE_WRITE_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+2 ) |
|
./pkg/profiles/active_file_control_profiles.F |
396 |
ACTIVE_WRITE_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
397 |
ACTIVE_WRITE_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
419 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
420 |
ACTIVE_WRITE_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
460 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
461 |
ACTIVE_WRITE_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
57 |
ACTIVE_READ_PROFILE_RL |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_control_profiles.F |
88 |
ACTIVE_READ_PROFILE_RL |
& prof_mask1D_cur(1,bi,bj)) |
|
./pkg/profiles/active_file_control_profiles.F |
92 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
93 |
ACTIVE_READ_PROFILE_RL |
& +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 ) |
|
./pkg/profiles/active_file_profiles.F |
133 |
ACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles.F |
138 |
ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
141 |
ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
142 |
ACTIVE_WRITE_PROFILE |
& FORWARD_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles.F |
33 |
ACTIVE_READ_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles.F |
67 |
ACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles.F |
73 |
ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
76 |
ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
77 |
ACTIVE_READ_PROFILE |
& FORWARD_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles.F |
98 |
ACTIVE_WRITE_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles_ad.F |
130 |
ADACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_ad.F |
138 |
ADACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidadjoint(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_ad.F |
141 |
ADACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
142 |
ADACTIVE_WRITE_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
30 |
ADACTIVE_READ_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles_ad.F |
65 |
ADACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_ad.F |
70 |
ADACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidadjoint(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_ad.F |
73 |
ADACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
74 |
ADACTIVE_READ_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
93 |
ADACTIVE_WRITE_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles_g.F |
105 |
G_ACTIVE_WRITE_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles_g.F |
141 |
G_ACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_g.F |
147 |
G_ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_g.F |
150 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
151 |
G_ACTIVE_WRITE_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
153 |
G_ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidtangent(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_g.F |
156 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
157 |
G_ACTIVE_WRITE_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
30 |
G_ACTIVE_READ_PROFILE |
I bj, |
|
./pkg/profiles/active_file_profiles_g.F |
69 |
G_ACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_g.F |
75 |
G_ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
78 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
79 |
G_ACTIVE_READ_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
81 |
G_ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidtangent(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
84 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
85 |
G_ACTIVE_READ_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/cost_profiles.F |
130 |
COST_PROFILES |
DO bj=1,nSy |
|
./pkg/profiles/cost_profiles.F |
133 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
135 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
138 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
141 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/profiles/cost_profiles.F |
151 |
COST_PROFILES |
& fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
156 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = -999 |
|
./pkg/profiles/cost_profiles.F |
157 |
COST_PROFILES |
if(K.LE.ProfDepthNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
159 |
COST_PROFILES |
if(prof_depth(num_file, k,bi,bj).EQ. |
|
./pkg/profiles/cost_profiles.F |
160 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).AND. |
|
./pkg/profiles/cost_profiles.F |
161 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).GE.0. _d 0.AND. |
|
./pkg/profiles/cost_profiles.F |
162 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj).EQ.-999) then |
|
./pkg/profiles/cost_profiles.F |
163 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = k2 |
|
./pkg/profiles/cost_profiles.F |
170 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
172 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
182 |
COST_PROFILES |
ix9 = prof_interp_i(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
183 |
COST_PROFILES |
iy9 = prof_interp_j(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
185 |
COST_PROFILES |
if(prof_ind_avgbin(num_file,prof_num,bi,bj).GT.NAVGBIN) |
|
./pkg/profiles/cost_profiles.F |
186 |
COST_PROFILES |
& NAVGBIN = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
189 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
194 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/cost_profiles.F |
195 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
196 |
COST_PROFILES |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
199 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
200 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
203 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
204 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
205 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
207 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
209 |
COST_PROFILES |
& .AND. prof_mask1D_cur(K,bi,bj).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
212 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj),num_var) |
|
./pkg/profiles/cost_profiles.F |
214 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
218 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
220 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
224 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
226 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
230 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
232 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
260 |
COST_PROFILES |
DO bj=1,nSy |
|
./pkg/profiles/cost_profiles.F |
263 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
408 |
COST_PROFILES |
DO bj=1,nSy |
|
./pkg/profiles/cost_profiles.F |
412 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
414 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
417 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
420 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/profiles/cost_profiles.F |
430 |
COST_PROFILES |
& fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
434 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
448 |
COST_PROFILES |
prof_mask1D_cur(k,bi,bj)=0. |
|
./pkg/profiles/cost_profiles.F |
457 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
460 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
462 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
464 |
COST_PROFILES |
ktmp = prof_lev_comb(k,num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
46 |
COST_PROFILES |
integer bi,bj,iG,jG,fid |
|
./pkg/profiles/cost_profiles.F |
477 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/cost_profiles.F |
478 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
479 |
COST_PROFILES |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
482 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
483 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
486 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
487 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
488 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
490 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
496 |
COST_PROFILES |
objf_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
497 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
498 |
COST_PROFILES |
& +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
509 |
COST_PROFILES |
num_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
510 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
511 |
COST_PROFILES |
& +prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
522 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
524 |
COST_PROFILES |
write(msgbuf,'(a,4I9)') 'bi,bj,prof_num,num_var ',bi,bj, |
|
./pkg/profiles/cost_profiles.F |
525 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/cost_profiles.F |
530 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
531 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
556 |
COST_PROFILES |
objf_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
557 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
565 |
COST_PROFILES |
num_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
566 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
569 |
COST_PROFILES |
objf_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
570 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
578 |
COST_PROFILES |
num_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
579 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
593 |
COST_PROFILES |
write(msgbuf,'(a,4I9)') 'bi,bj,num_var ',bi,bj, |
|
./pkg/profiles/cost_profiles.F |
600 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
601 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
623 |
COST_PROFILES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/profiles/cost_profiles.F |
625 |
COST_PROFILES |
objf_prof_tile(bi,bj) = |
|
./pkg/profiles/cost_profiles.F |
626 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
627 |
COST_PROFILES |
num_prof_tile(bi,bj) = |
|
./pkg/profiles/cost_profiles.F |
628 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
648 |
COST_PROFILES |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/profiles/cost_profiles.F |
650 |
COST_PROFILES |
objf_prof_mean_tile(bi,bj) = |
|
./pkg/profiles/cost_profiles.F |
651 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
652 |
COST_PROFILES |
num_prof_mean_tile(bi,bj) = |
|
./pkg/profiles/cost_profiles.F |
653 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
144 |
PROFILES_INIT_FIXED |
DO bj=1,nSy |
|
./pkg/profiles/profiles_init_fixed.F |
147 |
PROFILES_INIT_FIXED |
profiles_curfile_buff(bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
191 |
PROFILES_INIT_FIXED |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
208 |
PROFILES_INIT_FIXED |
& bi,',',bj |
|
./pkg/profiles/profiles_init_fixed.F |
213 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
218 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
238 |
PROFILES_INIT_FIXED |
do k=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
240 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
282 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
284 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
293 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
294 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
295 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
296 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
301 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
312 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
316 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
361 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
372 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
406 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
407 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
409 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
412 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
414 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
415 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
418 |
PROFILES_INIT_FIXED |
elseif ((xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
419 |
PROFILES_INIT_FIXED |
& (xC(1,1,bi,bj).LE.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
421 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
422 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
443 |
PROFILES_INIT_FIXED |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
444 |
PROFILES_INIT_FIXED |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_init_fixed.F |
446 |
PROFILES_INIT_FIXED |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
447 |
PROFILES_INIT_FIXED |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
452 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
454 |
PROFILES_INIT_FIXED |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
456 |
PROFILES_INIT_FIXED |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
457 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
459 |
PROFILES_INIT_FIXED |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
477 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
478 |
PROFILES_INIT_FIXED |
prof_lon(num_file,ProfNo_tile,bi,bj)=lon_cur |
|
./pkg/profiles/profiles_init_fixed.F |
479 |
PROFILES_INIT_FIXED |
prof_lat(num_file,ProfNo_tile,bi,bj)=lat_cur |
|
./pkg/profiles/profiles_init_fixed.F |
480 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
482 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
487 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,1,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
489 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,1,bi,bj)=prof_i |
|
./pkg/profiles/profiles_init_fixed.F |
490 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,1,bi,bj)=prof_j |
|
./pkg/profiles/profiles_init_fixed.F |
491 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,2,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
493 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,2,bi,bj)=prof_i+1 |
|
./pkg/profiles/profiles_init_fixed.F |
494 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,2,bi,bj)=prof_j |
|
./pkg/profiles/profiles_init_fixed.F |
495 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,3,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
497 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,3,bi,bj)=prof_i |
|
./pkg/profiles/profiles_init_fixed.F |
498 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,3,bi,bj)=prof_j+1 |
|
./pkg/profiles/profiles_init_fixed.F |
499 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,4,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
501 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,4,bi,bj)=prof_i+1 |
|
./pkg/profiles/profiles_init_fixed.F |
502 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,4,bi,bj)=prof_j+1 |
|
./pkg/profiles/profiles_init_fixed.F |
514 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
515 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 _d 0) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
516 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) |
|
./pkg/profiles/profiles_init_fixed.F |
522 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
524 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
526 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,ProfNo_tile,bi,bj)=tmp_xC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
527 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,ProfNo_tile,bi,bj)=tmp_yC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
528 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_xCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
529 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_yCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
532 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
534 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
536 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
586 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
608 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
625 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
627 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
633 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
634 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
635 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
636 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
637 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
639 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
644 |
PROFILES_INIT_FIXED |
if (vec_quantities(num_file,k,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
667 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
669 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
684 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
685 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
686 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
687 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
689 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
694 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
695 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
696 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
697 |
PROFILES_INIT_FIXED |
& bi,bj, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
699 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
712 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidforward(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
714 |
PROFILES_INIT_FIXED |
call PROFILES_FINDUNIT( fidforward(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
717 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
718 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
719 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
720 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
722 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
724 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
729 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidadjoint(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
731 |
PROFILES_INIT_FIXED |
call PROFILES_FINDUNIT( fidadjoint(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
734 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
735 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
736 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
737 |
PROFILES_INIT_FIXED |
& bi,bj, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
739 |
PROFILES_INIT_FIXED |
open( fidadjoint(num_file,bi,bj),file=adfnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
741 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
751 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
753 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
754 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
756 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
758 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
759 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
760 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
761 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
763 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
766 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
767 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
768 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
770 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
771 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
772 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
773 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
782 |
PROFILES_INIT_FIXED |
if(bi.EQ.1.and.bj.EQ.1)then |
|
./pkg/profiles/profiles_init_fixed.F |
787 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
792 |
PROFILES_INIT_FIXED |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
795 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj) = prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
800 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(l,bi,bj) .ne. -999. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
802 |
PROFILES_INIT_FIXED |
if(prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
803 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
|
./pkg/profiles/profiles_init_fixed.F |
805 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = |
|
./pkg/profiles/profiles_init_fixed.F |
806 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
807 |
PROFILES_INIT_FIXED |
prof_depth_comb(l,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
808 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
810 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
811 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
813 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
814 |
PROFILES_INIT_FIXED |
& prof_depth_comb(NLEVELCOMBMAX,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
815 |
PROFILES_INIT_FIXED |
else if(prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
816 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
|
./pkg/profiles/profiles_init_fixed.F |
817 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
818 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
820 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = |
|
./pkg/profiles/profiles_init_fixed.F |
821 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
822 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
823 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
825 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
826 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
828 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+2,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
829 |
PROFILES_INIT_FIXED |
& prof_depth_comb(NLEVELCOMBMAX,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
830 |
PROFILES_INIT_FIXED |
else if ( prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
831 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l,bi,bj).and. |
|
./pkg/profiles/profiles_init_fixed.F |
832 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj).eq.-999. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
833 |
PROFILES_INIT_FIXED |
prof_depth_comb(l+1,bi,bj) = |
|
./pkg/profiles/profiles_init_fixed.F |
834 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
847 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = -999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
851 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(m,bi,bj) .GE. 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
876 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
889 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
909 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
14 |
PROFILES_INIT_NCFILE |
& Zlength,bi,bj,myThid) |
|
./pkg/profiles/profiles_init_ncfile.F |
30 |
PROFILES_INIT_NCFILE |
integer myThid,bi,bj,err,vecid(2), length, Zlength |
|
./pkg/profiles/profiles_init_ncfile.F |
84 |
PROFILES_INIT_NCFILE |
do num_var=prof_num_var_tot(num_file,bi,bj),1,-1 |
|
./pkg/profiles/profiles_init_ncfile.F |
85 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
87 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_varia.F |
43 |
PROFILES_INIT_VARIA |
integer bi,bj |
|
./pkg/profiles/profiles_init_varia.F |
57 |
PROFILES_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/profiles/profiles_init_varia.F |
61 |
PROFILES_INIT_VARIA |
objf_profiles(num_file,num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
62 |
PROFILES_INIT_VARIA |
num_profiles(num_file,num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
63 |
PROFILES_INIT_VARIA |
profiles_dummy(num_file,num_var,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
67 |
PROFILES_INIT_VARIA |
objf_profiles_mean(num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
68 |
PROFILES_INIT_VARIA |
num_profiles_mean(num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_inloop.F |
46 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
62 |
PROFILES_INLOOP |
DO bj=1,nSy |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_inloop.F |
68 |
PROFILES_INLOOP |
if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND. |
|
./pkg/profiles/profiles_inloop.F |
69 |
PROFILES_INLOOP |
& (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock))) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
75 |
PROFILES_INLOOP |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
83 |
PROFILES_INLOOP |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_inloop.F |
88 |
PROFILES_INLOOP |
& num_file,mytime,bi,bj,myThid) |
|
./pkg/profiles/profiles_inloop.F |
94 |
PROFILES_INLOOP |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/profiles_inloop.F |
95 |
PROFILES_INLOOP |
& prof_num,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/profiles_inloop.F |
96 |
PROFILES_INLOOP |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/profiles_interp.F |
100 |
PROFILES_INTERP |
tab_coeffs1(q)=m_UE(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
102 |
PROFILES_INTERP |
tab_coeffs1(q)=m_VN(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
107 |
PROFILES_INTERP |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
129 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp.F |
131 |
PROFILES_INTERP |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
133 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
135 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp.F |
137 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
138 |
PROFILES_INTERP |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp.F |
141 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp.F |
147 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
148 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
164 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp.F |
171 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp.F |
174 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
26 |
PROFILES_INTERP |
I bj, |
|
./pkg/profiles/profiles_interp.F |
71 |
PROFILES_INTERP |
integer q,k,kk,kcur,bi,bj |
|
./pkg/profiles/profiles_interp.F |
86 |
PROFILES_INTERP |
tab_coeffs1(q)=theta(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj, |
|
./pkg/profiles/profiles_interp.F |
98 |
PROFILES_INTERP |
tab_coeffs1(q)=m_eta(i_cur(q),j_cur(q),bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
107 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
111 |
PROFILES_READVECTOR |
& profiles_weight_buff(k,kk,kkk,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_readvector.F |
118 |
PROFILES_READVECTOR |
profiles_curfile_buff(bi,bj)=fNb |
|
./pkg/profiles/profiles_readvector.F |
125 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
131 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
13 |
PROFILES_READVECTOR |
& vec_loc_length, vec_loc , bi,bj, myThid) |
|
./pkg/profiles/profiles_readvector.F |
29 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
45 |
PROFILES_READVECTOR |
if ( (irec.LT.profiles_minind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
46 |
PROFILES_READVECTOR |
& (irec.GT.profiles_maxind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
47 |
PROFILES_READVECTOR |
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then |
|
./pkg/profiles/profiles_readvector.F |
48 |
PROFILES_READVECTOR |
err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1) |
|
./pkg/profiles/profiles_readvector.F |
49 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
|
./pkg/profiles/profiles_readvector.F |
51 |
PROFILES_READVECTOR |
if (profiles_curfile_buff(bi,bj).NE.fNb) then |
|
./pkg/profiles/profiles_readvector.F |
53 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-500+1) |
|
./pkg/profiles/profiles_readvector.F |
54 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500) |
|
./pkg/profiles/profiles_readvector.F |
55 |
PROFILES_READVECTOR |
elseif (irec.LT.profiles_minind_buff(bi,bj)) then |
|
./pkg/profiles/profiles_readvector.F |
57 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-999) |
|
./pkg/profiles/profiles_readvector.F |
58 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
61 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
62 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999) |
|
./pkg/profiles/profiles_readvector.F |
69 |
PROFILES_READVECTOR |
& profiles_minind_buff(bi,bj), profiles_maxind_buff(bi,bj), |
|
./pkg/profiles/profiles_readvector.F |
70 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
77 |
PROFILES_READVECTOR |
vec_start(2)=profiles_minind_buff(bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
80 |
PROFILES_READVECTOR |
& profiles_maxind_buff(bi,bj)-profiles_minind_buff(bi,bj)+1 |
|
./pkg/profiles/profiles_readvector.F |
83 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_readvector.F |
84 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(fNb,kkk), |
|
./pkg/profiles/profiles_readvector.F |
86 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
88 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(fNb,kkk) |
|
./pkg/profiles/profiles_readvector.F |
90 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
93 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesclim(fNb,kkk) |
|
./pkg/profiles/profiles_readvector.F |
95 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./model/src/do_statevars_tave.F |
47 |
DO_STATEVARS_TAVE |
INTEGER bi,bj |
|
./model/src/do_statevars_tave.F |
51 |
DO_STATEVARS_TAVE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/do_statevars_tave.F |
55 |
DO_STATEVARS_TAVE |
CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid ) |
|
./model/src/do_statevars_tave.F |
59 |
DO_STATEVARS_TAVE |
CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
108 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
111 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
121 |
PTRACERS_APPLY_FORCING |
I k, bi, bj, iTracer+2, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
13 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
43 |
PTRACERS_APPLY_FORCING |
INTEGER k, bi,bj, iTracer |
|
./pkg/ptracers/ptracers_apply_forcing.F |
78 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
90 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
96 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
99 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
47 |
PTRACERS_CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks,itr |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
60 |
PTRACERS_CALC_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
63 |
PTRACERS_CALC_WSURF_TR |
wT_Tile(bi,bj,itr) = 0. |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
66 |
PTRACERS_CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
68 |
PTRACERS_CALC_WSURF_TR |
wT_Tile(bi,bj,itr) = wT_Tile(bi,bj,itr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
69 |
PTRACERS_CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
70 |
PTRACERS_CALC_WSURF_TR |
& *ptracer(i,j,ks,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_convect.F |
13 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
36 |
PTRACERS_CONVECT |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_convect.F |
60 |
PTRACERS_CONVECT |
act2 = bj - myByLo(myThid) |
|
./pkg/ptracers/ptracers_convect.F |
76 |
PTRACERS_CONVECT |
I bi,bj,k,weightA,weightB, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
109 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
118 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
119 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
120 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
121 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
126 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
128 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
129 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
142 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
152 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = LS_wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
153 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
154 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
159 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
160 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
161 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j,km1,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
41 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,iTr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
76 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
85 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
86 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
87 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
88 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
93 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
95 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
96 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
105 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
12 |
PTRACERS_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
163 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
164 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
184 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
185 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
186 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
41 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/ptracers/ptracers_init_varia.F |
112 |
PTRACERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
117 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
118 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
38 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
58 |
PTRACERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
65 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
66 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
72 |
PTRACERS_INIT_VARIA |
surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
83 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
14 |
PTRACERS_INTEGRATE |
I bi, bj, recip_hFac, |
|
./pkg/ptracers/ptracers_integrate.F |
180 |
PTRACERS_INTEGRATE |
act2 = bj - myByLo(myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
196 |
PTRACERS_INTEGRATE |
I bi, bj, 0, Nr, |
|
./pkg/ptracers/ptracers_integrate.F |
197 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
198 |
PTRACERS_INTEGRATE |
U gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
220 |
PTRACERS_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, |
|
./pkg/ptracers/ptracers_integrate.F |
246 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
262 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
291 |
PTRACERS_INTEGRATE |
I k, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
301 |
PTRACERS_INTEGRATE |
I surfaceForcingPTr(1-OLx,1-OLy,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
302 |
PTRACERS_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_integrate.F |
307 |
PTRACERS_INTEGRATE |
CALL DIAGNOSTICS_FILL(gTrForc,diagName,k,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
314 |
PTRACERS_INTEGRATE |
I bi,bj, iMin,iMax,jMin,jMax, k,kM1, kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
321 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
322 |
PTRACERS_INTEGRATE |
I gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
351 |
PTRACERS_INTEGRATE |
I bi, bj, k, Nr, |
|
./pkg/ptracers/ptracers_integrate.F |
353 |
PTRACERS_INTEGRATE |
U gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
359 |
PTRACERS_INTEGRATE |
CALL DIAGNOSTICS_FILL(gTr_AB,diagName,k,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
377 |
PTRACERS_INTEGRATE |
I bi, bj, k, |
|
./pkg/ptracers/ptracers_integrate.F |
382 |
PTRACERS_INTEGRATE |
I bi, bj, k, |
|
./pkg/ptracers/ptracers_integrate.F |
383 |
PTRACERS_INTEGRATE |
U gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
395 |
PTRACERS_INTEGRATE |
I GAD_TR, bi, bj, kSurfC, |
|
./pkg/ptracers/ptracers_integrate.F |
396 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
402 |
PTRACERS_INTEGRATE |
I GAD_TR, bi, bj, kLowC, |
|
./pkg/ptracers/ptracers_integrate.F |
403 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
413 |
PTRACERS_INTEGRATE |
I bi, bj, PTRACERS_dTLev, |
|
./pkg/ptracers/ptracers_integrate.F |
414 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
425 |
PTRACERS_INTEGRATE |
I iTracer, bi, bj, |
|
./pkg/ptracers/ptracers_integrate.F |
446 |
PTRACERS_INTEGRATE |
I pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
448 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
455 |
PTRACERS_INTEGRATE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ptracers/ptracers_integrate.F |
464 |
PTRACERS_INTEGRATE |
I bi, bj, gTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
465 |
PTRACERS_INTEGRATE |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
466 |
PTRACERS_INTEGRATE |
O gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
471 |
PTRACERS_INTEGRATE |
I bi, bj, |
|
./pkg/ptracers/ptracers_integrate.F |
472 |
PTRACERS_INTEGRATE |
O pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
480 |
PTRACERS_INTEGRATE |
I bi, bj, 0, iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
481 |
PTRACERS_INTEGRATE |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
52 |
PTRACERS_INTEGRATE |
INTEGER bi, bj |
|
./pkg/ptracers/ptracers_reset.F |
115 |
PTRACERS_RESET |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_reset.F |
121 |
PTRACERS_RESET |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
43 |
PTRACERS_RESET |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_reset.F |
70 |
PTRACERS_RESET |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_reset.F |
75 |
PTRACERS_RESET |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_reset.F |
76 |
PTRACERS_RESET |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
93 |
PTRACERS_RESET |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_reset.F |
98 |
PTRACERS_RESET |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_reset.F |
99 |
PTRACERS_RESET |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_timeave.F |
10 |
PTRACERS_TIMEAVE |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
41 |
PTRACERS_TIMEAVE |
INTEGER bi, bj |
|
./pkg/ptracers/ptracers_timeave.F |
62 |
PTRACERS_TIMEAVE |
& 1 , bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
64 |
PTRACERS_TIMEAVE |
& Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
66 |
PTRACERS_TIMEAVE |
ptracer_half(bi,bj) = 0. |
|
./pkg/ptracers/ptracers_timeave.F |
67 |
PTRACERS_TIMEAVE |
ptracer_full(bi,bj) = 0. |
|
./pkg/ptracers/ptracers_timeave.F |
84 |
PTRACERS_TIMEAVE |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
87 |
PTRACERS_TIMEAVE |
ptracer_half(bi,bj) = ptracer_half(bi,bj)+DDTT |
|
./pkg/ptracers/ptracers_timeave.F |
96 |
PTRACERS_TIMEAVE |
& 1, deltaTclock, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
98 |
PTRACERS_TIMEAVE |
ptracer_full(bi,bj) = ptracer_full(bi,bj)+deltaTclock |
|
./model/src/dynamics.F |
185 |
DYNAMICS |
INTEGER bi, bj |
|
./model/src/dynamics.F |
269 |
DYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/dynamics.F |
284 |
DYNAMICS |
act2 = bj - myByLo(myThid) |
|
./model/src/dynamics.F |
305 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
306 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
328 |
DYNAMICS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
331 |
DYNAMICS |
dWtransC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
332 |
DYNAMICS |
dWtransU(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
333 |
DYNAMICS |
dWtransV(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
351 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
384 |
DYNAMICS |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
394 |
DYNAMICS |
I bi, bj, myThid ) |
|
./model/src/dynamics.F |
410 |
DYNAMICS |
U uVel(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
411 |
DYNAMICS |
U vVel(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
412 |
DYNAMICS |
I Nr, bi, bj, myThid ) |
|
./model/src/dynamics.F |
417 |
DYNAMICS |
CALL CALC_EDDY_STRESS(bi,bj,myThid) |
|
./model/src/dynamics.F |
482 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
491 |
DYNAMICS |
& 'Um_dPHdx', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
493 |
DYNAMICS |
& 'Vm_dPHdy', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
527 |
DYNAMICS |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
537 |
DYNAMICS |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
552 |
DYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/dynamics.F |
557 |
DYNAMICS |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./model/src/dynamics.F |
568 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
586 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
588 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
597 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
598 |
DYNAMICS |
I -1, kappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
599 |
DYNAMICS |
U gU(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
605 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
606 |
DYNAMICS |
I -2, kappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
607 |
DYNAMICS |
U gV(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
617 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, 0, |
|
./model/src/dynamics.F |
619 |
DYNAMICS |
CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid ) |
|
./model/src/dynamics.F |
629 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
630 |
DYNAMICS |
I 0, kappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
631 |
DYNAMICS |
U vVelD(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
637 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
638 |
DYNAMICS |
I 0, kappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
639 |
DYNAMICS |
U uVelD(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
655 |
DYNAMICS |
I bi,bj, kappaRU, kappaRV, |
|
./model/src/dynamics.F |
661 |
DYNAMICS |
& CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
162 |
PTRACERS_WRITE_TIMEAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
170 |
PTRACERS_WRITE_TIMEAVE |
CALL PTRACERS_TIMEAVE( myTime, nIter0, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
46 |
PTRACERS_WRITE_TIMEAVE |
INTEGER bi, bj, iTr |
|
./pkg/ptracers/ptracers_write_timeave.F |
64 |
PTRACERS_WRITE_TIMEAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
70 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_full, 1, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
73 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half, Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
40 |
PTRACERS_ZONAL_FILT_APPLY |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
45 |
PTRACERS_ZONAL_FILT_APPLY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
48 |
PTRACERS_ZONAL_FILT_APPLY |
U pTracer(1-OLx,1-OLy,1,bi,bj,iTr), |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
49 |
PTRACERS_ZONAL_FILT_APPLY |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
50 |
PTRACERS_ZONAL_FILT_APPLY |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./model/src/external_fields_load.F |
103 |
EXTERNAL_FIELDS_LOAD |
IF ( intime1.NE.loadedRec(bi,bj) ) THEN |
|
./model/src/external_fields_load.F |
113 |
EXTERNAL_FIELDS_LOAD |
& ' (prev=', intimeP, loadedRec(bi,bj), ' )' |
|
./model/src/external_fields_load.F |
147 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
152 |
EXTERNAL_FIELDS_LOAD |
EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
185 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/external_fields_load.F |
189 |
EXTERNAL_FIELDS_LOAD |
Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
190 |
EXTERNAL_FIELDS_LOAD |
Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
230 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/external_fields_load.F |
232 |
EXTERNAL_FIELDS_LOAD |
loadedRec(bi,bj) = intime1 |
|
./model/src/external_fields_load.F |
240 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/external_fields_load.F |
245 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
246 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SST1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
253 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
254 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SSS1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
261 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
262 |
EXTERNAL_FIELDS_LOAD |
& + aWght*taux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
269 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
270 |
EXTERNAL_FIELDS_LOAD |
& + aWght*tauy1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
278 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
279 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qnet1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
286 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
287 |
EXTERNAL_FIELDS_LOAD |
& + aWght*EmPmR1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
294 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
295 |
EXTERNAL_FIELDS_LOAD |
& + aWght*saltFlux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
303 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
304 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
313 |
EXTERNAL_FIELDS_LOAD |
pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
314 |
EXTERNAL_FIELDS_LOAD |
& + aWght*pLoad1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./model/src/external_fields_load.F |
78 |
EXTERNAL_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./model/src/external_fields_load.F |
84 |
EXTERNAL_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,loadedRec(bi,bj), intime0,intime1, |
|
./model/src/external_fields_load.F |
97 |
EXTERNAL_FIELDS_LOAD |
IF ( intime1.NE.loadedRec(bi,bj) ) THEN |
|
./pkg/rbcs/rbcs_add_tendency.F |
110 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
111 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
125 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
126 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
127 |
RBCS_ADD_TENDENCY |
& - RBC_ptracers(i,j,k,bi,bj,iTracer) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
12 |
RBCS_ADD_TENDENCY |
I k, bi, bj, tracerNum, |
|
./pkg/rbcs/rbcs_add_tendency.F |
42 |
RBCS_ADD_TENDENCY |
INTEGER k, bi, bj |
|
./pkg/rbcs/rbcs_add_tendency.F |
74 |
RBCS_ADD_TENDENCY |
& - RBC_maskU(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
75 |
RBCS_ADD_TENDENCY |
& *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - RBC_maskV(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *( vVel(i,j,k,bi,bj)- RBCvVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
97 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
98 |
RBCS_ADD_TENDENCY |
& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
109 |
RBCS_FIELDS_LOAD |
IF ( intime1.NE.rbcsLdRec(bi,bj) ) THEN |
|
./pkg/rbcs/rbcs_fields_load.F |
119 |
RBCS_FIELDS_LOAD |
& ' (prev=', intimeP, rbcsLdRec(bi,bj), ' )' |
|
./pkg/rbcs/rbcs_fields_load.F |
221 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
223 |
RBCS_FIELDS_LOAD |
rbcsLdRec(bi,bj) = intime1 |
|
./pkg/rbcs/rbcs_fields_load.F |
231 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
238 |
RBCS_FIELDS_LOAD |
RBCuVel(i,j,k,bi,bj) = bWght*rbcu0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
239 |
RBCS_FIELDS_LOAD |
& +aWght*rbcu1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
240 |
RBCS_FIELDS_LOAD |
RBCvVel(i,j,k,bi,bj) = bWght*rbcv0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
& +aWght*rbcv1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
250 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
251 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
252 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
253 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
264 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
269 |
RBCS_FIELDS_LOAD |
RBC_ptracers(i,j,k,bi,bj,iTracer) = |
|
./pkg/rbcs/rbcs_fields_load.F |
270 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
271 |
RBCS_FIELDS_LOAD |
& +aWght*rbcptr1(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
55 |
RBCS_FIELDS_LOAD |
INTEGER bi, bj, i, j, k |
|
./pkg/rbcs/rbcs_fields_load.F |
74 |
RBCS_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
86 |
RBCS_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,rbcsLdRec(bi,bj), intime0,intime1, |
|
./pkg/rbcs/rbcs_init_fixed.F |
195 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
200 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
201 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
213 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
220 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
238 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
243 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc) |
|
./pkg/rbcs/rbcs_init_fixed.F |
244 |
RBCS_INIT_FIXED |
& * maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
262 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
267 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
268 |
RBCS_INIT_FIXED |
& ( RBC_mask(i-1,j,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
269 |
RBCS_INIT_FIXED |
& + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
279 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
284 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
285 |
RBCS_INIT_FIXED |
& ( RBC_mask(i,j-1,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
286 |
RBCS_INIT_FIXED |
& + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
296 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
301 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = RBC_maskU(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
302 |
RBCS_INIT_FIXED |
& * maskW(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
303 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = RBC_maskV(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
304 |
RBCS_INIT_FIXED |
& * maskS(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
40 |
RBCS_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
34 |
RBCS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
39 |
RBCS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_varia.F |
41 |
RBCS_INIT_VARIA |
rbcsLdRec(bi,bj) = 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
rbcu0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
rbcv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
48 |
RBCS_INIT_VARIA |
rbcu1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
49 |
RBCS_INIT_VARIA |
rbcv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
50 |
RBCS_INIT_VARIA |
RBCuVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
51 |
RBCS_INIT_VARIA |
RBCvVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
53 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
54 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
55 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
56 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
57 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
68 |
RBCS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/rbcs/rbcs_init_varia.F |
73 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
74 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
75 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./model/src/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
106 |
EXTERNAL_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
107 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
108 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/external_forcing.F |
109 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
117 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
118 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
125 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
126 |
EXTERNAL_FORCING_U |
I kLev, bi, bj, -1, |
|
./model/src/external_forcing.F |
135 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
136 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
144 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
145 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
159 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
189 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
19 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
213 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
214 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
220 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
221 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
227 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
228 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
238 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
239 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing.F |
240 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
246 |
EXTERNAL_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
247 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
248 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing.F |
249 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
257 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
258 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
265 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
266 |
EXTERNAL_FORCING_V |
I kLev, bi, bj, -2, |
|
./model/src/external_forcing.F |
274 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
275 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
283 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
284 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
329 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
366 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
367 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
373 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
381 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
392 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
393 |
EXTERNAL_FORCING_T |
& *( temp_addMass - theta(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
394 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
395 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
402 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
403 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
405 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
406 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
427 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
428 |
EXTERNAL_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/external_forcing.F |
429 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./model/src/external_forcing.F |
463 |
EXTERNAL_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
474 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./model/src/external_forcing.F |
476 |
EXTERNAL_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./model/src/external_forcing.F |
477 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
483 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
485 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
493 |
EXTERNAL_FORCING_T |
& 'MoistCor', kc, 1, 3, bi,bj,myThid ) |
|
./model/src/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
502 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
503 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing.F |
504 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
510 |
EXTERNAL_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
511 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
512 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing.F |
513 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
522 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
523 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
524 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
546 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
548 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/external_forcing.F |
550 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
559 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
560 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
567 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
568 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
575 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
576 |
EXTERNAL_FORCING_T |
I kLev, bi, bj, myTime, 0, myThid ) |
|
./model/src/external_forcing.F |
582 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
583 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
590 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
591 |
EXTERNAL_FORCING_T |
I kLev, bi, bj, 1, |
|
./model/src/external_forcing.F |
599 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
600 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
607 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
608 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
615 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
616 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
630 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
662 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
688 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
689 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
695 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
696 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
702 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
703 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
713 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
714 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
715 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
716 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
717 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
724 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
725 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
727 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
728 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
740 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
741 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing.F |
742 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
748 |
EXTERNAL_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
749 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
74 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
750 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing.F |
751 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
760 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
761 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
762 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
771 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
772 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
779 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
780 |
EXTERNAL_FORCING_S |
I kLev, bi, bj, myTime, 0, myThid ) |
|
./model/src/external_forcing.F |
786 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
787 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
794 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
795 |
EXTERNAL_FORCING_S |
I kLev, bi, bj, 2, |
|
./model/src/external_forcing.F |
803 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
804 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
811 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
812 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
819 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
820 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
87 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
88 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
98 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
99 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./pkg/regrid/regrid_init_varia.F |
102 |
REGRID_INIT_VARIA |
jG = bj + (myYGlobalLo-1)/sNy |
|
./pkg/regrid/regrid_init_varia.F |
123 |
REGRID_INIT_VARIA |
nlpts = REGRID_iend(i,bi,bj) |
|
./pkg/regrid/regrid_init_varia.F |
172 |
REGRID_INIT_VARIA |
REGRID_i_loc(nlpts,bi,bj) = irx |
|
./pkg/regrid/regrid_init_varia.F |
173 |
REGRID_INIT_VARIA |
REGRID_j_loc(nlpts,bi,bj) = isrc/nFx + 1 |
|
./pkg/regrid/regrid_init_varia.F |
174 |
REGRID_INIT_VARIA |
REGRID_i_out(nlpts,bi,bj) = idst |
|
./pkg/regrid/regrid_init_varia.F |
175 |
REGRID_INIT_VARIA |
REGRID_amat(nlpts,bi,bj) = wt |
|
./pkg/regrid/regrid_init_varia.F |
186 |
REGRID_INIT_VARIA |
REGRID_ibeg(i,bi,bj) = init_nlpts + 1 |
|
./pkg/regrid/regrid_init_varia.F |
187 |
REGRID_INIT_VARIA |
REGRID_iend(i,bi,bj) = nlpts |
|
./pkg/regrid/regrid_init_varia.F |
37 |
REGRID_INIT_VARIA |
INTEGER i,k, iface, uniq_tnum, bi,bj |
|
./pkg/regrid/regrid_init_varia.F |
86 |
REGRID_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/regrid/regrid_init_varia.F |
91 |
REGRID_INIT_VARIA |
uniq_tnum = W2_myTileList(bi,bj) |
|
./model/src/external_forcing_surf.F |
122 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/external_forcing_surf.F |
127 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
136 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/external_forcing_surf.F |
140 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
141 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
166 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/external_forcing_surf.F |
169 |
EXTERNAL_FORCING_SURF |
I surfaceForcingS(1-OLx,1-OLy,bi,bj), |
|
./model/src/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
182 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/external_forcing_surf.F |
188 |
EXTERNAL_FORCING_SURF |
act2 = bj - myByLo(myThid) |
|
./model/src/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
221 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
222 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
237 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
260 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
261 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
262 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
271 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
272 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
273 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
295 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
296 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
297 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
306 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
307 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
308 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
321 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
322 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
332 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
333 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
363 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
389 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
60 |
EXTERNAL_FORCING_SURF |
INTEGER bi,bj |
|
./model/src/find_alpha.F |
120 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
126 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
132 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
140 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
148 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
18 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
227 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
233 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
239 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
245 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
247 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
285 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
291 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
297 |
FIND_ALPHA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
298 |
FIND_ALPHA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
348 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
380 |
FIND_BETA |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/find_alpha.F |
423 |
FIND_BETA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
424 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
448 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
454 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
460 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
468 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
472 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
50 |
FIND_ALPHA |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/find_alpha.F |
541 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
547 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
553 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
559 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
561 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
592 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
598 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
604 |
FIND_BETA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
605 |
FIND_BETA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
93 |
FIND_ALPHA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
94 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./pkg/rw/read_glvec_rl.F |
41 |
READ_GLVEC_RL |
INTEGER ioUnit, bi, bj |
|
./pkg/rw/read_glvec_rl.F |
62 |
READ_GLVEC_RL |
bj = 0 |
|
./pkg/rw/read_glvec_rl.F |
67 |
READ_GLVEC_RL |
I bi, bj, iRec, myThid ) |
|
./pkg/rw/read_glvec_rs.F |
41 |
READ_GLVEC_RS |
INTEGER ioUnit, bi, bj |
|
./pkg/rw/read_glvec_rs.F |
62 |
READ_GLVEC_RS |
bj = 0 |
|
./pkg/rw/read_glvec_rs.F |
67 |
READ_GLVEC_RS |
I bi, bj, iRec, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
57 |
WRITE_FLD_S3D_RL |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rl.F |
87 |
WRITE_FLD_S3D_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/rw/write_fld_s3d_rl.F |
92 |
WRITE_FLD_S3D_RL |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/rw/write_fld_s3d_rs.F |
57 |
WRITE_FLD_S3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rs.F |
87 |
WRITE_FLD_S3D_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/rw/write_fld_s3d_rs.F |
92 |
WRITE_FLD_S3D_RS |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/rw/write_glvec_rl.F |
39 |
WRITE_GLVEC_RL |
INTEGER ioUnit, bi, bj, iRec |
|
./pkg/rw/write_glvec_rl.F |
60 |
WRITE_GLVEC_RL |
bj = 0 |
|
./pkg/rw/write_glvec_rl.F |
66 |
WRITE_GLVEC_RL |
I bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
39 |
WRITE_GLVEC_RS |
INTEGER ioUnit, bi, bj, iRec |
|
./pkg/rw/write_glvec_rs.F |
60 |
WRITE_GLVEC_RS |
bj = 0 |
|
./pkg/rw/write_glvec_rs.F |
66 |
WRITE_GLVEC_RS |
I bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
11 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rl.F |
37 |
WRITE_LOCAL_RL |
INTEGER bi,bj |
|
./pkg/rw/write_local_rl.F |
91 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rs.F |
11 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
|
./pkg/rw/write_local_rs.F |
37 |
WRITE_LOCAL_RS |
INTEGER bi,bj |
|
./pkg/rw/write_local_rs.F |
91 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
|
./model/src/find_rho.F |
1188 |
LOOK_FOR_NEG_SALINITY |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
1213 |
LOOK_FOR_NEG_SALINITY |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
1235 |
LOOK_FOR_NEG_SALINITY |
& ' from level k =', k, ' ; bi,bj =', bi, bj |
|
./model/src/find_rho.F |
154 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
189 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
218 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
241 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
31 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
61 |
FIND_RHO_2D |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
91 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./pkg/salt_plume/salt_plume_apply.F |
10 |
SALT_PLUME_APPLY |
I trIdentity, bi, bj, |
|
./pkg/salt_plume/salt_plume_apply.F |
154 |
SALT_PLUME_APPLY |
work(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
176 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
185 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
196 |
SALT_PLUME_APPLY |
IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
198 |
SALT_PLUME_APPLY |
gTr_totSurf2Below = SPbrineVolFlux(i,j,bi,bj)*SurfVal |
|
./pkg/salt_plume/salt_plume_apply.F |
199 |
SALT_PLUME_APPLY |
gTr_Surf2kLev = dSPvolSurf2kLev(i,j,k,bi,bj) * SurfVal |
|
./pkg/salt_plume/salt_plume_apply.F |
200 |
SALT_PLUME_APPLY |
dSPvolBelow2kLev = -dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
206 |
SALT_PLUME_APPLY |
gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
225 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
228 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
235 |
SALT_PLUME_APPLY |
& CALL DIAGNOSTICS_FILL(plumetend, diagName, 0,Nr,2,bi,bj,myThid) |
|
./pkg/salt_plume/salt_plume_apply.F |
250 |
SALT_PLUME_APPLY |
& plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
252 |
SALT_PLUME_APPLY |
plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
53 |
SALT_PLUME_APPLY |
INTEGER bi, bj |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
116 |
SALT_PLUME_CALC_DEPTH |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
118 |
SALT_PLUME_CALC_DEPTH |
I K, bi, bj, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
122 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
143 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
14 |
SALT_PLUME_CALC_DEPTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
158 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
164 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
177 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
178 |
SALT_PLUME_CALC_DEPTH |
& min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
179 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
187 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
188 |
SALT_PLUME_CALC_DEPTH |
& min( SaltPlumeDepth(i,j,bi,bj), |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
189 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
48 |
SALT_PLUME_CALC_DEPTH |
INTEGER bi, bj |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
69 |
SALT_PLUME_CALC_DEPTH |
act2 = bj - myByLo(myThid) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
82 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
95 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
10 |
SALT_PLUME_DIAGNOSTICS_FILL |
I bi, bj, myThid ) |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
23 |
SALT_PLUME_DIAGNOSTICS_FILL |
INTEGER bi,bj |
|
./model/src/forcing_surf_relax.F |
100 |
FORCING_SURF_RELAX |
& -lambdaThetaClimRelax(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
101 |
FORCING_SURF_RELAX |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
102 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
104 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
105 |
FORCING_SURF_RELAX |
& -lambdaSaltClimRelax(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
106 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
107 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
123 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
124 |
FORCING_SURF_RELAX |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
125 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
126 |
FORCING_SURF_RELAX |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
134 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
135 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
137 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
139 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
140 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
142 |
FORCING_SURF_RELAX |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
150 |
FORCING_SURF_RELAX |
IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/forcing_surf_relax.F |
151 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
152 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
153 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
154 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
171 |
FORCING_SURF_RELAX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/forcing_surf_relax.F |
173 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = 0. _d 0 |
|
./model/src/forcing_surf_relax.F |
176 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = sumTile(bi,bj) |
|
./model/src/forcing_surf_relax.F |
177 |
FORCING_SURF_RELAX |
& + surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
178 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
186 |
FORCING_SURF_RELAX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/forcing_surf_relax.F |
190 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
207 |
FORCING_SURF_RELAX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/forcing_surf_relax.F |
209 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = 0. _d 0 |
|
./model/src/forcing_surf_relax.F |
212 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = sumTile(bi,bj) |
|
./model/src/forcing_surf_relax.F |
213 |
FORCING_SURF_RELAX |
& + surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
214 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
222 |
FORCING_SURF_RELAX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/forcing_surf_relax.F |
226 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
54 |
FORCING_SURF_RELAX |
INTEGER bi,bj |
|
./model/src/forcing_surf_relax.F |
72 |
FORCING_SURF_RELAX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/forcing_surf_relax.F |
83 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
84 |
FORCING_SURF_RELAX |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
85 |
FORCING_SURF_RELAX |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
86 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
88 |
FORCING_SURF_RELAX |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/forcing_surf_relax.F |
89 |
FORCING_SURF_RELAX |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
90 |
FORCING_SURF_RELAX |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
91 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
99 |
FORCING_SURF_RELAX |
surfaceForcingT(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_do_exch.F |
46 |
SALT_PLUME_DO_EXCH |
INTEGER bi, bj, i, j |
|
./pkg/salt_plume/salt_plume_do_exch.F |
55 |
SALT_PLUME_DO_EXCH |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/salt_plume/salt_plume_do_exch.F |
59 |
SALT_PLUME_DO_EXCH |
saltPlumeFlux(i,j,bi,bj) = saltPlmFlx_cpl(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
10 |
SALT_PLUME_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
38 |
SALT_PLUME_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
58 |
SALT_PLUME_FORCING_SURF |
SPforcS1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
60 |
SALT_PLUME_FORCING_SURF |
SPforcT1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
61 |
SALT_PLUME_FORCING_SURF |
& *theta(i,j,1,bi,bj)*rhoConst |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
67 |
SALT_PLUME_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
68 |
SALT_PLUME_FORCING_SURF |
& - SPforcS1(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
69 |
SALT_PLUME_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
70 |
SALT_PLUME_FORCING_SURF |
& - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
72 |
SALT_PLUME_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
73 |
SALT_PLUME_FORCING_SURF |
& - saltPlumeFlux(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_init_varia.F |
28 |
SALT_PLUME_INIT_VARIA |
INTEGER i,j, bi,bj,Nrp1 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
34 |
SALT_PLUME_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/salt_plume/salt_plume_init_varia.F |
41 |
SALT_PLUME_INIT_VARIA |
SaltPlumeDepth (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
42 |
SALT_PLUME_INIT_VARIA |
saltPlumeFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
44 |
SALT_PLUME_INIT_VARIA |
SPbrineVolFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
45 |
SALT_PLUME_INIT_VARIA |
SPforcS1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
47 |
SALT_PLUME_INIT_VARIA |
dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
48 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
49 |
SALT_PLUME_INIT_VARIA |
SPforcingS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
50 |
SALT_PLUME_INIT_VARIA |
SPforcingT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
51 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
53 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above (i,j,Nrp1,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
54 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
103 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
106 |
SALT_PLUME_TENDENCY_APPLY_S |
& *maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
107 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
109 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
112 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
11 |
SALT_PLUME_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
124 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
129 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(1)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
130 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(2)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
132 |
SALT_PLUME_TENDENCY_APPLY_S |
lon(1) = XC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
133 |
SALT_PLUME_TENDENCY_APPLY_S |
lon(2) = XC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
134 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(1) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
135 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(2) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
144 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
145 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
147 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(i,j) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
150 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
162 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumefrac,'PLUMEKB ',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
164 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumetend,'oceSPtnd',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
41 |
SALT_PLUME_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
80 |
SALT_PLUME_TENDENCY_APPLY_S |
I imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
82 |
SALT_PLUME_TENDENCY_APPLY_S |
I XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
93 |
SALT_PLUME_TENDENCY_APPLY_S |
I imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
95 |
SALT_PLUME_TENDENCY_APPLY_S |
I XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
11 |
SALT_PLUME_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
41 |
SALT_PLUME_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
58 |
SALT_PLUME_TENDENCY_APPLY_T |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
59 |
SALT_PLUME_TENDENCY_APPLY_T |
plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
61 |
SALT_PLUME_TENDENCY_APPLY_T |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
72 |
SALT_PLUME_TENDENCY_APPLY_T |
& plumeEtend,'oceEPtnd',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
103 |
SALT_PLUME_VOLFRAC |
I XC(1-Olx,1-Oly,bi,bj),YC(1-Olx,1-Oly,bi,bj), |
|
./pkg/salt_plume/salt_plume_volfrac.F |
109 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj)=dMbdt(i,j) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
10 |
SALT_PLUME_VOLFRAC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
110 |
SALT_PLUME_VOLFRAC |
IF(SPplumek(i,j,k,bi,bj).GT. 0.9999999) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
149 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=saltPlumeFlux(i,j,bi,bj)/SPbrineSconst |
|
./pkg/salt_plume/salt_plume_volfrac.F |
150 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit |
|
./pkg/salt_plume/salt_plume_volfrac.F |
158 |
SALT_PLUME_VOLFRAC |
dplumek=SPplumek(i,j,k+1,bi,bj)-SPplumek(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
159 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
171 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
172 |
SALT_PLUME_VOLFRAC |
& - dSPvolSurf2kLev(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
181 |
SALT_PLUME_VOLFRAC |
& SPplumek,'PLUMEKB1',0,Nr,1,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
52 |
SALT_PLUME_VOLFRAC |
INTEGER bi,bj |
|
./pkg/salt_plume/salt_plume_volfrac.F |
77 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
78 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
79 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
85 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
86 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
96 |
SALT_PLUME_VOLFRAC |
temp(i,j)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
106 |
SBO_CALC |
integer bi, bj, i, j, k |
|
./pkg/sbo/sbo_calc.F |
200 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
204 |
SBO_CALC |
UEice(i,j,bi,bj) = 0. |
|
./pkg/sbo/sbo_calc.F |
205 |
SBO_CALC |
VNice(i,j,bi,bj) = 0. |
|
./pkg/sbo/sbo_calc.F |
223 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
225 |
SBO_CALC |
tile_FWload(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
226 |
SBO_CALC |
tile_GCload(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
227 |
SBO_CALC |
tile_sboarea(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
231 |
SBO_CALC |
tile_sboarea(bi,bj) = tile_sboarea(bi,bj) + darea |
|
./pkg/sbo/sbo_calc.F |
232 |
SBO_CALC |
tile_FWload(bi,bj) = tile_FWload(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
233 |
SBO_CALC |
& rhoConst*etaN(i,j,bi,bj)*darea + |
|
./pkg/sbo/sbo_calc.F |
234 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
237 |
SBO_CALC |
tile_GCload(bi,bj) = tile_GCload(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
238 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj) * dvolume |
|
./pkg/sbo/sbo_calc.F |
251 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
255 |
SBO_CALC |
Mload(i,j,bi,bj) = rhoConst*etaN(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
256 |
SBO_CALC |
& sIceLoad(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
257 |
SBO_CALC |
& GCload - R_low(i,j,bi,bj)*rhoConst |
|
./pkg/sbo/sbo_calc.F |
259 |
SBO_CALC |
Mload(i,j,bi,bj) = Mload(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
268 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
272 |
SBO_CALC |
lat = yC(i,j,bi,bj) * deg2rad |
|
./pkg/sbo/sbo_calc.F |
273 |
SBO_CALC |
lon = xC(i,j,bi,bj) * deg2rad |
|
./pkg/sbo/sbo_calc.F |
274 |
SBO_CALC |
COSlat(i,j,bi,bj) = COS(lat) |
|
./pkg/sbo/sbo_calc.F |
275 |
SBO_CALC |
SINlat(i,j,bi,bj) = SIN(lat) |
|
./pkg/sbo/sbo_calc.F |
276 |
SBO_CALC |
COSlon(i,j,bi,bj) = COS(lon) |
|
./pkg/sbo/sbo_calc.F |
277 |
SBO_CALC |
SINlon(i,j,bi,bj) = SIN(lon) |
|
./pkg/sbo/sbo_calc.F |
287 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
291 |
SBO_CALC |
tile_xoamc(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
292 |
SBO_CALC |
tile_yoamc(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
293 |
SBO_CALC |
tile_zoamc(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
294 |
SBO_CALC |
tile_xoamp(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
295 |
SBO_CALC |
tile_yoamp(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
296 |
SBO_CALC |
tile_zoamp(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
297 |
SBO_CALC |
tile_mass(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
298 |
SBO_CALC |
tile_xcom(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
299 |
SBO_CALC |
tile_ycom(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
300 |
SBO_CALC |
tile_zcom(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
302 |
SBO_CALC |
tile_xoamc_si(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
303 |
SBO_CALC |
tile_yoamc_si(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
304 |
SBO_CALC |
tile_zoamc_si(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
305 |
SBO_CALC |
tile_mass_si(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
307 |
SBO_CALC |
tile_xoamp_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
308 |
SBO_CALC |
tile_yoamp_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
309 |
SBO_CALC |
tile_zoamp_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
310 |
SBO_CALC |
tile_mass_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
311 |
SBO_CALC |
tile_xcom_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
312 |
SBO_CALC |
tile_ycom_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
313 |
SBO_CALC |
tile_zcom_fw(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
315 |
SBO_CALC |
tile_mass_gc(bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
320 |
SBO_CALC |
IF ( maskC(i,j,1,bi,bj) .NE. 0. ) THEN |
|
./pkg/sbo/sbo_calc.F |
323 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
326 |
SBO_CALC |
tile_mass(bi,bj) = tile_mass(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
327 |
SBO_CALC |
& Mload(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
328 |
SBO_CALC |
tile_mass_gc(bi,bj) = tile_mass_gc(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
330 |
SBO_CALC |
tile_mass_si(bi,bj) = tile_mass_si(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
331 |
SBO_CALC |
& sIceLoad(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
334 |
SBO_CALC |
tile_xcom(bi,bj) = tile_xcom(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
335 |
SBO_CALC |
& Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
337 |
SBO_CALC |
tile_ycom(bi,bj) = tile_ycom(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
338 |
SBO_CALC |
& Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
340 |
SBO_CALC |
tile_zcom(bi,bj) = tile_zcom(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
341 |
SBO_CALC |
& Mload(i,j,bi,bj)*SINlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
347 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k) |
|
./pkg/sbo/sbo_calc.F |
348 |
SBO_CALC |
& * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
349 |
SBO_CALC |
tile_xoamc(bi,bj) = tile_xoamc(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
350 |
SBO_CALC |
& ( VN(i,j,k,bi,bj)*SINlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
351 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
352 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
354 |
SBO_CALC |
tile_yoamc(bi,bj) = tile_yoamc(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
355 |
SBO_CALC |
& (-VN(i,j,k,bi,bj)*COSlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
356 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
357 |
SBO_CALC |
& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
359 |
SBO_CALC |
tile_zoamc(bi,bj) = tile_zoamc(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
360 |
SBO_CALC |
& UE(i,j,k,bi,bj)*COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
365 |
SBO_CALC |
tile_xoamc_si(bi,bj) = tile_xoamc_si(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
366 |
SBO_CALC |
& ( VNice(i,j,bi,bj)*SINlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
367 |
SBO_CALC |
& UEice(i,j,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
368 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
369 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
370 |
SBO_CALC |
tile_yoamc_si(bi,bj) = tile_yoamc_si(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
371 |
SBO_CALC |
& (-VNice(i,j,bi,bj)*COSlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
372 |
SBO_CALC |
& UEice(i,j,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
373 |
SBO_CALC |
& SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) ) |
|
./pkg/sbo/sbo_calc.F |
374 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
375 |
SBO_CALC |
tile_zoamc_si(bi,bj) = tile_zoamc_si(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
376 |
SBO_CALC |
& UEice(i,j,bi,bj)*COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
377 |
SBO_CALC |
& * sIceLoad(i,j,bi,bj) * ae * darea |
|
./pkg/sbo/sbo_calc.F |
380 |
SBO_CALC |
tile_xoamp(bi,bj) = tile_xoamp(bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
381 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
382 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
383 |
SBO_CALC |
tile_yoamp(bi,bj) = tile_yoamp(bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
384 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
385 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
386 |
SBO_CALC |
tile_zoamp(bi,bj) = tile_zoamp(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
387 |
SBO_CALC |
& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
388 |
SBO_CALC |
& * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea |
|
./pkg/sbo/sbo_calc.F |
391 |
SBO_CALC |
tile_mass_fw(bi,bj) = tile_mass_fw(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
395 |
SBO_CALC |
tile_xcom_fw(bi,bj) = tile_xcom_fw(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
396 |
SBO_CALC |
& FWload * COSlat(i,j,bi,bj) * COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
398 |
SBO_CALC |
tile_ycom_fw(bi,bj) = tile_ycom_fw(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
399 |
SBO_CALC |
& FWload * COSlat(i,j,bi,bj) * SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
401 |
SBO_CALC |
tile_zcom_fw(bi,bj) = tile_zcom_fw(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
402 |
SBO_CALC |
& FWload * SINlat(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
406 |
SBO_CALC |
tile_xoamp_fw(bi,bj) = tile_xoamp_fw(bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
407 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
409 |
SBO_CALC |
tile_yoamp_fw(bi,bj) = tile_yoamp_fw(bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
410 |
SBO_CALC |
& SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
412 |
SBO_CALC |
tile_zoamp_fw(bi,bj) = tile_zoamp_fw(bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
413 |
SBO_CALC |
& COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
10 |
FREESURF_RESCALE_G |
I bi, bj, k, |
|
./model/src/freesurf_rescale_g.F |
32 |
FREESURF_RESCALE_G |
INTEGER bi,bj,k |
|
./model/src/freesurf_rescale_g.F |
48 |
FREESURF_RESCALE_G |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
57 |
FREESURF_RESCALE_G |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/freesurf_rescale_g.F |
59 |
FREESURF_RESCALE_G |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
67 |
FREESURF_RESCALE_G |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
119 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
125 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
127 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i+1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
128 |
ADVECT |
& * UI(i+1,j, bi,bj) - |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
130 |
ADVECT |
& * UI(i ,j, bi,bj) )*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
131 |
ADVECT |
& *(HALF * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j+1,bi,bj)) |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
& * VI(i ,j+1, bi,bj) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& * _dxG(i ,j+1,bi,bj) - |
|
./pkg/seaice/advect.F |
136 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
137 |
ADVECT |
& * VI(i ,j , bi,bj) |
|
./pkg/seaice/advect.F |
138 |
ADVECT |
& * _dxG(i,j,bi,bj))*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
& *(HALF * _recip_dyF(i,j,bi,bj) * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
146 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
151 |
ADVECT |
afx(i,j) = _dyG(i,j,bi,bj) * UI(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
152 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj)) |
|
./pkg/seaice/advect.F |
153 |
ADVECT |
afy(i,j) = _dxG(i,j,bi,bj) * VI(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
154 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
159 |
ADVECT |
fld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
163 |
ADVECT |
& )*recip_rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
178 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
182 |
ADVECT |
tmpFld(i,j,bi,bj) = fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
190 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
194 |
ADVECT |
DIFFA(i,j,bi,bj) = MIN( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) ) |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
206 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
207 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
208 |
ADVECT |
& )*iceMsk(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
218 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
226 |
ADVECT |
DIFFA(i,j,bi,bj) = - DIFFA(i,j,bi,bj)*DIFFA(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
234 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
238 |
ADVECT |
fld(i,j,bi,bj) = ( fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
239 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
240 |
ADVECT |
& )*iceMsk(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
58 |
ADVECT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/advect.F |
68 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
72 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
92 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
98 |
ADVECT |
& +fldNm1(i,j,bi,bj)) |
|
./pkg/seaice/cost_ice_test.F |
101 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
102 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
110 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
114 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
115 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
144 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
148 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
150 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
152 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
160 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
164 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
165 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
166 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
175 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
179 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
180 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
181 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
185 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
186 |
COST_ICE_TEST |
& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
197 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
201 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
202 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
203 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
211 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
215 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
216 |
COST_ICE_TEST |
& UICE(i,j,bi,bj) * UICE(i,j,bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
217 |
COST_ICE_TEST |
& VICE(i,j,bi,bj) * VICE(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
75 |
COST_ICE_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/seaice/cost_ice_test.F |
97 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/diffus.F |
114 |
DIFFUS |
DELTXX = DIFFA(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
& * _recip_dxF(i,j,bi,bj)*_recip_dxF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
116 |
DIFFUS |
DELTYY = DIFFA(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
117 |
DIFFUS |
& * _recip_dyF(i,j,bi,bj)*_recip_dyF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
118 |
DIFFUS |
& * _recip_dxF(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
121 |
DIFFUS |
& (fld(i+1,j,bi,bj)-fld(i, j,bi,bj)) |
|
./pkg/seaice/diffus.F |
122 |
DIFFUS |
& *iceMsk(i+1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
124 |
DIFFUS |
& *maskInW(i+1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
126 |
DIFFUS |
& -(fld(i, j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
127 |
DIFFUS |
& *iceMsk(i-1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
129 |
DIFFUS |
& *maskInW(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
133 |
DIFFUS |
& (fld(i,j+1,bi,bj)-fld(i,j, bi,bj)) |
|
./pkg/seaice/diffus.F |
134 |
DIFFUS |
& * _dxG(i,j+1,bi,bj)*iceMsk(i,j+1,bi,bj) |
|
./pkg/seaice/diffus.F |
136 |
DIFFUS |
& *maskInS(i,j+1,bi,bj) |
|
./pkg/seaice/diffus.F |
138 |
DIFFUS |
& -(fld(i,j, bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
139 |
DIFFUS |
& * _dxG(i,j, bi,bj)*iceMsk(i,j-1,bi,bj) |
|
./pkg/seaice/diffus.F |
141 |
DIFFUS |
& *maskInS(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
148 |
DIFFUS |
fld(i,j,bi,bj) = tmpFld(i,j) |
|
./pkg/seaice/diffus.F |
46 |
DIFFUS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/diffus.F |
54 |
DIFFUS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
dfx(i,j) = _dyG(i,j,bi,bj) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i-1,j,bi,bj)) |
|
./pkg/seaice/diffus.F |
70 |
DIFFUS |
& * cosFacU(j,bi,bj) |
|
./pkg/seaice/diffus.F |
71 |
DIFFUS |
& * iceMsk(i,j,bi,bj)*iceMsk(i-1,j,bi,bj) |
|
./pkg/seaice/diffus.F |
72 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i-1,j,bi,bj) )*HALF |
|
./pkg/seaice/diffus.F |
74 |
DIFFUS |
& * maskInW(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
76 |
DIFFUS |
dfy(i,j) = _dxG(i,j,bi,bj) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
& * (fld(i,j,bi,bj)-fld(i,j-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
79 |
DIFFUS |
& * cosFacV(j,bi,bj) |
|
./pkg/seaice/diffus.F |
81 |
DIFFUS |
& * iceMsk(i,j,bi,bj)*iceMsk(i,j-1,bi,bj) |
|
./pkg/seaice/diffus.F |
82 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i,j-1,bi,bj) )*HALF |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * maskInS(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
90 |
DIFFUS |
fld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
96 |
DIFFUS |
fld(i,j,bi,bj) = ( |
|
./pkg/seaice/diffus.F |
99 |
DIFFUS |
& ) * recip_rA(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
102 |
DYNSOLVER |
COR_ICE(i,j,bi,bj) = 0. |
|
./pkg/seaice/dynsolver.F |
107 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
108 |
DYNSOLVER |
& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj) |
|
./pkg/seaice/dynsolver.F |
109 |
DYNSOLVER |
& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) ) |
|
./pkg/seaice/dynsolver.F |
110 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
120 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
124 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
& +UWIND(I ,J-1,bi,bj)+UWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
126 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
127 |
DYNSOLVER |
& +VWIND(I ,J-1,bi,bj)+VWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
135 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
154 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
155 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
156 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
157 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
163 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
170 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
179 |
DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
180 |
DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
196 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
199 |
DYNSOLVER |
& +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
202 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
203 |
DYNSOLVER |
& *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
204 |
DYNSOLVER |
& +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
205 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
208 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
216 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
222 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
225 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
226 |
DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
228 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
230 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=SEAICE_zetaMin |
|
./pkg/seaice/dynsolver.F |
231 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
257 |
DYNSOLVER |
UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
258 |
DYNSOLVER |
VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
259 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
274 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
280 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
338 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
343 |
DYNSOLVER |
VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
56 |
DYNSOLVER |
INTEGER i, j, bi, bj |
|
./pkg/seaice/dynsolver.F |
77 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
83 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
84 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
98 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
1003 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1004 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
1005 |
LSR |
& +(UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1006 |
LSR |
& * _recip_dxG(I,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1008 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1009 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1010 |
LSR |
& +(UICEC(I ,J+1,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1011 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1018 |
LSR |
& uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1020 |
LSR |
& uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1026 |
LSR |
rhsV(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1027 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1031 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj)) |
|
./pkg/seaice/lsr.F |
1032 |
LSR |
& *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
1034 |
LSR |
& (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
1035 |
LSR |
& *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1036 |
LSR |
& ) * _recip_dyU(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
1038 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dUdx(I ,J ) |
|
./pkg/seaice/lsr.F |
1039 |
LSR |
& + zetaMinusEta(I-1,J ,bi,bj) * dUdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
1040 |
LSR |
& - zetaMinusEta(I ,J-1,bi,bj) * dUdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
1041 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dUdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
1042 |
LSR |
& )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1045 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dUdy(I ,J ) |
|
./pkg/seaice/lsr.F |
1046 |
LSR |
& + ETA (I ,J-1,bi,bj) * dUdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
1047 |
LSR |
& - ETA (I-1,J ,bi,bj) * dUdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
1048 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dUdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
1049 |
LSR |
& )*0.5 _d 0* _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1051 |
LSR |
& +(ETA(I ,J ,bi,bj) + ETA(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1052 |
LSR |
& -ETA(I-1,J-1,bi,bj) - ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
1053 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1054 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1055 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1056 |
LSR |
& +ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1057 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1058 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1060 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1061 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1062 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1064 |
LSR |
VRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1065 |
LSR |
& ETA(I-1,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1066 |
LSR |
& +ETA(I-1,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1067 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1068 |
LSR |
VRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1069 |
LSR |
& ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1070 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1071 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1093 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
1098 |
LSR |
VTMP(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1105 |
LSR |
AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1107 |
LSR |
& etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1110 |
LSR |
& +( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1111 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1112 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1113 |
LSR |
& + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1114 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
1115 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1117 |
LSR |
AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1119 |
LSR |
& etaPlusZeta(I-1,J,bi,bj) + etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1122 |
LSR |
& -( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1123 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
1124 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1125 |
LSR |
& - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1126 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
1127 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1132 |
LSR |
VRT(J)=rhsV(I,J,bi,bj)+AA3+VRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1133 |
LSR |
& +VRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1134 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1138 |
LSR |
CVV(J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1140 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
1143 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1144 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
1145 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1153 |
LSR |
VICE(I,J,bi,bj)=VTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1154 |
LSR |
& +WFAV*(VRT(J)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1163 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
1167 |
LSR |
UERR=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1168 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1200 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
1204 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1205 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
170 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
174 |
LSR |
ucLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
175 |
LSR |
& + uIceC(I+1,J,bi,bj) + uIceC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
176 |
LSR |
& + uIceC(I ,J,bi,bj) + uIceC(I, J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
177 |
LSR |
vcLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
178 |
LSR |
& + vIceC(I+1,J,bi,bj) + vIceC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
179 |
LSR |
& + vIceC(I ,J,bi,bj) + vIceC(I, J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
184 |
LSR |
e11loc = 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
185 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
186 |
LSR |
& -uIceC(I, J+1,bi,bj)-uIceC(I, J,bi,bj)) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
& + vcLoc(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
188 |
LSR |
e22loc = 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
189 |
LSR |
& (vIceC(I+1,J+1,bi,bj)+vIceC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
190 |
LSR |
& -vIceC(I+1,J, bi,bj)-vIceC(I,J, bi,bj)) |
|
./pkg/seaice/lsr.F |
191 |
LSR |
& + ucLoc(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
193 |
LSR |
& 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
194 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
195 |
LSR |
& -uIceC(I+1,J, bi,bj)-uIceC(I,J, bi,bj)) |
|
./pkg/seaice/lsr.F |
196 |
LSR |
& + 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
197 |
LSR |
& (vIceC(I+1,J+1,bi,bj)+vIceC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
198 |
LSR |
& -vIceC(I, J+1,bi,bj)-vIceC(I, J,bi,bj)) |
|
./pkg/seaice/lsr.F |
199 |
LSR |
& - vcLoc(I,J,bi,bj)*k1AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
200 |
LSR |
& - ucLoc(I,J,bi,bj)*k2AtC(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
210 |
LSR |
ZETA(I,J,bi,bj) = 0.5 _d 0*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/lsr.F |
212 |
LSR |
ZETA(I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
ZETA(I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
215 |
LSR |
ZETA(I,J,bi,bj) = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
ETA(I,J,bi,bj) = ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
217 |
LSR |
PRESS(I,J,bi,bj) = 2.0 _d 0*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/lsr.F |
223 |
LSR |
TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
224 |
LSR |
& +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
225 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
227 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
229 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
233 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
235 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/lsr.F |
241 |
LSR |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
242 |
LSR |
& *SIGN(SINWAT, _fCori(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
243 |
LSR |
& + AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
245 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
248 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
255 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
256 |
LSR |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
258 |
LSR |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
259 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
260 |
LSR |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
261 |
LSR |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/lsr.F |
262 |
LSR |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
264 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
265 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
266 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
267 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*vIceNm1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
268 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
269 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
276 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
282 |
LSR |
& + eta(I,J,bi,bj) + eta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
284 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
290 |
LSR |
& + eta(I,J,bi,bj) + eta(I,J-1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I,J-1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
299 |
LSR |
UXX(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)+etaV(I,J)) |
|
./pkg/seaice/lsr.F |
300 |
LSR |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
302 |
LSR |
UXM(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)-etaV(I,J)) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
309 |
LSR |
UYY(I,J) = _dxC(I,J,bi,bj) * etaU(I,J) |
|
./pkg/seaice/lsr.F |
310 |
LSR |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
312 |
LSR |
UYM(I,J) = _dxC(I,J,bi,bj) * etaU(I,J) |
|
./pkg/seaice/lsr.F |
313 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
319 |
LSR |
VXX(I,J) = _dyC(I,J,bi,bj) * etaV(I,J) |
|
./pkg/seaice/lsr.F |
320 |
LSR |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
322 |
LSR |
VXM(I,J) = _dyC(I,J,bi,bj) * etaV(I,J) |
|
./pkg/seaice/lsr.F |
323 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
329 |
LSR |
VYY(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)+etaU(I,J)) |
|
./pkg/seaice/lsr.F |
330 |
LSR |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
332 |
LSR |
VYM(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)-etaU(I,J)) |
|
./pkg/seaice/lsr.F |
333 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
344 |
LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/lsr.F |
345 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
347 |
LSR |
CU(I,J,bi,bj)= ( - UXX(I ,J) - UXM(I ,J) ) |
|
./pkg/seaice/lsr.F |
348 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
350 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
353 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
355 |
LSR |
uRt1(I,J,bi,bj)= UYY(I,J-1) + UYM(I,J-1) |
|
./pkg/seaice/lsr.F |
357 |
LSR |
uRt2(I,J,bi,bj)= UYY(I,J ) - UYM(I,J ) |
|
./pkg/seaice/lsr.F |
364 |
LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
365 |
LSR |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
368 |
LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
369 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
370 |
LSR |
& ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
371 |
LSR |
& + DRAGS(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
372 |
LSR |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
373 |
LSR |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
384 |
LSR |
AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1) |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
387 |
LSR |
CV(I,J,bi,bj)=( - VYY(I,J ) - VYM(I,J ) |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
390 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
393 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
395 |
LSR |
vRt1(I,J,bi,bj) = VXX(I-1,J) + VXM(I-1,J) |
|
./pkg/seaice/lsr.F |
397 |
LSR |
vRt2(I,J,bi,bj) = VXX(I ,J) - VXM(I ,J) |
|
./pkg/seaice/lsr.F |
404 |
LSR |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
409 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
410 |
LSR |
& ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
411 |
LSR |
& + DRAGS(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
412 |
LSR |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
413 |
LSR |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
& * (vcLoc(I,J,bi,bj)-vcLoc(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
424 |
LSR |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
425 |
LSR |
& + (zetaV(I,J)+etaV(I,J))*k2atV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
426 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
427 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
429 |
LSR |
& * (ucLoc(I,J,bi,bj)-ucLoc(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
431 |
LSR |
& - etaV(I,J) * k2AtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
432 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
440 |
LSR |
& * (ucLoc(I,J,bi,bj)-ucLoc(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
441 |
LSR |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
442 |
LSR |
& + (zetaU(I,J)+etaU(I,J))*k2atU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
443 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
444 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
446 |
LSR |
& * (vcLoc(I,J,bi,bj)-vcLoc(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
447 |
LSR |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
448 |
LSR |
& - etaU(I,J) * k1AtU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
449 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
454 |
LSR |
rhsU(I,J,bi,bj) = DRAGA(I,J,bi,bj)*vIceC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
455 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
456 |
LSR |
& + ( _dyC(I, J, bi,bj) * sig11(I, J ) |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& - _dyC(I-1,J, bi,bj) * sig11(I-1,J ) |
|
./pkg/seaice/lsr.F |
458 |
LSR |
& + _dxC(I, J, bi,bj) * sig21(I, J ) |
|
./pkg/seaice/lsr.F |
459 |
LSR |
& - _dxC(I, J-1,bi,bj) * sig21(I, J-1) ) |
|
./pkg/seaice/lsr.F |
460 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
461 |
LSR |
rhsV(I,J,bi,bj) = - DRAGA(I,J,bi,bj)*uIceC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
462 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
463 |
LSR |
& + ( _dyC(I, J, bi,bj) * sig12(I, J ) |
|
./pkg/seaice/lsr.F |
464 |
LSR |
& - _dyC(I-1,J, bi,bj) * sig12(I-1,J ) |
|
./pkg/seaice/lsr.F |
465 |
LSR |
& + _dxC(I, J, bi,bj) * sig22(I, J ) |
|
./pkg/seaice/lsr.F |
466 |
LSR |
& - _dxC(I, J-1,bi,bj) * sig22(I, J-1) ) |
|
./pkg/seaice/lsr.F |
467 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
489 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
496 |
LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
502 |
LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
511 |
LSR |
IF (I.EQ.1) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
512 |
LSR |
IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
514 |
LSR |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
517 |
LSR |
& + uRt1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
518 |
LSR |
& + uRt2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
520 |
LSR |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
521 |
LSR |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
523 |
LSR |
URT(I,J)=URT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
527 |
LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
529 |
LSR |
CUU(1,J)=CUU(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
530 |
LSR |
URT(1,J)=URT(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/lsr.F |
541 |
LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
556 |
LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
557 |
LSR |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
568 |
LSR |
IF (J.EQ.1) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
569 |
LSR |
IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
571 |
LSR |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
574 |
LSR |
& + vRt1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
575 |
LSR |
& + vRt2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
577 |
LSR |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
578 |
LSR |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
580 |
LSR |
VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
584 |
LSR |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
586 |
LSR |
CVV(I,1)=CVV(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
587 |
LSR |
VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
590 |
LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
591 |
LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/lsr.F |
592 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
600 |
LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
601 |
LSR |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
613 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
617 |
LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
618 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
638 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
642 |
LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
643 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
700 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
704 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
705 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
710 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
711 |
LSR |
& ETA(I,J-1,bi,bj) + ETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
712 |
LSR |
& +ETA(I,J ,bi,bj) + ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
713 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./pkg/seaice/lsr.F |
714 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
715 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
721 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
726 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
727 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
728 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
729 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
730 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
731 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
732 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
733 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
734 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
735 |
LSR |
& * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
736 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
737 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
738 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
739 |
LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/lsr.F |
740 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
741 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
742 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
744 |
LSR |
& + AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
745 |
LSR |
& + DRAGS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
746 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
751 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
752 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
753 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
760 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
761 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
762 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
763 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
765 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
766 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
767 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
768 |
LSR |
& * _recip_dxG(I,J, bi,bj) ) |
|
./pkg/seaice/lsr.F |
775 |
LSR |
& vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
777 |
LSR |
& vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
783 |
LSR |
rhsU(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
784 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
787 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
788 |
LSR |
& *(vz(i,j)-vz(i,j-1)) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
790 |
LSR |
& (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
791 |
LSR |
& *(vz(i-1,j)-vz(i-1,j-1)) * _recip_dyC(i-1,j,bi,bj) |
|
./pkg/seaice/lsr.F |
792 |
LSR |
& ) * _recip_dxV(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
794 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dVdy(I ,J ) |
|
./pkg/seaice/lsr.F |
795 |
LSR |
& + zetaMinusEta(I ,J-1,bi,bj) * dVdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
796 |
LSR |
& - zetaMinusEta(I-1,J ,bi,bj) * dVdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
797 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dVdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
798 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
801 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dVdx(I ,J ) |
|
./pkg/seaice/lsr.F |
802 |
LSR |
& + ETA (I-1,J ,bi,bj) * dVdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
803 |
LSR |
& - ETA (I ,J-1,bi,bj) * dVdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
804 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dVdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
805 |
LSR |
& ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
807 |
LSR |
& -(etaPlusZeta(I ,J ,bi,bj)+etaPlusZeta(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
808 |
LSR |
& -etaPlusZeta(I-1,J-1,bi,bj)-etaPlusZeta(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
809 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
810 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
811 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
813 |
LSR |
& -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
814 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
815 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
816 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
819 |
LSR |
& -ETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
820 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
821 |
LSR |
& *TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
822 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
825 |
LSR |
URT1(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
826 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
827 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
828 |
LSR |
& - ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
829 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
830 |
LSR |
& + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
831 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
832 |
LSR |
URT2(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
833 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
834 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
835 |
LSR |
& + ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
836 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
837 |
LSR |
& - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
838 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
858 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
863 |
LSR |
UTMP(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
870 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
871 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
872 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
873 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
875 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
876 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
877 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
878 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
882 |
LSR |
URT(I)=rhsU(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
883 |
LSR |
& +URT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
884 |
LSR |
& +URT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
885 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
889 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
891 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
894 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
895 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
896 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
904 |
LSR |
UICE(I,J,bi,bj)=UTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
905 |
LSR |
& +WFAU*(URT(I)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
915 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
919 |
LSR |
UERR=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
920 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
948 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/lsr.F |
953 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
954 |
LSR |
& * (etaPlusZeta(I-1,J ,bi,bj) + etaPlusZeta(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
955 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
956 |
LSR |
& * (etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
957 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
958 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
959 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
960 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
961 |
LSR |
& *_recip_dxV(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
962 |
LSR |
AA5=(zetaMinusEta(I-1,J ,bi,bj) + zetaMinusEta(I,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
963 |
LSR |
& -zetaMinusEta(I-1,J-1,bi,bj) - zetaMinusEta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
964 |
LSR |
& )* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
965 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
967 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
968 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
970 |
LSR |
AV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
972 |
LSR |
& - (ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
973 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
974 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
975 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
976 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
977 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
978 |
LSR |
CV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
980 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
981 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
982 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
983 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
984 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
985 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
988 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
989 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
994 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
995 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
996 |
LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/ostres.F |
33 |
OSTRES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/ostres.F |
51 |
OSTRES |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/ostres.F |
55 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
56 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
58 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
68 |
OSTRES |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/ostres.F |
72 |
OSTRES |
fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
74 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
75 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
77 |
OSTRES |
& ( VICE(I,J, bi,bj)-GWATY(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
& + VICE(I,J+1,bi,bj)-GWATY(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
80 |
OSTRES |
fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
82 |
OSTRES |
& ( UICE(I, J,bi,bj)-GWATX(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
83 |
OSTRES |
& + UICE(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
85 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
86 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
& AREA(I,J,bi,bj)*fuIce |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
91 |
OSTRES |
& AREA(I,J,bi,bj)*fvIce |
|
./model/src/freeze_surface.F |
41 |
FREEZE_SURFACE |
INTEGER bi,bj,i,j,k |
|
./model/src/freeze_surface.F |
54 |
FREEZE_SURFACE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/freeze_surface.F |
58 |
FREEZE_SURFACE |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze_surface.F |
59 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = |
|
./model/src/freeze_surface.F |
60 |
FREEZE_SURFACE |
& ( Tfreezing - theta(i,j,k,bi,bj) ) |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./model/src/freeze_surface.F |
62 |
FREEZE_SURFACE |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
113 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
120 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
121 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
128 |
SEAICE_ADVDIFF |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
129 |
SEAICE_ADVDIFF |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
157 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
171 |
SEAICE_ADVDIFF |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
197 |
SEAICE_ADVDIFF |
hEffNm1(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
207 |
SEAICE_ADVDIFF |
uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
208 |
SEAICE_ADVDIFF |
vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
218 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
224 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
225 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HEFF(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
227 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
232 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
233 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
235 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
240 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
241 |
SEAICE_ADVDIFF |
& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
261 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
267 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
268 |
SEAICE_ADVDIFF |
I uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
270 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
275 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
276 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
278 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
283 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
291 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
298 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
299 |
SEAICE_ADVDIFF |
I uTrans, vTrans, opnWtrFrac(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
301 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
306 |
SEAICE_ADVDIFF |
I opnWtrFrac(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
307 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
309 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
314 |
SEAICE_ADVDIFF |
opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
315 |
SEAICE_ADVDIFF |
& opnWtrFrac(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
328 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
334 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
335 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSNOW(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
337 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
342 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
343 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
345 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
350 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
351 |
SEAICE_ADVDIFF |
& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
358 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
369 |
SEAICE_ADVDIFF |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_advdiff.F |
377 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
378 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
380 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
385 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
386 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
388 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
393 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
394 |
SEAICE_ADVDIFF |
& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
412 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
413 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
422 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
423 |
SEAICE_ADVDIFF |
& SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
432 |
SEAICE_ADVDIFF |
SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
435 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
442 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
443 |
SEAICE_ADVDIFF |
I uTrans, vTrans, SItrExt(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
446 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
451 |
SEAICE_ADVDIFF |
I SItrExt(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
452 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
454 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
459 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
460 |
SEAICE_ADVDIFF |
& SItrExt(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) ) |
|
./pkg/seaice/seaice_advdiff.F |
467 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
469 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
471 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
472 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
477 |
SEAICE_ADVDIFF |
tmpscal1=max(SItrPrev(i,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
478 |
SEAICE_ADVDIFF |
& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
479 |
SEAICE_ADVDIFF |
& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
480 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
481 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
482 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
483 |
SEAICE_ADVDIFF |
& +tmpscal2*HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
486 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
487 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
488 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
489 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
490 |
SEAICE_ADVDIFF |
& +HEFF(I,J,bi,bj)*tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
494 |
SEAICE_ADVDIFF |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
496 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
498 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
507 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
510 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
512 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
514 |
SEAICE_ADVDIFF |
tmpscal1=max(SItrPrev(i,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
515 |
SEAICE_ADVDIFF |
& SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
516 |
SEAICE_ADVDIFF |
& SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
517 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
518 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2 |
|
./pkg/seaice/seaice_advdiff.F |
521 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
522 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
523 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
529 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
556 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
560 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
569 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
573 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
574 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
575 |
SEAICE_ADVDIFF |
U HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
576 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
581 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
585 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
599 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
603 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
612 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
616 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
617 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
618 |
SEAICE_ADVDIFF |
U Area(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
619 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
624 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
628 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
638 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
642 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
643 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
644 |
SEAICE_ADVDIFF |
U opnWtrFrac(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
645 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
657 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
661 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
670 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
674 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
675 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
676 |
SEAICE_ADVDIFF |
U HSNOW(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
677 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
682 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
686 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
696 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
701 |
SEAICE_ADVDIFF |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_advdiff.F |
70 |
SEAICE_ADVDIFF |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_advdiff.F |
714 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
718 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
719 |
SEAICE_ADVDIFF |
I xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
720 |
SEAICE_ADVDIFF |
U HSALT(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
721 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advection.F |
158 |
SEAICE_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_advection.F |
216 |
SEAICE_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/seaice/seaice_advection.F |
22 |
SEAICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
259 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
261 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
262 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
281 |
SEAICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
355 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
368 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
378 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
382 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
386 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
391 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
410 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
429 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
430 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
439 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
440 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
451 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
452 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
461 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
462 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
495 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
496 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
505 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
506 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
557 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
570 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
580 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
584 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
588 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
593 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
612 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
631 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
632 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
641 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
642 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
653 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
654 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
663 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
664 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
697 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
698 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
707 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
708 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
740 |
SEAICE_ADVECTION |
tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
749 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
751 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
762 |
SEAICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/seaice/seaice_advection.F |
93 |
SEAICE_ADVECTION |
INTEGER bi,bj |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
104 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
107 |
SEAICE_BOTTOMDRAG_COEFFS |
& ( uIce(i ,j,bi,bj)+uIce(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
109 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i, j ,bi,bj)+vIce(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
113 |
SEAICE_BOTTOMDRAG_COEFFS |
& ( uIce(i ,j,bi,bj)*maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
114 |
SEAICE_BOTTOMDRAG_COEFFS |
& + uIce(i+1,J,bi,bj)*maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
115 |
SEAICE_BOTTOMDRAG_COEFFS |
& + ( vIce(i,j ,bi,bj)*maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
116 |
SEAICE_BOTTOMDRAG_COEFFS |
& + vIce(i,j+1,bi,bj)*maskInS(i,j+1,bi,bj) )**2 ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
127 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
133 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFFITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
135 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
137 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
138 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREA(I,J,bi,bj)*recip_k1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
148 |
SEAICE_BOTTOMDRAG_COEFFS |
CbotC(I,J,bi,bj) = CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
152 |
SEAICE_BOTTOMDRAG_COEFFS |
& *(SEAICE_area_max - AREA(I,J,bi,bj)) ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
153 |
SEAICE_BOTTOMDRAG_COEFFS |
& * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
75 |
SEAICE_BOTTOMDRAG_COEFFS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
94 |
SEAICE_BOTTOMDRAG_COEFFS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
98 |
SEAICE_BOTTOMDRAG_COEFFS |
CbotC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
11 |
SEAICE_BUDGET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_budget_ocean.F |
121 |
SEAICE_BUDGET_OCEAN |
& *swdown(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
125 |
SEAICE_BUDGET_OCEAN |
lwflux(I,J,bi,bj) = - lwdownLoc(I,J)*SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
134 |
SEAICE_BUDGET_OCEAN |
hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq) |
|
./pkg/seaice/seaice_budget_ocean.F |
137 |
SEAICE_BUDGET_OCEAN |
& + lwflux(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
138 |
SEAICE_BUDGET_OCEAN |
& - hs(I,J,bi,bj) - hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
141 |
SEAICE_BUDGET_OCEAN |
evap(i,j,bi,bj) = -hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
144 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
146 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
148 |
SEAICE_BUDGET_OCEAN |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
149 |
SEAICE_BUDGET_OCEAN |
empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_budget_ocean.F |
52 |
SEAICE_BUDGET_OCEAN |
INTEGER bi, bj, myIter, myThid |
|
./pkg/seaice/seaice_budget_ocean.F |
95 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(celsius2K+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
98 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
106 |
SEAICE_CALC_ICE_STRENGTH |
IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
108 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
110 |
SEAICE_CALC_ICE_STRENGTH |
ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
112 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
115 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal2=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
117 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)=SEAICE_strength*tmpscal2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
118 |
SEAICE_CALC_ICE_STRENGTH |
& *EXP(-SEAICE_cStar*(SEAICE_area_max-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
119 |
SEAICE_CALC_ICE_STRENGTH |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
120 |
SEAICE_CALC_ICE_STRENGTH |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_calc_ice_strength.F |
121 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
129 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
135 |
SEAICE_CALC_ICE_STRENGTH |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
13 |
SEAICE_CALC_ICE_STRENGTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
145 |
SEAICE_CALC_ICE_STRENGTH |
& PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
157 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
172 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)/ridgingModeNorm(i,j) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
174 |
SEAICE_CALC_ICE_STRENGTH |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
175 |
SEAICE_CALC_ICE_STRENGTH |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_calc_ice_strength.F |
176 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
45 |
SEAICE_CALC_ICE_STRENGTH |
INTEGER bi,bj |
|
./pkg/seaice/seaice_calc_ice_strength.F |
95 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
102 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/grad_sigma.F |
10 |
GRAD_SIGMA |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/grad_sigma.F |
40 |
GRAD_SIGMA |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./model/src/grad_sigma.F |
67 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
72 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
73 |
GRAD_SIGMA |
& *_recip_dxC(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
82 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
87 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
88 |
GRAD_SIGMA |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
116 |
SEAICE_CALC_LHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_calc_lhs.F |
121 |
SEAICE_CALC_LHS |
dragSym(I,J) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_calc_lhs.F |
123 |
SEAICE_CALC_LHS |
& +CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
134 |
SEAICE_CALC_LHS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_lhs.F |
139 |
SEAICE_CALC_LHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
140 |
SEAICE_CALC_LHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
147 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_lhs.F |
148 |
SEAICE_CALC_LHS |
& bdfAlpha*seaiceMassU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_calc_lhs.F |
149 |
SEAICE_CALC_LHS |
& *uIceLoc(I,J,bi,bj) - stressDivergenceX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
151 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_lhs.F |
152 |
SEAICE_CALC_LHS |
& bdfAlpha*seaiceMassV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_calc_lhs.F |
153 |
SEAICE_CALC_LHS |
& *vIceLoc(I,J,bi,bj) - stressDivergenceY(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
155 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
156 |
SEAICE_CALC_LHS |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
157 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I ,J,bi,bj)+vIceLoc(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
158 |
SEAICE_CALC_LHS |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
159 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
162 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
163 |
SEAICE_CALC_LHS |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
164 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J ,bi,bj)+uIceLoc(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
165 |
SEAICE_CALC_LHS |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
166 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
169 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_lhs.F |
171 |
SEAICE_CALC_LHS |
& * uIceLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
172 |
SEAICE_CALC_LHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
173 |
SEAICE_CALC_LHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
174 |
SEAICE_CALC_LHS |
& (vIceLoc(I ,J,bi,bj)+vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
175 |
SEAICE_CALC_LHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
176 |
SEAICE_CALC_LHS |
& (vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
179 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_lhs.F |
181 |
SEAICE_CALC_LHS |
& * vIceLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
182 |
SEAICE_CALC_LHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
183 |
SEAICE_CALC_LHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
184 |
SEAICE_CALC_LHS |
& (uIceLoc(I,J ,bi,bj)+uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
185 |
SEAICE_CALC_LHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
186 |
SEAICE_CALC_LHS |
& (uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
189 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj)*maskinW(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
190 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj)*maskinS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
202 |
SEAICE_CALC_LHS |
I bi,bj,1,sNx,1,sNy, |
|
./pkg/seaice/seaice_calc_lhs.F |
210 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - gUmom(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
211 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - gVmom(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
75 |
SEAICE_CALC_LHS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_residual.F |
135 |
SEAICE_CALC_RESIDUAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_calc_residual.F |
139 |
SEAICE_CALC_RESIDUAL |
uIceRes(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
140 |
SEAICE_CALC_RESIDUAL |
vIceRes(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - vIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
64 |
SEAICE_CALC_RESIDUAL |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_residual.F |
68 |
SEAICE_CALC_RESIDUAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_calc_residual.F |
72 |
SEAICE_CALC_RESIDUAL |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
73 |
SEAICE_CALC_RESIDUAL |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
74 |
SEAICE_CALC_RESIDUAL |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
75 |
SEAICE_CALC_RESIDUAL |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
101 |
SEAICE_CALC_RHS |
vIceRHS(I,J,bi,bj) = FORCEY(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_rhs.F |
102 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
103 |
SEAICE_CALC_RHS |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
104 |
SEAICE_CALC_RHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
105 |
SEAICE_CALC_RHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
106 |
SEAICE_CALC_RHS |
& ( uVel(I,J ,kSrf,bi,bj)+uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
107 |
SEAICE_CALC_RHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
108 |
SEAICE_CALC_RHS |
& ( uVel(I,J-1,kSrf,bi,bj)+uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
111 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = uIceRHS(I,J,bi,bj)*maskinW(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
112 |
SEAICE_CALC_RHS |
vIceRHS(I,J,bi,bj) = vIceRHS(I,J,bi,bj)*maskinS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
55 |
SEAICE_CALC_RHS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_calc_rhs.F |
77 |
SEAICE_CALC_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_calc_rhs.F |
82 |
SEAICE_CALC_RHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
83 |
SEAICE_CALC_RHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
92 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = FORCEX(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_rhs.F |
93 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
94 |
SEAICE_CALC_RHS |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
95 |
SEAICE_CALC_RHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
96 |
SEAICE_CALC_RHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
97 |
SEAICE_CALC_RHS |
& ( vVel(I ,J,kSrf,bi,bj)+vVel(I ,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_rhs.F |
98 |
SEAICE_CALC_RHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
99 |
SEAICE_CALC_RHS |
& ( vVel(I-1,J,kSrf,bi,bj)+vVel(I-1,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
102 |
SEAICE_CALC_STRAINRATES |
dudx(i,j) = _recip_dxF(i,j,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
103 |
SEAICE_CALC_STRAINRATES |
& (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
104 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
109 |
SEAICE_CALC_STRAINRATES |
dvdy(i,j) = _recip_dyF(i,j,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
110 |
SEAICE_CALC_STRAINRATES |
& (vFld(i,j+1,bi,bj)-vFld(i,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
111 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
117 |
SEAICE_CALC_STRAINRATES |
e11Loc(i,j,bi,bj) = dudx(i,j) + vave(i,j) * k2AtC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
118 |
SEAICE_CALC_STRAINRATES |
e22Loc(i,j,bi,bj) = dvdy(i,j) + uave(i,j) * k1AtC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
e11Loc(i,j,bi,bj) = e11Loc(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
126 |
SEAICE_CALC_STRAINRATES |
e22Loc(i,j,bi,bj) = e22Loc(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
135 |
SEAICE_CALC_STRAINRATES |
dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
136 |
SEAICE_CALC_STRAINRATES |
& * _recip_dyU(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
137 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
142 |
SEAICE_CALC_STRAINRATES |
dvdx(i,j) = ( vFld(i,j,bi,bj) - vFld(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
143 |
SEAICE_CALC_STRAINRATES |
& * _recip_dxV(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
144 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
150 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
151 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
152 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
154 |
SEAICE_CALC_STRAINRATES |
& - k1AtZ(i,j,bi,bj) * vave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
155 |
SEAICE_CALC_STRAINRATES |
& - k2AtZ(i,j,bi,bj) * uave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
157 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j ,k,bi,bj)*maskC(i-1,j ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
158 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j-1,k,bi,bj)*maskC(i-1,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
160 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
161 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
173 |
SEAICE_CALC_STRAINRATES |
hFacU = (_maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
174 |
SEAICE_CALC_STRAINRATES |
hFacV = (_maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
175 |
SEAICE_CALC_STRAINRATES |
hFacU = hFacU*( _maskW(i,j-2,k,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
176 |
SEAICE_CALC_STRAINRATES |
& + _maskW(i,j+1,k,bi,bj)*_maskW(i,j, k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
177 |
SEAICE_CALC_STRAINRATES |
hFacV = hFacV*( _maskS(i-2,j,k,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
178 |
SEAICE_CALC_STRAINRATES |
& + _maskS(i+1,j,k,bi,bj)*_maskS(i ,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
191 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = e12Loc(i,j,bi,bj) + 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
192 |
SEAICE_CALC_STRAINRATES |
& _recip_dyU(i,j,bi,bj) * ( 6.0 _d 0 * uave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
193 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j-2,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
194 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j+1,bi,bj)*_maskW(i,j ,k,bi,bj) ) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
195 |
SEAICE_CALC_STRAINRATES |
& + _recip_dxV(i,j,bi,bj) * ( 6.0 _d 0 * vave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
196 |
SEAICE_CALC_STRAINRATES |
& - vFld(i-2,j,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
197 |
SEAICE_CALC_STRAINRATES |
& - vFld(i+1,j,bi,bj)*_maskS(i ,j,k,bi,bj) ) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
74 |
SEAICE_CALC_STRAINRATES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_strainrates.F |
96 |
SEAICE_CALC_STRAINRATES |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
108 |
SEAICE_CALC_STRESS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
140 |
SEAICE_CALC_STRESS |
INTEGER bi, bj |
|
./pkg/seaice/seaice_calc_stressdiv.F |
171 |
SEAICE_CALC_STRESS |
eplus = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
172 |
SEAICE_CALC_STRESS |
eminus= e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
173 |
SEAICE_CALC_STRESS |
sig11(i,j) = zeta(i,j,bi,bj)*eplus + eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
174 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
175 |
SEAICE_CALC_STRESS |
sig22(i,j) = zeta(i,j,bi,bj)*eplus - eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
176 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
182 |
SEAICE_CALC_STRESS |
sig12(i,j) = 2. _d 0 * e12(i,j,bi,bj) * etaZ(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
20 |
SEAICE_CALC_STRESSDIV |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
52 |
SEAICE_CALC_STRESSDIV |
INTEGER bi, bj |
|
./pkg/seaice/seaice_calc_stressdiv.F |
77 |
SEAICE_CALC_STRESSDIV |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
84 |
SEAICE_CALC_STRESSDIV |
stressDivergenceX(i,j,bi,bj) = |
|
./pkg/seaice/seaice_calc_stressdiv.F |
85 |
SEAICE_CALC_STRESSDIV |
& ( sig11(i ,j ) * _dyF(i ,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
86 |
SEAICE_CALC_STRESSDIV |
& - sig11(i-1,J ) * _dyF(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
87 |
SEAICE_CALC_STRESSDIV |
& + sig12(i ,j+1) * _dxV(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
88 |
SEAICE_CALC_STRESSDIV |
& - sig12(i ,j ) * _dxV(i,j ,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
89 |
SEAICE_CALC_STRESSDIV |
& ) * recip_rAw(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
90 |
SEAICE_CALC_STRESSDIV |
stressDivergenceY(i,j,bi,bj) = |
|
./pkg/seaice/seaice_calc_stressdiv.F |
91 |
SEAICE_CALC_STRESSDIV |
& ( sig22(i ,j ) * _dxF(i,j ,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
92 |
SEAICE_CALC_STRESSDIV |
& - sig22(i ,j-1) * _dxF(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
93 |
SEAICE_CALC_STRESSDIV |
& + sig12(i+1,J ) * _dyU(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
94 |
SEAICE_CALC_STRESSDIV |
& - sig12(i ,j ) * _dyU(i ,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
95 |
SEAICE_CALC_STRESSDIV |
& ) * recip_rAs(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
106 |
SEAICE_CALC_VISCOSITIES |
& ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
107 |
SEAICE_CALC_VISCOSITIES |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
116 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
118 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
119 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
120 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
126 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
127 |
SEAICE_CALC_VISCOSITIES |
em = e11(i,j,bi,bj)-e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
137 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_viscosities.F |
139 |
SEAICE_CALC_VISCOSITIES |
& deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
141 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
149 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
|
./pkg/seaice/seaice_calc_viscosities.F |
156 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = ZMAX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
159 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
160 |
SEAICE_CALC_VISCOSITIES |
& * ( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
163 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
165 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
167 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
168 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = recip_e2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
170 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_viscosities.F |
171 |
SEAICE_CALC_VISCOSITIES |
& ( press0(I,J,bi,bj)*( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
172 |
SEAICE_CALC_VISCOSITIES |
& + TWO*zeta(I,J,bi,bj)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
173 |
SEAICE_CALC_VISCOSITIES |
& * SEAICEpressReplFac/( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
174 |
SEAICE_CALC_VISCOSITIES |
& ) * ( 1. _d 0 - tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
185 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
186 |
SEAICE_CALC_VISCOSITIES |
em = e11(i,j,bi,bj)-e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
|
./pkg/seaice/seaice_calc_viscosities.F |
191 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
199 |
SEAICE_CALC_VISCOSITIES |
sumNorm = maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
200 |
SEAICE_CALC_VISCOSITIES |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
202 |
SEAICE_CALC_VISCOSITIES |
etaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
203 |
SEAICE_CALC_VISCOSITIES |
& ( eta (I,J ,bi,bj) + eta (I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
204 |
SEAICE_CALC_VISCOSITIES |
& + eta (I,J-1,bi,bj) + eta (I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
205 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
206 |
SEAICE_CALC_VISCOSITIES |
& ( zeta(I,J ,bi,bj) + zeta(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
207 |
SEAICE_CALC_VISCOSITIES |
& + zeta(I,J-1,bi,bj) + zeta(I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
216 |
SEAICE_CALC_VISCOSITIES |
maskZ = maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
217 |
SEAICE_CALC_VISCOSITIES |
& * maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
218 |
SEAICE_CALC_VISCOSITIES |
etaZ (I,J,bi,bj) = etaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_calc_viscosities.F |
219 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = zetaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_calc_viscosities.F |
72 |
SEAICE_CALC_VISCOSITIES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_viscosities.F |
91 |
SEAICE_CALC_VISCOSITIES |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
36 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER bi, bj |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
49 |
SEAICE_COST_ACCUMULATE_MEAN |
DO bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
53 |
SEAICE_COST_ACCUMULATE_MEAN |
uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
54 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
56 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
57 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dyG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
58 |
SEAICE_COST_ACCUMULATE_MEAN |
vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
59 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
60 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
61 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
62 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dxG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_concentration.F |
145 |
SEAICE_COST_CONCENTRATION |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_concentration.F |
147 |
SEAICE_COST_CONCENTRATION |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
148 |
SEAICE_COST_CONCENTRATION |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
253 |
SEAICE_COST_CONCENTRATION |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_concentration.F |
258 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
267 |
SEAICE_COST_CONCENTRATION |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_concentration.F |
273 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
& localweight(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
277 |
SEAICE_COST_CONCENTRATION |
if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
280 |
SEAICE_COST_CONCENTRATION |
areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj)) |
|
./pkg/seaice/seaice_cost_concentration.F |
283 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
285 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
286 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
288 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
289 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
295 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
310 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
311 |
SEAICE_COST_CONCENTRATION |
& localModWeight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
326 |
SEAICE_COST_CONCENTRATION |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_concentration.F |
331 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
332 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
341 |
SEAICE_COST_CONCENTRATION |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_concentration.F |
350 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
351 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
353 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
363 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
369 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
370 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
379 |
SEAICE_COST_CONCENTRATION |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
380 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
391 |
SEAICE_COST_CONCENTRATION |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
396 |
SEAICE_COST_CONCENTRATION |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_concentration.F |
89 |
SEAICE_COST_CONCENTRATION |
integer bi,bj |
|
./pkg/seaice/seaice_cost_export.F |
34 |
SEAICE_COST_EXPORT |
integer bi, bj |
|
./pkg/seaice/seaice_cost_export.F |
45 |
SEAICE_COST_EXPORT |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_cost_export.F |
52 |
SEAICE_COST_EXPORT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/seaice/seaice_cost_export.F |
54 |
SEAICE_COST_EXPORT |
objf_ice_export(bi,bj) = objf_ice_export(bi,bj) |
|
./pkg/seaice/seaice_cost_export.F |
55 |
SEAICE_COST_EXPORT |
& - uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
50 |
SEAICE_COST_FINAL |
INTEGER bi, bj |
|
./pkg/seaice/seaice_cost_final.F |
81 |
SEAICE_COST_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_cost_final.F |
84 |
SEAICE_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
85 |
SEAICE_COST_FINAL |
& + mult_ice_export * objf_ice_export(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
86 |
SEAICE_COST_FINAL |
& + mult_ice * objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
87 |
SEAICE_COST_FINAL |
& + mult_smrarea * objf_smrarea(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
88 |
SEAICE_COST_FINAL |
& + mult_smrsst * objf_smrsst(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
89 |
SEAICE_COST_FINAL |
& + mult_smrsss * objf_smrsss(bi,bj) |
|
./pkg/seaice/seaice_cost_init_varia.F |
41 |
SEAICE_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/seaice/seaice_cost_init_varia.F |
63 |
SEAICE_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_init_varia.F |
65 |
SEAICE_COST_INIT_VARIA |
objf_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
66 |
SEAICE_COST_INIT_VARIA |
objf_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
67 |
SEAICE_COST_INIT_VARIA |
objf_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
68 |
SEAICE_COST_INIT_VARIA |
objf_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
69 |
SEAICE_COST_INIT_VARIA |
objf_ice_export(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
71 |
SEAICE_COST_INIT_VARIA |
num_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
72 |
SEAICE_COST_INIT_VARIA |
num_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
73 |
SEAICE_COST_INIT_VARIA |
num_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
74 |
SEAICE_COST_INIT_VARIA |
num_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
79 |
SEAICE_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_init_varia.F |
84 |
SEAICE_COST_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
85 |
SEAICE_COST_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
143 |
SEAICE_COST_SSS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sss.F |
145 |
SEAICE_COST_SSS |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
146 |
SEAICE_COST_SSS |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
268 |
SEAICE_COST_SSS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sss.F |
273 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
283 |
SEAICE_COST_SSS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sss.F |
288 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
289 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
298 |
SEAICE_COST_SSS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sss.F |
307 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
308 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
310 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
320 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
323 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
324 |
SEAICE_COST_SSS |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sss.F |
329 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
345 |
SEAICE_COST_SSS |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
346 |
SEAICE_COST_SSS |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
347 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
358 |
SEAICE_COST_SSS |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
363 |
SEAICE_COST_SSS |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_sss.F |
87 |
SEAICE_COST_SSS |
integer bi,bj |
|
./pkg/seaice/seaice_cost_sst.F |
146 |
SEAICE_COST_SST |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sst.F |
148 |
SEAICE_COST_SST |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
149 |
SEAICE_COST_SST |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
268 |
SEAICE_COST_SST |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
283 |
SEAICE_COST_SST |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sst.F |
288 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
289 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
298 |
SEAICE_COST_SST |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
308 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
309 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
320 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
323 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
324 |
SEAICE_COST_SST |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
341 |
SEAICE_COST_SST |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
342 |
SEAICE_COST_SST |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
343 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
354 |
SEAICE_COST_SST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
359 |
SEAICE_COST_SST |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_sst.F |
85 |
SEAICE_COST_SST |
integer bi,bj |
|
./pkg/seaice/seaice_cost_weights.F |
111 |
SEAICE_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_weights.F |
115 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
116 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
122 |
SEAICE_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_weights.F |
126 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea0 |
|
./pkg/seaice/seaice_cost_weights.F |
127 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
134 |
SEAICE_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_weights.F |
138 |
SEAICE_COST_WEIGHTS |
if (wsmrarea(i,j,bi,bj) .ne. 0.) |
|
./pkg/seaice/seaice_cost_weights.F |
139 |
SEAICE_COST_WEIGHTS |
& wsmrarea(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_weights.F |
140 |
SEAICE_COST_WEIGHTS |
& 1./wsmrarea(i,j,bi,bj)/wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
46 |
SEAICE_COST_WEIGHTS |
integer bi,bj |
|
./pkg/seaice/seaice_cost_weights.F |
91 |
SEAICE_COST_WEIGHTS |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_cost_weights.F |
95 |
SEAICE_COST_WEIGHTS |
wsmrarea (i,j,bi,bj) = 0. _d 0 |
|
./model/src/impldiff.F |
10 |
IMPLDIFF |
SUBROUTINE IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
341 |
IMPLDIFF |
& * maskC(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
342 |
IMPLDIFF |
& * maskC(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
357 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
358 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
370 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
373 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
374 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
378 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
382 |
IMPLDIFF |
& k, 1, 2,bi,bj, myThid ) |
|
./model/src/impldiff.F |
55 |
IMPLDIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
102 |
SEAICE_CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
106 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
107 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
122 |
SEAICE_CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
126 |
SEAICE_CTRL_MAP_INI |
heff(i,j,bi,bj) = heff(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
127 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
142 |
SEAICE_CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
146 |
SEAICE_CTRL_MAP_INI |
hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
147 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
50 |
SEAICE_CTRL_MAP_INI |
integer bi,bj |
|
./pkg/seaice/seaice_diagnostics_state.F |
134 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
139 |
SEAICE_DIAGNOSTICS_STATE |
IF ( tensileStrFac(I,J,bi,bj) .EQ. 1. _d 0) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
144 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
148 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = tensileStrFac(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
& *press(I,J,bi,bj)/(1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
165 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
169 |
SEAICE_DIAGNOSTICS_STATE |
sigp = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
170 |
SEAICE_DIAGNOSTICS_STATE |
sigm = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
172 |
SEAICE_DIAGNOSTICS_STATE |
& ( seaice_sigma12(I, J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
173 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
174 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J+1,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
175 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
179 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
184 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sig1,'SIsig1 ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
185 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sig2,'SIsig2 ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
203 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
208 |
SEAICE_DIAGNOSTICS_STATE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
221 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
222 |
SEAICE_DIAGNOSTICS_STATE |
& (e12(I,J,bi,bj) + e12(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
223 |
SEAICE_DIAGNOSTICS_STATE |
& +e12(I,J+1,bi,bj)+e12(I+1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
226 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
227 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
232 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sig1,'SIsig1 ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
233 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sig2,'SIsig2 ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
238 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
242 |
SEAICE_DIAGNOSTICS_STATE |
sigm = e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
244 |
SEAICE_DIAGNOSTICS_STATE |
& ( e12(I, J, bi,bj)**2 + e12(I+1,J, bi,bj)**2 |
|
./pkg/seaice/seaice_diagnostics_state.F |
245 |
SEAICE_DIAGNOSTICS_STATE |
& + e12(I+1,J+1,bi,bj)**2 + e12(I ,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
251 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sig1,'SIshear ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
259 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
263 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
265 |
SEAICE_DIAGNOSTICS_STATE |
& UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
268 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
270 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
278 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
282 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
284 |
SEAICE_DIAGNOSTICS_STATE |
& VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
287 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
289 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
43 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_diagnostics_state.F |
72 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
77 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
87 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./pkg/seaice/seaice_diagnostics_state.F |
88 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
90 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = tIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim |
|
./pkg/seaice/seaice_diffusion.F |
105 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
107 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
17 |
SEAICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diffusion.F |
54 |
SEAICE_DIFFUSION |
INTEGER bi,bj |
|
./pkg/seaice/seaice_diffusion.F |
88 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
90 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
95 |
SEAICE_DIFFUSION |
& - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
114 |
SEAICE_DO_RIDGING |
AREA(I,J,bi,bj) = MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_do_ridging.F |
127 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
139 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
13 |
SEAICE_DO_RIDGING |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_do_ridging.F |
152 |
SEAICE_DO_RIDGING |
fw2ObyRidge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
159 |
SEAICE_DO_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_do_ridging.F |
165 |
SEAICE_DO_RIDGING |
divergence = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
166 |
SEAICE_DO_RIDGING |
shear = 0.5 _d 0 * ( deltaC(i,j,bi,bj) - ABS(divergence) ) |
|
./pkg/seaice/seaice_do_ridging.F |
181 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
191 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj)) |
|
./pkg/seaice/seaice_do_ridging.F |
210 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
211 |
SEAICE_DO_RIDGING |
heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
212 |
SEAICE_DO_RIDGING |
hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
230 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
231 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
260 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
265 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_do_ridging.F |
276 |
SEAICE_DO_RIDGING |
& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
295 |
SEAICE_DO_RIDGING |
fw2ObyRidge(i,j,bi,bj) = fw2ObyRidge(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
302 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
303 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
304 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
382 |
SEAICE_DO_RIDGING |
AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
384 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
386 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
404 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
411 |
SEAICE_DO_RIDGING |
tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
413 |
SEAICE_DO_RIDGING |
IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
451 |
SEAICE_DO_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_do_ridging.F |
49 |
SEAICE_DO_RIDGING |
INTEGER bi,bj |
|
./pkg/seaice/seaice_dynsolver.F |
112 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
116 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
119 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
120 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
126 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=seaiceMassC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
127 |
SEAICE_DYNSOLVER |
& + SEAICE_rhoSnow*HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
128 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
130 |
SEAICE_DYNSOLVER |
& HSNOW(i,j,bi,bj) + HSNOW(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
132 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
134 |
SEAICE_DYNSOLVER |
& HSNOW(i,j,bi,bj) + HSNOW(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
145 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
149 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
150 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
153 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
155 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
157 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
158 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
159 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
161 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
163 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
176 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
180 |
SEAICE_DYNSOLVER |
TAUX (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
181 |
SEAICE_DYNSOLVER |
TAUY (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
184 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
185 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
203 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
209 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
218 |
SEAICE_DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
219 |
SEAICE_DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/seaice_dynsolver.F |
227 |
SEAICE_DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
236 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
237 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
238 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
239 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
245 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
246 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
255 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
256 |
SEAICE_DYNSOLVER |
& -seaiceMassU(I,J,bi,bj)*_recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
258 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
259 |
SEAICE_DYNSOLVER |
& -seaiceMassV(I,J,bi,bj)* _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
265 |
SEAICE_DYNSOLVER |
CALL SEAICE_CALC_ICE_STRENGTH( bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
279 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
283 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj) = uIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
284 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
285 |
SEAICE_DYNSOLVER |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
286 |
SEAICE_DYNSOLVER |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
373 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
377 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
378 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
379 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
380 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
63 |
SEAICE_DYNSOLVER |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_dynsolver.F |
74 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
78 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
79 |
SEAICE_DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
80 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
81 |
SEAICE_DYNSOLVER |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_dynsolver.F |
82 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
83 |
SEAICE_DYNSOLVER |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
84 |
SEAICE_DYNSOLVER |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
86 |
SEAICE_DYNSOLVER |
uice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
87 |
SEAICE_DYNSOLVER |
vice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
101 |
SEAICE_EVP |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_evp.F |
200 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
204 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + 1. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
205 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + ecc2 ) |
|
./pkg/seaice/seaice_evp.F |
224 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
229 |
SEAICE_EVP |
denom2(I,J,bi,bj) = denom1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
247 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
252 |
SEAICE_EVP |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
253 |
SEAICE_EVP |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
255 |
SEAICE_EVP |
e11 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
256 |
SEAICE_EVP |
e22 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
257 |
SEAICE_EVP |
e12 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
259 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
260 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
261 |
SEAICE_EVP |
evpBetaU (I,J,bi,bj) = SEAICE_evpBeta |
|
./pkg/seaice/seaice_evp.F |
262 |
SEAICE_EVP |
evpBetaV (I,J,bi,bj) = SEAICE_evpBeta |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
270 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
271 |
SEAICE_EVP |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
272 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
278 |
SEAICE_EVP |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
279 |
SEAICE_EVP |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
292 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
296 |
SEAICE_EVP |
zMax (I,J,bi,bj) = _rA(I,J,bi,bj) * fac |
|
./pkg/seaice/seaice_evp.F |
334 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
339 |
SEAICE_EVP |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_evp.F |
353 |
SEAICE_EVP |
sig11Pm1(I,J,bi,bj) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
354 |
SEAICE_EVP |
sig22Pm1(I,J,bi,bj) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
355 |
SEAICE_EVP |
sig12Pm1(I,J,bi,bj) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
356 |
SEAICE_EVP |
uIcePm1 (I,J,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
vIcePm1 (I,J,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
zetaZ (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
372 |
SEAICE_EVP |
deltaC (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
377 |
SEAICE_EVP |
ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
378 |
SEAICE_EVP |
em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
388 |
SEAICE_EVP |
& ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
389 |
SEAICE_EVP |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
400 |
SEAICE_EVP |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
401 |
SEAICE_EVP |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
402 |
SEAICE_EVP |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
412 |
SEAICE_EVP |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
414 |
SEAICE_EVP |
& deltaC(I,J,bi,bj) = SQRT(deltaSq) |
|
./pkg/seaice/seaice_evp.F |
416 |
SEAICE_EVP |
deltaC(I,J,bi,bj) = SQRT(deltaSq) |
|
./pkg/seaice/seaice_evp.F |
422 |
SEAICE_EVP |
deltaCreg = deltaC(I,J,bi,bj) + SEAICE_deltaMin |
|
./pkg/seaice/seaice_evp.F |
424 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
zetaC(I,J) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
427 |
SEAICE_EVP |
& * ( 1. _d 0 + tensileStrFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SQRT(zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
& * EVPcFac / MAX(seaiceMassC(I,J,bi,bj), 1.D-04) |
|
./pkg/seaice/seaice_evp.F |
438 |
SEAICE_EVP |
& * recip_rA(I,J,bi,bj) ) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
440 |
SEAICE_EVP |
& MAX(evpAlphaC(I,J,bi,bj),SEAICEaEVPalphaMin) |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
sumNorm = maskC(I,J, kSrf,bi,bj)+maskC(I-1,J, kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
449 |
SEAICE_EVP |
& + maskC(I,J-1,kSrf,bi,bj)+maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
451 |
SEAICE_EVP |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_evp.F |
455 |
SEAICE_EVP |
& ( deltaC(I, J,bi,bj) + deltaC(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
456 |
SEAICE_EVP |
& + deltaC(I-1,J,bi,bj) + deltaC(I, J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
469 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
476 |
SEAICE_EVP |
& MAX(zMax(I, J,bi,bj),zMax(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& MAX(zMax(I-1,J,bi,bj),zMax(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
479 |
SEAICE_EVP |
& MAX(zMin(I, J,bi,bj),zMin(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
480 |
SEAICE_EVP |
& MAX(zMin(I-1,J,bi,bj),zMin(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
481 |
SEAICE_EVP |
zetaZ(I,J,bi,bj) = MAX(zMinZ,MIN(zMaxZ,zetaZ(I,J,bi,bj))) |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& ( press0(I,J,bi,bj) * ( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_evp.F |
490 |
SEAICE_EVP |
& + TWO*zetaC(I,J)*deltaC(I,J,bi,bj)*SEAICEpressReplFac |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& /(1. _d 0 + tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
492 |
SEAICE_EVP |
& ) * (1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
519 |
SEAICE_EVP |
& *(deltaC(I,J,bi,bj)-ep(I,J))/etaDenC |
|
./pkg/seaice/seaice_evp.F |
522 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
526 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
528 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
542 |
SEAICE_EVP |
& sumNorm * recip_rAz(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
543 |
SEAICE_EVP |
& ( _rA(I ,J ,bi,bj) * em(I, J )**2 |
|
./pkg/seaice/seaice_evp.F |
544 |
SEAICE_EVP |
& + _rA(I-1,J-1,bi,bj) * em(I-1,J-1)**2 |
|
./pkg/seaice/seaice_evp.F |
545 |
SEAICE_EVP |
& + _rA(I-1,J ,bi,bj) * em(I-1,J )**2 |
|
./pkg/seaice/seaice_evp.F |
546 |
SEAICE_EVP |
& + _rA(I ,J-1,bi,bj) * em(I, J-1)**2 ) |
|
./pkg/seaice/seaice_evp.F |
547 |
SEAICE_EVP |
& + 4. _d 0*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
549 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J,bi,bj) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
554 |
SEAICE_EVP |
& 2. _d 0*MIN(zetaZ(I,J,bi,bj),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
555 |
SEAICE_EVP |
& * 2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
566 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
568 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
574 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J,bi,bj)*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
590 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / evpAlphaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
591 |
SEAICE_EVP |
denom2(I,J,bi,bj) = denom1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
598 |
SEAICE_EVP |
seaice_sigma1 (I,J,bi,bj) = ( seaice_sigma1 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
599 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
601 |
SEAICE_EVP |
& ) * denom1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
602 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
603 |
SEAICE_EVP |
seaice_sigma2 (I,J,bi,bj) = ( seaice_sigma2 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
604 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
606 |
SEAICE_EVP |
& ) * denom2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
607 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
612 |
SEAICE_EVP |
seaice_sigma1(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
613 |
SEAICE_EVP |
& ABS( seaice_sigma1(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
614 |
SEAICE_EVP |
& seaice_sigma1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
615 |
SEAICE_EVP |
seaice_sigma2(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
616 |
SEAICE_EVP |
& ABS( seaice_sigma2(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
617 |
SEAICE_EVP |
& seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
621 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)+seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
623 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)-seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
637 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
638 |
SEAICE_EVP |
& ( evpAlphaC(I, J,bi,bj)+evpAlphaC(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
639 |
SEAICE_EVP |
& + evpAlphaC(I-1,J,bi,bj)+evpAlphaC(I, J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
640 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / evpAlphaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
646 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = ( seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
647 |
SEAICE_EVP |
& * ( evpAlphaZ(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
649 |
SEAICE_EVP |
& ) * denom2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
651 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
652 |
SEAICE_EVP |
& ABS( seaice_sigma12(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
653 |
SEAICE_EVP |
& seaice_sigma12(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
662 |
SEAICE_EVP |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
663 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
664 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
665 |
SEAICE_EVP |
& + seaice_sigma12(I,J+1,bi,bj) * _dxV(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
666 |
SEAICE_EVP |
& - seaice_sigma12(I,J ,bi,bj) * _dxV(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
667 |
SEAICE_EVP |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
668 |
SEAICE_EVP |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
669 |
SEAICE_EVP |
& ( sig22(I,J ) * _dxF(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
670 |
SEAICE_EVP |
& - sig22(I,J-1) * _dxF(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
671 |
SEAICE_EVP |
& + seaice_sigma12(I+1,J,bi,bj) * _dyU(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
672 |
SEAICE_EVP |
& - seaice_sigma12(I ,J,bi,bj) * _dyU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
673 |
SEAICE_EVP |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
681 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
683 |
SEAICE_EVP |
resTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
686 |
SEAICE_EVP |
sig11Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
687 |
SEAICE_EVP |
& seaice_sigma1(i,j,bi,bj)-sig11pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
688 |
SEAICE_EVP |
sig22Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
689 |
SEAICE_EVP |
& seaice_sigma2(i,j,bi,bj)-sig22pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
690 |
SEAICE_EVP |
sig12Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
691 |
SEAICE_EVP |
& seaice_sigma12(i,j,bi,bj)-sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
692 |
SEAICE_EVP |
sig11Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
693 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
694 |
SEAICE_EVP |
sig22Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
695 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
696 |
SEAICE_EVP |
sig12Pm1(i,j,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
697 |
SEAICE_EVP |
& evpAlphaZ(I,J,bi,bj) * sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
704 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
705 |
SEAICE_EVP |
& ( sig11Pm1(i,j,bi,bj)*sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
706 |
SEAICE_EVP |
& + sig22Pm1(i,j,bi,bj)*sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
707 |
SEAICE_EVP |
& + sig12Pm1(i,j,bi,bj)*sig12Pm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
714 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) |
|
./pkg/seaice/seaice_evp.F |
715 |
SEAICE_EVP |
& + sig11Pm1(i,j,bi,bj)*sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
716 |
SEAICE_EVP |
& + sig22Pm1(i,j,bi,bj)*sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
717 |
SEAICE_EVP |
& + sig12Pm1(i,j,bi,bj)*sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
761 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
773 |
SEAICE_EVP |
locMaskU = seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
774 |
SEAICE_EVP |
locMaskV = seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
782 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
783 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
784 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
785 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
786 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
787 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
788 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
789 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
790 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
791 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
792 |
SEAICE_EVP |
& )*locMaskU ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
793 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
794 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
795 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
796 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
797 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
798 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
799 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIce(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
800 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
801 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIce(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
802 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
803 |
SEAICE_EVP |
& )*locMaskV ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
805 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
806 |
SEAICE_EVP |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
807 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I ,J,bi,bj)+vIce(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
808 |
SEAICE_EVP |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
809 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
811 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
812 |
SEAICE_EVP |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
813 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J ,bi,bj)+uIce(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
814 |
SEAICE_EVP |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
815 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
828 |
SEAICE_EVP |
I bi,bj,1,sNx,1,sNy, |
|
./pkg/seaice/seaice_evp.F |
834 |
SEAICE_EVP |
FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + gUmom(I,J) |
|
./pkg/seaice/seaice_evp.F |
835 |
SEAICE_EVP |
FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) + gVmom(I,J) |
|
./pkg/seaice/seaice_evp.F |
847 |
SEAICE_EVP |
evpBetaU(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
848 |
SEAICE_EVP |
& +evpAlphaC(I, J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
849 |
SEAICE_EVP |
evpBetaV(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
850 |
SEAICE_EVP |
& +evpAlphaC(I,J, bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
857 |
SEAICE_EVP |
betaFacU = evpBetaU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
858 |
SEAICE_EVP |
betaFacV = evpBetaV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
862 |
SEAICE_EVP |
denomU = seaiceMassU(I,J,bi,bj)*betaFacP1U |
|
./pkg/seaice/seaice_evp.F |
863 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
864 |
SEAICE_EVP |
& * COSWAT * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
865 |
SEAICE_EVP |
denomV = seaiceMassV(I,J,bi,bj)*betaFacP1V |
|
./pkg/seaice/seaice_evp.F |
866 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
867 |
SEAICE_EVP |
& * COSWAT * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
869 |
SEAICE_EVP |
denomU = denomU + areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
870 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
871 |
SEAICE_EVP |
denomV = denomV + areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
872 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
876 |
SEAICE_EVP |
uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
877 |
SEAICE_EVP |
& ( seaiceMassU(I,J,bi,bj)*betaFacU |
|
./pkg/seaice/seaice_evp.F |
878 |
SEAICE_EVP |
& * uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
879 |
SEAICE_EVP |
& + seaiceMassU(I,J,bi,bj)*recip_deltaT*evpStarFac |
|
./pkg/seaice/seaice_evp.F |
880 |
SEAICE_EVP |
& * uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
881 |
SEAICE_EVP |
& + FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
882 |
SEAICE_EVP |
& + stressDivergenceX(I,J,bi,bj) ) / denomU |
|
./pkg/seaice/seaice_evp.F |
883 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
884 |
SEAICE_EVP |
& ( seaiceMassV(I,J,bi,bj)*betaFacV |
|
./pkg/seaice/seaice_evp.F |
885 |
SEAICE_EVP |
& * vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
886 |
SEAICE_EVP |
& + seaiceMassV(I,J,bi,bj)*recip_deltaT*evpStarFac |
|
./pkg/seaice/seaice_evp.F |
887 |
SEAICE_EVP |
& * vIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
888 |
SEAICE_EVP |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
889 |
SEAICE_EVP |
& + stressDivergenceY(I,J,bi,bj) ) / denomV |
|
./pkg/seaice/seaice_evp.F |
900 |
SEAICE_EVP |
locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
901 |
SEAICE_EVP |
locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
902 |
SEAICE_EVP |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU |
|
./pkg/seaice/seaice_evp.F |
903 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |
|
./pkg/seaice/seaice_evp.F |
904 |
SEAICE_EVP |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV |
|
./pkg/seaice/seaice_evp.F |
905 |
SEAICE_EVP |
& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV) |
|
./pkg/seaice/seaice_evp.F |
921 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
923 |
SEAICE_EVP |
resTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
926 |
SEAICE_EVP |
uIcePm1(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
927 |
SEAICE_EVP |
& ( uIce(I,J,bi,bj)-uIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
928 |
SEAICE_EVP |
& * evpBetaU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
929 |
SEAICE_EVP |
vIcePm1(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
930 |
SEAICE_EVP |
& ( vIce(I,J,bi,bj)-vIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
931 |
SEAICE_EVP |
& * evpBetaV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
938 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
939 |
SEAICE_EVP |
& ( uIcePm1(I,J,bi,bj)*uIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
940 |
SEAICE_EVP |
& + vIcePm1(I,J,bi,bj)*vIcePm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
946 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) |
|
./pkg/seaice/seaice_evp.F |
947 |
SEAICE_EVP |
& + uIcePm1(I,J,bi,bj)*uIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
948 |
SEAICE_EVP |
& + vIcePm1(I,J,bi,bj)*vIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
41 |
SEAICE_FAKE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_fake.F |
50 |
SEAICE_FAKE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fake.F |
55 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
56 |
SEAICE_FAKE |
fu(i,j,bi,bj) = fu(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
57 |
SEAICE_FAKE |
fv(i,j,bi,bj) = fv(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
58 |
SEAICE_FAKE |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
59 |
SEAICE_FAKE |
qsw(i,j,bi,bj) = qsw(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
62 |
SEAICE_FAKE |
EmPmR(i,j,bi,bj) = maskC(i,j,1,bi,bj)*( |
|
./pkg/seaice/seaice_fake.F |
63 |
SEAICE_FAKE |
& fac * EVAP(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
64 |
SEAICE_FAKE |
& - PRECIP(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
66 |
SEAICE_FAKE |
& - RUNOFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
71 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
73 |
SEAICE_FAKE |
& SEAICE_dTempFrz_dS *salt(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_fake.F |
74 |
SEAICE_FAKE |
theta(i,j,1,bi,bj)=theta(i,j,1,bi,bj) + fac * |
|
./pkg/seaice/seaice_fake.F |
75 |
SEAICE_FAKE |
& ( tempFrz-theta(i,j,1,bi,bj) ) * |
|
./pkg/seaice/seaice_fgmres.F |
139 |
SEAICE_MAP_RS2VEC |
INTEGER I, J, bi, bj |
|
./pkg/seaice/seaice_fgmres.F |
144 |
SEAICE_MAP_RS2VEC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
153 |
SEAICE_MAP_RS2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
154 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
162 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
163 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
173 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
174 |
SEAICE_MAP_RS2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
182 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
183 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
344 |
SEAICE_FGMRES |
integer bi, bj |
|
./pkg/seaice/seaice_fgmres.F |
365 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
368 |
SEAICE_FGMRES |
wk1(j,bi,bj)=sol(j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
375 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
378 |
SEAICE_FGMRES |
vv(j,1,bi,bj) = rhs(j,bi,bj) - wk2(j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
387 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
390 |
SEAICE_FGMRES |
vv(j,1,bi,bj) = vv(j,1,bi,bj)*t |
|
./pkg/seaice/seaice_fgmres.F |
414 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
417 |
SEAICE_FGMRES |
wk1(k,bi,bj) = vv(k,i,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
427 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
430 |
SEAICE_FGMRES |
w(k,i,bi,bj) = wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
437 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
440 |
SEAICE_FGMRES |
wk1(k,bi,bj)=wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
455 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
458 |
SEAICE_FGMRES |
vv(k,i1,bi,bj)=wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
468 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
471 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
47 |
SEAICE_MAP2VEC |
INTEGER I, J, bi, bj |
|
./pkg/seaice/seaice_fgmres.F |
481 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj)*t |
|
./pkg/seaice/seaice_fgmres.F |
52 |
SEAICE_MAP2VEC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
563 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
566 |
SEAICE_FGMRES |
sol(k,bi,bj) = sol(k,bi,bj) + t*w(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
589 |
SEAICE_FGMRES |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
592 |
SEAICE_FGMRES |
vv(k,1,bi,bj) = vv(k,1,bi,bj) + t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
61 |
SEAICE_MAP2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
62 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
636 |
SEAICE_SCALPROD |
integer i,m,mp1,bi,bj |
|
./pkg/seaice/seaice_fgmres.F |
643 |
SEAICE_SCALPROD |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_fgmres.F |
645 |
SEAICE_SCALPROD |
dtemp(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_fgmres.F |
648 |
SEAICE_SCALPROD |
dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
649 |
SEAICE_SCALPROD |
& * scalarProductMetric(i,1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
656 |
SEAICE_SCALPROD |
dtemp(bi,bj) = dtemp(bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
657 |
SEAICE_SCALPROD |
& dx(i, i1,bi,bj)*dy(i, i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
658 |
SEAICE_SCALPROD |
& * scalarProductMetric(i, 1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
659 |
SEAICE_SCALPROD |
& dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
660 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 1,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
661 |
SEAICE_SCALPROD |
& dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
662 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 2,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
663 |
SEAICE_SCALPROD |
& dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
664 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 3,1, bi,bj) + |
|
./pkg/seaice/seaice_fgmres.F |
665 |
SEAICE_SCALPROD |
& dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
666 |
SEAICE_SCALPROD |
& * scalarProductMetric(i + 4,1, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
70 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
71 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
81 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
82 |
SEAICE_MAP2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
90 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
91 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
109 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
127 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
145 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
146 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
159 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
163 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
164 |
SEAICE_FREEDRIFT |
& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
165 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
166 |
SEAICE_FREEDRIFT |
& (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
175 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
179 |
SEAICE_FREEDRIFT |
uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
180 |
SEAICE_FREEDRIFT |
vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
44 |
SEAICE_FREEDRIFT |
INTEGER i, j, kSrf, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
60 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
64 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
65 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
66 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
67 |
SEAICE_FREEDRIFT |
Vice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
76 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
85 |
SEAICE_FREEDRIFT |
& (FORCEX0(i,j,bi,bj)+FORCEX0(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
87 |
SEAICE_FREEDRIFT |
& (FORCEY0(i,j,bi,bj)+FORCEY0(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
92 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
102 |
INI_CARTESIAN_GRID |
dxG(i,j,bi,bj) = delXloc(i) |
|
./model/src/ini_cartesian_grid.F |
103 |
INI_CARTESIAN_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cartesian_grid.F |
114 |
INI_CARTESIAN_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
121 |
INI_CARTESIAN_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
129 |
INI_CARTESIAN_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
130 |
INI_CARTESIAN_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
140 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
141 |
INI_CARTESIAN_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
142 |
INI_CARTESIAN_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
143 |
INI_CARTESIAN_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
48 |
INI_CARTESIAN_GRID |
INTEGER bi, bj |
|
./model/src/ini_cartesian_grid.F |
60 |
INI_CARTESIAN_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cartesian_grid.F |
70 |
INI_CARTESIAN_GRID |
I bi, bj, myThid ) |
|
./model/src/ini_cartesian_grid.F |
75 |
INI_CARTESIAN_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
76 |
INI_CARTESIAN_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
86 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
94 |
INI_CARTESIAN_GRID |
dxF(i,j,bi,bj) = delXloc(i) |
|
./model/src/ini_cartesian_grid.F |
95 |
INI_CARTESIAN_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
|
./pkg/seaice/seaice_get_dynforcing.F |
110 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
111 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
123 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
131 |
SEAICE_GET_DYNFORCING |
& *_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
132 |
SEAICE_GET_DYNFORCING |
fv(i,j,bi,bj) = 0.5 _d 0*( oceTauY(i,j) + oceTauY(i,j-1) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
133 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
147 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
149 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
150 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
152 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
159 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
169 |
SEAICE_GET_DYNFORCING |
U1=UWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
170 |
SEAICE_GET_DYNFORCING |
V1=VWIND(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
177 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
191 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
192 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
194 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
195 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
196 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
197 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
199 |
SEAICE_GET_DYNFORCING |
& (uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
200 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
202 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
203 |
SEAICE_GET_DYNFORCING |
& (vWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
205 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
206 |
SEAICE_GET_DYNFORCING |
& )*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
208 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
209 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
210 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
211 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
214 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
216 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
217 |
SEAICE_GET_DYNFORCING |
& +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
218 |
SEAICE_GET_DYNFORCING |
& (uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
219 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
220 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
222 |
SEAICE_GET_DYNFORCING |
& (vWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
223 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
224 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
225 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
232 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
234 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i ,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
235 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i ,j,bi,bj))*vWind(i ,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
237 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
238 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
239 |
SEAICE_GET_DYNFORCING |
& )*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
241 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
243 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j ,bi,bj))*uWind(i,j ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
244 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(i,j ,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
246 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
247 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
248 |
SEAICE_GET_DYNFORCING |
& )*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
262 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
267 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
268 |
SEAICE_GET_DYNFORCING |
& *_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
269 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj) = CDAIR(i,j)*fv(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
270 |
SEAICE_GET_DYNFORCING |
& *_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
285 |
SEAICE_GET_DYNFORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
289 |
SEAICE_GET_DYNFORCING |
locFrac = ( icFrac( i, j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
290 |
SEAICE_GET_DYNFORCING |
& + icFrac(i-1,j,bi,bj) )*halfRL |
|
./pkg/seaice/seaice_get_dynforcing.F |
291 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = taux(i,j,bi,bj)*locFrac |
|
./pkg/seaice/seaice_get_dynforcing.F |
292 |
SEAICE_GET_DYNFORCING |
& + fu(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_get_dynforcing.F |
295 |
SEAICE_GET_DYNFORCING |
CALL DIAGNOSTICS_FILL(locVar,'SIatmTx ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
300 |
SEAICE_GET_DYNFORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
304 |
SEAICE_GET_DYNFORCING |
locFrac = ( icFrac(i, j, bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
305 |
SEAICE_GET_DYNFORCING |
& + icFrac(i,j-1,bi,bj) )*halfRL |
|
./pkg/seaice/seaice_get_dynforcing.F |
306 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = tauy(i,j,bi,bj)*locFrac |
|
./pkg/seaice/seaice_get_dynforcing.F |
307 |
SEAICE_GET_DYNFORCING |
& + fv(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_get_dynforcing.F |
310 |
SEAICE_GET_DYNFORCING |
CALL DIAGNOSTICS_FILL(locVar,'SIatmTy ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
70 |
SEAICE_GET_DYNFORCING |
INTEGER bi, bj, i, j |
|
./pkg/seaice/seaice_get_dynforcing.F |
98 |
SEAICE_GET_DYNFORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_growth.F |
1040 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1042 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN |
|
./pkg/seaice/seaice_growth.F |
1060 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1078 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1079 |
SEAICE_GROWTH |
tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1136 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1137 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1151 |
SEAICE_GROWTH |
tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1152 |
SEAICE_GROWTH |
& + vWind(I,J,bi,bj)*vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1162 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1167 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1168 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1169 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1180 |
SEAICE_GROWTH |
& ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2 |
|
./pkg/seaice/seaice_growth.F |
1181 |
SEAICE_GROWTH |
& + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2 |
|
./pkg/seaice/seaice_growth.F |
1189 |
SEAICE_GROWTH |
tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1242 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1244 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1266 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
& -HEFFITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1319 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2) = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1333 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1337 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1360 |
SEAICE_GROWTH |
& -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1379 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1386 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1431 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,3) = SItrHEFF(I,J,bi,bj,2) |
|
./pkg/seaice/seaice_growth.F |
1440 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+ |
|
./pkg/seaice/seaice_growth.F |
1447 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1450 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,3)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1470 |
SEAICE_GROWTH |
& ( PRECIP(I,J,bi,bj) - snowPrecip(I,J,bi,bj) ) * |
|
./pkg/seaice/seaice_growth.F |
1472 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1487 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1491 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1508 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1555 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1564 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
1595 |
SEAICE_GROWTH |
tmpscal4 = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1607 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1622 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1636 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1639 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1640 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1642 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1643 |
SEAICE_GROWTH |
& SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1648 |
SEAICE_GROWTH |
SItracer(i,j,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1649 |
SEAICE_GROWTH |
& SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil |
|
./pkg/seaice/seaice_growth.F |
1652 |
SEAICE_GROWTH |
tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1654 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1665 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1674 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,4)=SItrHEFF(I,J,bi,bj,3) |
|
./pkg/seaice/seaice_growth.F |
1677 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,4)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1716 |
SEAICE_GROWTH |
tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1717 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst |
|
./pkg/seaice/seaice_growth.F |
1718 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1720 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1721 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1734 |
SEAICE_GROWTH |
HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1739 |
SEAICE_GROWTH |
HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1782 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1783 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1784 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1800 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1835 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1845 |
SEAICE_GROWTH |
IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR. |
|
./pkg/seaice/seaice_growth.F |
1846 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1847 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1848 |
SEAICE_GROWTH |
& MIN( SEAICE_area_max, AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1852 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1855 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1875 |
SEAICE_GROWTH |
HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1876 |
SEAICE_GROWTH |
AREAITD(I,J,1,bi,bj)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1877 |
SEAICE_GROWTH |
HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1886 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1888 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1898 |
SEAICE_GROWTH |
& HEFFITD(I,J,IT,bi,bj)/HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1902 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1907 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
1911 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=SItrAREA(I,J,bi,bj,3) |
|
./pkg/seaice/seaice_growth.F |
1912 |
SEAICE_GROWTH |
& +AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1927 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1928 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
1936 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1937 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1947 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
1948 |
SEAICE_GROWTH |
CALL SEAICE_ITD_REDIST(bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_growth.F |
1951 |
SEAICE_GROWTH |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_growth.F |
1958 |
SEAICE_GROWTH |
if (HEFF(I,J,bi,bj).GT.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1959 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1962 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1989 |
SEAICE_GROWTH |
tmpscal1 = d_HEFFbyNEG(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) + |
|
./pkg/seaice/seaice_growth.F |
1993 |
SEAICE_GROWTH |
& + d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1997 |
SEAICE_GROWTH |
& min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) ) |
|
./pkg/seaice/seaice_growth.F |
1998 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2000 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2007 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2008 |
SEAICE_GROWTH |
& .AND. XC(I,J,bi,bj) .LT. -90.0) THEN |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2032 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
2036 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2037 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2056 |
SEAICE_GROWTH |
tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
2059 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2060 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2061 |
SEAICE_GROWTH |
& *SEAICE_saltFrac*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2069 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2070 |
SEAICE_GROWTH |
& .AND. XC(I,J,bi,bj) .LT. -90.0) THEN |
|
./pkg/seaice/seaice_growth.F |
2079 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2080 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2081 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2089 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2090 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2091 |
SEAICE_GROWTH |
& *HSALT(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2095 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2117 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2118 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2119 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2123 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2128 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2129 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2133 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
2134 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2135 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2136 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2145 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,5)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2202 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
2206 |
SEAICE_GROWTH |
& + d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2208 |
SEAICE_GROWTH |
& + d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2210 |
SEAICE_GROWTH |
& + d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2212 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2213 |
SEAICE_GROWTH |
& ) * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2218 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = a_QSWbyATM_cover(I,J) + a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
2227 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNET(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
2228 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = QSW(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
2262 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2266 |
SEAICE_GROWTH |
& + d_HEFFbyNEG(I,J,bi,bj)+ d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE ) |
|
./pkg/seaice/seaice_growth.F |
2268 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2277 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2280 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2291 |
SEAICE_GROWTH |
& QNET(I,J,bi,bj)=QNET(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2297 |
SEAICE_GROWTH |
& 'SIaaflux',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2314 |
SEAICE_GROWTH |
SIatmQnt(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2315 |
SEAICE_GROWTH |
& maskC(I,J,kSurface,bi,bj)*convertHI2Q*( |
|
./pkg/seaice/seaice_growth.F |
2321 |
SEAICE_GROWTH |
tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2325 |
SEAICE_GROWTH |
tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
2326 |
SEAICE_GROWTH |
& ( ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2329 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2345 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2348 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2352 |
SEAICE_GROWTH |
SItflux(I,J,bi,bj)= SIatmQnt(I,J,bi,bj)-tmpscal1-tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2367 |
SEAICE_GROWTH |
& +d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2369 |
SEAICE_GROWTH |
& +d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2371 |
SEAICE_GROWTH |
& +d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2374 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2375 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2378 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2385 |
SEAICE_GROWTH |
& - fw2ObyRidge(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2386 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2389 |
SEAICE_GROWTH |
SIatmFW(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2390 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2391 |
SEAICE_GROWTH |
& - PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2393 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2405 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2406 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2407 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2409 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2423 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2424 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2425 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2428 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2458 |
SEAICE_GROWTH |
tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
2459 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
2462 |
SEAICE_GROWTH |
tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
2463 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
2465 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2473 |
SEAICE_GROWTH |
FWFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2477 |
SEAICE_GROWTH |
FWFsiTile(bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2478 |
SEAICE_GROWTH |
& FWFsiTile(bi,bj) + SIatmFW(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2479 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2484 |
SEAICE_GROWTH |
FWF2HFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2488 |
SEAICE_GROWTH |
FWF2HFsiTile(bi,bj) = FWF2HFsiTile(bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
2489 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2490 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2494 |
SEAICE_GROWTH |
HFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2498 |
SEAICE_GROWTH |
HFsiTile(bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2499 |
SEAICE_GROWTH |
& HFsiTile(bi,bj) + SItflux(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2500 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2514 |
SEAICE_GROWTH |
& tmpscal1,1,'SIaQbATC',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2516 |
SEAICE_GROWTH |
& tmpscal1,1,'SIaQbATO',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2518 |
SEAICE_GROWTH |
& tmpscal1,1,'SIaQbOCN',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2520 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdHbOCN',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2522 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdHbATC',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2524 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdHbATO',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2526 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdHbFLO',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2528 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdSbOCN',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2530 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdSbATC',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2532 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdAbATO',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2534 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdAbATC',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2536 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdAbOCN',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2538 |
SEAICE_GROWTH |
& convertHI2Q,1, 'SIqneto ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2540 |
SEAICE_GROWTH |
& convertHI2Q,1, 'SIqneti ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2544 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2546 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2550 |
SEAICE_GROWTH |
& 'SIsnPrcp',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2552 |
SEAICE_GROWTH |
& tmpscal1,1,'SIdA ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2555 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
2560 |
SEAICE_GROWTH |
& 'SIfwSubl',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2565 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2569 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2573 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2578 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2582 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayA,'SIacSubl',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2583 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayC,'SIrsSubl',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2584 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayB,'SIhl ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2588 |
SEAICE_GROWTH |
& 'SIgrsLT ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
2635 |
SEAICE_GROWTH |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_growth.F |
2639 |
SEAICE_GROWTH |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2640 |
SEAICE_GROWTH |
SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2649 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2652 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
2656 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2672 |
SEAICE_GROWTH |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_growth.F |
2676 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2677 |
SEAICE_GROWTH |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2678 |
SEAICE_GROWTH |
SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
394 |
SEAICE_GROWTH |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_growth.F |
400 |
SEAICE_GROWTH |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_growth.F |
498 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
514 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
515 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
517 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
519 |
SEAICE_GROWTH |
DIAGarrayD(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
522 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,1)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
523 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,2)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
531 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
532 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
554 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
561 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=ZERO |
|
./pkg/seaice/seaice_growth.F |
569 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayB,'SIareaPT',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
570 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayC,'SIheffPT',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
571 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarrayD,'SIhsnoPT',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
577 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
I ONE, 1, diagName,0,1,2,bi,bj,myThid ) |
|
./pkg/seaice/seaice_growth.F |
581 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
582 |
SEAICE_GROWTH |
I ONE, 1, diagName,0,1,2,bi,bj,myThid ) |
|
./pkg/seaice/seaice_growth.F |
616 |
SEAICE_GROWTH |
AREAforAtmFW(I,J,bi,bj) = AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
734 |
SEAICE_GROWTH |
TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
736 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
751 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
761 |
SEAICE_GROWTH |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
762 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
763 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
764 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
765 |
SEAICE_GROWTH |
& +(vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
766 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
767 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
768 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
792 |
SEAICE_GROWTH |
ticeInMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
793 |
SEAICE_GROWTH |
ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
794 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
842 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
879 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
913 |
SEAICE_GROWTH |
& 'SIactLHF',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
915 |
SEAICE_GROWTH |
& 'SImaxLHF',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
98 |
SEAICE_GROWTH |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_varia.F |
111 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
112 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
120 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
121 |
SEAICE_INIT_VARIA |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
122 |
SEAICE_INIT_VARIA |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
127 |
SEAICE_INIT_VARIA |
k1AtZ(I,J,bi,bj) = _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
128 |
SEAICE_INIT_VARIA |
& * ( _dyC(I,J,bi,bj) - _dyC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
129 |
SEAICE_INIT_VARIA |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
134 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
135 |
SEAICE_INIT_VARIA |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
136 |
SEAICE_INIT_VARIA |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
141 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
142 |
SEAICE_INIT_VARIA |
& * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
143 |
SEAICE_INIT_VARIA |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
150 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
151 |
SEAICE_INIT_VARIA |
k1AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
152 |
SEAICE_INIT_VARIA |
k1AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
153 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
154 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
155 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
167 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
168 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
169 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
177 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
178 |
SEAICE_INIT_VARIA |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
179 |
SEAICE_INIT_VARIA |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
184 |
SEAICE_INIT_VARIA |
k1AtU(I,J,bi,bj) = _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
185 |
SEAICE_INIT_VARIA |
& * ( _dyF(I,J,bi,bj) - _dyF(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
186 |
SEAICE_INIT_VARIA |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
191 |
SEAICE_INIT_VARIA |
k1AtV(I,J,bi,bj) = _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
192 |
SEAICE_INIT_VARIA |
& * ( _dyU(I+1,J,bi,bj) - _dyU(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
193 |
SEAICE_INIT_VARIA |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
198 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
199 |
SEAICE_INIT_VARIA |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
200 |
SEAICE_INIT_VARIA |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
205 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
206 |
SEAICE_INIT_VARIA |
& * ( _dxV(I,J+1,bi,bj) - _dxV(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
207 |
SEAICE_INIT_VARIA |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
212 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
213 |
SEAICE_INIT_VARIA |
& * ( _dxF(I,J,bi,bj) - _dxF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
214 |
SEAICE_INIT_VARIA |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
224 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
228 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 0 |
|
./pkg/seaice/seaice_init_varia.F |
234 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
236 |
SEAICE_INIT_VARIA |
IF (klowc(i,j,bi,bj) .LT. 2) THEN |
|
./pkg/seaice/seaice_init_varia.F |
237 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_varia.F |
239 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = 2 |
|
./pkg/seaice/seaice_init_varia.F |
240 |
SEAICE_INIT_VARIA |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_varia.F |
241 |
SEAICE_INIT_VARIA |
& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init_varia.F |
242 |
SEAICE_INIT_VARIA |
KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1 |
|
./pkg/seaice/seaice_init_varia.F |
253 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
257 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
258 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
263 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
267 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
268 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
270 |
SEAICE_INIT_VARIA |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
271 |
SEAICE_INIT_VARIA |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
274 |
SEAICE_INIT_VARIA |
uIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
275 |
SEAICE_INIT_VARIA |
vIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
276 |
SEAICE_INIT_VARIA |
ETA (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
277 |
SEAICE_INIT_VARIA |
etaZ(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
278 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
279 |
SEAICE_INIT_VARIA |
FORCEX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
280 |
SEAICE_INIT_VARIA |
FORCEY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
282 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
283 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
284 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
285 |
SEAICE_INIT_VARIA |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
286 |
SEAICE_INIT_VARIA |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
288 |
SEAICE_INIT_VARIA |
seaice_sigma1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
289 |
SEAICE_INIT_VARIA |
seaice_sigma2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
290 |
SEAICE_INIT_VARIA |
seaice_sigma12(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
293 |
SEAICE_INIT_VARIA |
uIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
294 |
SEAICE_INIT_VARIA |
vIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
295 |
SEAICE_INIT_VARIA |
AMASS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
296 |
SEAICE_INIT_VARIA |
DAIRN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
WINDX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
298 |
SEAICE_INIT_VARIA |
WINDY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
299 |
SEAICE_INIT_VARIA |
GWATX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
300 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
302 |
SEAICE_INIT_VARIA |
DWATN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
304 |
SEAICE_INIT_VARIA |
CbotC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
306 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
307 |
SEAICE_INIT_VARIA |
FORCEX0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
308 |
SEAICE_INIT_VARIA |
FORCEY0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
309 |
SEAICE_INIT_VARIA |
ZMAX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
310 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
311 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
312 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
321 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
326 |
SEAICE_INIT_VARIA |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
331 |
SEAICE_INIT_VARIA |
SItrHEFF (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
334 |
SEAICE_INIT_VARIA |
SItrAREA (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
340 |
SEAICE_INIT_VARIA |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
343 |
SEAICE_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
344 |
SEAICE_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
345 |
SEAICE_INIT_VARIA |
icevolMeanCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
347 |
SEAICE_INIT_VARIA |
saltWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
348 |
SEAICE_INIT_VARIA |
frWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
350 |
SEAICE_INIT_VARIA |
frWtrAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
351 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
360 |
SEAICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
362 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
363 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
364 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
365 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
366 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
367 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
368 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
369 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
370 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
371 |
SEAICE_INIT_VARIA |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
380 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
384 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
385 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
386 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
387 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
388 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
389 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
396 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
404 |
SEAICE_INIT_VARIA |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
406 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
407 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
412 |
SEAICE_INIT_VARIA |
I_obc = OB_Iw(j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
414 |
SEAICE_INIT_VARIA |
seaiceMaskU(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
415 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
428 |
SEAICE_INIT_VARIA |
AMASS (i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
42 |
SEAICE_INIT_VARIA |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_varia.F |
430 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
431 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
432 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
470 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
474 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
475 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
476 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
489 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
493 |
SEAICE_INIT_VARIA |
uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
494 |
SEAICE_INIT_VARIA |
vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
507 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
511 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
518 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
522 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
532 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
536 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
537 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
538 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
539 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
546 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
550 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
560 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
564 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
572 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
576 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
577 |
SEAICE_INIT_VARIA |
HEFFITD(I,J,1,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
578 |
SEAICE_INIT_VARIA |
HSNOWITD(I,J,1,bi,bj) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
579 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
580 |
SEAICE_INIT_VARIA |
fw2ObyRidge(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
583 |
SEAICE_INIT_VARIA |
CALL SEAICE_ITD_REDIST(bi, bj, baseTime, nIter0, myThid) |
|
./pkg/seaice/seaice_init_varia.F |
589 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
593 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_init_varia.F |
623 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
627 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
63 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
661 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
664 |
SEAICE_INIT_VARIA |
scalarProductMetric(i,1,bi,bj) = |
|
./pkg/seaice/seaice_init_varia.F |
665 |
SEAICE_INIT_VARIA |
& scalarProductMetric(i,1,bi,bj)/globalArea |
|
./pkg/seaice/seaice_init_varia.F |
672 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
676 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
677 |
SEAICE_INIT_VARIA |
ETA(i,j,bi,bj) = ZETA(i,j,bi,bj)/SEAICE_eccen**2 |
|
./pkg/seaice/seaice_init_varia.F |
678 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = SEAICE_strength*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
679 |
SEAICE_INIT_VARIA |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_init_varia.F |
67 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
680 |
SEAICE_INIT_VARIA |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
681 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_init_varia.F |
682 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
688 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_init_varia.F |
689 |
SEAICE_INIT_VARIA |
& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_init_varia.F |
704 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
708 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = SEAICE_tensilFac*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
709 |
SEAICE_INIT_VARIA |
& *exp(-ABS(R_low(i,j,bi,bj))*recip_tensilDepth) |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
73 |
SEAICE_INIT_VARIA |
IF (_hFacC(i,j,kSurface,bi,bj).eq.0.) |
|
./pkg/seaice/seaice_init_varia.F |
74 |
SEAICE_INIT_VARIA |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
80 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
82 |
SEAICE_INIT_VARIA |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
83 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
91 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
96 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
97 |
SEAICE_INIT_VARIA |
k1AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
98 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
99 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
106 |
SEAICE_ITD_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
111 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
112 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
121 |
SEAICE_ITD_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
125 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,1,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
126 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,1,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
127 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
137 |
SEAICE_ITD_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
143 |
SEAICE_ITD_PICKUP |
LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj)) |
|
./pkg/seaice/seaice_itd_pickup.F |
157 |
SEAICE_ITD_PICKUP |
& * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
163 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
165 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
180 |
SEAICE_ITD_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
182 |
SEAICE_ITD_PICKUP |
CALL SEAICE_ITD_REDIST( bi, bj, dummyTime, myIter, myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
183 |
SEAICE_ITD_PICKUP |
CALL SEAICE_ITD_SUM( bi, bj, dummyTime, myIter, myThid) |
|
./pkg/seaice/seaice_itd_pickup.F |
77 |
SEAICE_ITD_PICKUP |
INTEGER i, j, bi, bj, k |
|
./pkg/seaice/seaice_itd_redist.F |
115 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
127 |
SEAICE_ITD_REDIST |
IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
130 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
131 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
133 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
134 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
136 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
137 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
138 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
13 |
SEAICE_ITD_REDIST |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_itd_redist.F |
156 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .gt. |
|
./pkg/seaice/seaice_itd_redist.F |
157 |
SEAICE_ITD_REDIST |
& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
160 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
161 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
163 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
164 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
166 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
167 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
168 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
183 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .lt. |
|
./pkg/seaice/seaice_itd_redist.F |
184 |
SEAICE_ITD_REDIST |
& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
187 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
188 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
190 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
191 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
193 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
194 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
195 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
60 |
SEAICE_ITD_REDIST |
INTEGER bi,bj |
|
./pkg/seaice/seaice_itd_redist.F |
96 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
114 |
SEAICE_ITD_REMAP |
IF ( HEFFM(i,j,bi,bj) .NE. 0. _d 0 ) doRemapping(i,j) = .TRUE. |
|
./pkg/seaice/seaice_itd_remap.F |
132 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
133 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
134 |
SEAICE_ITD_REMAP |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
142 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
176 |
SEAICE_ITD_REMAP |
IF ( ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
178 |
SEAICE_ITD_REMAP |
& ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
17 |
SEAICE_ITD_REMAP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_itd_remap.F |
197 |
SEAICE_ITD_REMAP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_itd_remap.F |
204 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg ) |
|
./pkg/seaice/seaice_itd_remap.F |
219 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
239 |
SEAICE_ITD_REMAP |
& AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
249 |
SEAICE_ITD_REMAP |
daMax = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
253 |
SEAICE_ITD_REMAP |
IF ( (AREAITD(i,j,k,bi,bj)-da0) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
255 |
SEAICE_ITD_REMAP |
& * AREAITD(i,j,k,bi,bj)/( AREAITD(i,j,k,bi,bj) - da0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
258 |
SEAICE_ITD_REMAP |
da0 = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
261 |
SEAICE_ITD_REMAP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - da0 |
|
./pkg/seaice/seaice_itd_remap.F |
277 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
325 |
SEAICE_ITD_REMAP |
IF ( (darea .GT.AREAITD(i,j,kDonor,bi,bj)-SEAICE_eps).OR. |
|
./pkg/seaice/seaice_itd_remap.F |
326 |
SEAICE_ITD_REMAP |
& (dheff .GT.HEFFITD(i,j,kDonor,bi,bj)-SEAICE_eps) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
327 |
SEAICE_ITD_REMAP |
darea = AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
328 |
SEAICE_ITD_REMAP |
dheff = HEFFITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
339 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,kDonor,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
341 |
SEAICE_ITD_REMAP |
dhsnw = darea/AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
342 |
SEAICE_ITD_REMAP |
& * HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
347 |
SEAICE_ITD_REMAP |
dhsnw = HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
350 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kRecvr,bi,bj) = HEFFITD(i,j,kRecvr,bi,bj) + dheff |
|
./pkg/seaice/seaice_itd_remap.F |
351 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kDonor,bi,bj) = HEFFITD(i,j,kDonor,bi,bj) - dheff |
|
./pkg/seaice/seaice_itd_remap.F |
352 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kRecvr,bi,bj) = AREAITD(i,j,kRecvr,bi,bj) + darea |
|
./pkg/seaice/seaice_itd_remap.F |
353 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kDonor,bi,bj) = AREAITD(i,j,kDonor,bi,bj) - darea |
|
./pkg/seaice/seaice_itd_remap.F |
354 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kRecvr,bi,bj)=HSNOWITD(i,j,kRecvr,bi,bj) + dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
355 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kDonor,bi,bj)=HSNOWITD(i,j,kDonor,bi,bj) - dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
488 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_itd_remap.F |
514 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
INTEGER bi,bj |
|
./pkg/seaice/seaice_itd_remap.F |
544 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
554 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
562 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k+1,bi,bj), hActual(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
564 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k,bi,bj), hActual(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
62 |
SEAICE_ITD_REMAP |
INTEGER bi,bj |
|
./pkg/seaice/seaice_itd_sum.F |
13 |
SEAICE_ITD_SUM |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_itd_sum.F |
55 |
SEAICE_ITD_SUM |
INTEGER bi, bj |
|
./pkg/seaice/seaice_itd_sum.F |
83 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
84 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
85 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
92 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
93 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
94 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
155 |
SEAICE_JACVEC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jacvec.F |
159 |
SEAICE_JACVEC |
utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
160 |
SEAICE_JACVEC |
vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
174 |
SEAICE_JACVEC |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jacvec.F |
178 |
SEAICE_JACVEC |
duIce(I,J,bi,bj) = |
|
./pkg/seaice/seaice_jacvec.F |
179 |
SEAICE_JACVEC |
& (uIceResP(I,J,bi,bj)-uIceRes(I,J,bi,bj))*reps |
|
./pkg/seaice/seaice_jacvec.F |
180 |
SEAICE_JACVEC |
dvIce(I,J,bi,bj) = |
|
./pkg/seaice/seaice_jacvec.F |
181 |
SEAICE_JACVEC |
& (vIceResP(I,J,bi,bj)-vIceRes(I,J,bi,bj))*reps |
|
./pkg/seaice/seaice_jacvec.F |
68 |
SEAICE_JACVEC |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_jfnk.F |
146 |
SEAICE_JFNK |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jfnk.F |
150 |
SEAICE_JFNK |
uIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
151 |
SEAICE_JFNK |
vIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
152 |
SEAICE_JFNK |
duIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
153 |
SEAICE_JFNK |
dvIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
159 |
SEAICE_JFNK |
duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
160 |
SEAICE_JFNK |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
161 |
SEAICE_JFNK |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
162 |
SEAICE_JFNK |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
163 |
SEAICE_JFNK |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
164 |
SEAICE_JFNK |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
174 |
SEAICE_JFNK |
FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
175 |
SEAICE_JFNK |
& + seaiceMassU(I,J,bi,bj)*duIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_jfnk.F |
176 |
SEAICE_JFNK |
FORCEY(I,J,bi,bj) = FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
177 |
SEAICE_JFNK |
& + seaiceMassV(I,J,bi,bj)*dvIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_jfnk.F |
196 |
SEAICE_JFNK |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jfnk.F |
200 |
SEAICE_JFNK |
zetaPre(I,J,bi,bj) = zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
201 |
SEAICE_JFNK |
zetaZPre(I,J,bi,bj)= zetaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
202 |
SEAICE_JFNK |
etaPre(I,J,bi,bj) = eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
203 |
SEAICE_JFNK |
etaZPre(I,J,bi,bj) = etaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
204 |
SEAICE_JFNK |
dwatPre(I,J,bi,bj) = DWATN(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
245 |
SEAICE_JFNK |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jfnk.F |
248 |
SEAICE_JFNK |
rhs(j,bi,bj) = - rhs(j,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
341 |
SEAICE_JFNK |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jfnk.F |
345 |
SEAICE_JFNK |
duIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
346 |
SEAICE_JFNK |
dvIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
528 |
SEAICE_JFNK_UPDATE |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_jfnk.F |
548 |
SEAICE_JFNK_UPDATE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_jfnk.F |
552 |
SEAICE_JFNK_UPDATE |
uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+facLS*duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
553 |
SEAICE_JFNK_UPDATE |
vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
67 |
SEAICE_JFNK |
INTEGER i,j,bi,bj |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
104 |
INI_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
105 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
107 |
INI_CG2D |
& *faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
109 |
INI_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
110 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
112 |
INI_CG2D |
& *faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
119 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
120 |
INI_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/ini_cg2d.F |
121 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
122 |
INI_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
124 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
125 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
136 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg2d.F |
140 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
141 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
202 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg2d.F |
207 |
INI_CG2D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
208 |
INI_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/ini_cg2d.F |
209 |
INI_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
210 |
INI_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
aC = aC2d( i, j, bi,bj) |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
aCs = aC2d( i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
220 |
INI_CG2D |
aCw = aC2d(i-1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
222 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
227 |
INI_CG2D |
pW(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
229 |
INI_CG2D |
pW(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
230 |
INI_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
233 |
INI_CG2D |
pS(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
235 |
INI_CG2D |
pS(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
44 |
INI_CG2D |
INTEGER bi, bj |
|
./model/src/ini_cg2d.F |
53 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
59 |
INI_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
60 |
INI_CG2D |
pW(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
61 |
INI_CG2D |
pS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
62 |
INI_CG2D |
pC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
67 |
INI_CG2D |
cg2d_q(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
68 |
INI_CG2D |
cg2d_r(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
69 |
INI_CG2D |
cg2d_s(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
71 |
INI_CG2D |
cg2d_z(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
74 |
INI_CG2D |
cg2d_y(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
75 |
INI_CG2D |
cg2d_v(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
91 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
96 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
146 |
SEAICE_KRYLOV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_krylov.F |
150 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
151 |
SEAICE_KRYLOV |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
152 |
SEAICE_KRYLOV |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
153 |
SEAICE_KRYLOV |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
159 |
SEAICE_KRYLOV |
duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_krylov.F |
160 |
SEAICE_KRYLOV |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_krylov.F |
161 |
SEAICE_KRYLOV |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_krylov.F |
162 |
SEAICE_KRYLOV |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_krylov.F |
163 |
SEAICE_KRYLOV |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
164 |
SEAICE_KRYLOV |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
165 |
SEAICE_KRYLOV |
uIceLin(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
166 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
174 |
SEAICE_KRYLOV |
FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
175 |
SEAICE_KRYLOV |
& + seaiceMassU(I,J,bi,bj)*duIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_krylov.F |
176 |
SEAICE_KRYLOV |
FORCEY(I,J,bi,bj) = FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
177 |
SEAICE_KRYLOV |
& + seaiceMassV(I,J,bi,bj)*dvIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_krylov.F |
189 |
SEAICE_KRYLOV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_krylov.F |
193 |
SEAICE_KRYLOV |
uIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
194 |
SEAICE_KRYLOV |
& (uIce(I,J,bi,bj) + uIceLin(I,J,bi,bj)) |
|
./pkg/seaice/seaice_krylov.F |
195 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
196 |
SEAICE_KRYLOV |
& (vIce(I,J,bi,bj) + vIceLin(I,J,bi,bj)) |
|
./pkg/seaice/seaice_krylov.F |
237 |
SEAICE_KRYLOV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_krylov.F |
241 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
242 |
SEAICE_KRYLOV |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - vIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
305 |
SEAICE_KRYLOV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_krylov.F |
309 |
SEAICE_KRYLOV |
uWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
310 |
SEAICE_KRYLOV |
vWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
360 |
SEAICE_KRYLOV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_krylov.F |
364 |
SEAICE_KRYLOV |
uWork(i,j,bi,bj) = uIceLHS(i,j,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
365 |
SEAICE_KRYLOV |
vWork(i,j,bi,bj) = vIceLHS(i,j,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
58 |
SEAICE_KRYLOV |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_lsr.F |
1074 |
SEAICE_RESIDUAL |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1081 |
SEAICE_RESIDUAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
1085 |
SEAICE_RESIDUAL |
uRes(i,j,bi,bj) = rhsU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1086 |
SEAICE_RESIDUAL |
& + uRt1(i,j,bi,bj)*uFld(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1087 |
SEAICE_RESIDUAL |
& + uRt2(i,j,bi,bj)*uFld(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1088 |
SEAICE_RESIDUAL |
& - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1089 |
SEAICE_RESIDUAL |
& + BU(i,j,bi,bj)*uFld( i ,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1090 |
SEAICE_RESIDUAL |
& + CU(i,j,bi,bj)*uFld(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1092 |
SEAICE_RESIDUAL |
vRes(i,j,bi,bj) = rhsV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1093 |
SEAICE_RESIDUAL |
& + vRt1(i,j,bi,bj)*vFld(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1094 |
SEAICE_RESIDUAL |
& + vRt2(i,j,bi,bj)*vFld(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1095 |
SEAICE_RESIDUAL |
& - ( AV(i,j,bi,bj)*vFld(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1096 |
SEAICE_RESIDUAL |
& + BV(i,j,bi,bj)*vFld(i, j ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1097 |
SEAICE_RESIDUAL |
& + CV(i,j,bi,bj)*vFld(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1104 |
SEAICE_RESIDUAL |
residU = residU + uRes(i,j,bi,bj)*uRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1105 |
SEAICE_RESIDUAL |
& *rAw(i,j,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1107 |
SEAICE_RESIDUAL |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1109 |
SEAICE_RESIDUAL |
residV = residV + vRes(i,j,bi,bj)*vRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1110 |
SEAICE_RESIDUAL |
& *rAs(i,j,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1112 |
SEAICE_RESIDUAL |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1203 |
SEAICE_LSR_CALC_COEFFS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1244 |
SEAICE_LSR_CALC_COEFFS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1250 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1267 |
SEAICE_LSR_CALC_COEFFS |
UXX(I,J) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1268 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1270 |
SEAICE_LSR_CALC_COEFFS |
UXM(I,J) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1271 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1277 |
SEAICE_LSR_CALC_COEFFS |
UYY(I,J) = _dxV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1278 |
SEAICE_LSR_CALC_COEFFS |
& ( etaZloc(I,J,bi,bj) + strImpCplFac*zetaZloc(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1279 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1281 |
SEAICE_LSR_CALC_COEFFS |
UYM(I,J) = _dxV(I,J,bi,bj) * etaZloc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1282 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1288 |
SEAICE_LSR_CALC_COEFFS |
VXX(I,J) = _dyU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1289 |
SEAICE_LSR_CALC_COEFFS |
& ( etaZloc(I,J,bi,bj) + strImpCplFac*zetaZloc(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1290 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1292 |
SEAICE_LSR_CALC_COEFFS |
VXM(I,J) = _dyU(I,J,bi,bj) * etaZloc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1293 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1299 |
SEAICE_LSR_CALC_COEFFS |
VYY(I,J) = _dxF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1300 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1302 |
SEAICE_LSR_CALC_COEFFS |
VYM(I,J) = _dxF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1303 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1315 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1316 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1318 |
SEAICE_LSR_CALC_COEFFS |
CU(I,J,bi,bj)= ( - UXX(I ,J) - UXM(I ,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1319 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1321 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1324 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1326 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj)= UYY(I,J ) + UYM(I,J ) |
|
./pkg/seaice/seaice_lsr.F |
1328 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj)= UYY(I,J+1) - UYM(I,J+1) |
|
./pkg/seaice/seaice_lsr.F |
1337 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1338 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1342 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1346 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1347 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1354 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1355 |
SEAICE_LSR_CALC_COEFFS |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1359 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1360 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1361 |
SEAICE_LSR_CALC_COEFFS |
& ( bdfAlphaOverDt*seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1362 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I, J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1363 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I-1,J,bi,bj) )*areaW(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1365 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1366 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1378 |
SEAICE_LSR_CALC_COEFFS |
AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1) |
|
./pkg/seaice/seaice_lsr.F |
1379 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1381 |
SEAICE_LSR_CALC_COEFFS |
CV(I,J,bi,bj)=( - VYY(I,J ) - VYM(I,J ) |
|
./pkg/seaice/seaice_lsr.F |
1382 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1384 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1387 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1389 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = VXX(I ,J) + VXM(I ,J) |
|
./pkg/seaice/seaice_lsr.F |
1391 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = VXX(I+1,J) - VXM(I+1,J) |
|
./pkg/seaice/seaice_lsr.F |
1400 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1401 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1409 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1410 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1417 |
SEAICE_LSR_CALC_COEFFS |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1418 |
SEAICE_LSR_CALC_COEFFS |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1422 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1423 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1424 |
SEAICE_LSR_CALC_COEFFS |
& ( bdfAlphaOverDt*seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1425 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I,J, bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1426 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I,J-1,bi,bj) )*areaS(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1428 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1429 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1444 |
SEAICE_LSR_CALC_COEFFS |
IF (BU(I,J,bi,bj).EQ.0 _d 0) BU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1445 |
SEAICE_LSR_CALC_COEFFS |
IF (BV(I,J,bi,bj).EQ.0 _d 0) BV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1465 |
SEAICE_LSR_RHSU |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1487 |
SEAICE_LSR_RHSU |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1518 |
SEAICE_LSR_RHSU |
sig11(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1519 |
SEAICE_LSR_RHSU |
& * ( vIceC(I,J+1,bi,bj) - vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1520 |
SEAICE_LSR_RHSU |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1521 |
SEAICE_LSR_RHSU |
& + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1522 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1523 |
SEAICE_LSR_RHSU |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1529 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1530 |
SEAICE_LSR_RHSU |
sig12(I,J) = etaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1531 |
SEAICE_LSR_RHSU |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1532 |
SEAICE_LSR_RHSU |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1533 |
SEAICE_LSR_RHSU |
& - k1AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1534 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1537 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1538 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1542 |
SEAICE_LSR_RHSU |
& + etaZloc(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1543 |
SEAICE_LSR_RHSU |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1554 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1555 |
SEAICE_LSR_RHSU |
sig12(I,J) = sig12(I,J) - zetaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1556 |
SEAICE_LSR_RHSU |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1557 |
SEAICE_LSR_RHSU |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1560 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1561 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1565 |
SEAICE_LSR_RHSU |
& - zetaZloc(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1566 |
SEAICE_LSR_RHSU |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1575 |
SEAICE_LSR_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1576 |
SEAICE_LSR_RHSU |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1577 |
SEAICE_LSR_RHSU |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1578 |
SEAICE_LSR_RHSU |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |
|
./pkg/seaice/seaice_lsr.F |
1579 |
SEAICE_LSR_RHSU |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
1580 |
SEAICE_LSR_RHSU |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
1596 |
SEAICE_LSR_RHSV |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1618 |
SEAICE_LSR_RHSV |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1650 |
SEAICE_LSR_RHSV |
sig22(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1651 |
SEAICE_LSR_RHSV |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1652 |
SEAICE_LSR_RHSV |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1653 |
SEAICE_LSR_RHSV |
& + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1654 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR_RHSV |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1661 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1662 |
SEAICE_LSR_RHSV |
sig12(I,J) = etaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1663 |
SEAICE_LSR_RHSV |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1664 |
SEAICE_LSR_RHSV |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1665 |
SEAICE_LSR_RHSV |
& - k2AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1666 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1669 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1670 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1674 |
SEAICE_LSR_RHSV |
& + etaZloc(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1675 |
SEAICE_LSR_RHSV |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1686 |
SEAICE_LSR_RHSV |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1687 |
SEAICE_LSR_RHSV |
sig12(I,J) = sig12(I,J) - zetaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1688 |
SEAICE_LSR_RHSV |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1689 |
SEAICE_LSR_RHSV |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1692 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1693 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1697 |
SEAICE_LSR_RHSV |
& - zetaZloc(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1698 |
SEAICE_LSR_RHSV |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1707 |
SEAICE_LSR_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1708 |
SEAICE_LSR_RHSV |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1709 |
SEAICE_LSR_RHSV |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
1710 |
SEAICE_LSR_RHSV |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1711 |
SEAICE_LSR_RHSV |
& + _dxF(I ,J ,bi,bj) * sig22(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1712 |
SEAICE_LSR_RHSV |
& - _dxF(I ,J-1,bi,bj) * sig22(I ,J-1) ) |
|
./pkg/seaice/seaice_lsr.F |
1727 |
SEAICE_LSR_TRIDIAGU |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1748 |
SEAICE_LSR_TRIDIAGU |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
1799 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
179 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
1800 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1802 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1804 |
SEAICE_LSR_TRIDIAGU |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1805 |
SEAICE_LSR_TRIDIAGU |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1806 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1810 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1812 |
SEAICE_LSR_TRIDIAGU |
CUU(iMin,J)=CUU(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1813 |
SEAICE_LSR_TRIDIAGU |
URT(iMin,J)=URT(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1826 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
183 |
SEAICE_LSR |
deltaC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
press (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1853 |
SEAICE_LSR_TRIDIAGU |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1854 |
SEAICE_LSR_TRIDIAGU |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
185 |
SEAICE_LSR |
zeta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
186 |
SEAICE_LSR |
zetaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1872 |
SEAICE_LSR_TRIDIAGV |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
etaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1893 |
SEAICE_LSR_TRIDIAGV |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
189 |
SEAICE_LSR |
uIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
190 |
SEAICE_LSR |
vIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
191 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
192 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1949 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1950 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1952 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1954 |
SEAICE_LSR_TRIDIAGV |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1955 |
SEAICE_LSR_TRIDIAGV |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1956 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1959 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1965 |
SEAICE_LSR_TRIDIAGV |
CVV(I,jMin)=CVV(I,jMin)/BV(I,jMin,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1966 |
SEAICE_LSR_TRIDIAGV |
VRT(I,jMin)=VRT(I,jMin)/BV(I,jMin,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
1981 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet |
|
./pkg/seaice/seaice_lsr.F |
2006 |
SEAICE_LSR_TRIDIAGV |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
2007 |
SEAICE_LSR_TRIDIAGV |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
200 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
204 |
SEAICE_LSR |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
205 |
SEAICE_LSR |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
211 |
SEAICE_LSR |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
213 |
SEAICE_LSR |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
214 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
273 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
277 |
SEAICE_LSR |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
278 |
SEAICE_LSR |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
279 |
SEAICE_LSR |
uIceC (I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
280 |
SEAICE_LSR |
vIceC (I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
287 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
uIce (I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
292 |
SEAICE_LSR |
vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
302 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
306 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
307 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
352 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
357 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
362 |
SEAICE_LSR |
dragSym(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
364 |
SEAICE_LSR |
& +CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
374 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
380 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
384 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
386 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
387 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
388 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
389 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
390 |
SEAICE_LSR |
& ) ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
391 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
392 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
393 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
394 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
395 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
398 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
399 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
& ) ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
407 |
SEAICE_LSR |
FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + HALF* |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
409 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
410 |
SEAICE_LSR |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
411 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
412 |
SEAICE_LSR |
FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) - HALF* |
|
./pkg/seaice/seaice_lsr.F |
413 |
SEAICE_LSR |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
415 |
SEAICE_LSR |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
423 |
SEAICE_LSR |
& +seaiceMassU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
& *uIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
425 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
426 |
SEAICE_LSR |
& +seaiceMassV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
427 |
SEAICE_LSR |
& *vIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
428 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
438 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
445 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
451 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
458 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
469 |
SEAICE_LSR |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/seaice/seaice_lsr.F |
475 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + gUmom(I,J) |
|
./pkg/seaice/seaice_lsr.F |
476 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) + gVmom(I,J) |
|
./pkg/seaice/seaice_lsr.F |
498 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
502 |
SEAICE_LSR |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_lsr.F |
503 |
SEAICE_LSR |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
504 |
SEAICE_LSR |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_lsr.F |
505 |
SEAICE_LSR |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
506 |
SEAICE_LSR |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
507 |
SEAICE_LSR |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
508 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
510 |
SEAICE_LSR |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_lsr.F |
511 |
SEAICE_LSR |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
512 |
SEAICE_LSR |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_lsr.F |
513 |
SEAICE_LSR |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
515 |
SEAICE_LSR |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
516 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
548 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
552 |
SEAICE_LSR |
uIce_fd(i,j,bi,bj) = FORCEX(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
553 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
554 |
SEAICE_LSR |
& + seaiceMassU(i,j,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
& * areaW(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
558 |
SEAICE_LSR |
vIce_fd(i,j,bi,bj) = FORCEY(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
559 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
560 |
SEAICE_LSR |
& + seaiceMassV(i,j,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
561 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
562 |
SEAICE_LSR |
& * areaS(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
588 |
SEAICE_LSR |
errIni = uTmp(i,j,bi,bj)*uTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
589 |
SEAICE_LSR |
errFD = uRes(i,j,bi,bj)*uRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
595 |
SEAICE_LSR |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
597 |
SEAICE_LSR |
uIce(i,j,bi,bj) = ( errFD *uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
598 |
SEAICE_LSR |
& + errIni*uIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
601 |
SEAICE_LSR |
errIni = vTmp(i,j,bi,bj)*vTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
602 |
SEAICE_LSR |
errFD = vRes(i,j,bi,bj)*vRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
608 |
SEAICE_LSR |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
610 |
SEAICE_LSR |
vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
611 |
SEAICE_LSR |
& + errIni*vIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
696 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
701 |
SEAICE_LSR |
uTmp(i,j,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
702 |
SEAICE_LSR |
rhsUx(i,j,bi,bj) = ( rhsU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
703 |
SEAICE_LSR |
& + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
704 |
SEAICE_LSR |
& + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
705 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
vTmp(i,j,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
713 |
SEAICE_LSR |
rhsVy(i,j,bi,bj) = ( rhsV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
714 |
SEAICE_LSR |
& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& )*seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
732 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
uIce(i,j,bi,bj) = uTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
745 |
SEAICE_LSR |
vIce(i,j,bi,bj) = vTmp(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
746 |
SEAICE_LSR |
& + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
757 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
763 |
SEAICE_LSR |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_lsr.F |
778 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
779 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
788 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
809 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
813 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
814 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
834 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
838 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
839 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
83 |
SEAICE_LSR |
INTEGER i, j, m, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
921 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
925 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
938 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
944 |
SEAICE_LSR |
& ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
945 |
SEAICE_LSR |
& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
946 |
SEAICE_LSR |
& + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
947 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
949 |
SEAICE_LSR |
EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
950 |
SEAICE_LSR |
& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
951 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
990 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
995 |
SEAICE_LSR |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_map_thsice.F |
49 |
SEAICE_MAP_THSICE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_map_thsice.F |
56 |
SEAICE_MAP_THSICE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_map_thsice.F |
60 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
61 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
63 |
SEAICE_MODEL |
INTEGER bi, bj |
|
./pkg/seaice/seaice_model.F |
87 |
SEAICE_MODEL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_model.F |
91 |
SEAICE_MODEL |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
92 |
SEAICE_MODEL |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
95 |
SEAICE_MODEL |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_mom_advection.F |
131 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
136 |
SEAICE_MOM_ADVECTION |
uFld(i,j) = uIceLoc(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
137 |
SEAICE_MOM_ADVECTION |
vFld(i,j) = vIceLoc(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
14 |
SEAICE_MOM_ADVECTION |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/seaice/seaice_mom_advection.F |
152 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_KE(bi,bj,k,SEAICEselectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
154 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
184 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
190 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
201 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
207 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
227 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(uCf,'SIuAdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
228 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(vCf,'SIvAdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
233 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
239 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
247 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(uCf,'SIKEx ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
248 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(vCf,'SIKEy ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
256 |
SEAICE_MOM_ADVECTION |
gU(i,j) = gU(i,j)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
257 |
SEAICE_MOM_ADVECTION |
gV(i,j) = gV(i,j)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_mom_advection.F |
263 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(KE, 'SImomKE ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
264 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(gU, 'SIuMmAdv',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
265 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(gV, 'SIvMmAdv',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
51 |
SEAICE_MOM_ADVECTION |
INTEGER bi,bj |
|
./pkg/seaice/seaice_mom_advection.F |
95 |
SEAICE_MOM_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& + DWATN(I-1,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
104 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
106 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I,J ,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
SEAICE_OCEAN_STRESS |
& + DWATN(I,J-1,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
115 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
117 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
119 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
122 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
41 |
SEAICE_OCEAN_STRESS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_ocean_stress.F |
59 |
SEAICE_OCEAN_STRESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
65 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
69 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
75 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
79 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
91 |
SEAICE_OCEAN_STRESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
95 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I ,J,bi,bj) * |
|
./model/src/ini_cg3d.F |
106 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
112 |
INI_CG3D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
114 |
INI_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/ini_cg3d.F |
116 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
118 |
INI_CG3D |
myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
faceArea = _dxG(i,j,bi,bj)*drF(K) |
|
./model/src/ini_cg3d.F |
125 |
INI_CG3D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
127 |
INI_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/ini_cg3d.F |
129 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
131 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
138 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
148 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
149 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./model/src/ini_cg3d.F |
152 |
INI_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
160 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
187 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg3d.F |
193 |
INI_CG3D |
aW = aW3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
194 |
INI_CG3D |
aE = aW3d(i+1,j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
195 |
INI_CG3D |
aN = aS3d( i,j+1,k, bi,bj) |
|
./model/src/ini_cg3d.F |
196 |
INI_CG3D |
aS = aS3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
197 |
INI_CG3D |
aU = aV3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
199 |
INI_CG3D |
aL = aV3d(i, j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
203 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
211 |
INI_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
217 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
218 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
219 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
227 |
INI_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
229 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
230 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
231 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
240 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
241 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
242 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
243 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
264 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg3d.F |
269 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
270 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
271 |
INI_CG3D |
zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
273 |
INI_CG3D |
zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
275 |
INI_CG3D |
zMU(i,j,k,bi,bj)= 0. |
|
./model/src/ini_cg3d.F |
283 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
284 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
285 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
294 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
300 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
301 |
INI_CG3D |
& (zMC(i,j,k,bi,bj)-zML(i,j,k,bi,bj)*zMU(i,j,k-1,bi,bj)) |
|
./model/src/ini_cg3d.F |
302 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
309 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
310 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_cg3d.F |
311 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
312 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
46 |
INI_CG3D |
INTEGER bi, bj |
|
./model/src/ini_cg3d.F |
61 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_cg3d.F |
67 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
68 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
69 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
70 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
71 |
INI_CG3D |
zMC (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
zML (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
zMU (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
79 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
80 |
INI_CG3D |
cg3d_r(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
81 |
INI_CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
87 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
101 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
103 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
107 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0. |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
109 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
111 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
114 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj) = CwatC(I,J,bi,bj) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
65 |
SEAICE_OCEANDRAG_COEFFS |
INTEGER i,j,bi,bj |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
72 |
SEAICE_OCEANDRAG_COEFFS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
79 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
80 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
82 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
83 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
87 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
88 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW( i ,j,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
89 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
90 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
91 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i,j ,bi,bj)-vVel(i,j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
92 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i, j ,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
94 |
SEAICE_OCEANDRAG_COEFFS |
& *maskInS(i,j+1,bi,bj) )**2 ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
96 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
98 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0. |
|
./pkg/seaice/seaice_output.F |
191 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_output.F |
196 |
SEAICE_OUTPUT |
FUtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
197 |
SEAICE_OUTPUT |
& FUtave(i,j,bi,bj) +FU(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
198 |
SEAICE_OUTPUT |
FVtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
199 |
SEAICE_OUTPUT |
& FVtave(i,j,bi,bj) +FV(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
200 |
SEAICE_OUTPUT |
EmPmRtave(i,j,bi,bj)= |
|
./pkg/seaice/seaice_output.F |
201 |
SEAICE_OUTPUT |
& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
202 |
SEAICE_OUTPUT |
QNETtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
203 |
SEAICE_OUTPUT |
& QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
204 |
SEAICE_OUTPUT |
QSWtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
205 |
SEAICE_OUTPUT |
& QSWtave(i,j,bi,bj) +QSW(i,j,bi,bj) *deltaTClock |
|
./pkg/seaice/seaice_output.F |
206 |
SEAICE_OUTPUT |
UICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
207 |
SEAICE_OUTPUT |
& UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
208 |
SEAICE_OUTPUT |
VICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
209 |
SEAICE_OUTPUT |
& VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
210 |
SEAICE_OUTPUT |
HEFFtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
211 |
SEAICE_OUTPUT |
& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
212 |
SEAICE_OUTPUT |
AREAtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
220 |
SEAICE_OUTPUT |
HEFFITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
221 |
SEAICE_OUTPUT |
& HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
222 |
SEAICE_OUTPUT |
AREAITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
223 |
SEAICE_OUTPUT |
& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
228 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = SEAICE_timeAve(bi,bj)+deltaTClock |
|
./pkg/seaice/seaice_output.F |
248 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_output.F |
251 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
253 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
255 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
257 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
259 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
261 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
263 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
265 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
267 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
270 |
SEAICE_OUTPUT |
& SEAICE_timeAve, nITD, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
272 |
SEAICE_OUTPUT |
& SEAICE_timeAve, nITD, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
329 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/seaice/seaice_output.F |
331 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
332 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
333 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
334 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
335 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
336 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
337 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
338 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
339 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
340 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_output.F |
61 |
SEAICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_preconditioner.F |
150 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
154 |
SEAICE_PRECONDITIONER |
rhsU (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
155 |
SEAICE_PRECONDITIONER |
rhsV (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
156 |
SEAICE_PRECONDITIONER |
rhsU0(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
157 |
SEAICE_PRECONDITIONER |
rhsV0(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
159 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
160 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
162 |
SEAICE_PRECONDITIONER |
dragSym(I,J,bi,bj) = dwatPre(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_preconditioner.F |
170 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
174 |
SEAICE_PRECONDITIONER |
etaPlusZeta (I,J,bi,bj)= etaPre(I,J,bi,bj)+zetaPre(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
175 |
SEAICE_PRECONDITIONER |
zetaMinusEta(I,J,bi,bj)=zetaPre(I,J,bi,bj)- etaPre(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
191 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
195 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
196 |
SEAICE_PRECONDITIONER |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
197 |
SEAICE_PRECONDITIONER |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_preconditioner.F |
198 |
SEAICE_PRECONDITIONER |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
199 |
SEAICE_PRECONDITIONER |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
200 |
SEAICE_PRECONDITIONER |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
202 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
203 |
SEAICE_PRECONDITIONER |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
204 |
SEAICE_PRECONDITIONER |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_preconditioner.F |
205 |
SEAICE_PRECONDITIONER |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
206 |
SEAICE_PRECONDITIONER |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
207 |
SEAICE_PRECONDITIONER |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
233 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
237 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
238 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
246 |
SEAICE_PRECONDITIONER |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
252 |
SEAICE_PRECONDITIONER |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
256 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
257 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
259 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
260 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
282 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
288 |
SEAICE_PRECONDITIONER |
uTmp(I,J,bi,bj)=duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
289 |
SEAICE_PRECONDITIONER |
vTmp(I,J,bi,bj)=dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
296 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
298 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
307 |
SEAICE_PRECONDITIONER |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
314 |
SEAICE_PRECONDITIONER |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
320 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
321 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
324 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
325 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
336 |
SEAICE_PRECONDITIONER |
I imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
344 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
349 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
357 |
SEAICE_PRECONDITIONER |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
362 |
SEAICE_PRECONDITIONER |
IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
363 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
374 |
SEAICE_PRECONDITIONER |
I imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
418 |
SEAICE_PRECONDITIONER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_preconditioner.F |
422 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj)=duIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
423 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj)=dvIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
442 |
SEAICE_PRECOND_RHSU |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
475 |
SEAICE_PRECOND_RHSU |
INTEGER iMin, iMax, jMin, jMax, bi, bj, myThid |
|
./pkg/seaice/seaice_preconditioner.F |
488 |
SEAICE_PRECOND_RHSU |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
495 |
SEAICE_PRECOND_RHSU |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
502 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
514 |
SEAICE_PRECOND_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
515 |
SEAICE_PRECOND_RHSU |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
516 |
SEAICE_PRECOND_RHSU |
& ( dwatPre(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
517 |
SEAICE_PRECOND_RHSU |
& (vVel(I ,J ,k,bi,bj)-vIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
518 |
SEAICE_PRECOND_RHSU |
& +vVel(I ,J+1,k,bi,bj)-vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
519 |
SEAICE_PRECOND_RHSU |
& + dwatPre(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
520 |
SEAICE_PRECOND_RHSU |
& (vVel(I-1,J ,k,bi,bj)-vIceLoc(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
521 |
SEAICE_PRECOND_RHSU |
& +vVel(I-1,J+1,k,bi,bj)-vIceLoc(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
524 |
SEAICE_PRECOND_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
525 |
SEAICE_PRECOND_RHSU |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
526 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc( i ,j,bi,bj)+vIceLoc( i ,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
527 |
SEAICE_PRECOND_RHSU |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
528 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc(i-1,j,bi,bj)+vIceLoc(i-1,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
547 |
SEAICE_PRECOND_RHSV |
I iMin,iMax,jMin,jMax,bi,bj,myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
580 |
SEAICE_PRECOND_RHSV |
INTEGER iMin, iMax, jMin, jMax, bi, bj, myThid |
|
./pkg/seaice/seaice_preconditioner.F |
593 |
SEAICE_PRECOND_RHSV |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
600 |
SEAICE_PRECOND_RHSV |
I iMin, iMax, jMin, jMax, bi, bj, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
607 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
619 |
SEAICE_PRECOND_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
620 |
SEAICE_PRECOND_RHSV |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
621 |
SEAICE_PRECOND_RHSV |
& ( dwatPre(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
622 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J ,k,bi,bj)-uIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
623 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J ,k,bi,bj)-uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
624 |
SEAICE_PRECOND_RHSV |
& + dwatPre(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
625 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J-1,k,bi,bj)-uIceLoc(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
626 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J-1,k,bi,bj)-uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
629 |
SEAICE_PRECOND_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) - 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
630 |
SEAICE_PRECOND_RHSV |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
631 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j ,bi,bj)+uIceLoc(i+1, j,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
632 |
SEAICE_PRECOND_RHSV |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
633 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j-1,bi,bj)+uIceLoc(i+1,j-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
83 |
SEAICE_PRECONDITIONER |
INTEGER i, j, m, bi, bj |
|
./pkg/seaice/seaice_prepare_ridging.F |
102 |
SEAICE_PREPARE_RIDGING |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
105 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
106 |
SEAICE_PREPARE_RIDGING |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
120 |
SEAICE_PREPARE_RIDGING |
IF ( opnWtrFrac(i,j,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
121 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
128 |
SEAICE_PREPARE_RIDGING |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
129 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
17 |
SEAICE_PREPARE_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
269 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
55 |
SEAICE_PREPARE_RIDGING |
INTEGER bi,bj |
|
./pkg/seaice/seaice_read_pickup.F |
235 |
SEAICE_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
237 |
SEAICE_READ_PICKUP |
CALL SEAICE_ITD_SUM( bi, bj, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
307 |
SEAICE_READ_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
312 |
SEAICE_READ_PICKUP |
TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
58 |
SEAICE_READ_PICKUP |
INTEGER i,j,k,bi,bj |
|
./pkg/seaice/seaice_reg_ridge.F |
104 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
105 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
107 |
SEAICE_REG_RIDGE |
d_AREAbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
108 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
111 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
132 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.AREA(I,J,bi,bj) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
133 |
SEAICE_REG_RIDGE |
d_AREAbyRLX(i,j,bi,bj) = |
|
./pkg/seaice/seaice_reg_ridge.F |
135 |
SEAICE_REG_RIDGE |
& * (exf_iceFraction(I,J,bi,bj) - AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_reg_ridge.F |
137 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.zeroRS .AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
138 |
SEAICE_REG_RIDGE |
& AREA(I,J,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
140 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(i,j,bi,bj) = 1. _d 1 * siEps |
|
./pkg/seaice/seaice_reg_ridge.F |
143 |
SEAICE_REG_RIDGE |
AREAITD(I,J,1,bi,bj) = AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
144 |
SEAICE_REG_RIDGE |
& + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
145 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,1,bi,bj) = HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
146 |
SEAICE_REG_RIDGE |
& + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
148 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj) + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
149 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
163 |
SEAICE_REG_RIDGE |
tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
164 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
165 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
166 |
SEAICE_REG_RIDGE |
tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
167 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
168 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
169 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
177 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_SUM ( bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
186 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
187 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
188 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
189 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
190 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
206 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
207 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
208 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
221 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
222 |
SEAICE_REG_RIDGE |
tmpscal1=-HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
223 |
SEAICE_REG_RIDGE |
tmpscal2=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
225 |
SEAICE_REG_RIDGE |
TICES(I,J,IT,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_reg_ridge.F |
228 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
229 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
230 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
231 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
241 |
SEAICE_REG_RIDGE |
IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
242 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0)) |
|
./pkg/seaice/seaice_reg_ridge.F |
243 |
SEAICE_REG_RIDGE |
& AREAITD(I,J,IT,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
254 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
255 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
268 |
SEAICE_REG_RIDGE |
IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
269 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
273 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)= |
|
./pkg/seaice/seaice_reg_ridge.F |
274 |
SEAICE_REG_RIDGE |
& MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd) |
|
./pkg/seaice/seaice_reg_ridge.F |
285 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
286 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),SEAICE_area_floor) |
|
./pkg/seaice/seaice_reg_ridge.F |
301 |
SEAICE_REG_RIDGE |
IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
302 |
SEAICE_REG_RIDGE |
& (HEFF(I,J,bi,bj) .EQ. 0.0) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
303 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_reg_ridge.F |
304 |
SEAICE_REG_RIDGE |
& HSALT(I,J,bi,bj) * recip_deltaTtherm |
|
./pkg/seaice/seaice_reg_ridge.F |
305 |
SEAICE_REG_RIDGE |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
333 |
SEAICE_REG_RIDGE |
& + TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
334 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
336 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
350 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=tmpscal3itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
356 |
SEAICE_REG_RIDGE |
CALL SEAICE_DO_RIDGING( bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
359 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_REDIST( bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
362 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_SUM ( bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
373 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
376 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
380 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_reg_ridge.F |
393 |
SEAICE_REG_RIDGE |
CALL DIAGNOSTICS_FILL(DIAGarrayA,'SIareaPR',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_reg_ridge.F |
61 |
SEAICE_REG_RIDGE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_reg_ridge.F |
86 |
SEAICE_REG_RIDGE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_reg_ridge.F |
92 |
SEAICE_REG_RIDGE |
act2 = bj - myByLo(myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX( MIN_LWDOWN, LWDOWN(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
242 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX( celsius2K+MIN_ATEMP, ATEMP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
245 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
24 |
SEAICE_SOLVE4TEMP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_solve4temp.F |
278 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
318 |
SEAICE_SOLVE4TEMP |
& *penetSWFrac * SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
321 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - penetSWFrac)* SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
404 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
479 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
507 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
558 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
561 |
SEAICE_SOLVE4TEMP |
& AQH(I,J,bi,bj),qhice(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
85 |
SEAICE_SOLVE4TEMP |
INTEGER bi, bj |
|
./pkg/seaice/seaice_tracer_phys.F |
100 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,jTh) |
|
./pkg/seaice/seaice_tracer_phys.F |
101 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,jTh+1) |
|
./pkg/seaice/seaice_tracer_phys.F |
108 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
110 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
112 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
113 |
SEAICE_TRACER_PHYS |
& +meltPart*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
117 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,4) |
|
./pkg/seaice/seaice_tracer_phys.F |
118 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./pkg/seaice/seaice_tracer_phys.F |
120 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact |
|
./pkg/seaice/seaice_tracer_phys.F |
124 |
SEAICE_TRACER_PHYS |
SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
127 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
128 |
SEAICE_TRACER_PHYS |
& +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5) |
|
./pkg/seaice/seaice_tracer_phys.F |
144 |
SEAICE_TRACER_PHYS |
AREAprev=SItrAREA(i,j,bi,bj,2) |
|
./pkg/seaice/seaice_tracer_phys.F |
145 |
SEAICE_TRACER_PHYS |
AREApost=SItrAREA(i,j,bi,bj,3) |
|
./pkg/seaice/seaice_tracer_phys.F |
150 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact |
|
./pkg/seaice/seaice_tracer_phys.F |
161 |
SEAICE_TRACER_PHYS |
if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
162 |
SEAICE_TRACER_PHYS |
& .EQ.'HEFF') ).OR.( (SItrAREA(i,j,bi,bj,3).GT.0. _d 0).AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
164 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)= |
|
./pkg/seaice/seaice_tracer_phys.F |
165 |
SEAICE_TRACER_PHYS |
& SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_tracer_phys.F |
167 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
180 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+ |
|
./pkg/seaice/seaice_tracer_phys.F |
181 |
SEAICE_TRACER_PHYS |
& MAX(0. _d 0, SItrAREA(i,j,bi,bj,1)-SItrAREA(i,j,bi,bj,2)) |
|
./pkg/seaice/seaice_tracer_phys.F |
183 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
|
./pkg/seaice/seaice_tracer_phys.F |
184 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,4) |
|
./pkg/seaice/seaice_tracer_phys.F |
187 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1 |
|
./pkg/seaice/seaice_tracer_phys.F |
197 |
SEAICE_TRACER_PHYS |
CALL DIAGNOSTICS_SCALE_FILL(SItrBucket(1-OLx,1-OLy,bi,bj,iTr), |
|
./pkg/seaice/seaice_tracer_phys.F |
198 |
SEAICE_TRACER_PHYS |
& tmpscal1, 1, diagName,0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_tracer_phys.F |
207 |
SEAICE_TRACER_PHYS |
saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
208 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
212 |
SEAICE_TRACER_PHYS |
saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj)) |
|
./pkg/seaice/seaice_tracer_phys.F |
213 |
SEAICE_TRACER_PHYS |
& *SPsalFRAC*(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j)) |
|
./pkg/seaice/seaice_tracer_phys.F |
222 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
223 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
228 |
SEAICE_TRACER_PHYS |
& SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
240 |
SEAICE_TRACER_PHYS |
HEFFpost=SItrHEFF(i,j,bi,bj,5) |
|
./pkg/seaice/seaice_tracer_phys.F |
241 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
242 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
245 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
256 |
SEAICE_TRACER_PHYS |
AREApost=SItrAREA(i,j,bi,bj,3) |
|
./pkg/seaice/seaice_tracer_phys.F |
257 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
258 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost |
|
./pkg/seaice/seaice_tracer_phys.F |
42 |
SEAICE_TRACER_PHYS |
INTEGER iTr, jTh, I, J, bi, bj, ks |
|
./pkg/seaice/seaice_tracer_phys.F |
60 |
SEAICE_TRACER_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/seaice/seaice_tracer_phys.F |
78 |
SEAICE_TRACER_PHYS |
SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
79 |
SEAICE_TRACER_PHYS |
SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj) |
|
./pkg/seaice/seaice_tracer_phys.F |
88 |
SEAICE_TRACER_PHYS |
HEFFprev=SItrHEFF(i,j,bi,bj,1) |
|
./pkg/seaice/seaice_tracer_phys.F |
91 |
SEAICE_TRACER_PHYS |
& HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr) |
|
./eesupp/src/bar_check.F |
40 |
BAR_CHECK |
INTEGER bi,bj |
|
./eesupp/src/bar_check.F |
49 |
BAR_CHECK |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/bar_check.F |
51 |
BAR_CHECK |
barStatus(bi,bj) = barrierId |
|
./eesupp/src/bar_check.F |
58 |
BAR_CHECK |
DO bj = 1,nSy |
|
./eesupp/src/bar_check.F |
60 |
BAR_CHECK |
flag = flag .OR. (barStatus(bi,bj).NE.barrierId) |
|
./model/src/ini_cori.F |
109 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cori.F |
113 |
INI_CORI |
fCori(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
114 |
INI_CORI |
fCoriG(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
115 |
INI_CORI |
fCoriCos(i,j,bi,bj)=0. _d 0 |
|
./model/src/ini_cori.F |
132 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cori.F |
137 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
139 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
142 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
143 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
145 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
146 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = -fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
152 |
INI_CORI |
DO bj = 1,nSy |
|
./model/src/ini_cori.F |
157 |
INI_CORI |
myTile = W2_myTileList(bi,bj) |
|
./model/src/ini_cori.F |
168 |
INI_CORI |
& fCoriG, bi, bj, myThid ) |
|
./model/src/ini_cori.F |
45 |
INI_CORI |
INTEGER bi,bj |
|
./model/src/ini_cori.F |
60 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cori.F |
64 |
INI_CORI |
fCori(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
65 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
66 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
76 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cori.F |
80 |
INI_CORI |
fCori(i,j,bi,bj) = f0+beta*_yC(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
82 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
90 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cori.F |
94 |
INI_CORI |
fCori(i,j,bi,bj) = |
|
./model/src/ini_cori.F |
95 |
INI_CORI |
& 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
96 |
INI_CORI |
fCoriG(i,j,bi,bj) = |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
98 |
INI_CORI |
fCoriCos(i,j,bi,bj)= |
|
./model/src/ini_cori.F |
99 |
INI_CORI |
& 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
50 |
SHAP_FILT_APPLY_TS |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
68 |
SHAP_FILT_APPLY_TS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
72 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
74 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
146 |
SHAP_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld1(i ,j,k,bi,bj)*uFld(i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
154 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
155 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
156 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
159 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld2(i,j ,k,bi,bj)*vFld(i,j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
160 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j ,k,bi,bj)*rAs(i,j ,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
161 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
162 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
163 |
SHAP_FILT_APPLY_UV |
& ) )*recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
170 |
SHAP_FILT_APPLY_UV |
frictionHeating(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
171 |
SHAP_FILT_APPLY_UV |
& frictionHeating(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
180 |
SHAP_FILT_APPLY_UV |
& k, 1, 2, bi, bj, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
62 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
67 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k, i, j |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
79 |
SHAP_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
82 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
83 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_V( vFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
105 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
106 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
119 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
120 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
12 |
SHAP_FILT_COMPUTVORT |
I k, bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
141 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
142 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
163 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
164 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
44 |
SHAP_FILT_COMPUTVORT |
INTEGER k, bi,bj |
|
./pkg/shap_filt/shap_filt_computvort.F |
75 |
SHAP_FILT_COMPUTVORT |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
76 |
SHAP_FILT_COMPUTVORT |
& *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
84 |
SHAP_FILT_COMPUTVORT |
myTile = W2_myTileList(bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
104 |
INI_CURVILINEAR_GRID |
bj=1 |
|
./model/src/ini_curvilinear_grid.F |
105 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
106 |
INI_CURVILINEAR_GRID |
bj=bj+2 |
|
./model/src/ini_curvilinear_grid.F |
107 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
108 |
INI_CURVILINEAR_GRID |
bj=bj+2 |
|
./model/src/ini_curvilinear_grid.F |
109 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
111 |
INI_CURVILINEAR_GRID |
bj=2 |
|
./model/src/ini_curvilinear_grid.F |
112 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
113 |
INI_CURVILINEAR_GRID |
bj=bj+2 |
|
./model/src/ini_curvilinear_grid.F |
114 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
115 |
INI_CURVILINEAR_GRID |
bj=bj+2 |
|
./model/src/ini_curvilinear_grid.F |
116 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
135 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
137 |
INI_CURVILINEAR_GRID |
dxV(sNx+1,1,bi,bj)=dxV(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
138 |
INI_CURVILINEAR_GRID |
dxV(1,sNy+1,bi,bj)=dxV(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
139 |
INI_CURVILINEAR_GRID |
dyU(sNx+1,1,bi,bj)=dyU(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
140 |
INI_CURVILINEAR_GRID |
dyU(1,sNy+1,bi,bj)=dyU(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
156 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
158 |
INI_CURVILINEAR_GRID |
rAz(sNx+1,1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
159 |
INI_CURVILINEAR_GRID |
rAz(1,sNy+1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
260 |
INI_CURVILINEAR_GRID |
DO bj = 1,nSy |
|
./model/src/ini_curvilinear_grid.F |
264 |
INI_CURVILINEAR_GRID |
jG = W2_myTileList(bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
270 |
INI_CURVILINEAR_GRID |
jG = bj+(myYGlobalLo-1)/sNy |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
294 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
297 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
309 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
390 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
394 |
INI_CURVILINEAR_GRID |
dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
395 |
INI_CURVILINEAR_GRID |
dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
396 |
INI_CURVILINEAR_GRID |
dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
398 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
400 |
INI_CURVILINEAR_GRID |
dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
401 |
INI_CURVILINEAR_GRID |
dyU(i,j,bi,bj) = dyU(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
402 |
INI_CURVILINEAR_GRID |
rA (i,j,bi,bj) = rA (i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
403 |
INI_CURVILINEAR_GRID |
rAz(i,j,bi,bj) = rAz(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
404 |
INI_CURVILINEAR_GRID |
rAw(i,j,bi,bj) = rAw(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
405 |
INI_CURVILINEAR_GRID |
rAs(i,j,bi,bj) = rAs(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
49 |
INI_CURVILINEAR_GRID |
INTEGER bi,bj |
|
./pkg/shap_filt/shap_filt_relvort3.F |
125 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
126 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
127 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
128 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
140 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
141 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
142 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
143 |
SHAP_FILT_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
144 |
SHAP_FILT_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
168 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
169 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
170 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
171 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
175 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
176 |
SHAP_FILT_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
177 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
178 |
SHAP_FILT_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
182 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
183 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
184 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
185 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
198 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
199 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
200 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
201 |
SHAP_FILT_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
202 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
226 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
227 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
228 |
SHAP_FILT_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
229 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
233 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
234 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
235 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
236 |
SHAP_FILT_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
240 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
241 |
SHAP_FILT_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
242 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
243 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
256 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
257 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
258 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
259 |
SHAP_FILT_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
260 |
SHAP_FILT_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
284 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
285 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
286 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
287 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
291 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
292 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
293 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
294 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
307 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
308 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
309 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
310 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
311 |
SHAP_FILT_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
32 |
SHAP_FILT_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/shap_filt/shap_filt_relvort3.F |
62 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
63 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
64 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
65 |
SHAP_FILT_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
66 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
8 |
SHAP_FILT_RELVORT3 |
I bi,bj,k, |
|
./pkg/shap_filt/shap_filt_relvort3.F |
92 |
SHAP_FILT_RELVORT3 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
106 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
111 |
SHAP_FILT_TRACER_S1 |
tmpScal=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
112 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
113 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
114 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=tmpScal |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
132 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
139 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
140 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
141 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
142 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
148 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
159 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
164 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
165 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
49 |
SHAP_FILT_TRACER_S1 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
56 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
61 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
79 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
86 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
87 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
88 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
89 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
95 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
105 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
117 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
118 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
126 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
127 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
135 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
136 |
SHAP_FILT_TRACER_S2 |
& *_hFacW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
137 |
SHAP_FILT_TRACER_S2 |
& *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
148 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
149 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
157 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
166 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
167 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
168 |
SHAP_FILT_TRACER_S2 |
& *dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
185 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
192 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
193 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
199 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
215 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
220 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
61 |
SHAP_FILT_TRACER_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
78 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
83 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
105 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
110 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
111 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
112 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
130 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
137 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
138 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
139 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
140 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
146 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
157 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
162 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
163 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
49 |
SHAP_FILT_TRACER_S4 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
55 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
60 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
78 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
85 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
86 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
87 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
88 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
94 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
26 |
SHAP_FILT_TRACEROLD |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_tracerold.F |
38 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
50 |
SHAP_FILT_TRACEROLD |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
52 |
SHAP_FILT_TRACEROLD |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
67 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
80 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
82 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
8 |
SHAP_FILT_TRACEROLD |
I bi, bj, K, myCurrentTime, myThid ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
97 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
107 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
25 |
SHAP_FILT_U |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_u.F |
37 |
SHAP_FILT_U |
tmpFldX(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
38 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
51 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
60 |
SHAP_FILT_U |
& *_maskS( i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
6 |
SHAP_FILT_U |
SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid) |
|
./pkg/shap_filt/shap_filt_u.F |
74 |
SHAP_FILT_U |
tmpFldY(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
75 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
92 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
100 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
101 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
107 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
115 |
SHAP_FILT_UV_S1 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
116 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
117 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
123 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
134 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
139 |
SHAP_FILT_UV_S1 |
tmpScal = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
140 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
141 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
142 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
147 |
SHAP_FILT_UV_S1 |
tmpScal = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
148 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
149 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
150 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
168 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
175 |
SHAP_FILT_UV_S1 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
176 |
SHAP_FILT_UV_S1 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
177 |
SHAP_FILT_UV_S1 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
178 |
SHAP_FILT_UV_S1 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
180 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
181 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
182 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
183 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
190 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
191 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
193 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
194 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
195 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
196 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
198 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
199 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
201 |
SHAP_FILT_UV_S1 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
202 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
203 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
204 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
210 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
217 |
SHAP_FILT_UV_S1 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
218 |
SHAP_FILT_UV_S1 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
219 |
SHAP_FILT_UV_S1 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
220 |
SHAP_FILT_UV_S1 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
222 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
223 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
224 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
225 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
232 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
233 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
235 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
236 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
237 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
238 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
240 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
241 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
243 |
SHAP_FILT_UV_S1 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
244 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
245 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
246 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
252 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
263 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
268 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
269 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
274 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
275 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
53 |
SHAP_FILT_UV_S1 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
65 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
70 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
71 |
SHAP_FILT_UV_S1 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
72 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
73 |
SHAP_FILT_UV_S1 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
91 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
99 |
SHAP_FILT_UV_S1 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
110 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
116 |
SHAP_FILT_UV_S2 |
& CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
120 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_HDIV(bi,bj,k,2, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
121 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
122 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
125 |
SHAP_FILT_UV_S2 |
CALL SHAP_FILT_RELVORT3(bi,bj,k, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
126 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
127 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
130 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
131 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
132 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
139 |
SHAP_FILT_UV_S2 |
hDiv(i,j)=(tmpFldU(i+1,j,k,bi,bj)-tmpFldU(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
140 |
SHAP_FILT_UV_S2 |
& +(tmpFldV(i,j+1,k,bi,bj)-tmpFldV(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
144 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
145 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
147 |
SHAP_FILT_UV_S2 |
I k,bi,bj,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
156 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
161 |
SHAP_FILT_UV_S2 |
vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
166 |
SHAP_FILT_UV_S2 |
I bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
167 |
SHAP_FILT_UV_S2 |
O tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
168 |
SHAP_FILT_UV_S2 |
O tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
173 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
174 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
175 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
176 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
182 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
183 |
SHAP_FILT_UV_S2 |
& *rAw(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
184 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
185 |
SHAP_FILT_UV_S2 |
& *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
191 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
192 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
193 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
194 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
205 |
SHAP_FILT_UV_S2 |
& hDiv, bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
210 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
213 |
SHAP_FILT_UV_S2 |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
221 |
SHAP_FILT_UV_S2 |
& hDiv, bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
226 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
229 |
SHAP_FILT_UV_S2 |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
245 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
250 |
SHAP_FILT_UV_S2 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
251 |
SHAP_FILT_UV_S2 |
& -tmpFldU(i,j,k,bi,bj)*deltaTMom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
252 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
257 |
SHAP_FILT_UV_S2 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
258 |
SHAP_FILT_UV_S2 |
& -tmpFldV(i,j,k,bi,bj)*deltaTMom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
259 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
67 |
SHAP_FILT_UV_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
85 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
90 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
91 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
92 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
93 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
100 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
101 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
103 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
104 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
105 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
106 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
107 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
114 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
115 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
117 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
118 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
119 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
120 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
121 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
123 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
124 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
126 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
127 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
128 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
129 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
130 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
136 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
137 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
144 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
145 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
147 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
148 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
149 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
150 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
151 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
158 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
159 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
161 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
162 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
163 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
164 |
SHAP_FILT_UV_S2C |
& -(tmpFldV(i,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
165 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
167 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
168 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
170 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
171 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
172 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
173 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
174 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
180 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
181 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
195 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
200 |
SHAP_FILT_UV_S2C |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
201 |
SHAP_FILT_UV_S2C |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
202 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
207 |
SHAP_FILT_UV_S2C |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
208 |
SHAP_FILT_UV_S2C |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
209 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
53 |
SHAP_FILT_UV_S2C |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
64 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
69 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
70 |
SHAP_FILT_UV_S2C |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
71 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
72 |
SHAP_FILT_UV_S2C |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
93 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
100 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
106 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
114 |
SHAP_FILT_UV_S4 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
115 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
116 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
122 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
133 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
138 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
139 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
140 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
145 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
146 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
147 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
165 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
172 |
SHAP_FILT_UV_S4 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
173 |
SHAP_FILT_UV_S4 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
174 |
SHAP_FILT_UV_S4 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
175 |
SHAP_FILT_UV_S4 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
177 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
178 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
179 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
180 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
187 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
188 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
190 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
191 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
192 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
193 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
197 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
198 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
200 |
SHAP_FILT_UV_S4 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
201 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
202 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
203 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
209 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
216 |
SHAP_FILT_UV_S4 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
217 |
SHAP_FILT_UV_S4 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
218 |
SHAP_FILT_UV_S4 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
219 |
SHAP_FILT_UV_S4 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
221 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
222 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
223 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
224 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
231 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
232 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
234 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
235 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
236 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
237 |
SHAP_FILT_UV_S4 |
& -2.*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
238 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
242 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
243 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
245 |
SHAP_FILT_UV_S4 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
246 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
247 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
248 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
254 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
265 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
270 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
271 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
276 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
277 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
53 |
SHAP_FILT_UV_S4 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
64 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
69 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
70 |
SHAP_FILT_UV_S4 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
71 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
72 |
SHAP_FILT_UV_S4 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
90 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
98 |
SHAP_FILT_UV_S4 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
99 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
101 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
102 |
INI_CYLINDER_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cylinder_grid.F |
111 |
INI_CYLINDER_GRID |
dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
112 |
INI_CYLINDER_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cylinder_grid.F |
124 |
INI_CYLINDER_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
132 |
INI_CYLINDER_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
140 |
INI_CYLINDER_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
141 |
INI_CYLINDER_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
149 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
150 |
INI_CYLINDER_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
151 |
INI_CYLINDER_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
152 |
INI_CYLINDER_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
51 |
INI_CYLINDER_GRID |
INTEGER bi, bj |
|
./model/src/ini_cylinder_grid.F |
66 |
INI_CYLINDER_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_cylinder_grid.F |
75 |
INI_CYLINDER_GRID |
I bi, bj, myThid ) |
|
./model/src/ini_cylinder_grid.F |
80 |
INI_CYLINDER_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
81 |
INI_CYLINDER_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
89 |
INI_CYLINDER_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
91 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
99 |
INI_CYLINDER_GRID |
thisRad = yC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
107 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
25 |
SHAP_FILT_V |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
39 |
SHAP_FILT_V |
& *_maskW(i, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
45 |
SHAP_FILT_V |
tmpFldX(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
46 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
62 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
6 |
SHAP_FILT_V |
SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid ) |
|
./pkg/shap_filt/shap_filt_v.F |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
77 |
SHAP_FILT_V |
tmpFldY(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
78 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
92 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
161 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_depths.F |
165 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
204 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./model/src/ini_depths.F |
228 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_depths.F |
233 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
250 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_depths.F |
255 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./model/src/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
58 |
INI_DEPTHS |
INTEGER bi, bj |
|
./model/src/ini_depths.F |
75 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
97 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
33 |
SHELFICE_COST_ACCUMULATE |
integer bi, bj |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
46 |
SHELFICE_COST_ACCUMULATE |
do bj = jtlo,jthi |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
52 |
SHELFICE_COST_ACCUMULATE |
cMeanSHIforT(i,j,bi,bj) = cMeanSHIforT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
53 |
SHELFICE_COST_ACCUMULATE |
& + shelficeHeatFlux(i,j,bi,bj)*deltaTClock |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
54 |
SHELFICE_COST_ACCUMULATE |
cMeanSHIforS(i,j,bi,bj) = cMeanSHIforS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_accumulate.F |
55 |
SHELFICE_COST_ACCUMULATE |
& + shelficeFreshWaterFlux(i,j,bi,bj)*deltaTClock |
|
./pkg/shelfice/shelfice_cost_final.F |
101 |
SHELFICE_COST_FINAL |
& ' --> objf_shelfice(bi,bj) = ', objf_shelfice(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
103 |
SHELFICE_COST_FINAL |
& ' --> objf_shifwflx(bi,bj) = ', objf_shifwflx(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
104 |
SHELFICE_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
105 |
SHELFICE_COST_FINAL |
& + mult_shelfice * objf_shelfice(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
106 |
SHELFICE_COST_FINAL |
& + mult_shifwflx * objf_shifwflx(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
54 |
SHELFICE_COST_FINAL |
INTEGER bi, bj |
|
./pkg/shelfice/shelfice_cost_final.F |
80 |
SHELFICE_COST_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_cost_final.F |
86 |
SHELFICE_COST_FINAL |
objf_shelfice(bi,bj) = objf_shelfice(bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
87 |
SHELFICE_COST_FINAL |
& + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh |
|
./pkg/shelfice/shelfice_cost_final.F |
88 |
SHELFICE_COST_FINAL |
& *_rA(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_final.F |
98 |
SHELFICE_COST_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
143 |
SHELFICE_COST_SHIFWFLX |
do bj = jtlo,jthi |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
150 |
SHELFICE_COST_SHIFWFLX |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
152 |
SHELFICE_COST_SHIFWFLX |
& *wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
153 |
SHELFICE_COST_SHIFWFLX |
if ( wshifwflx(i,j,bi,bj) .ne. 0. ) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
154 |
SHELFICE_COST_SHIFWFLX |
& num_shifwflx(bi,bj) = num_shifwflx(bi,bj) |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
159 |
SHELFICE_COST_SHIFWFLX |
objf_shifwflx(bi,bj) = objf_shifwflx(bi,bj) + fctile |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
63 |
SHELFICE_COST_SHIFWFLX |
integer bi,bj |
|
./pkg/shelfice/shelfice_forcing.F |
110 |
SHELFICE_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/shelfice/shelfice_forcing.F |
145 |
SHELFICE_FORCING_S |
INTEGER kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
169 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
171 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
172 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
176 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
179 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
17 |
SHELFICE_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
186 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
52 |
SHELFICE_FORCING_T |
INTEGER kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
77 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
79 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
80 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
87 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
94 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
103 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
104 |
SHELFICE_FORCING_SURF |
& + shelfIceFreshWaterFlux(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
118 |
SHELFICE_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
11 |
SHELFICE_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/shelfice/shelfice_forcing_surf.F |
127 |
SHELFICE_FORCING_SURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
128 |
SHELFICE_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./pkg/shelfice/shelfice_forcing_surf.F |
40 |
SHELFICE_FORCING_SURF |
INTEGER bi, bj |
|
./pkg/shelfice/shelfice_forcing_surf.F |
59 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
60 |
SHELFICE_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
61 |
SHELFICE_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
62 |
SHELFICE_FORCING_SURF |
EmPmR(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
68 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i-1,j,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
69 |
SHELFICE_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
75 |
SHELFICE_FORCING_SURF |
IF ( MAX( kTopC(i,j-1,bi,bj), kTopC(i,j,bi,bj) ).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
76 |
SHELFICE_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = 0. |
|
./pkg/shelfice/shelfice_forcing_surf.F |
89 |
SHELFICE_FORCING_SURF |
IF ( kTopC(i,j,bi,bj).NE.0 ) THEN |
|
./pkg/shelfice/shelfice_forcing_surf.F |
90 |
SHELFICE_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing_surf.F |
91 |
SHELFICE_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_depths.F |
44 |
SHELFICE_INIT_DEPTHS |
INTEGER bi, bj |
|
./pkg/shelfice/shelfice_init_depths.F |
49 |
SHELFICE_INIT_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_depths.F |
53 |
SHELFICE_INIT_DEPTHS |
R_shelfIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_depths.F |
77 |
SHELFICE_INIT_DEPTHS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_depths.F |
81 |
SHELFICE_INIT_DEPTHS |
rSurfC(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_depths.F |
82 |
SHELFICE_INIT_DEPTHS |
& MIN( rSurfC(i,j,bi,bj), R_shelfIce(i,j,bi,bj) ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
105 |
SHELFICE_INIT_FIXED |
IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS |
|
./pkg/shelfice/shelfice_init_fixed.F |
106 |
SHELFICE_INIT_FIXED |
& .AND. hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
107 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
108 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,1,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
124 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
129 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
130 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
133 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
134 |
SHELFICE_INIT_FIXED |
& max(wshifwflx(i,j,bi,bj),wshifwflx0) |
|
./pkg/shelfice/shelfice_init_fixed.F |
135 |
SHELFICE_INIT_FIXED |
& *maskSHI(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
136 |
SHELFICE_INIT_FIXED |
IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
137 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
138 |
SHELFICE_INIT_FIXED |
& 1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
157 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
161 |
SHELFICE_INIT_FIXED |
shelficeMassInit(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_init_fixed.F |
162 |
SHELFICE_INIT_FIXED |
& shelficeLoadAnomaly(i,j,bi,bj)*recip_gravity |
|
./pkg/shelfice/shelfice_init_fixed.F |
163 |
SHELFICE_INIT_FIXED |
& - rhoConst*Ro_surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
176 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
180 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly(i,j,bi,bj) = gravity |
|
./pkg/shelfice/shelfice_init_fixed.F |
181 |
SHELFICE_INIT_FIXED |
& *(shelficeMassInit(i,j,bi,bj)+rhoConst*Ro_surf(i,j,bi,bj)) |
|
./pkg/shelfice/shelfice_init_fixed.F |
39 |
SHELFICE_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/shelfice/shelfice_init_fixed.F |
70 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
74 |
SHELFICE_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LE.Nr .AND. |
|
./pkg/shelfice/shelfice_init_fixed.F |
75 |
SHELFICE_INIT_FIXED |
& R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
76 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
78 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
80 |
SHELFICE_INIT_FIXED |
shelficeMassInit (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
81 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
82 |
SHELFICE_INIT_FIXED |
shelfIceMassDynTendency(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
93 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
98 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
105 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
109 |
SHELFICE_INIT_VARIA |
cMeanSHIforT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
110 |
SHELFICE_INIT_VARIA |
cMeanSHIforS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
116 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
118 |
SHELFICE_INIT_VARIA |
objf_shelfice(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
119 |
SHELFICE_INIT_VARIA |
objf_shifwflx(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
120 |
SHELFICE_INIT_VARIA |
num_shifwflx(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
34 |
SHELFICE_INIT_VARIA |
INTEGER i, j, bi, bj |
|
./pkg/shelfice/shelfice_init_varia.F |
37 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
41 |
SHELFICE_INIT_VARIA |
shelficeForcingT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
42 |
SHELFICE_INIT_VARIA |
shelficeForcingS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
43 |
SHELFICE_INIT_VARIA |
shelficeHeatFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
44 |
SHELFICE_INIT_VARIA |
shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
45 |
SHELFICE_INIT_VARIA |
shiTransCoeffT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
46 |
SHELFICE_INIT_VARIA |
shiTransCoeffS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
47 |
SHELFICE_INIT_VARIA |
shelficeMass (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
57 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
61 |
SHELFICE_INIT_VARIA |
shiTransCoeffS(i,j,bi,bj) = 5.05 _d -3 * |
|
./pkg/shelfice/shelfice_init_varia.F |
62 |
SHELFICE_INIT_VARIA |
& shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_varia.F |
69 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
73 |
SHELFICE_INIT_VARIA |
shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_init_varia.F |
74 |
SHELFICE_INIT_VARIA |
shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff |
|
./pkg/shelfice/shelfice_init_varia.F |
82 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
86 |
SHELFICE_INIT_VARIA |
shelficeMass(i,j,bi,bj) = shelficeMassInit(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
104 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
106 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
107 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
108 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
114 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
118 |
SHELFICE_OUTPUT |
shelfice_FrshFluxtave(i,j,1,bi,bj)= |
|
./pkg/shelfice/shelfice_output.F |
119 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
120 |
SHELFICE_OUTPUT |
& + shelficeFreshWaterFlux(i,j,bi,bj) *deltaTClock |
|
./pkg/shelfice/shelfice_output.F |
121 |
SHELFICE_OUTPUT |
shelfice_heatFluxtave(i,j,1,bi,bj) = |
|
./pkg/shelfice/shelfice_output.F |
122 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
123 |
SHELFICE_OUTPUT |
& + shelficeHeatFlux(i,j,bi,bj) *deltaTClock |
|
./pkg/shelfice/shelfice_output.F |
126 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = SHELFICE_timeAve(bi,bj)+deltaTClock |
|
./pkg/shelfice/shelfice_output.F |
147 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
150 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
152 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
190 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
192 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
193 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
194 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
46 |
SHELFICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./model/src/ini_dynvars.F |
107 |
INI_DYNVARS |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
109 |
INI_DYNVARS |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
41 |
INI_DYNVARS |
INTEGER bi, bj |
|
./model/src/ini_dynvars.F |
46 |
INI_DYNVARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
uVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
vVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
56 |
INI_DYNVARS |
wVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
theta(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
salt (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
61 |
INI_DYNVARS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
70 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
guNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
gvNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
gtNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
79 |
INI_DYNVARS |
gsNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
81 |
INI_DYNVARS |
totPhiHyd (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
82 |
INI_DYNVARS |
rhoInSitu (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
83 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
85 |
INI_DYNVARS |
dU_psFacX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
86 |
INI_DYNVARS |
dV_psFacY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
95 |
INI_DYNVARS |
etaN(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
96 |
INI_DYNVARS |
etaH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
97 |
INI_DYNVARS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
98 |
INI_DYNVARS |
hMixLayer(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_step_icemass.F |
46 |
SHELFICE_STEP_ICEMASS |
INTEGER bi,bj,i,j |
|
./pkg/shelfice/shelfice_step_icemass.F |
52 |
SHELFICE_STEP_ICEMASS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_step_icemass.F |
56 |
SHELFICE_STEP_ICEMASS |
if (streamice_hmask(i,j,bi,bj).eq.1 .or. |
|
./pkg/shelfice/shelfice_step_icemass.F |
57 |
SHELFICE_STEP_ICEMASS |
& streamice_hmask(i,j,bi,bj).eq.2) then |
|
./pkg/shelfice/shelfice_step_icemass.F |
59 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_step_icemass.F |
60 |
SHELFICE_STEP_ICEMASS |
& H_streamice(I,J,bi,bj) * streamice_density |
|
./pkg/shelfice/shelfice_step_icemass.F |
71 |
SHELFICE_STEP_ICEMASS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_step_icemass.F |
77 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = shelficeMass(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_step_icemass.F |
78 |
SHELFICE_STEP_ICEMASS |
& + shelfIceFreshWaterFlux(I,J,bi,bj) * deltaT |
|
./pkg/shelfice/shelfice_step_icemass.F |
81 |
SHELFICE_STEP_ICEMASS |
shelficeMass(i,j,bi,bj) = shelficeMass(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_step_icemass.F |
82 |
SHELFICE_STEP_ICEMASS |
& + shelfIceMassDynTendency(I,J,bi,bj)*deltaT |
|
./pkg/shelfice/shelfice_thermodynamics.F |
127 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
131 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
132 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff |
|
./pkg/shelfice/shelfice_thermodynamics.F |
154 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
158 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
159 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
205 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
209 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
210 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
211 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
212 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
214 |
SHELFICE_THERMODYNAMICS |
uStarDiag (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
221 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
225 |
SHELFICE_THERMODYNAMICS |
xx_shifwflx_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
240 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
246 |
SHELFICE_THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
260 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
261 |
SHELFICE_THERMODYNAMICS |
pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
263 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
274 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacW(I, J,K,bi,bj) + _hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
278 |
SHELFICE_THERMODYNAMICS |
& uVel( I, J,K,bi,bj)*uVel( I, J,K,bi,bj)*_hFacW( I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
279 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj)*_hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacS(I,J, K,bi,bj) + _hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
284 |
SHELFICE_THERMODYNAMICS |
& vVel(I, J, K,bi,bj)*vVel(I, J, K,bi,bj)*_hFacS(I, J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj)*_hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
293 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
294 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
295 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,K,bi,bj) * _hFacW(I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
296 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
297 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
298 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, K,bi,bj) * _hFacS(I,J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
299 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
308 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
314 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
317 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
318 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
319 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
321 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
324 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
325 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
326 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,Kp1,bi,bj) * _hFacW(I, J,Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
327 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,Kp1,bi,bj) * _hFacW(I+1,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
329 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
330 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
331 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, Kp1,bi,bj) * _hFacS(I,J, Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
332 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,Kp1,bi,bj) * _hFacS(I,J+1,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
356 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
361 |
SHELFICE_THERMODYNAMICS |
uStarDiag(I,J,bi,bj) = ustar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
367 |
SHELFICE_THERMODYNAMICS |
IF ( fCori(I,J,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
369 |
SHELFICE_THERMODYNAMICS |
& / ABS(fCori(I,J,bi,bj) * 5.0 _d 0 * shiKinVisc)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
378 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
380 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
407 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
408 |
SHELFICE_THERMODYNAMICS |
& * shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
412 |
SHELFICE_THERMODYNAMICS |
& - xx_shifwflx_loc(I,J,bi,bj)*SHELFICElatentHeat |
|
./pkg/shelfice/shelfice_thermodynamics.F |
417 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
418 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
421 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
422 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
424 |
SHELFICE_THERMODYNAMICS |
& - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
426 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
427 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
432 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
433 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
434 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
435 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
450 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
459 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
461 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
463 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
480 |
SHELFICE_THERMODYNAMICS |
& *shiTransCoeffS(i,j,bi,bj) * fwflxFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
534 |
SHELFICE_THERMODYNAMICS |
& * shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
537 |
SHELFICE_THERMODYNAMICS |
& + xx_shifwflx_loc(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
542 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
548 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = freshWaterFlux |
|
./pkg/shelfice/shelfice_thermodynamics.F |
550 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
551 |
SHELFICE_THERMODYNAMICS |
& ( shiTransCoeffT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
552 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
554 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
555 |
SHELFICE_THERMODYNAMICS |
& ( shiTransCoeffS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
556 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
559 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
560 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
561 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
562 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
578 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
582 |
SHELFICE_THERMODYNAMICS |
shelficeLoadAnomaly(i,j,bi,bj) = gravity |
|
./pkg/shelfice/shelfice_thermodynamics.F |
583 |
SHELFICE_THERMODYNAMICS |
& *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
86 |
SHELFICE_THERMODYNAMICS |
INTEGER bi,bj |
|
./pkg/shelfice/shelfice_u_drag.F |
108 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
110 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
11 |
SHELFICE_U_DRAG |
I bi, bj, k, |
|
./pkg/shelfice/shelfice_u_drag.F |
124 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
129 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
140 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
142 |
SHELFICE_U_DRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
143 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
144 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
145 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
146 |
SHELFICE_U_DRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
150 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
161 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
162 |
SHELFICE_U_DRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
163 |
SHELFICE_U_DRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
166 |
SHELFICE_U_DRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
167 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
168 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
169 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
177 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
190 |
SHELFICE_U_DRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'SHIUDrag',k,1,2,bi,bj,myThid) |
|
./pkg/shelfice/shelfice_u_drag.F |
39 |
SHELFICE_U_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
99 |
SHELFICE_U_DRAG |
& * _recip_hFacW(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
108 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
110 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
11 |
SHELFICE_V_DRAG |
I bi, bj, k, |
|
./pkg/shelfice/shelfice_v_drag.F |
124 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
129 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
140 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
142 |
SHELFICE_V_DRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
143 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
144 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
145 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
146 |
SHELFICE_V_DRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
150 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
161 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
162 |
SHELFICE_V_DRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
163 |
SHELFICE_V_DRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
166 |
SHELFICE_V_DRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
167 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
168 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
169 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
177 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
190 |
SHELFICE_V_DRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'SHIVDrag',k,1,2,bi,bj,myThid) |
|
./pkg/shelfice/shelfice_v_drag.F |
39 |
SHELFICE_V_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
79 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
99 |
SHELFICE_V_DRAG |
& * _recip_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
358 |
EOS_CHECK |
INTEGER bi, bj |
|
./model/src/ini_eos.F |
449 |
EOS_CHECK |
bj = 1 |
|
./model/src/ini_eos.F |
467 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
469 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
470 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
491 |
EOS_CHECK |
I k, bi, bj, myThid ) |
|
./model/src/ini_eos.F |
548 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./pkg/smooth/smooth2d.F |
27 |
SMOOTH2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth3d.F |
27 |
SMOOTH3D |
integer i,j,k,bi,bj |
|
./pkg/smooth/smooth_basic2d.F |
28 |
SMOOTH_BASIC2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_basic2d.F |
41 |
SMOOTH_BASIC2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_basic2d.F |
45 |
SMOOTH_BASIC2D |
smooth2D_Lx(i,j,bi,bj)=dist_in |
|
./pkg/smooth/smooth_basic2d.F |
46 |
SMOOTH_BASIC2D |
smooth2D_Ly(i,j,bi,bj)=dist_in |
|
./pkg/smooth/smooth_basic2d.F |
52 |
SMOOTH_BASIC2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_basic2d.F |
56 |
SMOOTH_BASIC2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_basic2d.F |
57 |
SMOOTH_BASIC2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_basic2d.F |
58 |
SMOOTH_BASIC2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_basic2d.F |
59 |
SMOOTH_BASIC2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_correl2d.F |
28 |
SMOOTH_CORREL2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_correl2d.F |
58 |
SMOOTH_CORREL2D |
DO bj = jtlo,jthi |
|
./pkg/smooth/smooth_correl2d.F |
62 |
SMOOTH_CORREL2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2d.F |
63 |
SMOOTH_CORREL2D |
& *sqrt(recip_rA(i,j,bi,bj)) |
|
./pkg/smooth/smooth_correl2d.F |
75 |
SMOOTH_CORREL2D |
do bj = jtlo,jthi |
|
./pkg/smooth/smooth_correl2d.F |
79 |
SMOOTH_CORREL2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2d.F |
80 |
SMOOTH_CORREL2D |
& *smooth2Dnorm(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
100 |
SMOOTH_CORREL2DW |
tmpW=wuwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
102 |
SMOOTH_CORREL2DW |
tmpW=wvwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
113 |
SMOOTH_CORREL2DW |
tmpW=wgentim2d(i,j,bi,bj,iarr) |
|
./pkg/smooth/smooth_correl2dw.F |
120 |
SMOOTH_CORREL2DW |
if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then |
|
./pkg/smooth/smooth_correl2dw.F |
121 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW) |
|
./pkg/smooth/smooth_correl2dw.F |
123 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0. |
|
./pkg/smooth/smooth_correl2dw.F |
46 |
SMOOTH_CORREL2DW |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_correl2dw.F |
61 |
SMOOTH_CORREL2DW |
DO bj = jtlo,jthi |
|
./pkg/smooth/smooth_correl2dw.F |
69 |
SMOOTH_CORREL2DW |
tmpW=whflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
71 |
SMOOTH_CORREL2DW |
tmpW=wsflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
73 |
SMOOTH_CORREL2DW |
tmpW=wtauu(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
75 |
SMOOTH_CORREL2DW |
tmpW=wtauv(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
78 |
SMOOTH_CORREL2DW |
tmpW=watemp(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
80 |
SMOOTH_CORREL2DW |
tmpW=waqh(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
82 |
SMOOTH_CORREL2DW |
tmpW=wprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
84 |
SMOOTH_CORREL2DW |
tmpW=wsnowprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
87 |
SMOOTH_CORREL2DW |
tmpW=wswflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
89 |
SMOOTH_CORREL2DW |
tmpW=wswdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
91 |
SMOOTH_CORREL2DW |
tmpW=wlwflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
93 |
SMOOTH_CORREL2DW |
tmpW=wlwdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
96 |
SMOOTH_CORREL2DW |
tmpW=wevap(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
98 |
SMOOTH_CORREL2DW |
tmpW=wapressure(i,j,bi,bj) |
|
./model/src/ini_ffields.F |
105 |
INI_FFIELDS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
112 |
INI_FFIELDS |
eddyPsiX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
113 |
INI_FFIELDS |
eddyPsiY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
114 |
INI_FFIELDS |
tauxEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
115 |
INI_FFIELDS |
tauyEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
116 |
INI_FFIELDS |
uEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
117 |
INI_FFIELDS |
vEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
126 |
INI_FFIELDS |
surfaceForcingU (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
127 |
INI_FFIELDS |
surfaceForcingV (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
128 |
INI_FFIELDS |
surfaceForcingT (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
129 |
INI_FFIELDS |
surfaceForcingS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
130 |
INI_FFIELDS |
surfaceForcingTice (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
131 |
INI_FFIELDS |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
132 |
INI_FFIELDS |
lambdaSaltClimRelax (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
37 |
INI_FFIELDS |
INTEGER bi, bj |
|
./model/src/ini_ffields.F |
42 |
INI_FFIELDS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_ffields.F |
48 |
INI_FFIELDS |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
49 |
INI_FFIELDS |
fv (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
50 |
INI_FFIELDS |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
51 |
INI_FFIELDS |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
52 |
INI_FFIELDS |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
53 |
INI_FFIELDS |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
54 |
INI_FFIELDS |
SST (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
55 |
INI_FFIELDS |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
56 |
INI_FFIELDS |
phiTide2d (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
57 |
INI_FFIELDS |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
58 |
INI_FFIELDS |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
60 |
INI_FFIELDS |
geothermalFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
64 |
INI_FFIELDS |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
65 |
INI_FFIELDS |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
66 |
INI_FFIELDS |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
67 |
INI_FFIELDS |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
68 |
INI_FFIELDS |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
69 |
INI_FFIELDS |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
70 |
INI_FFIELDS |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
71 |
INI_FFIELDS |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
72 |
INI_FFIELDS |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
73 |
INI_FFIELDS |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
74 |
INI_FFIELDS |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
75 |
INI_FFIELDS |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
76 |
INI_FFIELDS |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
77 |
INI_FFIELDS |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
79 |
INI_FFIELDS |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
80 |
INI_FFIELDS |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
83 |
INI_FFIELDS |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
84 |
INI_FFIELDS |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
90 |
INI_FFIELDS |
loadedRec(bi,bj) = 0 |
|
./model/src/ini_ffields.F |
98 |
INI_FFIELDS |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_correl3d.F |
101 |
SMOOTH_CORREL3D |
do bj = jtlo,jthi |
|
./pkg/smooth/smooth_correl3d.F |
106 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
107 |
SMOOTH_CORREL3D |
& *smooth3Dnorm(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
28 |
SMOOTH_CORREL3D |
integer i,j,k,bi,bj |
|
./pkg/smooth/smooth_correl3d.F |
82 |
SMOOTH_CORREL3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_correl3d.F |
87 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
88 |
SMOOTH_CORREL3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_diff2d.F |
127 |
SMOOTH_DIFF2D |
DO bj = jtlo,jthi |
|
./pkg/smooth/smooth_diff2d.F |
132 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_diff2d.F |
134 |
SMOOTH_DIFF2D |
if (smooth2Dmask(i,j,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff2d.F |
136 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
137 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i,j,bi,bj)*dyG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
138 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i-1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
139 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
141 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
142 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
143 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
144 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i+1,j,bi,bj))*recip_dxC(i+1,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
146 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
147 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j,bi,bj)*dxG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
148 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j-1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
149 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
151 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
152 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j+1,bi,bj)*dxG(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
153 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
154 |
SMOOTH_DIFF2D |
& (fld_in(i,j,bi,bj)-fld_in(i,j+1,bi,bj))*recip_dyC(i,j+1,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
163 |
SMOOTH_DIFF2D |
do bj = jtlo,jthi |
|
./pkg/smooth/smooth_diff2d.F |
166 |
SMOOTH_DIFF2D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff2d.F |
167 |
SMOOTH_DIFF2D |
IF ( myIter(bi,bj).EQ.0 ) THEN |
|
./pkg/smooth/smooth_diff2d.F |
177 |
SMOOTH_DIFF2D |
gt_tmp = ab15*gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
178 |
SMOOTH_DIFF2D |
& + ab05*gtm1_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
179 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
180 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = gt_tmp |
|
./pkg/smooth/smooth_diff2d.F |
182 |
SMOOTH_DIFF2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
183 |
SMOOTH_DIFF2D |
& -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime |
|
./pkg/smooth/smooth_diff2d.F |
184 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0 |
|
./pkg/smooth/smooth_diff2d.F |
28 |
SMOOTH_DIFF2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_diff2d.F |
61 |
SMOOTH_DIFF2D |
DO bj = jtlo,jthi |
|
./pkg/smooth/smooth_diff2d.F |
65 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
66 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
67 |
SMOOTH_DIFF2D |
smooth2Dmask(i,j,bi,bj) = mask_in(i,j,1,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
117 |
SMOOTH_DIFF3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_diff3d.F |
122 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
134 |
SMOOTH_DIFF3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_diff3d.F |
137 |
SMOOTH_DIFF3D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff3d.F |
140 |
SMOOTH_DIFF3D |
I bi, bj, k, Nr, |
|
./pkg/smooth/smooth_diff3d.F |
141 |
SMOOTH_DIFF3D |
U gT_in(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/smooth/smooth_diff3d.F |
142 |
SMOOTH_DIFF3D |
U gTm1_in(1-OLx,1-OLy,1,bi,bj), gt_AB, |
|
./pkg/smooth/smooth_diff3d.F |
143 |
SMOOTH_DIFF3D |
I 0, myIter(bi,bj), myThid ) |
|
./pkg/smooth/smooth_diff3d.F |
149 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
151 |
SMOOTH_DIFF3D |
& +smooth3DdelTime*gT_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
152 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj)=0 |
|
./pkg/smooth/smooth_diff3d.F |
165 |
SMOOTH_DIFF3D |
I bi, bj, 1, sNx, 1, sNy , |
|
./pkg/smooth/smooth_diff3d.F |
166 |
SMOOTH_DIFF3D |
I smooth3DdelTime, smooth3D_kappaR(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/smooth/smooth_diff3d.F |
27 |
SMOOTH_DIFF3D |
integer i,j,k, bi,bj, iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_diff3d.F |
55 |
SMOOTH_DIFF3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_diff3d.F |
60 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
115 |
SMOOTH_FILTERVAR2D |
DO bj = jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
120 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
121 |
SMOOTH_FILTERVAR2D |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
135 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
139 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
140 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
141 |
SMOOTH_FILTERVAR2D |
& 1/sqrt(smoothTmpFld(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
154 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
158 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
159 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
174 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
178 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
179 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
180 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar2d.F |
183 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
184 |
SMOOTH_FILTERVAR2D |
& *sqrt(recip_rA(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
196 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
200 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
201 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
202 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
203 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
212 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
216 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
217 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
218 |
SMOOTH_FILTERVAR2D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) - |
|
./pkg/smooth/smooth_filtervar2d.F |
219 |
SMOOTH_FILTERVAR2D |
& smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
28 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
61 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
65 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar2d.F |
87 |
SMOOTH_FILTERVAR2D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar2d.F |
91 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar2d.F |
97 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
115 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
120 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar3d.F |
128 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
147 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
153 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
154 |
SMOOTH_FILTERVAR3D |
& *(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
169 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
174 |
SMOOTH_FILTERVAR3D |
if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar3d.F |
175 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
176 |
SMOOTH_FILTERVAR3D |
& 1/sqrt(smoothTmpFld(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_filtervar3d.F |
191 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
196 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
213 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
218 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
219 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar3d.F |
223 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
224 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
237 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
242 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
243 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
244 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
245 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
255 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
260 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
262 |
SMOOTH_FILTERVAR3D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) - |
|
./pkg/smooth/smooth_filtervar3d.F |
263 |
SMOOTH_FILTERVAR3D |
& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
28 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
85 |
SMOOTH_FILTERVAR3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_filtervar3d.F |
90 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_hetero2d.F |
29 |
SMOOTH_HETERO2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_hetero2d.F |
44 |
SMOOTH_HETERO2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_hetero2d.F |
48 |
SMOOTH_HETERO2D |
smooth2D_Lx(i,j,bi,bj)=dist_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_hetero2d.F |
49 |
SMOOTH_HETERO2D |
smooth2D_Ly(i,j,bi,bj)=dist_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_hetero2d.F |
55 |
SMOOTH_HETERO2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_hetero2d.F |
59 |
SMOOTH_HETERO2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_hetero2d.F |
60 |
SMOOTH_HETERO2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_hetero2d.F |
61 |
SMOOTH_HETERO2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_hetero2d.F |
62 |
SMOOTH_HETERO2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_impldiff.F |
146 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
152 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
153 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
164 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
165 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
173 |
SMOOTH_IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
28 |
SMOOTH_IMPLDIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_impldiff.F |
52 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
66 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
6 |
SMOOTH_IMPLDIFF |
SUBROUTINE SMOOTH_IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/smooth/smooth_impldiff.F |
70 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
79 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
83 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/smooth/smooth_init2d.F |
23 |
SMOOTH_INIT2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_init2d.F |
49 |
SMOOTH_INIT2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_init2d.F |
53 |
SMOOTH_INIT2D |
smooth2D_Lx(i,j,bi,bj)=smooth2D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init2d.F |
54 |
SMOOTH_INIT2D |
smooth2D_Ly(i,j,bi,bj)=smooth2D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init2d.F |
61 |
SMOOTH_INIT2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_init2d.F |
65 |
SMOOTH_INIT2D |
smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)* |
|
./pkg/smooth/smooth_init2d.F |
66 |
SMOOTH_INIT2D |
& smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_init2d.F |
67 |
SMOOTH_INIT2D |
smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)* |
|
./pkg/smooth/smooth_init2d.F |
68 |
SMOOTH_INIT2D |
& smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
115 |
SMOOTH_INIT3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init3d.F |
120 |
SMOOTH_INIT3D |
smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
121 |
SMOOTH_INIT3D |
smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
129 |
SMOOTH_INIT3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init3d.F |
134 |
SMOOTH_INIT3D |
smooth3D_Kuy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
135 |
SMOOTH_INIT3D |
smooth3D_Kvx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
136 |
SMOOTH_INIT3D |
smooth3D_Kwx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
137 |
SMOOTH_INIT3D |
smooth3D_Kwy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
138 |
SMOOTH_INIT3D |
smooth3D_Kwz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
139 |
SMOOTH_INIT3D |
smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
140 |
SMOOTH_INIT3D |
& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
141 |
SMOOTH_INIT3D |
smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
142 |
SMOOTH_INIT3D |
& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
143 |
SMOOTH_INIT3D |
smooth3D_Kuz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
144 |
SMOOTH_INIT3D |
smooth3D_Kvz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
29 |
SMOOTH_INIT3D |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init3d.F |
54 |
SMOOTH_INIT3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init3d.F |
59 |
SMOOTH_INIT3D |
smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
67 |
SMOOTH_INIT3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init3d.F |
72 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
73 |
SMOOTH_INIT3D |
& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
82 |
SMOOTH_INIT3D |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init3d.F |
90 |
SMOOTH_INIT3D |
if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then |
|
./pkg/smooth/smooth_init3d.F |
91 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax |
|
./pkg/smooth/smooth_init_fixed.F |
24 |
SMOOTH_INIT_FIXED |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init_fixed.F |
33 |
SMOOTH_INIT_FIXED |
DO bj=jtlo,jthi |
|
./pkg/smooth/smooth_init_fixed.F |
38 |
SMOOTH_INIT_FIXED |
smooth_recip_hFacC(i,j,k,bi,bj)=_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
39 |
SMOOTH_INIT_FIXED |
smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
40 |
SMOOTH_INIT_FIXED |
smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
101 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
103 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
104 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
113 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
114 |
SMOOTH_RHS |
& -xA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
115 |
SMOOTH_RHS |
& *smooth3D_Kux(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
116 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
117 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
123 |
SMOOTH_RHS |
dTdz(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
125 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
126 |
SMOOTH_RHS |
& (fld_in(i-1,j, MAX(k-1,1) ,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
127 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
128 |
SMOOTH_RHS |
& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
131 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
132 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
133 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
134 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
137 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
143 |
SMOOTH_RHS |
dTdy(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
144 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
145 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
146 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
147 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
148 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
149 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
150 |
SMOOTH_RHS |
& +0.5*(maskS(i-1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
151 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
152 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
153 |
SMOOTH_RHS |
& +maskS(i-1,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
154 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
155 |
SMOOTH_RHS |
& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
157 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
158 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
167 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
173 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
181 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
182 |
SMOOTH_RHS |
& -yA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
183 |
SMOOTH_RHS |
& *smooth3D_Kvy(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
184 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
185 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
191 |
SMOOTH_RHS |
dTdz(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
193 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
194 |
SMOOTH_RHS |
& (fld_in(i,j-1,MAX(k-1,1),bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
195 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
196 |
SMOOTH_RHS |
& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
199 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
200 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
201 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
202 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
205 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
211 |
SMOOTH_RHS |
dTdx(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
212 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
213 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
214 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
215 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
216 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
218 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
219 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
221 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
222 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
225 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
234 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
240 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
251 |
SMOOTH_RHS |
df(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
252 |
SMOOTH_RHS |
& -_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
253 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/smooth/smooth_rhs.F |
254 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
255 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
267 |
SMOOTH_RHS |
dTdx(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
268 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
269 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
270 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
271 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
272 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
274 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
275 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
277 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
278 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
282 |
SMOOTH_RHS |
dTdy(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
283 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
284 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
285 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
286 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
287 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
288 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
289 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
290 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
291 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
292 |
SMOOTH_RHS |
& +maskS(i,j+1,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
293 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
294 |
SMOOTH_RHS |
& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
297 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
298 |
SMOOTH_RHS |
& - rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
299 |
SMOOTH_RHS |
& *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
300 |
SMOOTH_RHS |
& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
312 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
313 |
SMOOTH_RHS |
& df(i,j,bi,bj)*maskUp(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
320 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
332 |
SMOOTH_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_rhs.F |
339 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
340 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
341 |
SMOOTH_RHS |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
342 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
343 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
344 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
351 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
352 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
353 |
SMOOTH_RHS |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
354 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
355 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
356 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
54 |
SMOOTH_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_rhs.F |
69 |
SMOOTH_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
78 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
79 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
96 |
SMOOTH_RHS |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
97 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
98 |
SMOOTH_RHS |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
99 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacS(i,j,k,bi,bj) |
|
./pkg/sphere/exch_all_2d_rl.F |
53 |
EXCH_ALLGATHER_2D_RL |
integer bi, bj |
|
./pkg/sphere/exch_all_2d_rl.F |
83 |
EXCH_ALLGATHER_2D_RL |
do bj = 1, nSy |
|
./pkg/sphere/exch_all_2d_rl.F |
87 |
EXCH_ALLGATHER_2D_RL |
full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc) |
|
./model/src/ini_forcing.F |
118 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_forcing.F |
122 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
179 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_forcing.F |
183 |
INI_FORCING |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
38 |
INI_FORCING |
INTEGER bi, bj |
|
./model/src/ini_forcing.F |
45 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
51 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./model/src/ini_forcing.F |
53 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
56 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
57 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./model/src/ini_forcing.F |
59 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
85 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_forcing.F |
89 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/streamice/adstreamice_cg_solve.F |
100 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
101 |
ADSTREAMICE_CG_SOLVE |
Vtemp (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
102 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
103 |
ADSTREAMICE_CG_SOLVE |
UtempSt (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
104 |
ADSTREAMICE_CG_SOLVE |
& U_state (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
105 |
ADSTREAMICE_CG_SOLVE |
VtempSt (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
106 |
ADSTREAMICE_CG_SOLVE |
& V_state (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
158 |
ADSTREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/adstreamice_cg_solve.F |
165 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
166 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
167 |
ADSTREAMICE_CG_SOLVE |
adA_uu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
168 |
ADSTREAMICE_CG_SOLVE |
& adA_uu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
169 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
170 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
173 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
174 |
ADSTREAMICE_CG_SOLVE |
adA_uv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
175 |
ADSTREAMICE_CG_SOLVE |
& adA_uv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
176 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
177 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
181 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
182 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
183 |
ADSTREAMICE_CG_SOLVE |
adA_vu(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
184 |
ADSTREAMICE_CG_SOLVE |
& adA_vu(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
185 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
186 |
ADSTREAMICE_CG_SOLVE |
& U_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
188 |
ADSTREAMICE_CG_SOLVE |
if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then |
|
./pkg/streamice/adstreamice_cg_solve.F |
189 |
ADSTREAMICE_CG_SOLVE |
adA_vv(i,j,bi,bj,colx,coly) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
190 |
ADSTREAMICE_CG_SOLVE |
& adA_vv(i,j,bi,bj,colx,coly) - |
|
./pkg/streamice/adstreamice_cg_solve.F |
191 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin(i,j,bi,bj) * |
|
./pkg/streamice/adstreamice_cg_solve.F |
192 |
ADSTREAMICE_CG_SOLVE |
& V_state(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
203 |
ADSTREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/adstreamice_cg_solve.F |
209 |
ADSTREAMICE_CG_SOLVE |
cg_Uin (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
210 |
ADSTREAMICE_CG_SOLVE |
cg_Vin (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
214 |
ADSTREAMICE_CG_SOLVE |
ada_uu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
215 |
ADSTREAMICE_CG_SOLVE |
ada_uv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
216 |
ADSTREAMICE_CG_SOLVE |
ada_vu(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
217 |
ADSTREAMICE_CG_SOLVE |
ada_vv(i,j,bi,bj,colx,coly)=0.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
222 |
ADSTREAMICE_CG_SOLVE |
cg_Uin (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
223 |
ADSTREAMICE_CG_SOLVE |
& cg_Uin (i,j,bi,bj) + |
|
./pkg/streamice/adstreamice_cg_solve.F |
224 |
ADSTREAMICE_CG_SOLVE |
& Utemp (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
225 |
ADSTREAMICE_CG_SOLVE |
cg_Vin (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
226 |
ADSTREAMICE_CG_SOLVE |
& cg_Vin (i,j,bi,bj) + |
|
./pkg/streamice/adstreamice_cg_solve.F |
227 |
ADSTREAMICE_CG_SOLVE |
& Vtemp (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
228 |
ADSTREAMICE_CG_SOLVE |
cg_bu (i,j,bi,bj) = 0. |
|
./pkg/streamice/adstreamice_cg_solve.F |
229 |
ADSTREAMICE_CG_SOLVE |
cg_bv (i,j,bi,bj) = 0. |
|
./pkg/streamice/adstreamice_cg_solve.F |
230 |
ADSTREAMICE_CG_SOLVE |
U_state (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
231 |
ADSTREAMICE_CG_SOLVE |
& UtempSt (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
232 |
ADSTREAMICE_CG_SOLVE |
V_state (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_cg_solve.F |
233 |
ADSTREAMICE_CG_SOLVE |
& VtempSt (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_cg_solve.F |
69 |
ADSTREAMICE_CG_SOLVE |
INTEGER i, j, bi, bj, cg_halo, conv_flag, tmpiter |
|
./pkg/streamice/adstreamice_cg_solve.F |
95 |
ADSTREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/adstreamice_cg_solve.F |
99 |
ADSTREAMICE_CG_SOLVE |
Utemp (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
100 |
ADSTRMICE_H_INV |
hf = -1.0 * i_r * R (i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
104 |
ADSTRMICE_H_INV |
& H (i,j,bi,bj)-hf, |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
112 |
ADSTRMICE_H_INV |
r_low_si_ad (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
113 |
ADSTRMICE_H_INV |
& r_low_si_ad (i,j,bi,bj) - |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
115 |
ADSTRMICE_H_INV |
& h_streamice_ad(i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
117 |
ADSTRMICE_H_INV |
rd (i,j,bi,bj) = |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
118 |
ADSTRMICE_H_INV |
& rd (i,j,bi,bj) - |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
120 |
ADSTRMICE_H_INV |
& hd(i,j,bi,bj) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
36 |
ADSTRMICE_H_INV |
INTEGER ITER, i, j, bi, bj |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
91 |
ADSTRMICE_H_INV |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
98 |
ADSTRMICE_H_INV |
hf = -1.0 * i_r * R_low_si (i,j,bi,bj) |
|
./model/src/ini_global_domain.F |
100 |
INI_GLOBAL_DOMAIN |
DO bj = 1,nSy |
|
./model/src/ini_global_domain.F |
102 |
INI_GLOBAL_DOMAIN |
IF ( tileArea(bi,bj).EQ.0. _d 0 ) THEN |
|
./model/src/ini_global_domain.F |
105 |
INI_GLOBAL_DOMAIN |
& 'Empty tile: #', W2_myTileList(bi,bj), ' (bi,bj=',bi,bj,' )' |
|
./model/src/ini_global_domain.F |
107 |
INI_GLOBAL_DOMAIN |
WRITE(msgBuf,'(A,I6,I6)') 'Empty tile bi,bj=', bi, bj |
|
./model/src/ini_global_domain.F |
126 |
INI_GLOBAL_DOMAIN |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_global_domain.F |
129 |
INI_GLOBAL_DOMAIN |
myTile = W2_myTileList(bi,bj) |
|
./model/src/ini_global_domain.F |
144 |
INI_GLOBAL_DOMAIN |
IF ( southWestCorner .AND. kSurfC( 1 , 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
146 |
INI_GLOBAL_DOMAIN |
IF ( southEastCorner .AND. kSurfC(sNx, 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
148 |
INI_GLOBAL_DOMAIN |
IF ( northWestCorner .AND. kSurfC( 1 ,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
150 |
INI_GLOBAL_DOMAIN |
IF ( northEastCorner .AND. kSurfC(sNx,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
50 |
INI_GLOBAL_DOMAIN |
INTEGER bi, bj |
|
./model/src/ini_global_domain.F |
77 |
INI_GLOBAL_DOMAIN |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_global_domain.F |
80 |
INI_GLOBAL_DOMAIN |
tileArea(bi,bj) = 0. _d 0 |
|
./model/src/ini_global_domain.F |
83 |
INI_GLOBAL_DOMAIN |
tileArea(bi,bj) = tileArea(bi,bj) |
|
./model/src/ini_global_domain.F |
84 |
INI_GLOBAL_DOMAIN |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
100 |
STREAMICE_ADV_FLUX_FL_X |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
102 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
106 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i-1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
108 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
130 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
134 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
141 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
148 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i-k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
150 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
151 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
152 |
STREAMICE_ADV_FLUX_FL_X |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
154 |
STREAMICE_ADV_FLUX_FL_X |
IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
158 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = TRAC(i+1,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
160 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
183 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
187 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = uface * |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
194 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = uface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
200 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
42 |
STREAMICE_ADV_FLUX_FL_X |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
54 |
STREAMICE_ADV_FLUX_FL_X |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
58 |
STREAMICE_ADV_FLUX_FL_X |
H0_valid(i,j,bi,bj)=.false. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
64 |
STREAMICE_ADV_FLUX_FL_X |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
67 |
STREAMICE_ADV_FLUX_FL_X |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
74 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
75 |
STREAMICE_ADV_FLUX_FL_X |
& ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
76 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
80 |
STREAMICE_ADV_FLUX_FL_X |
uface = UADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
81 |
STREAMICE_ADV_FLUX_FL_X |
cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
83 |
STREAMICE_ADV_FLUX_FL_X |
IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
85 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
86 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
88 |
STREAMICE_ADV_FLUX_FL_X |
& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
90 |
STREAMICE_ADV_FLUX_FL_X |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
91 |
STREAMICE_ADV_FLUX_FL_X |
XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
96 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i+k-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
98 |
STREAMICE_ADV_FLUX_FL_X |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
99 |
STREAMICE_ADV_FLUX_FL_X |
& (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
101 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
102 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
103 |
STREAMICE_ADV_FLUX_FL_Y |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
105 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
109 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j-1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
111 |
STREAMICE_ADV_FLUX_FL_Y |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
133 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
137 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
144 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
151 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j-k,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
153 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
154 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
155 |
STREAMICE_ADV_FLUX_FL_Y |
& H0_valid(i,j,bi,bj)=.true. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
157 |
STREAMICE_ADV_FLUX_FL_Y |
IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0)) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
161 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = TRAC(i,j+1,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
163 |
STREAMICE_ADV_FLUX_FL_Y |
ELSEIF (H0_valid(i,j,bi,bj)) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
185 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
189 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = vface * |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
196 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = vface * stencil(0) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
202 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
42 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
54 |
STREAMICE_ADV_FLUX_FL_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
58 |
STREAMICE_ADV_FLUX_FL_Y |
H0_valid(i,j,bi,bj)=.false. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
64 |
STREAMICE_ADV_FLUX_FL_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
67 |
STREAMICE_ADV_FLUX_FL_Y |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
75 |
STREAMICE_ADV_FLUX_FL_Y |
IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
76 |
STREAMICE_ADV_FLUX_FL_Y |
& ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
77 |
STREAMICE_ADV_FLUX_FL_Y |
& (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
79 |
STREAMICE_ADV_FLUX_FL_Y |
vface = VADV(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
80 |
STREAMICE_ADV_FLUX_FL_Y |
cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
85 |
STREAMICE_ADV_FLUX_FL_Y |
IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
87 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
88 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
90 |
STREAMICE_ADV_FLUX_FL_Y |
& (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and. |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
92 |
STREAMICE_ADV_FLUX_FL_Y |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
93 |
STREAMICE_ADV_FLUX_FL_Y |
YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
99 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j+k-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
102 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
103 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
104 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
105 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
115 |
STREAMICE_ADV_FRONT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_front.F |
119 |
STREAMICE_ADV_FRONT |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_adv_front.F |
127 |
STREAMICE_ADV_FRONT |
act2 = bj - myByLo(myThid) |
|
./pkg/streamice/streamice_adv_front.F |
151 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
154 |
STREAMICE_ADV_FRONT |
& (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_adv_front.F |
155 |
STREAMICE_ADV_FRONT |
& STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN |
|
./pkg/streamice/streamice_adv_front.F |
164 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
166 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
167 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
168 |
STREAMICE_ADV_FRONT |
& dxG(i,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
169 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
176 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
178 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
179 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
180 |
STREAMICE_ADV_FRONT |
& dxG(i+1,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
181 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i+1,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
188 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
190 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
191 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
192 |
STREAMICE_ADV_FRONT |
& dyG(i,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
193 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
200 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
202 |
STREAMICE_ADV_FRONT |
href = href + H_streamice(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
203 |
STREAMICE_ADV_FRONT |
tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
204 |
STREAMICE_ADV_FRONT |
& dyG(i,j+1,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
205 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j+1,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
211 |
STREAMICE_ADV_FRONT |
partial_vol = H_streamice (i,j,bi,bj) * |
|
./pkg/streamice/streamice_adv_front.F |
212 |
STREAMICE_ADV_FRONT |
& area_shelf_streamice (i,j,bi,bj) + tot_flux |
|
./pkg/streamice/streamice_adv_front.F |
213 |
STREAMICE_ADV_FRONT |
hpot = partial_vol * recip_rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
216 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
217 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
218 |
STREAMICE_ADV_FRONT |
area_shelf_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
219 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
222 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_adv_front.F |
223 |
STREAMICE_ADV_FRONT |
area_shelf_streamice (i,j,bi,bj) = partial_vol / href |
|
./pkg/streamice/streamice_adv_front.F |
224 |
STREAMICE_ADV_FRONT |
H_streamice (i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
227 |
STREAMICE_ADV_FRONT |
STREAMICE_hmask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_adv_front.F |
228 |
STREAMICE_ADV_FRONT |
area_shelf_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
229 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
232 |
STREAMICE_ADV_FRONT |
& area_shelf_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
233 |
STREAMICE_ADV_FRONT |
partial_vol = partial_vol - href * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
243 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_ufacemask(i-1+k,j,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
245 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i+2*k-3,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
248 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free |
|
./pkg/streamice/streamice_adv_front.F |
254 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_vfacemask (i,j-1+k,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
256 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i,j+2*k-3,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
259 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
266 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href + partial_vol * |
|
./pkg/streamice/streamice_adv_front.F |
267 |
STREAMICE_ADV_FRONT |
& recip_rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
269 |
STREAMICE_ADV_FRONT |
H_streamice(i,j,bi,bj) = href |
|
./pkg/streamice/streamice_adv_front.F |
273 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i-1+k,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
275 |
STREAMICE_ADV_FRONT |
& dxG(i-1+k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
281 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j-1+k,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
283 |
STREAMICE_ADV_FRONT |
& dxG(i,j-1+k,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
44 |
STREAMICE_ADV_FRONT |
INTEGER i, j, bi, bj, k, iter_count, iter_rpt |
|
./pkg/streamice/streamice_adv_front.F |
60 |
STREAMICE_ADV_FRONT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_adv_front.F |
64 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
65 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
98 |
STREAMICE_ADV_FRONT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
116 |
STREAMICE_ADVECT_2DTRACER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
121 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_2dtracer.F |
125 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
126 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
129 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
131 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
133 |
STREAMICE_ADVECT_2DTRACER |
& ((xtracflux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
134 |
STREAMICE_ADVECT_2DTRACER |
& xtracflux(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
135 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA (i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
136 |
STREAMICE_ADVECT_2DTRACER |
& trac2d(i,j,bi,bj) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
137 |
STREAMICE_ADVECT_2DTRACER |
& (utrans(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_advect_2dtracer.F |
138 |
STREAMICE_ADVECT_2DTRACER |
& utrans(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
139 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
165 |
STREAMICE_ADVECT_2DTRACER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
170 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_2dtracer.F |
172 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_2dtracer.F |
173 |
STREAMICE_ADVECT_2DTRACER |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
182 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
184 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
186 |
STREAMICE_ADVECT_2DTRACER |
& ((ytracflux(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
187 |
STREAMICE_ADVECT_2DTRACER |
& ytracflux(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
188 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA (i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
189 |
STREAMICE_ADVECT_2DTRACER |
& (vtrans(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
190 |
STREAMICE_ADVECT_2DTRACER |
& vtrans(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
191 |
STREAMICE_ADVECT_2DTRACER |
& trac2d(i,j,bi,bj) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
192 |
STREAMICE_ADVECT_2DTRACER |
& recip_rA(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
204 |
STREAMICE_ADVECT_2DTRACER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
209 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
210 |
STREAMICE_ADVECT_2DTRACER |
& GAD_trac_2d(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
213 |
STREAMICE_ADVECT_2DTRACER |
trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
215 |
STREAMICE_ADVECT_2DTRACER |
& (GAD_trac_2d(i,j,bi,bj) - GAD_trac_2dNm1(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
51 |
STREAMICE_ADVECT_2DTRACER |
INTEGER i, j, bi, bj |
|
./pkg/streamice/streamice_advect_2dtracer.F |
69 |
STREAMICE_ADVECT_2DTRACER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
77 |
STREAMICE_ADVECT_2DTRACER |
ytracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
78 |
STREAMICE_ADVECT_2DTRACER |
xtracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
80 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2dNm1(i,j,bi,bj)=GAD_trac_2d(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
81 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
84 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
85 |
STREAMICE_ADVECT_2DTRACER |
BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
86 |
STREAMICE_ADVECT_2DTRACER |
ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
87 |
STREAMICE_ADVECT_2DTRACER |
BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
90 |
STREAMICE_ADVECT_2DTRACER |
IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
91 |
STREAMICE_ADVECT_2DTRACER |
BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_2dtracer.F |
92 |
STREAMICE_ADVECT_2DTRACER |
ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_2dtracer.F |
93 |
STREAMICE_ADVECT_2DTRACER |
BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
100 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
101 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = h_ubdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
102 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
103 |
STREAMICE_ADVECT_THICKNESS |
& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
104 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
105 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
106 |
STREAMICE_ADVECT_THICKNESS |
uflux = u_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
107 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
108 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = uflux |
|
./pkg/streamice/streamice_advect_thickness.F |
109 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
110 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
111 |
STREAMICE_ADVECT_THICKNESS |
uflux = u_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
112 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
113 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = uflux |
|
./pkg/streamice/streamice_advect_thickness.F |
114 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
117 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
118 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
119 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
120 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
121 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
123 |
STREAMICE_ADVECT_THICKNESS |
BCMASKX(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
124 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
125 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
126 |
STREAMICE_ADVECT_THICKNESS |
& u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
129 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
130 |
STREAMICE_ADVECT_THICKNESS |
BCMASKy(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
131 |
STREAMICE_ADVECT_THICKNESS |
BCVALy(i,j,bi,bj) = h_vbdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
132 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
133 |
STREAMICE_ADVECT_THICKNESS |
& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
134 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
135 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
136 |
STREAMICE_ADVECT_THICKNESS |
vflux = v_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
137 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
138 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = vflux |
|
./pkg/streamice/streamice_advect_thickness.F |
139 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
140 |
STREAMICE_ADVECT_THICKNESS |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
141 |
STREAMICE_ADVECT_THICKNESS |
vflux = v_flux_bdry_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
142 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
143 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = vflux |
|
./pkg/streamice/streamice_advect_thickness.F |
144 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
147 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
149 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR. |
|
./pkg/streamice/streamice_advect_thickness.F |
150 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
151 |
STREAMICE_ADVECT_THICKNESS |
BCMASKY(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
152 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
153 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
155 |
STREAMICE_ADVECT_THICKNESS |
BCMASKy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
156 |
STREAMICE_ADVECT_THICKNESS |
BCVALy(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
157 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = .5 * ( |
|
./pkg/streamice/streamice_advect_thickness.F |
158 |
STREAMICE_ADVECT_THICKNESS |
& v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
179 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
183 |
STREAMICE_ADVECT_THICKNESS |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
184 |
STREAMICE_ADVECT_THICKNESS |
loc_icfl=max(abs(utrans(i,j,bi,bj)), |
|
./pkg/streamice/streamice_advect_thickness.F |
185 |
STREAMICE_ADVECT_THICKNESS |
& abs(utrans(i+1,j,bi,bj))) / dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
186 |
STREAMICE_ADVECT_THICKNESS |
loc_icfl=max(loc_icfl,max(abs(vtrans(i,j,bi,bj)), |
|
./pkg/streamice/streamice_advect_thickness.F |
187 |
STREAMICE_ADVECT_THICKNESS |
& abs(vtrans(i,j+1,bi,bj))) / dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
224 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
229 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_thickness.F |
233 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
234 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
235 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
236 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
237 |
STREAMICE_ADVECT_THICKNESS |
& * recip_rA (i,j,bi,bj) * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
238 |
STREAMICE_ADVECT_THICKNESS |
IF ( h_after_uflux_SI (i,j,bi,bj).le.0.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
239 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
240 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
267 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
272 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_thickness.F |
276 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
277 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI (i,j,bi,bj) = h_after_uflux_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
278 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
279 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj)*dxG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
280 |
STREAMICE_ADVECT_THICKNESS |
& recip_rA (i,j,bi,bj) * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
281 |
STREAMICE_ADVECT_THICKNESS |
IF ( h_after_vflux_SI (i,j,bi,bj).le.0.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
282 |
STREAMICE_ADVECT_THICKNESS |
PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj), |
|
./pkg/streamice/streamice_advect_thickness.F |
283 |
STREAMICE_ADVECT_THICKNESS |
& hflux_y_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
294 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
298 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
299 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
300 |
STREAMICE_ADVECT_THICKNESS |
& h_after_vflux_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
335 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
340 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_advect_thickness.F |
341 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_advect_thickness.F |
342 |
STREAMICE_ADVECT_THICKNESS |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
346 |
STREAMICE_ADVECT_THICKNESS |
MR = -1. * (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
347 |
STREAMICE_ADVECT_THICKNESS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * irho * |
|
./pkg/streamice/streamice_advect_thickness.F |
354 |
STREAMICE_ADVECT_THICKNESS |
MR = (1.-float_frac_streamice(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
355 |
STREAMICE_ADVECT_THICKNESS |
& (BDOT_STREAMICE(i,j,bi,bj) + |
|
./pkg/streamice/streamice_advect_thickness.F |
356 |
STREAMICE_ADVECT_THICKNESS |
& BDOT_pert(i,j,bi,bj)) |
|
./pkg/streamice/streamice_advect_thickness.F |
359 |
STREAMICE_ADVECT_THICKNESS |
SMB = ADOT_STREAMICE(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
363 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj))) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
364 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
365 |
STREAMICE_ADVECT_THICKNESS |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_advect_thickness.F |
368 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
369 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice (i,j,bi,bj) + TMB * time_step_loc |
|
./pkg/streamice/streamice_advect_thickness.F |
41 |
STREAMICE_ADVECT_THICKNESS |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_advect_thickness.F |
80 |
STREAMICE_ADVECT_THICKNESS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_advect_thickness.F |
85 |
STREAMICE_ADVECT_THICKNESS |
H_streamice_prev(i,j,bi,bj) = |
|
./pkg/streamice/streamice_advect_thickness.F |
86 |
STREAMICE_ADVECT_THICKNESS |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
88 |
STREAMICE_ADVECT_THICKNESS |
hflux_x_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
89 |
STREAMICE_ADVECT_THICKNESS |
hflux_y_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
91 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_advect_thickness.F |
92 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
93 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
95 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
96 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_advect_thickness.F |
99 |
STREAMICE_ADVECT_THICKNESS |
IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
34 |
STREAMICE_APPLY_FLUX_CTRL |
INTEGER bi, bj, i, j, k |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
53 |
STREAMICE_APPLY_FLUX_CTRL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
57 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 .OR. |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
58 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_vmask(i,j,bi,bj).eq.3.0) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
60 |
STREAMICE_APPLY_FLUX_CTRL |
maskval = INT(streamice_ctrl_flux_mask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
64 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_umask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
65 |
STREAMICE_APPLY_FLUX_CTRL |
u_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
66 |
STREAMICE_APPLY_FLUX_CTRL |
& u_bdry_values_SI_base(i,j,bi,bj) * |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
69 |
STREAMICE_APPLY_FLUX_CTRL |
IF (streamice_vmask(i,j,bi,bj).eq.3.0 |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
70 |
STREAMICE_APPLY_FLUX_CTRL |
v_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
71 |
STREAMICE_APPLY_FLUX_CTRL |
& v_bdry_values_SI_base(i,j,bi,bj) * |
|
./model/src/ini_grid.F |
100 |
INI_GRID |
recip_rAz(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
101 |
INI_GRID |
tanPhiAtU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
102 |
INI_GRID |
tanPhiAtV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
103 |
INI_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
104 |
INI_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
105 |
INI_GRID |
u2zonDir(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
106 |
INI_GRID |
v2zonDir(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
108 |
INI_GRID |
cosFacU(j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
109 |
INI_GRID |
cosFacV(j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
110 |
INI_GRID |
sqCosFacU(j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
111 |
INI_GRID |
sqCosFacV(j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
152 |
INI_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_grid.F |
156 |
INI_GRID |
IF ( dxG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
157 |
INI_GRID |
& recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
158 |
INI_GRID |
IF ( dyG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
159 |
INI_GRID |
& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
160 |
INI_GRID |
IF ( dxC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
161 |
INI_GRID |
& recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
162 |
INI_GRID |
IF ( dyC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
163 |
INI_GRID |
& recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
164 |
INI_GRID |
IF ( dxF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
165 |
INI_GRID |
& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
166 |
INI_GRID |
IF ( dyF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
167 |
INI_GRID |
& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
168 |
INI_GRID |
IF ( dxV(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
169 |
INI_GRID |
& recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj) |
|
./model/src/ini_grid.F |
170 |
INI_GRID |
IF ( dyU(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
171 |
INI_GRID |
& recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj) |
|
./model/src/ini_grid.F |
172 |
INI_GRID |
IF ( rA (i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
173 |
INI_GRID |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_grid.F |
174 |
INI_GRID |
IF ( rAs(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
175 |
INI_GRID |
& recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj) |
|
./model/src/ini_grid.F |
176 |
INI_GRID |
IF ( rAw(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
177 |
INI_GRID |
& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj) |
|
./model/src/ini_grid.F |
178 |
INI_GRID |
IF ( rAz(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
179 |
INI_GRID |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./model/src/ini_grid.F |
52 |
INI_GRID |
INTEGER bi, bj |
|
./model/src/ini_grid.F |
69 |
INI_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_grid.F |
73 |
INI_GRID |
xC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
74 |
INI_GRID |
yC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
75 |
INI_GRID |
xG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
76 |
INI_GRID |
yG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
77 |
INI_GRID |
dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
78 |
INI_GRID |
dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
79 |
INI_GRID |
dxG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
80 |
INI_GRID |
dyG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
81 |
INI_GRID |
dxF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
82 |
INI_GRID |
dyF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
83 |
INI_GRID |
dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
84 |
INI_GRID |
dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
85 |
INI_GRID |
rA(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
86 |
INI_GRID |
rAz(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
87 |
INI_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
88 |
INI_GRID |
rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
89 |
INI_GRID |
recip_dxG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
90 |
INI_GRID |
recip_dyG(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
91 |
INI_GRID |
recip_dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
92 |
INI_GRID |
recip_dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
93 |
INI_GRID |
recip_dxF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
94 |
INI_GRID |
recip_dyF(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
95 |
INI_GRID |
recip_dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
96 |
INI_GRID |
recip_dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
97 |
INI_GRID |
recip_rA (i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
98 |
INI_GRID |
recip_rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
99 |
INI_GRID |
recip_rAw(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_cg_functions.F |
1000 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
1001 |
STREAMICE_CG_BOUND_VALS |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
100 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
101 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
102 |
STREAMICE_CG_ACTION |
uy = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
103 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
104 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
105 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
106 |
STREAMICE_CG_ACTION |
vx = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
107 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
108 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
109 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
110 |
STREAMICE_CG_ACTION |
vy = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
111 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
112 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
113 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
114 |
STREAMICE_CG_ACTION |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
115 |
STREAMICE_CG_ACTION |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
117 |
STREAMICE_CG_ACTION |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
129 |
STREAMICE_CG_ACTION |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
131 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
132 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
133 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
134 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
135 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
136 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
139 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
140 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
141 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
142 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
143 |
STREAMICE_CG_ACTION |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
144 |
STREAMICE_CG_ACTION |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
147 |
STREAMICE_CG_ACTION |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
148 |
STREAMICE_CG_ACTION |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
150 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
151 |
STREAMICE_CG_ACTION |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
156 |
STREAMICE_CG_ACTION |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
157 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
158 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
159 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
160 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
161 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
162 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
163 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
164 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
165 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
166 |
STREAMICE_CG_ACTION |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
167 |
STREAMICE_CG_ACTION |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
168 |
STREAMICE_CG_ACTION |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
169 |
STREAMICE_CG_ACTION |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
170 |
STREAMICE_CG_ACTION |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
172 |
STREAMICE_CG_ACTION |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
173 |
STREAMICE_CG_ACTION |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
241 |
STREAMICE_CG_MAKE_A |
INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n |
|
./pkg/streamice/streamice_cg_functions.F |
257 |
STREAMICE_CG_MAKE_A |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_functions.F |
262 |
STREAMICE_CG_MAKE_A |
streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
263 |
STREAMICE_CG_MAKE_A |
streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
264 |
STREAMICE_CG_MAKE_A |
streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
265 |
STREAMICE_CG_MAKE_A |
streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_cg_functions.F |
277 |
STREAMICE_CG_MAKE_A |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_functions.F |
279 |
STREAMICE_CG_MAKE_A |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
288 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
290 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
303 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
305 |
STREAMICE_CG_MAKE_A |
& STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
332 |
STREAMICE_CG_MAKE_A |
ux = DPhi (i,j,bi,bj,m_j,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
333 |
STREAMICE_CG_MAKE_A |
uy = DPhi (i,j,bi,bj,m_j,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
339 |
STREAMICE_CG_MAKE_A |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
340 |
STREAMICE_CG_MAKE_A |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
342 |
STREAMICE_CG_MAKE_A |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
345 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
346 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
347 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
348 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
351 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
354 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
359 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
362 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
370 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
371 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
372 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
373 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
376 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
379 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
384 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
387 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
395 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
396 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
397 |
STREAMICE_CG_MAKE_A |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
398 |
STREAMICE_CG_MAKE_A |
& exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
401 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
404 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
409 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
412 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
420 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
421 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
422 |
STREAMICE_CG_MAKE_A |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
423 |
STREAMICE_CG_MAKE_A |
& eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
426 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
429 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
434 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
437 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
446 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
447 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
450 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
453 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
458 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
461 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
469 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
470 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
473 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
476 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
481 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
484 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
493 |
STREAMICE_CG_MAKE_A |
vx = DPhi (i,j,bi,bj,m_j,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
494 |
STREAMICE_CG_MAKE_A |
vy = DPhi (i,j,bi,bj,m_j,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
500 |
STREAMICE_CG_MAKE_A |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
501 |
STREAMICE_CG_MAKE_A |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
503 |
STREAMICE_CG_MAKE_A |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
506 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
507 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
508 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
509 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
512 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
515 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
520 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
523 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
530 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
531 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
532 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
533 |
STREAMICE_CG_MAKE_A |
& DPhi(i,j,bi,bj,m_i,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
536 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
539 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
544 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
547 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
554 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
555 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
556 |
STREAMICE_CG_MAKE_A |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
557 |
STREAMICE_CG_MAKE_A |
& exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
560 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
563 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
568 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
571 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
578 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
579 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
580 |
STREAMICE_CG_MAKE_A |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_functions.F |
581 |
STREAMICE_CG_MAKE_A |
& eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
584 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
587 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
592 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
595 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
602 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
603 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
606 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
609 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
614 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
617 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
624 |
STREAMICE_CG_MAKE_A |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
625 |
STREAMICE_CG_MAKE_A |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
628 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
631 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
636 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
639 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
65 |
STREAMICE_CG_ACTION |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj |
|
./pkg/streamice/streamice_cg_functions.F |
720 |
STREAMICE_CG_ADIAG |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
732 |
STREAMICE_CG_ADIAG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_functions.F |
734 |
STREAMICE_CG_ADIAG |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
745 |
STREAMICE_CG_ADIAG |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_cg_functions.F |
746 |
STREAMICE_CG_ADIAG |
& STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
756 |
STREAMICE_CG_ADIAG |
ux = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
757 |
STREAMICE_CG_ADIAG |
uy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
763 |
STREAMICE_CG_ADIAG |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
764 |
STREAMICE_CG_ADIAG |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
766 |
STREAMICE_CG_ADIAG |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
768 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
769 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
770 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
771 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
772 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
773 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
775 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
776 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
777 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
778 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
779 |
STREAMICE_CG_ADIAG |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
77 |
STREAMICE_CG_ACTION |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_functions.F |
780 |
STREAMICE_CG_ADIAG |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
783 |
STREAMICE_CG_ADIAG |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
784 |
STREAMICE_CG_ADIAG |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
785 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
786 |
STREAMICE_CG_ADIAG |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
789 |
STREAMICE_CG_ADIAG |
vx = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
790 |
STREAMICE_CG_ADIAG |
vy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
796 |
STREAMICE_CG_ADIAG |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
797 |
STREAMICE_CG_ADIAG |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
799 |
STREAMICE_CG_ADIAG |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
801 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
802 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
803 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
804 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
805 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
806 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
807 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
808 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
809 |
STREAMICE_CG_ADIAG |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
810 |
STREAMICE_CG_ADIAG |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
811 |
STREAMICE_CG_ADIAG |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
812 |
STREAMICE_CG_ADIAG |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
815 |
STREAMICE_CG_ADIAG |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
816 |
STREAMICE_CG_ADIAG |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
817 |
STREAMICE_CG_ADIAG |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
818 |
STREAMICE_CG_ADIAG |
& tau_beta_eff_streamice (i,j,bi,bj) * vq |
|
./pkg/streamice/streamice_cg_functions.F |
81 |
STREAMICE_CG_ACTION |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_cg_functions.F |
83 |
STREAMICE_CG_ACTION |
IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
888 |
STREAMICE_CG_BOUND_VALS |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
900 |
STREAMICE_CG_BOUND_VALS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_functions.F |
902 |
STREAMICE_CG_BOUND_VALS |
IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND. |
|
./pkg/streamice/streamice_cg_functions.F |
903 |
STREAMICE_CG_BOUND_VALS |
& ((STREAMICE_umask(i,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
904 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
905 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i+1,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
906 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_umask(i+1,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
907 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
908 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i,j+1,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
909 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i+1,j,bi,bj).eq.3.0) .OR. |
|
./pkg/streamice/streamice_cg_functions.F |
90 |
STREAMICE_CG_ACTION |
uq = u(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
910 |
STREAMICE_CG_BOUND_VALS |
& (STREAMICE_vmask(i+1,j+1,bi,bj).eq.3.0))) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
917 |
STREAMICE_CG_BOUND_VALS |
uq = u_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
918 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
919 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
91 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
920 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
921 |
STREAMICE_CG_BOUND_VALS |
vq = v_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
922 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
923 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+ |
|
./pkg/streamice/streamice_cg_functions.F |
924 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
925 |
STREAMICE_CG_BOUND_VALS |
ux = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
926 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
927 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
928 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
929 |
STREAMICE_CG_BOUND_VALS |
uy = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
92 |
STREAMICE_CG_ACTION |
& u(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
930 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
931 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
932 |
STREAMICE_CG_BOUND_VALS |
& u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
933 |
STREAMICE_CG_BOUND_VALS |
vx = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
934 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
935 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
936 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
937 |
STREAMICE_CG_BOUND_VALS |
vy = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
938 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
939 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) + |
|
./pkg/streamice/streamice_cg_functions.F |
93 |
STREAMICE_CG_ACTION |
& u(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
940 |
STREAMICE_CG_BOUND_VALS |
& v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
941 |
STREAMICE_CG_BOUND_VALS |
exx = ux + k1AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
942 |
STREAMICE_CG_BOUND_VALS |
eyy = vy + k2AtC_str(i,j,bi,bj)*uq |
|
./pkg/streamice/streamice_cg_functions.F |
944 |
STREAMICE_CG_BOUND_VALS |
& k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq |
|
./pkg/streamice/streamice_cg_functions.F |
94 |
STREAMICE_CG_ACTION |
vq = v(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
957 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
95 |
STREAMICE_CG_ACTION |
& v(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
960 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
961 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
962 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
963 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
964 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
965 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
968 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
969 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
96 |
STREAMICE_CG_ACTION |
& v(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) + |
|
./pkg/streamice/streamice_cg_functions.F |
970 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
971 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
972 |
STREAMICE_CG_BOUND_VALS |
& (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+ |
|
./pkg/streamice/streamice_cg_functions.F |
973 |
STREAMICE_CG_BOUND_VALS |
& 4*0.5*k1AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
977 |
STREAMICE_CG_BOUND_VALS |
uret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
978 |
STREAMICE_CG_BOUND_VALS |
& uret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
979 |
STREAMICE_CG_BOUND_VALS |
& phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
97 |
STREAMICE_CG_ACTION |
& v(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq) |
|
./pkg/streamice/streamice_cg_functions.F |
980 |
STREAMICE_CG_BOUND_VALS |
& tau_beta_eff_streamice (i,j,bi,bj) * uq |
|
./pkg/streamice/streamice_cg_functions.F |
985 |
STREAMICE_CG_BOUND_VALS |
if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_cg_functions.F |
986 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
987 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
988 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
989 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * ( |
|
./pkg/streamice/streamice_cg_functions.F |
98 |
STREAMICE_CG_ACTION |
ux = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) + |
|
./pkg/streamice/streamice_cg_functions.F |
990 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
991 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
992 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
993 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
994 |
STREAMICE_CG_BOUND_VALS |
& grid_jacq_streamice(i,j,bi,bj,n) * |
|
./pkg/streamice/streamice_cg_functions.F |
995 |
STREAMICE_CG_BOUND_VALS |
& visc_streamice(i,j,bi,bj) * phival(inode,jnode) * |
|
./pkg/streamice/streamice_cg_functions.F |
996 |
STREAMICE_CG_BOUND_VALS |
& (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+ |
|
./pkg/streamice/streamice_cg_functions.F |
997 |
STREAMICE_CG_BOUND_VALS |
& 4*0.5*k2AtC_str(i,j,bi,bj)*exy) |
|
./pkg/streamice/streamice_cg_functions.F |
998 |
STREAMICE_CG_BOUND_VALS |
vret(i-1+inode,j-1+jnode,bi,bj) = |
|
./pkg/streamice/streamice_cg_functions.F |
999 |
STREAMICE_CG_BOUND_VALS |
& vret(i-1+inode,j-1+jnode,bi,bj) + .25 * |
|
./pkg/streamice/streamice_cg_functions.F |
99 |
STREAMICE_CG_ACTION |
& u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) + |
|
./pkg/streamice/streamice_cg_solve.F |
132 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
136 |
STREAMICE_CG_SOLVE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
137 |
STREAMICE_CG_SOLVE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
138 |
STREAMICE_CG_SOLVE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
139 |
STREAMICE_CG_SOLVE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
140 |
STREAMICE_CG_SOLVE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
141 |
STREAMICE_CG_SOLVE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
142 |
STREAMICE_CG_SOLVE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
143 |
STREAMICE_CG_SOLVE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
155 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
161 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
162 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
163 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
164 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
165 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
168 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
169 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
170 |
STREAMICE_CG_SOLVE |
& cg_Uin(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
171 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
172 |
STREAMICE_CG_SOLVE |
& cg_Vin(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
185 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
189 |
STREAMICE_CG_SOLVE |
Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
190 |
STREAMICE_CG_SOLVE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
191 |
STREAMICE_CG_SOLVE |
Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
192 |
STREAMICE_CG_SOLVE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
195 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
196 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
200 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
204 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
205 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
206 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
207 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
217 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
221 |
STREAMICE_CG_SOLVE |
& bi,bj, dot_p1_tile(bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
235 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
239 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
240 |
STREAMICE_CG_SOLVE |
& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
241 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
242 |
STREAMICE_CG_SOLVE |
& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
251 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
255 |
STREAMICE_CG_SOLVE |
Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
256 |
STREAMICE_CG_SOLVE |
Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
294 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
298 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
299 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
309 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
315 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
316 |
STREAMICE_CG_SOLVE |
& A_uu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
317 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
318 |
STREAMICE_CG_SOLVE |
& A_uv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
319 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
320 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) + |
|
./pkg/streamice/streamice_cg_solve.F |
321 |
STREAMICE_CG_SOLVE |
& A_vu(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
322 |
STREAMICE_CG_SOLVE |
& Du_SI(i+colx,j+coly,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
323 |
STREAMICE_CG_SOLVE |
& A_vv(i,j,bi,bj,colx,coly)* |
|
./pkg/streamice/streamice_cg_solve.F |
324 |
STREAMICE_CG_SOLVE |
& Dv_SI(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
347 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
349 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
350 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
354 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
358 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
359 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
360 |
STREAMICE_CG_SOLVE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
361 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
362 |
STREAMICE_CG_SOLVE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
364 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
365 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
366 |
STREAMICE_CG_SOLVE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
367 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
368 |
STREAMICE_CG_SOLVE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
379 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
384 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
385 |
STREAMICE_CG_SOLVE |
cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
386 |
STREAMICE_CG_SOLVE |
& alpha_k*Du_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
387 |
STREAMICE_CG_SOLVE |
Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
388 |
STREAMICE_CG_SOLVE |
Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
389 |
STREAMICE_CG_SOLVE |
Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
390 |
STREAMICE_CG_SOLVE |
& alpha_k*Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
391 |
STREAMICE_CG_SOLVE |
Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve.F |
392 |
STREAMICE_CG_SOLVE |
& DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
395 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
396 |
STREAMICE_CG_SOLVE |
cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
397 |
STREAMICE_CG_SOLVE |
& alpha_k*Dv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
398 |
STREAMICE_CG_SOLVE |
Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
399 |
STREAMICE_CG_SOLVE |
Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
400 |
STREAMICE_CG_SOLVE |
Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve.F |
401 |
STREAMICE_CG_SOLVE |
& alpha_k*Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
402 |
STREAMICE_CG_SOLVE |
Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve.F |
403 |
STREAMICE_CG_SOLVE |
& DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
411 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
413 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
414 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
418 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
423 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
424 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
425 |
STREAMICE_CG_SOLVE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
426 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
427 |
STREAMICE_CG_SOLVE |
& Ru_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
430 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve.F |
431 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
432 |
STREAMICE_CG_SOLVE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
433 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve.F |
434 |
STREAMICE_CG_SOLVE |
& Rv_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
447 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
451 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
452 |
STREAMICE_CG_SOLVE |
& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
453 |
STREAMICE_CG_SOLVE |
& Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
454 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
455 |
STREAMICE_CG_SOLVE |
& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve.F |
456 |
STREAMICE_CG_SOLVE |
& Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
462 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
464 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
468 |
STREAMICE_CG_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve.F |
472 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
473 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
474 |
STREAMICE_CG_SOLVE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve.F |
475 |
STREAMICE_CG_SOLVE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve.F |
67 |
STREAMICE_CG_SOLVE |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
118 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
122 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
123 |
STREAMICE_CG_SOLVE_MATFREE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
124 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
125 |
STREAMICE_CG_SOLVE_MATFREE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
128 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
129 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
133 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
137 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
138 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
139 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
140 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
151 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
155 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
156 |
STREAMICE_CG_SOLVE_MATFREE |
& Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
157 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
158 |
STREAMICE_CG_SOLVE_MATFREE |
& Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
167 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
171 |
STREAMICE_CG_SOLVE_MATFREE |
Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
172 |
STREAMICE_CG_SOLVE_MATFREE |
Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
210 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
214 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
215 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
263 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
265 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
266 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
270 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
274 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
275 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
276 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
277 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
278 |
STREAMICE_CG_SOLVE_MATFREE |
& Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
280 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
281 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
282 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
283 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
284 |
STREAMICE_CG_SOLVE_MATFREE |
& Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
295 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
300 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
301 |
STREAMICE_CG_SOLVE_MATFREE |
cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
302 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Du_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
303 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
304 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
305 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
306 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Au_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
307 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
308 |
STREAMICE_CG_SOLVE_MATFREE |
& DIAGu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
311 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
312 |
STREAMICE_CG_SOLVE_MATFREE |
cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
313 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Dv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
314 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
315 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
316 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
317 |
STREAMICE_CG_SOLVE_MATFREE |
& alpha_k*Av_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
318 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) / |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
319 |
STREAMICE_CG_SOLVE_MATFREE |
& DIAGv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
327 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
329 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
330 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
334 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
339 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
340 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
341 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
342 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
343 |
STREAMICE_CG_SOLVE_MATFREE |
& Ru_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
346 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
347 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
348 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
349 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)* |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
350 |
STREAMICE_CG_SOLVE_MATFREE |
& Rv_old_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
363 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
367 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
368 |
STREAMICE_CG_SOLVE_MATFREE |
& Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
369 |
STREAMICE_CG_SOLVE_MATFREE |
& Zu_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
370 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
371 |
STREAMICE_CG_SOLVE_MATFREE |
& Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
372 |
STREAMICE_CG_SOLVE_MATFREE |
& Zv_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
378 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
380 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
384 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
388 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
389 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
390 |
STREAMICE_CG_SOLVE_MATFREE |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
391 |
STREAMICE_CG_SOLVE_MATFREE |
& dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
46 |
STREAMICE_CG_SOLVE_MATFREE |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
60 |
STREAMICE_CG_SOLVE_MATFREE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
64 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
65 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
66 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
67 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
68 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
69 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
70 |
STREAMICE_CG_SOLVE_MATFREE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
71 |
STREAMICE_CG_SOLVE_MATFREE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
160 |
STREAMICE_CG_SOLVE_PETSC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
165 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
170 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
171 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Uin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
177 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
182 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
183 |
STREAMICE_CG_SOLVE_PETSC |
solution_values(dof_index+1) = cg_Vin(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
223 |
STREAMICE_CG_SOLVE_PETSC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
228 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
242 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
249 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
253 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
259 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
274 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
288 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
294 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
298 |
STREAMICE_CG_SOLVE_PETSC |
dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
304 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
417 |
STREAMICE_CG_SOLVE_PETSC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
422 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
425 |
STREAMICE_CG_SOLVE_PETSC |
cg_Uin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
428 |
STREAMICE_CG_SOLVE_PETSC |
dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj)) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
431 |
STREAMICE_CG_SOLVE_PETSC |
cg_Vin(i,j,bi,bj) = solution_values(dof_index+1) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
72 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER i, j, bi, bj, cg_halo, conv_flag |
|
./pkg/streamice/streamice_cg_wrapper.F |
114 |
STREAMICE_CG_WRAPPER |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_wrapper.F |
118 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_umask(i,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
119 |
STREAMICE_CG_WRAPPER |
& cg_Uin(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
120 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_vmask(i,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
121 |
STREAMICE_CG_WRAPPER |
& cg_Vin(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
280 |
STREAMICE_CG_WRAPPER |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_wrapper.F |
284 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_umask(i,j,bi,bj).eq.3.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
285 |
STREAMICE_CG_WRAPPER |
& cg_Uin(i,j,bi,bj)=u_bdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
286 |
STREAMICE_CG_WRAPPER |
IF (STREAMICE_vmask(i,j,bi,bj).eq.3.0) |
|
./pkg/streamice/streamice_cg_wrapper.F |
287 |
STREAMICE_CG_WRAPPER |
& cg_Vin(i,j,bi,bj)=v_bdry_values_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
54 |
STREAMICE_CG_WRAPPER |
INTEGER i, j, bi, bj |
|
./pkg/streamice/streamice_cg_wrapper.F |
58 |
STREAMICE_CG_WRAPPER |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_wrapper.F |
63 |
STREAMICE_CG_WRAPPER |
DIAGu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
64 |
STREAMICE_CG_WRAPPER |
DIAGv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
65 |
STREAMICE_CG_WRAPPER |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
66 |
STREAMICE_CG_WRAPPER |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
87 |
STREAMICE_CG_WRAPPER |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_cg_wrapper.F |
91 |
STREAMICE_CG_WRAPPER |
RHSu_SI (i,j,bi,bj) = cg_tauU (i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
92 |
STREAMICE_CG_WRAPPER |
& - ubd_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
93 |
STREAMICE_CG_WRAPPER |
RHSv_SI (i,j,bi,bj) = cg_tauV (i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_wrapper.F |
94 |
STREAMICE_CG_WRAPPER |
& - vbd_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_cost_surf_accum.F |
49 |
STREAMICE_COST_SURF_ACCUM |
integer i, j, k, bi, bj |
|
./pkg/streamice/streamice_cost_surf_accum.F |
83 |
STREAMICE_COST_SURF_ACCUM |
do bj = jtlo,jthi |
|
./pkg/streamice/streamice_cost_surf_accum.F |
89 |
STREAMICE_COST_SURF_ACCUM |
if (streamice_cost_mask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_cost_surf_accum.F |
90 |
STREAMICE_COST_SURF_ACCUM |
cost_func1_streamice (bi,bj) = |
|
./pkg/streamice/streamice_cost_surf_accum.F |
91 |
STREAMICE_COST_SURF_ACCUM |
& cost_func1_streamice (bi,bj) + |
|
./pkg/streamice/streamice_cost_surf_accum.F |
92 |
STREAMICE_COST_SURF_ACCUM |
& streamice_wgt_surf * (S_obs(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cost_surf_accum.F |
93 |
STREAMICE_COST_SURF_ACCUM |
& surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny + |
|
./pkg/streamice/streamice_cost_surf_accum.F |
94 |
STREAMICE_COST_SURF_ACCUM |
& streamice_wgt_drift * (H_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_cost_surf_accum.F |
95 |
STREAMICE_COST_SURF_ACCUM |
& H_streamice_prev(i,j,bi,bj))**2 / Nx / Ny |
|
./pkg/streamice/streamice_diagnostics_state.F |
26 |
STREAMICE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid, i, j, bi, bj |
|
./pkg/streamice/streamice_diagnostics_state.F |
52 |
STREAMICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_diagnostics_state.F |
56 |
STREAMICE_DIAGNOSTICS_STATE |
u_streamice_diag(i,j,bi,bj) = u_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
57 |
STREAMICE_DIAGNOSTICS_STATE |
v_streamice_diag(i,j,bi,bj) = v_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
58 |
STREAMICE_DIAGNOSTICS_STATE |
h_streamice_diag(i,j,bi,bj) = H_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
59 |
STREAMICE_DIAGNOSTICS_STATE |
area_diag(i,j,bi,bj) = area_shelf_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
61 |
STREAMICE_DIAGNOSTICS_STATE |
float_frac_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
62 |
STREAMICE_DIAGNOSTICS_STATE |
& float_frac_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
64 |
STREAMICE_DIAGNOSTICS_STATE |
surf_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
65 |
STREAMICE_DIAGNOSTICS_STATE |
& surf_el_streamice(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
67 |
STREAMICE_DIAGNOSTICS_STATE |
streamice_taubx_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
68 |
STREAMICE_DIAGNOSTICS_STATE |
$ streamice_taubx(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
69 |
STREAMICE_DIAGNOSTICS_STATE |
streamice_tauby_diag(i,j,bi,bj) = |
|
./pkg/streamice/streamice_diagnostics_state.F |
70 |
STREAMICE_DIAGNOSTICS_STATE |
$ streamice_tauby(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
71 |
STREAMICE_DIAGNOSTICS_STATE |
u_surf_diag(i,j,bi,bj) = streamice_u_surf(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
72 |
STREAMICE_DIAGNOSTICS_STATE |
v_surf_diag(i,j,bi,bj) = streamice_v_surf(i,j,bi,bj)v |
|
./pkg/streamice/streamice_diagnostics_state.F |
75 |
STREAMICE_DIAGNOSTICS_STATE |
trac2d_diag(i,j,bi,bj)=trac2d(i,j,bi,bj)v |
|
./pkg/streamice/streamice_driving_stress.F |
105 |
STREAMICE_DRIVING_STRESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_driving_stress.F |
107 |
STREAMICE_DRIVING_STRESS |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
109 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
110 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
116 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
117 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
119 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
120 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress.F |
121 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
122 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
125 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
127 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
128 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
131 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
133 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
136 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
138 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
145 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
146 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
148 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
151 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
154 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
162 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
163 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
164 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
167 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
169 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
170 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
172 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
174 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
176 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
182 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
183 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
186 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
194 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
196 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
199 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
201 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
208 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
209 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
211 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
214 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
217 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
225 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
226 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
227 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
230 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
232 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
233 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
235 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
237 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_driving_stress.F |
239 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
245 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
246 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
249 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
260 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
261 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
266 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
267 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
269 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
270 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress.F |
271 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j-1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
272 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
274 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
276 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
277 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
279 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
281 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
284 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
286 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
293 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
294 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
296 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
299 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
302 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
310 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
311 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
312 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
315 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
317 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
318 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
320 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
322 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
324 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
330 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
331 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
334 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
343 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
345 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
348 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
350 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
357 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
358 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyg(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
360 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
363 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
366 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
373 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
374 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
375 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
378 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
380 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
381 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
383 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
385 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
387 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
38 |
STREAMICE_DRIVING_STRESS |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress.F |
393 |
STREAMICE_DRIVING_STRESS |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
394 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
397 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
409 |
STREAMICE_DRIVING_STRESS |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
411 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
412 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
417 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
418 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
420 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j,bi,bj)*avg_density(i,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
421 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)*avg_density(i,j-1,bi,bj))* |
|
./pkg/streamice/streamice_driving_stress.F |
422 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
423 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
425 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
427 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
428 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
430 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
432 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
435 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
437 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
444 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
445 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
447 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j-1,bi,bj) * H_streamice(i,j-1,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
450 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
453 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
460 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
461 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
462 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
465 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
467 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
468 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
470 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
472 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
474 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
480 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
481 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
484 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
492 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
494 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
497 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
499 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
506 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
507 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
509 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
512 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
515 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
523 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
524 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
525 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
528 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
530 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
531 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
533 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
535 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
537 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
543 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
544 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
547 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
558 |
STREAMICE_DRIVING_STRESS |
IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND. |
|
./pkg/streamice/streamice_driving_stress.F |
559 |
STREAMICE_DRIVING_STRESS |
& streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
564 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
565 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
567 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j,bi,bj)*avg_density(i-1,j,bi,bj)+ |
|
./pkg/streamice/streamice_driving_stress.F |
568 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)*avg_density(i-1,j-1,bi,bj))* |
|
./pkg/streamice/streamice_driving_stress.F |
569 |
STREAMICE_DRIVING_STRESS |
& (surf_el_streamice(i-1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress.F |
570 |
STREAMICE_DRIVING_STRESS |
& surf_el_streamice(i-1,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
572 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
574 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
575 |
STREAMICE_DRIVING_STRESS |
& (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress.F |
578 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
580 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
583 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
585 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
592 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
593 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
595 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j-1,bi,bj)*H_streamice(i-1,j-1,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress.F |
598 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
601 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
608 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j-1,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
609 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
610 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
613 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
615 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
616 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
618 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
620 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
622 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j-1,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
627 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress.F |
628 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
631 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j-1,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
640 |
STREAMICE_DRIVING_STRESS |
ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
642 |
STREAMICE_DRIVING_STRESS |
IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress.F |
645 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
647 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
654 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
655 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
657 |
STREAMICE_DRIVING_STRESS |
& (avg_density(i-1,j,bi,bj) * H_streamice(i-1,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_driving_stress.F |
65 |
STREAMICE_DRIVING_STRESS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress.F |
660 |
STREAMICE_DRIVING_STRESS |
& R_low_si(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
663 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
670 |
STREAMICE_DRIVING_STRESS |
if (H_streamice(i-1,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_driving_stress.F |
671 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
672 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
675 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
677 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
678 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
680 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_driving_stress.F |
682 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction))- |
|
./pkg/streamice/streamice_driving_stress.F |
684 |
STREAMICE_DRIVING_STRESS |
& (h_streamice(i-1,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
689 |
STREAMICE_DRIVING_STRESS |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress.F |
690 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dxG(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
693 |
STREAMICE_DRIVING_STRESS |
& H_streamice(i-1,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress.F |
69 |
STREAMICE_DRIVING_STRESS |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
70 |
STREAMICE_DRIVING_STRESS |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
73 |
STREAMICE_DRIVING_STRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_driving_stress.F |
74 |
STREAMICE_DRIVING_STRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress.F |
76 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density_firn |
|
./pkg/streamice/streamice_driving_stress.F |
78 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density * |
|
./pkg/streamice/streamice_driving_stress.F |
84 |
STREAMICE_DRIVING_STRESS |
avg_density(i,j,bi,bj) = streamice_density |
|
./pkg/streamice/streamice_driving_stress.F |
93 |
STREAMICE_DRIVING_STRESS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
101 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
102 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoConst |
|
./model/src/ini_linear_phisurf.F |
110 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
116 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
I tRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
I sRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
124 |
INI_LINEAR_PHISURF |
k = kSurfC(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
130 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
132 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
134 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
137 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
153 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
154 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
156 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
157 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*thetaConst |
|
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
160 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
170 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj)) |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
176 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
203 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
207 |
INI_LINEAR_PHISURF |
phi0surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
48 |
INI_LINEAR_PHISURF |
INTEGER bi, bj |
|
./model/src/ini_linear_phisurf.F |
56 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
60 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
61 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
83 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
87 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
88 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
95 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
100 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
101 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
103 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
104 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
105 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
106 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
108 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
112 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
117 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF(streamice_hmask(i,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
118 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
122 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i-1,j,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
123 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-2,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
125 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
126 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
127 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-2,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
130 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
136 |
STREAMICE_DRIVING_STRESS_FD |
IF(streamice_hmask(i,j-1,bi,bj).eq.1.and. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
137 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-2,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
139 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
140 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
141 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-2,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
144 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
159 |
STREAMICE_DRIVING_STRESS_FD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
168 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
170 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
172 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
174 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
175 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
176 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
178 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
180 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
181 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
182 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
186 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
188 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
190 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
191 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
192 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
194 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
196 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
197 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
198 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
202 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
204 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
206 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
207 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
208 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
210 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
212 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
213 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
214 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
218 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
220 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
222 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
223 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
224 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
226 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
228 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdx (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
229 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
230 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
235 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
237 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
246 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
247 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i+1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
248 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_ufacemask(i+1,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
250 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
253 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
255 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
258 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
261 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
267 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
270 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
274 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j,bi,bj) = taudx_si(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
277 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i+1,j+1,bi,bj) = taudx_si(i+1,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
283 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
284 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
285 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_ufacemask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
287 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
290 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
292 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
295 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
298 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
304 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
307 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
311 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
314 |
STREAMICE_DRIVING_STRESS_FD |
taudx_si(i,j+1,bi,bj) = taudx_si(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
321 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
323 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
325 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
326 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
327 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
329 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
331 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
332 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
333 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
337 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
339 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
341 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
342 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
343 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
345 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
347 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
348 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
349 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
353 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_vmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
355 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
357 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
358 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
359 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
361 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
363 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
364 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
365 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
369 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_umask(i+1,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
371 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
373 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
374 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
375 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
377 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_fd.F |
379 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice (i,j,bi,bj) * dsdy (i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
380 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
381 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
386 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
388 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
38 |
STREAMICE_DRIVING_STRESS_FD |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_fd.F |
397 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j+1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
398 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j+1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
399 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_vfacemask(i,j+1,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
401 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
404 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
406 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
409 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
412 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
418 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j+1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
421 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
425 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j+1,bi,bj) = taudy_si(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
428 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j+1,bi,bj) = taudy_si(i+1,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
434 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
435 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i,j-1,bi,bj).eq.2.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
436 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_vfacemask(i,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
438 |
STREAMICE_DRIVING_STRESS_FD |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
441 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
443 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_density * H_streamice(i,j,bi,bj)**2- |
|
./pkg/streamice/streamice_driving_stress_fd.F |
446 |
STREAMICE_DRIVING_STRESS_FD |
& R_low_si(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
449 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
455 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
458 |
STREAMICE_DRIVING_STRESS_FD |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
462 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i,j,bi,bj) = taudy_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
465 |
STREAMICE_DRIVING_STRESS_FD |
taudy_si(i+1,j,bi,bj) = taudy_si(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
478 |
STREAMICE_DRIVING_STRESS_FD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
482 |
STREAMICE_DRIVING_STRESS_FD |
taudx_SI(i,j,bi,bj) = -1.*taudx_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
483 |
STREAMICE_DRIVING_STRESS_FD |
taudy_SI(i,j,bi,bj) = -1.*taudy_SI(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
51 |
STREAMICE_DRIVING_STRESS_FD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
55 |
STREAMICE_DRIVING_STRESS_FD |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
56 |
STREAMICE_DRIVING_STRESS_FD |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
62 |
STREAMICE_DRIVING_STRESS_FD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
67 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
71 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i-1,j,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
73 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
74 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
75 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i-1,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
77 |
STREAMICE_DRIVING_STRESS_FD |
ELSEIF (streamice_hmask(i-1,j,bi,bj).eq.0.or. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
78 |
STREAMICE_DRIVING_STRESS_FD |
& streamice_hmask(i-1,j,bi,bj).eq.2) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
80 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i+1,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
81 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = recip_dxC(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
82 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
83 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
85 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
89 |
STREAMICE_DRIVING_STRESS_FD |
dsdx(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
94 |
STREAMICE_DRIVING_STRESS_FD |
IF (streamice_hmask(i,j-1,bi,bj) .eq. 1) THEN |
|
./pkg/streamice/streamice_driving_stress_fd.F |
96 |
STREAMICE_DRIVING_STRESS_FD |
dsdy(i,j,bi,bj) = recip_dyC(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
97 |
STREAMICE_DRIVING_STRESS_FD |
& (surf_el_streamice(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_fd.F |
98 |
STREAMICE_DRIVING_STRESS_FD |
& surf_el_streamice(i,j-1,bi,bj)) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
100 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
103 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
112 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
116 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
117 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
127 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
128 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
131 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
140 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
141 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
145 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
146 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
148 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i-1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
149 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
150 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
151 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
152 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
158 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
159 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
161 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i-1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
162 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
163 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
164 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
165 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
172 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
174 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
175 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
177 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
179 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
180 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
190 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
191 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
194 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
209 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
213 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
214 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dyC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
224 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
225 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
228 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
237 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
241 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
242 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dyC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
253 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
254 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
257 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
266 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and. |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
267 |
STREAMICE_DRIVING_STRESS_PPM |
& STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
271 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
272 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
274 |
STREAMICE_DRIVING_STRESS_PPM |
& (-2.*surf_el_streamice(i,j-1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
275 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
276 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
277 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
278 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
284 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
285 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
287 |
STREAMICE_DRIVING_STRESS_PPM |
& (-surf_el_streamice(i,j-1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
288 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
289 |
STREAMICE_DRIVING_STRESS_PPM |
& 2*surf_el_streamice(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
290 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
291 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
298 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
300 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j+1,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
301 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
303 |
STREAMICE_DRIVING_STRESS_PPM |
ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
305 |
STREAMICE_DRIVING_STRESS_PPM |
sy = (surf_el_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
306 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j-1,bi,bj))/dxC(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
316 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
317 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
320 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
345 |
STREAMICE_DRIVING_STRESS_PPM |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) then |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
348 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
349 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density_ocean_avg * R_low_si(i,j,bi,bj) ** 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
352 |
STREAMICE_DRIVING_STRESS_PPM |
& (streamice_density * H_streamice (i,j,bi,bj) ** 2 - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
353 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
358 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density * H_streamice(i,j,bi,bj) ** 2 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
361 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_ufacemask(i,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
362 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
363 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
370 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j,bi,bj) = taudx_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
371 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
372 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j+1,bi,bj) = taudx_SI(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
373 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
376 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_ufacemask(i+1,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
377 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
378 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
380 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+1,j,bi,bj) = taudx_SI(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
381 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) ! note negative sign is due to direction of normal vector |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
382 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+1,j+1,bi,bj) = taudx_SI(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
383 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
386 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_vfacemask(i,j,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
387 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
388 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
38 |
STREAMICE_DRIVING_STRESS_PPM |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
390 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j,bi,bj) = taudy_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
391 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
392 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+1,j,bi,bj) = taudy_SI(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
393 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
396 |
STREAMICE_DRIVING_STRESS_PPM |
IF ((STREAMICE_vfacemask(i,j+1,bi,bj) .eq. 2) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
397 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
398 |
STREAMICE_DRIVING_STRESS_PPM |
& .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
400 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j+1,bi,bj) = taudy_SI(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
401 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
402 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+1,j+1,bi,bj) = taudy_SI(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
403 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
51 |
STREAMICE_DRIVING_STRESS_PPM |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
55 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
56 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
62 |
STREAMICE_DRIVING_STRESS_PPM |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
74 |
STREAMICE_DRIVING_STRESS_PPM |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
76 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
84 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
88 |
STREAMICE_DRIVING_STRESS_PPM |
sx = (surf_el_streamice(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
89 |
STREAMICE_DRIVING_STRESS_PPM |
& surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
99 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_fields_load.F |
181 |
STREAMICE_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_fields_load.F |
186 |
STREAMICE_FIELDS_LOAD |
streamice_u_normal_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
187 |
STREAMICE_FIELDS_LOAD |
& streamice_u_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
188 |
STREAMICE_FIELDS_LOAD |
streamice_v_normal_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
189 |
STREAMICE_FIELDS_LOAD |
& streamice_v_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
190 |
STREAMICE_FIELDS_LOAD |
streamice_u_shear_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
191 |
STREAMICE_FIELDS_LOAD |
& streamice_u_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
192 |
STREAMICE_FIELDS_LOAD |
streamice_v_shear_stress0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
193 |
STREAMICE_FIELDS_LOAD |
& streamice_v_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
227 |
STREAMICE_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_fields_load.F |
232 |
STREAMICE_FIELDS_LOAD |
u_flux_bdry_SI_0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
233 |
STREAMICE_FIELDS_LOAD |
& u_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
234 |
STREAMICE_FIELDS_LOAD |
v_flux_bdry_SI_0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
235 |
STREAMICE_FIELDS_LOAD |
& v_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
259 |
STREAMICE_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_fields_load.F |
263 |
STREAMICE_FIELDS_LOAD |
bdot_streamice0(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
264 |
STREAMICE_FIELDS_LOAD |
& bdot_streamice1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
279 |
STREAMICE_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_fields_load.F |
284 |
STREAMICE_FIELDS_LOAD |
streamice_u_normal_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
285 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_u_normal_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
286 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_u_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
287 |
STREAMICE_FIELDS_LOAD |
streamice_v_normal_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
288 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_v_normal_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
289 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_v_normal_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
290 |
STREAMICE_FIELDS_LOAD |
streamice_u_shear_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
291 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_u_shear_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
292 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_u_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
293 |
STREAMICE_FIELDS_LOAD |
streamice_v_shear_stress(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
294 |
STREAMICE_FIELDS_LOAD |
& fac * streamice_v_shear_stress0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
295 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * streamice_v_shear_stress1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
298 |
STREAMICE_FIELDS_LOAD |
u_flux_bdry_pert(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
299 |
STREAMICE_FIELDS_LOAD |
& fac * u_flux_bdry_SI_0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
300 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * u_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
301 |
STREAMICE_FIELDS_LOAD |
v_flux_bdry_pert(i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
302 |
STREAMICE_FIELDS_LOAD |
& fac * v_flux_bdry_SI_0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
303 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * v_flux_bdry_SI_1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
306 |
STREAMICE_FIELDS_LOAD |
bdot_streamice (i,j,bi,bj) = |
|
./pkg/streamice/streamice_fields_load.F |
307 |
STREAMICE_FIELDS_LOAD |
& fac * bdot_streamice0(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
308 |
STREAMICE_FIELDS_LOAD |
& + (1-fac) * bdot_streamice1(i,j,bi,bj) |
|
./pkg/streamice/streamice_fields_load.F |
58 |
STREAMICE_FIELDS_LOAD |
INTEGER bi,bj,i,j |
|
./pkg/streamice/streamice_forced_buttress.F |
100 |
STREAMICE_FORCED_BUTTRESS |
& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_forced_buttress.F |
108 |
STREAMICE_FORCED_BUTTRESS |
if (H_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_forced_buttress.F |
112 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
116 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-firn_depth) * |
|
./pkg/streamice/streamice_forced_buttress.F |
118 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)) - |
|
./pkg/streamice/streamice_forced_buttress.F |
120 |
STREAMICE_FORCED_BUTTRESS |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
129 |
STREAMICE_FORCED_BUTTRESS |
& H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_forced_buttress.F |
139 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_ufacemask(i+1,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
142 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
146 |
STREAMICE_FORCED_BUTTRESS |
& taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
149 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+1,j+k,bi,bj) = taudx_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
150 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_normal_pert(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
151 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_normal_stress(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
152 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
154 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+1,j+k,bi,bj) = taudy_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
155 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_shear_pert(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
156 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_shear_stress(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
157 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
160 |
STREAMICE_FORCED_BUTTRESS |
print *, "GOT HERE 1", taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
169 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_ufacemask(i,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
172 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
175 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i,j+k,bi,bj) = taudx_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
176 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_normal_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
177 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_normal_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
178 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
180 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i,j+k,bi,bj) = taudy_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
181 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_shear_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
182 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_shear_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
183 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
189 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_vfacemask(i,j+1,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
193 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
195 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j+1,bi,bj) = taudy_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
196 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_normal_pert(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
197 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_normal_stress(i,j+1,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
198 |
STREAMICE_FORCED_BUTTRESS |
& .5 * dxG(i,j+1,bi,bj) * unconf_stress |
|
./pkg/streamice/streamice_forced_buttress.F |
200 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j+1,bi,bj) = taudx_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
201 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_shear_pert(i,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
202 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_shear_stress(i,j+1,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
203 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dxG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
209 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_vfacemask(i,j,bi,bj).eq.2.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
212 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
214 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j,bi,bj) = taudy_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
215 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_v_normal_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
216 |
STREAMICE_FORCED_BUTTRESS |
& streamice_v_normal_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
217 |
STREAMICE_FORCED_BUTTRESS |
& .5 * dxG(i,j,bi,bj) * unconf_stress |
|
./pkg/streamice/streamice_forced_buttress.F |
219 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j,bi,bj) = taudx_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
220 |
STREAMICE_FORCED_BUTTRESS |
& (streamice_u_shear_pert(i,j,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
221 |
STREAMICE_FORCED_BUTTRESS |
& streamice_u_shear_stress(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_forced_buttress.F |
222 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dxG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
38 |
STREAMICE_FORCED_BUTTRESS |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_forced_buttress.F |
56 |
STREAMICE_FORCED_BUTTRESS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_forced_buttress.F |
62 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_forced_buttress.F |
63 |
STREAMICE_FORCED_BUTTRESS |
h = h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
65 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density_firn |
|
./pkg/streamice/streamice_forced_buttress.F |
67 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density * |
|
./pkg/streamice/streamice_forced_buttress.F |
73 |
STREAMICE_FORCED_BUTTRESS |
avg_density(i,j,bi,bj) = streamice_density |
|
./pkg/streamice/streamice_forced_buttress.F |
83 |
STREAMICE_FORCED_BUTTRESS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_forced_buttress.F |
89 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
93 |
STREAMICE_FORCED_BUTTRESS |
IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
96 |
STREAMICE_FORCED_BUTTRESS |
& (avg_density(i,j,bi,bj) * H_streamice(i,j,bi,bj)**2 - |
|
./pkg/streamice/streamice_forced_buttress.F |
98 |
STREAMICE_FORCED_BUTTRESS |
& streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
32 |
STREAMICE_GET_FP_ERR_OAD |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
45 |
STREAMICE_GET_FP_ERR_OAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
47 |
STREAMICE_GET_FP_ERR_OAD |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
53 |
STREAMICE_GET_FP_ERR_OAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
59 |
STREAMICE_GET_FP_ERR_OAD |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
61 |
STREAMICE_GET_FP_ERR_OAD |
& ABS (U_streamice(i,j,bi,bj)-u_new_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
63 |
STREAMICE_GET_FP_ERR_OAD |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
65 |
STREAMICE_GET_FP_ERR_OAD |
& ABS (V_streamice(i,j,bi,bj)-v_new_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
100 |
STREAMICE_GET_VEL_FP_ERR |
err_sum_tile(bi,bj) = err_sum_tile(bi,bj) + |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
102 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(v_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
103 |
STREAMICE_GET_VEL_FP_ERR |
& v_new_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
105 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(v_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
106 |
STREAMICE_GET_VEL_FP_ERR |
& v_old_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
32 |
STREAMICE_GET_VEL_FP_ERR |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
45 |
STREAMICE_GET_VEL_FP_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
47 |
STREAMICE_GET_VEL_FP_ERR |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
53 |
STREAMICE_GET_VEL_FP_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
59 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
62 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (U_streamice(i,j,bi,bj)-u_new_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
64 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (U_streamice(i,j,bi,bj)-u_old_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
67 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
70 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (V_streamice(i,j,bi,bj)-v_new_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
72 |
STREAMICE_GET_VEL_FP_ERR |
& ABS (V_streamice(i,j,bi,bj)-v_old_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
85 |
STREAMICE_GET_VEL_FP_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
89 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
90 |
STREAMICE_GET_VEL_FP_ERR |
err_sum_tile(bi,bj) = err_sum_tile(bi,bj) + |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
92 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(U_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
93 |
STREAMICE_GET_VEL_FP_ERR |
& u_new_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
95 |
STREAMICE_GET_VEL_FP_ERR |
& (ABS(U_streamice(i,j,bi,bj)- |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
96 |
STREAMICE_GET_VEL_FP_ERR |
& u_old_SI(i,j,bi,bj)))**streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
99 |
STREAMICE_GET_VEL_FP_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
101 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
103 |
STREAMICE_GET_VEL_RESID_ERR |
& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
104 |
STREAMICE_GET_VEL_RESID_ERR |
& taudy_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
121 |
STREAMICE_GET_VEL_RESID_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
126 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
127 |
STREAMICE_GET_VEL_RESID_ERR |
err_sum_tile(bi,bj) = err_sum_tile(bi,bj) + |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
128 |
STREAMICE_GET_VEL_RESID_ERR |
& (ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
129 |
STREAMICE_GET_VEL_RESID_ERR |
& taudx_SI(i,j,bi,bj))) ** streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
131 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
132 |
STREAMICE_GET_VEL_RESID_ERR |
err_sum_tile(bi,bj) = err_sum_tile(bi,bj) + |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
133 |
STREAMICE_GET_VEL_RESID_ERR |
& (ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
134 |
STREAMICE_GET_VEL_RESID_ERR |
& taudy_SI(i,j,bi,bj))) ** streamice_err_norm |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
31 |
STREAMICE_GET_VEL_RESID_ERR |
INTEGER conv_flag, i, j, bi, bj |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
48 |
STREAMICE_GET_VEL_RESID_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
50 |
STREAMICE_GET_VEL_RESID_ERR |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
54 |
STREAMICE_GET_VEL_RESID_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
58 |
STREAMICE_GET_VEL_RESID_ERR |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
59 |
STREAMICE_GET_VEL_RESID_ERR |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
60 |
STREAMICE_GET_VEL_RESID_ERR |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
61 |
STREAMICE_GET_VEL_RESID_ERR |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
90 |
STREAMICE_GET_VEL_RESID_ERR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
96 |
STREAMICE_GET_VEL_RESID_ERR |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
98 |
STREAMICE_GET_VEL_RESID_ERR |
& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
99 |
STREAMICE_GET_VEL_RESID_ERR |
& taudx_SI(i,j,bi,bj)) |
|
./model/src/ini_local_grid.F |
119 |
INI_LOCAL_GRID |
tN = W2_myTileList(bi,bj) |
|
./model/src/ini_local_grid.F |
124 |
INI_LOCAL_GRID |
jG0 = myYGlobalLo - 1 + (bj-1)*sNy |
|
./model/src/ini_local_grid.F |
17 |
INI_LOCAL_GRID |
I bi, bj, myThid ) |
|
./model/src/ini_local_grid.F |
64 |
INI_LOCAL_GRID |
INTEGER bi, bj |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
40 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
INTEGER conv_flag, i, j, bi, bj, myIter |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
52 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
54 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
58 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
62 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
63 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
64 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
u_dummy (i,j,bi,bj) = u_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
65 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
v_dummy (i,j,bi,bj) = v_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
66 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
67 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
85 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
91 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
93 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
94 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& taudx_SI(i,j,bi,bj)) |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
96 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
98 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) - |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
99 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
& taudy_SI(i,j,bi,bj))) |
|
./pkg/streamice/streamice_init_fixed.F |
120 |
STREAMICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
124 |
STREAMICE_INIT_FIXED |
STREAMICE_cost_mask (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
258 |
STREAMICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
262 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
264 |
STREAMICE_INIT_FIXED |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
274 |
STREAMICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
278 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_fixed.F |
279 |
STREAMICE_INIT_FIXED |
& u_bdry_values_SI_base (i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
280 |
STREAMICE_INIT_FIXED |
v_bdry_values_SI (i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_fixed.F |
281 |
STREAMICE_INIT_FIXED |
& v_bdry_values_SI_base (i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
295 |
STREAMICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
302 |
STREAMICE_INIT_FIXED |
k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_fixed.F |
303 |
STREAMICE_INIT_FIXED |
& (dxG(i+1,j,bi,bj)-dxG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
304 |
STREAMICE_INIT_FIXED |
k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_fixed.F |
305 |
STREAMICE_INIT_FIXED |
& (dyG(i,j+1,bi,bj)-dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
308 |
STREAMICE_INIT_FIXED |
streamice_basal_geom (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
316 |
STREAMICE_INIT_FIXED |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_fixed.F |
317 |
STREAMICE_INIT_FIXED |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
318 |
STREAMICE_INIT_FIXED |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
320 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
321 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
327 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
331 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
335 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
336 |
STREAMICE_INIT_FIXED |
u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_WEST |
|
./pkg/streamice/streamice_init_fixed.F |
340 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
341 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
345 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
353 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
357 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
361 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
362 |
STREAMICE_INIT_FIXED |
u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_EAST |
|
./pkg/streamice/streamice_init_fixed.F |
366 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
367 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
36 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_fixed.F |
371 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
379 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
383 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
387 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
388 |
STREAMICE_INIT_FIXED |
v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_SOUTH |
|
./pkg/streamice/streamice_init_fixed.F |
392 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
393 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
397 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
405 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
409 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
413 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
414 |
STREAMICE_INIT_FIXED |
v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_NORTH |
|
./pkg/streamice/streamice_init_fixed.F |
418 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
419 |
STREAMICE_INIT_FIXED |
v_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
423 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
430 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
431 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
432 |
STREAMICE_INIT_FIXED |
& temp_hmask(i-1,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
435 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_ufacemask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
437 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
439 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
441 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
443 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
446 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i-1,j,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
447 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
448 |
STREAMICE_INIT_FIXED |
ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
449 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
451 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
456 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
457 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
460 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_ufacemask(i+1,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
462 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
464 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
466 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
468 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
471 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i+1,j,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
472 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
474 |
STREAMICE_INIT_FIXED |
STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
479 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
480 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
481 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j-1,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
484 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_vfacemask(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
486 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
488 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
490 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
492 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
495 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i,j-1,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
496 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
497 |
STREAMICE_INIT_FIXED |
ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
498 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
500 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
505 |
STREAMICE_INIT_FIXED |
IF (temp_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_init_fixed.F |
506 |
STREAMICE_INIT_FIXED |
& temp_hmask(i,j,bi,bj).eq.0.0) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
509 |
STREAMICE_INIT_FIXED |
maskFlag=INT(temp_vfacemask(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_init_fixed.F |
511 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_fixed.F |
513 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_init_fixed.F |
515 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_init_fixed.F |
517 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
520 |
STREAMICE_INIT_FIXED |
& (temp_hmask(i,j+1,bi,bj).eq.-1.0))) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
521 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_fixed.F |
523 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_fixed.F |
80 |
STREAMICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
84 |
STREAMICE_INIT_FIXED |
streamice_calve_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_phi.F |
31 |
STREAMICE_INIT_PHI |
INTEGER bi, bj, i, j, xnode, ynode, xq, yq, m, n, p, kx, ky |
|
./pkg/streamice/streamice_init_phi.F |
54 |
STREAMICE_INIT_PHI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_phi.F |
60 |
STREAMICE_INIT_PHI |
gradx(xq) = Xquad(3-xq) * recip_dxG (i,j,bi,bj) + |
|
./pkg/streamice/streamice_init_phi.F |
61 |
STREAMICE_INIT_PHI |
& Xquad(xq) * recip_dxG (i+1,j,bi,bj) |
|
./pkg/streamice/streamice_init_phi.F |
62 |
STREAMICE_INIT_PHI |
grady(xq) = Xquad(3-xq) * recip_dyG (i,j,bi,bj) + |
|
./pkg/streamice/streamice_init_phi.F |
63 |
STREAMICE_INIT_PHI |
& Xquad(xq) * recip_dyG (i,j+1,bi,bj) |
|
./pkg/streamice/streamice_init_phi.F |
81 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,1) = |
|
./pkg/streamice/streamice_init_phi.F |
83 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,2) = |
|
./pkg/streamice/streamice_init_phi.F |
88 |
STREAMICE_INIT_PHI |
grid_jacq_streamice (i,j,bi,bj,n) = |
|
./pkg/streamice/streamice_init_phi.F |
89 |
STREAMICE_INIT_PHI |
& (Xquad(3-xq)*dyG(i,j,bi,bj) + Xquad(xq)*dyG(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_init_phi.F |
90 |
STREAMICE_INIT_PHI |
& (Xquad(3-yq)*dxG(i,j,bi,bj) + Xquad(yq)*dxG(i,j+1,bi,bj)) |
|
./pkg/streamice/streamice_init_varia.F |
100 |
STREAMICE_INIT_VARIA |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
101 |
STREAMICE_INIT_VARIA |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
102 |
STREAMICE_INIT_VARIA |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
103 |
STREAMICE_INIT_VARIA |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
107 |
STREAMICE_INIT_VARIA |
R_low_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
112 |
STREAMICE_INIT_VARIA |
visc_streamice_full(i,j,k,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
115 |
STREAMICE_INIT_VARIA |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
116 |
STREAMICE_INIT_VARIA |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
122 |
STREAMICE_INIT_VARIA |
cost_func1_streamice (bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
123 |
STREAMICE_INIT_VARIA |
cost_vel_streamice (bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
124 |
STREAMICE_INIT_VARIA |
cost_surf_streamice (bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
132 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
137 |
STREAMICE_INIT_VARIA |
streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
138 |
STREAMICE_INIT_VARIA |
streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
139 |
STREAMICE_INIT_VARIA |
streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
140 |
STREAMICE_INIT_VARIA |
streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0 |
|
./pkg/streamice/streamice_init_varia.F |
151 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
155 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_init_varia.F |
156 |
STREAMICE_INIT_VARIA |
STREAMICE_umask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
157 |
STREAMICE_INIT_VARIA |
STREAMICE_vmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
158 |
STREAMICE_INIT_VARIA |
STREAMICE_ufacemask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
159 |
STREAMICE_INIT_VARIA |
STREAMICE_vfacemask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
160 |
STREAMICE_INIT_VARIA |
STREAMICE_float_cond(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
197 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
202 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_varia.F |
208 |
STREAMICE_INIT_VARIA |
IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
209 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
210 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
213 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.slope_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
214 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = shelf_min_draft |
|
./pkg/streamice/streamice_init_varia.F |
216 |
STREAMICE_INIT_VARIA |
H_streamice (i,j,bi,bj) = (shelf_min_draft + |
|
./pkg/streamice/streamice_init_varia.F |
218 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./pkg/streamice/streamice_init_varia.F |
221 |
STREAMICE_INIT_VARIA |
IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN |
|
./pkg/streamice/streamice_init_varia.F |
222 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_varia.F |
223 |
STREAMICE_INIT_VARIA |
& (shelf_edge_pos-xG(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_init_varia.F |
224 |
STREAMICE_INIT_VARIA |
& (xG(i+1,j,bi,bj)-xG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_varia.F |
225 |
STREAMICE_INIT_VARIA |
IF (area_shelf_streamice(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
226 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_init_varia.F |
228 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
229 |
STREAMICE_INIT_VARIA |
H_streamice(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
232 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
233 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
251 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
256 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
|
./pkg/streamice/streamice_init_varia.F |
259 |
STREAMICE_INIT_VARIA |
IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
260 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
261 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_init_varia.F |
263 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
264 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
267 |
STREAMICE_INIT_VARIA |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
348 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
354 |
STREAMICE_INIT_VARIA |
B_glen(i,j,r,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
357 |
STREAMICE_INIT_VARIA |
B_glen(i,j,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
39 |
STREAMICE_INIT_VARIA |
INTEGER i, j, k, bi, bj, Gi, Gj, r |
|
./pkg/streamice/streamice_init_varia.F |
411 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
415 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = C_basal_fric_const |
|
./pkg/streamice/streamice_init_varia.F |
425 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
429 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
430 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
431 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
443 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
447 |
STREAMICE_INIT_VARIA |
x = xC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
448 |
STREAMICE_INIT_VARIA |
y = yC(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
449 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
478 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
482 |
STREAMICE_INIT_VARIA |
trac2d(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
49 |
STREAMICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_init_varia.F |
53 |
STREAMICE_INIT_VARIA |
H_streamIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
54 |
STREAMICE_INIT_VARIA |
U_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
55 |
STREAMICE_INIT_VARIA |
V_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
56 |
STREAMICE_INIT_VARIA |
visc_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
57 |
STREAMICE_INIT_VARIA |
tau_beta_eff_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
58 |
STREAMICE_INIT_VARIA |
float_frac_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
59 |
STREAMICE_INIT_VARIA |
base_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
60 |
STREAMICE_INIT_VARIA |
surf_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
61 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
62 |
STREAMICE_INIT_VARIA |
mass_ice_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
63 |
STREAMICE_INIT_VARIA |
BDOT_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
65 |
STREAMICE_INIT_VARIA |
BDOT_streamice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
67 |
STREAMICE_INIT_VARIA |
ADOT_streamice(i,j,bi,bj) = streamice_adot_uniform |
|
./pkg/streamice/streamice_init_varia.F |
68 |
STREAMICE_INIT_VARIA |
C_basal_friction(i,j,bi,bj) = C_basal_fric_const |
|
./pkg/streamice/streamice_init_varia.F |
70 |
STREAMICE_INIT_VARIA |
B_glen(i,j,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
73 |
STREAMICE_INIT_VARIA |
B_glen(i,j,k,bi,bj) = B_glen_isothermal |
|
./pkg/streamice/streamice_init_varia.F |
76 |
STREAMICE_INIT_VARIA |
H_streamice_prev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
78 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
79 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
80 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
81 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
82 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
83 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
84 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
85 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
87 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
88 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
89 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
90 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
95 |
STREAMICE_INIT_VARIA |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
115 |
STREAMICE_INVERT_SURF_FORTHICK |
RESID = RESID - S(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
126 |
STREAMICE_INVERT_SURF_FORTHICK |
H(i,j,bi,bj) = Htmp |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
45 |
STREAMICE_INVERT_SURF_FORTHICK |
INTEGER i, j, bi, bj, ITER |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
53 |
STREAMICE_INVERT_SURF_FORTHICK |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
57 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
58 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
61 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
62 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
64 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
73 |
STREAMICE_INVERT_SURF_FORTHICK |
& ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
75 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
78 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
79 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
81 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_petsc_numerate.F |
122 |
STREAMICE_PETSC_NUMERATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_petsc_numerate.F |
126 |
STREAMICE_PETSC_NUMERATE |
IF (streamice_petsc_dofs_u(i,j,bi,bj).ge.0 ) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
127 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u(i,j,bi,bj) = |
|
./pkg/streamice/streamice_petsc_numerate.F |
128 |
STREAMICE_PETSC_NUMERATE |
& streamice_petsc_dofs_u(i,j,bi,bj) + |
|
./pkg/streamice/streamice_petsc_numerate.F |
131 |
STREAMICE_PETSC_NUMERATE |
IF (streamice_petsc_dofs_v(i,j,bi,bj).ge.0 ) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
132 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v(i,j,bi,bj) = |
|
./pkg/streamice/streamice_petsc_numerate.F |
133 |
STREAMICE_PETSC_NUMERATE |
& streamice_petsc_dofs_v(i,j,bi,bj) + |
|
./pkg/streamice/streamice_petsc_numerate.F |
35 |
STREAMICE_PETSC_NUMERATE |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_petsc_numerate.F |
46 |
STREAMICE_PETSC_NUMERATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_petsc_numerate.F |
50 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = -2.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
51 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = -2.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
58 |
STREAMICE_PETSC_NUMERATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_petsc_numerate.F |
74 |
STREAMICE_PETSC_NUMERATE |
if (STREAMICE_umask (i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
76 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount |
|
./pkg/streamice/streamice_petsc_numerate.F |
78 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_u (i,j,bi,bj) = -1.0 |
|
./pkg/streamice/streamice_petsc_numerate.F |
81 |
STREAMICE_PETSC_NUMERATE |
if (STREAMICE_vmask (i,j,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_petsc_numerate.F |
83 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount |
|
./pkg/streamice/streamice_petsc_numerate.F |
85 |
STREAMICE_PETSC_NUMERATE |
streamice_petsc_dofs_v (i,j,bi,bj) = -1.0 |
|
./model/src/ini_masks_etc.F |
104 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
120 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
122 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
125 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
165 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
167 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
170 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/ini_masks_etc.F |
190 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpFld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
199 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
205 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
206 |
INI_MASKS_ETC |
maskInC(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
207 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
226 |
INI_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_masks_etc.F |
233 |
INI_MASKS_ETC |
tmpVar1(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
237 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
258 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
260 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
261 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i-1,j,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
265 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
269 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
270 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i,j-1,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
300 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
302 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
320 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
324 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
339 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
341 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
342 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
343 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
344 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
349 |
INI_MASKS_ETC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
350 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
352 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
353 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
354 |
INI_MASKS_ETC |
& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
372 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
373 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
382 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
383 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rLowS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
391 |
INI_MASKS_ETC |
tmpVar1(i,j) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
392 |
INI_MASKS_ETC |
tmpVar1(i,j) = ( tmpVar1(i,j) -rSurfW(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
397 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rSurfW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
398 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rLowW (i,j,bi,bj) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
404 |
INI_MASKS_ETC |
tmpVar2(i,j) = rLowS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
405 |
INI_MASKS_ETC |
tmpVar2(i,j) = ( tmpVar2(i,j) -rSurfS(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
410 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rSurfS(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
411 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = rLowS (i,j,bi,bj) - tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
433 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_masks_etc.F |
437 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
438 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
440 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
441 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.zeroRS) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
443 |
INI_MASKS_ETC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
444 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
445 |
INI_MASKS_ETC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
446 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
44 |
INI_MASKS_ETC |
INTEGER bi, bj |
|
./model/src/ini_masks_etc.F |
475 |
INI_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_masks_etc.F |
480 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
481 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
482 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
484 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
485 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
487 |
INI_MASKS_ETC |
IF ( hFacW(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
488 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
489 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
491 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
492 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
494 |
INI_MASKS_ETC |
IF ( hFacS(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
495 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
496 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
498 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
499 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
511 |
INI_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
512 |
INI_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
513 |
INI_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
69 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
79 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
83 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
84 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
85 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
86 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
87 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
94 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
95 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
96 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
97 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) ) |
|
./pkg/streamice/streamice_taub.F |
37 |
STREAMICE_TAUB |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_taub.F |
41 |
STREAMICE_TAUB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_taub.F |
47 |
STREAMICE_TAUB |
taubx_new_si (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
48 |
STREAMICE_TAUB |
tauby_new_si (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
50 |
STREAMICE_TAUB |
streamice_taubx (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
51 |
STREAMICE_TAUB |
streamice_tauby (i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_taub.F |
54 |
STREAMICE_TAUB |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_taub.F |
67 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
68 |
STREAMICE_TAUB |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
70 |
STREAMICE_TAUB |
& U_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
72 |
STREAMICE_TAUB |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
75 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
76 |
STREAMICE_TAUB |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
78 |
STREAMICE_TAUB |
& V_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
80 |
STREAMICE_TAUB |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
86 |
STREAMICE_TAUB |
taubx_new_si (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
87 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * umid |
|
./pkg/streamice/streamice_taub.F |
88 |
STREAMICE_TAUB |
tauby_new_si (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
89 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * vmid |
|
./pkg/streamice/streamice_taub.F |
91 |
STREAMICE_TAUB |
streamice_taubx (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
92 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * umid |
|
./pkg/streamice/streamice_taub.F |
93 |
STREAMICE_TAUB |
streamice_tauby (i,j,bi,bj) = |
|
./pkg/streamice/streamice_taub.F |
94 |
STREAMICE_TAUB |
& tau_beta_eff_streamice(i,j,bi,bj) * vmid |
|
./pkg/streamice/streamice_timestep.F |
151 |
STREAMICE_TIMESTEP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_timestep.F |
153 |
STREAMICE_TIMESTEP |
sum_square_vel_tile (bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
156 |
STREAMICE_TIMESTEP |
if (streamice_hmask(i,j,bi,bj).eq.1) then |
|
./pkg/streamice/streamice_timestep.F |
157 |
STREAMICE_TIMESTEP |
sum_square_vel_tile (bi,bj) = |
|
./pkg/streamice/streamice_timestep.F |
158 |
STREAMICE_TIMESTEP |
& sum_square_vel_tile (bi,bj) + |
|
./pkg/streamice/streamice_timestep.F |
159 |
STREAMICE_TIMESTEP |
& U_streamice(i,j,bi,bj)**2 + |
|
./pkg/streamice/streamice_timestep.F |
160 |
STREAMICE_TIMESTEP |
& V_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_timestep.F |
45 |
STREAMICE_TIMESTEP |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_timestep.F |
68 |
STREAMICE_TIMESTEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_timestep.F |
72 |
STREAMICE_TIMESTEP |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
73 |
STREAMICE_TIMESTEP |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
74 |
STREAMICE_TIMESTEP |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
75 |
STREAMICE_TIMESTEP |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
76 |
STREAMICE_TIMESTEP |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
77 |
STREAMICE_TIMESTEP |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
80 |
STREAMICE_TIMESTEP |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
81 |
STREAMICE_TIMESTEP |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
101 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
106 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rlo = R_low_si (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
108 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rlo = R_low (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
114 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
116 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
119 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (h_streamice(i,j,bi,bj)-streamice_firn_correction) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
124 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& H_streamice(i,j,bi,bj) * rhoi/rhow |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
132 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
133 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = Rlo+OD |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
136 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (h_streamice(i,j,bi,bj).lt.firn_depth) then |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
137 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
138 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-streamice_density_firn/rhow)*h_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
140 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
141 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*h_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
146 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
147 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& (1-rhoi/rhow)*H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
155 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
156 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = Rlo |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
157 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = Rlo |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
158 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& + H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
30 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
INTEGER bi, bj, i, j |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
56 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
60 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
61 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
64 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or. |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
65 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
67 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
h = H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
70 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
hf = -1.0 * i_r * R_low_si (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
72 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
hf = -1.0 * i_r * R_low (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
75 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
surf_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
83 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
base_el_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
84 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& surf_el_streamice(i,j,bi,bj) - h |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
86 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
float_frac_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_vel_phi.F |
45 |
STREAMICE_VEL_PHI |
INTEGER i,j,bi,bj |
|
./pkg/streamice/streamice_vel_phi.F |
72 |
STREAMICE_VEL_PHI |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_vel_phi.F |
76 |
STREAMICE_VEL_PHI |
u_new_SI(i,j,bi,bj) = U_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phi.F |
77 |
STREAMICE_VEL_PHI |
v_new_SI(i,j,bi,bj) = V_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
139 |
STREAMICE_VEL_PHISTAGE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_vel_phistage.F |
143 |
STREAMICE_VEL_PHISTAGE |
U_streamice (i,j,bi,bj)=u_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
144 |
STREAMICE_VEL_PHISTAGE |
V_streamice (i,j,bi,bj)=v_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
146 |
STREAMICE_VEL_PHISTAGE |
streamice_taubx(i,j,bi,bj)=taubx_new_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
147 |
STREAMICE_VEL_PHISTAGE |
streamice_tauby(i,j,bi,bj)=tauby_new_si(i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
149 |
STREAMICE_VEL_PHISTAGE |
visc_streamice_full(i,j,m,bi,bj)= visc_full_new_si(i,j,m, |
|
./pkg/streamice/streamice_vel_phistage.F |
150 |
STREAMICE_VEL_PHISTAGE |
+bi,bj) |
|
./pkg/streamice/streamice_vel_phistage.F |
79 |
STREAMICE_VEL_PHISTAGE |
INTEGER i, j, bi, bj, cg_iters, m |
|
./pkg/streamice/streamice_vel_solve.F |
291 |
STREAMICE_VEL_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_vel_solve.F |
295 |
STREAMICE_VEL_SOLVE |
u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
296 |
STREAMICE_VEL_SOLVE |
v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
52 |
STREAMICE_VEL_SOLVE |
INTEGER i, j, k, l, iter, cg_iters, bi, bj |
|
./pkg/streamice/streamice_vel_solve.F |
94 |
STREAMICE_VEL_SOLVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_vel_solve.F |
98 |
STREAMICE_VEL_SOLVE |
u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve.F |
99 |
STREAMICE_VEL_SOLVE |
v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
44 |
STREAMICE_VEL_SOLVE_OPENAD |
INTEGER i, j, k, l, bi, bj, loopiter |
|
./pkg/streamice/streamice_vel_solve_openad.F |
89 |
STREAMICE_VEL_SOLVE_OPENAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
93 |
STREAMICE_VEL_SOLVE_OPENAD |
U_streamice (i,j,bi,bj)=U_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
94 |
STREAMICE_VEL_SOLVE_OPENAD |
& + 0*u_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
95 |
STREAMICE_VEL_SOLVE_OPENAD |
V_streamice (i,j,bi,bj)=V_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_vel_solve_openad.F |
96 |
STREAMICE_VEL_SOLVE_OPENAD |
& + 0*v_new_SI (i,j,bi,bj) |
|
./pkg/streamice/streamice_velmask_upd.F |
100 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
103 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
107 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
108 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
110 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
113 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
114 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
116 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
119 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
125 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
128 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
129 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
131 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
132 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
135 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
138 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
142 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
143 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
145 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
148 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
149 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
151 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
154 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
160 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
161 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
163 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i+1,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
168 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
169 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
171 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i,j,bi,bj) = 2 |
|
./pkg/streamice/streamice_velmask_upd.F |
176 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
177 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
179 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j+1,bi,bj) = 2 |
|
./pkg/streamice/streamice_velmask_upd.F |
184 |
STREAMICE_VELMASK_UPD |
IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR. |
|
./pkg/streamice/streamice_velmask_upd.F |
185 |
STREAMICE_VELMASK_UPD |
& (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0)) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
187 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j,bi,bj) = 2.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
200 |
STREAMICE_VELMASK_UPD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_velmask_upd.F |
204 |
STREAMICE_VELMASK_UPD |
IF(streamice_umask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
205 |
STREAMICE_VELMASK_UPD |
streamice_umask(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
207 |
STREAMICE_VELMASK_UPD |
IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
208 |
STREAMICE_VELMASK_UPD |
streamice_vmask(i,j,bi,bj)=0.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
43 |
STREAMICE_VELMASK_UPD |
INTEGER i, j, bi, bj, ki, kj |
|
./pkg/streamice/streamice_velmask_upd.F |
59 |
STREAMICE_VELMASK_UPD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_velmask_upd.F |
63 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
64 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
65 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
66 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
72 |
STREAMICE_VELMASK_UPD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_velmask_upd.F |
76 |
STREAMICE_VELMASK_UPD |
IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN |
|
./pkg/streamice/streamice_velmask_upd.F |
80 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
81 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
83 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
84 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
90 |
STREAMICE_VELMASK_UPD |
maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj)) |
|
./pkg/streamice/streamice_velmask_upd.F |
93 |
STREAMICE_VELMASK_UPD |
if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
94 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0 |
|
./pkg/streamice/streamice_velmask_upd.F |
96 |
STREAMICE_VELMASK_UPD |
if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then |
|
./pkg/streamice/streamice_velmask_upd.F |
97 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0 |
|
./model/src/ini_mixing.F |
48 |
INI_MIXING |
INTEGER bi, bj |
|
./model/src/ini_mixing.F |
52 |
INI_MIXING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_mixing.F |
58 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
62 |
INI_MIXING |
kapGM(i,j,k,bi,bj) = GM_background_K* |
|
./model/src/ini_mixing.F |
63 |
INI_MIXING |
& GM_bolFac2d(i,j,bi,bj)*GM_bolFac1d(k) |
|
./model/src/ini_mixing.F |
66 |
INI_MIXING |
kapRedi(i,j,k,bi,bj) = GM_isopycK* |
|
./model/src/ini_mixing.F |
67 |
INI_MIXING |
& GM_isoFac2d(i,j,bi,bj)*GM_isoFac1d(k) |
|
./model/src/ini_mixing.F |
77 |
INI_MIXING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_mixing.F |
81 |
INI_MIXING |
BL79LatArray(i,j,bi,bj) = 0.0 _d 0 |
|
./model/src/ini_mixing.F |
82 |
INI_MIXING |
IF ( ABS(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
83 |
INI_MIXING |
& BL79LatArray(i,j,bi,bj) = |
|
./model/src/ini_mixing.F |
84 |
INI_MIXING |
& ( 1 + COS(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./pkg/streamice/streamice_visc_beta.F |
100 |
STREAMICE_VISC_BETA |
& second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
103 |
STREAMICE_VISC_BETA |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta.F |
104 |
STREAMICE_VISC_BETA |
& C_basal_friction(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta.F |
106 |
STREAMICE_VISC_BETA |
& float_frac_streamice (i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
36 |
STREAMICE_VISC_BETA |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_visc_beta.F |
40 |
STREAMICE_VISC_BETA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_visc_beta.F |
44 |
STREAMICE_VISC_BETA |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_visc_beta.F |
52 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
53 |
STREAMICE_VISC_BETA |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
54 |
STREAMICE_VISC_BETA |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
56 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
57 |
STREAMICE_VISC_BETA |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
58 |
STREAMICE_VISC_BETA |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
62 |
STREAMICE_VISC_BETA |
ux = (U_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
63 |
STREAMICE_VISC_BETA |
& U_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
64 |
STREAMICE_VISC_BETA |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
65 |
STREAMICE_VISC_BETA |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
66 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
67 |
STREAMICE_VISC_BETA |
vx = (V_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
68 |
STREAMICE_VISC_BETA |
& V_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
69 |
STREAMICE_VISC_BETA |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
70 |
STREAMICE_VISC_BETA |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
71 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
72 |
STREAMICE_VISC_BETA |
uy = (U_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
73 |
STREAMICE_VISC_BETA |
& U_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
74 |
STREAMICE_VISC_BETA |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
75 |
STREAMICE_VISC_BETA |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
76 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
77 |
STREAMICE_VISC_BETA |
vy = (V_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
78 |
STREAMICE_VISC_BETA |
& V_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta.F |
79 |
STREAMICE_VISC_BETA |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta.F |
80 |
STREAMICE_VISC_BETA |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta.F |
81 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
83 |
STREAMICE_VISC_BETA |
exx = ux + k1AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta.F |
84 |
STREAMICE_VISC_BETA |
eyy = vy + k2AtC_str(i,j,bi,bj)*umid |
|
./pkg/streamice/streamice_visc_beta.F |
86 |
STREAMICE_VISC_BETA |
& k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta.F |
94 |
STREAMICE_VISC_BETA |
visc_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta.F |
96 |
STREAMICE_VISC_BETA |
& .5 * (B_glen(i,j,1,bi,bj))**2 * |
|
./pkg/streamice/streamice_visc_beta.F |
98 |
STREAMICE_VISC_BETA |
& .5 * (B_glen(i,j,bi,bj))**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
100 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
101 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
103 |
STREAMICE_VISC_BETA_HYBRID |
exx = ux + k1AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
104 |
STREAMICE_VISC_BETA_HYBRID |
eyy = vy + k2AtC_str(i,j,bi,bj)*umid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
106 |
STREAMICE_VISC_BETA_HYBRID |
& k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
108 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice (i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
109 |
STREAMICE_VISC_BETA_HYBRID |
streamice_omega(i,j,bi,bj) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
119 |
STREAMICE_VISC_BETA_HYBRID |
act2 = bj - myByLo(myThid) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
137 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_uz (m) = streamice_taubx(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
138 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
141 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_vz (m) = streamice_tauby(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
142 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
152 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
154 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
156 |
STREAMICE_VISC_BETA_HYBRID |
& .5 * B_glen(i,j,m,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
160 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
162 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
164 |
STREAMICE_VISC_BETA_HYBRID |
& .5 * B_glen(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
168 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
169 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) * streamice_delsigma (m) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
171 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
173 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
179 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
181 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
186 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
190 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
199 |
STREAMICE_VISC_BETA_HYBRID |
streamice_omega(i,j,bi,bj) = streamice_omega(i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
201 |
STREAMICE_VISC_BETA_HYBRID |
& * H_streamice(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
211 |
STREAMICE_VISC_BETA_HYBRID |
streamice_u_surf(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
214 |
STREAMICE_VISC_BETA_HYBRID |
streamice_v_surf(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
217 |
STREAMICE_VISC_BETA_HYBRID |
ub = umid - streamice_taubx(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
218 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
220 |
STREAMICE_VISC_BETA_HYBRID |
streamice_u_bed (i,j,bi,bj) = ub |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
222 |
STREAMICE_VISC_BETA_HYBRID |
vb = vmid - streamice_tauby(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
223 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
225 |
STREAMICE_VISC_BETA_HYBRID |
streamice_v_bed (i,j,bi,bj) = vb |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
229 |
STREAMICE_VISC_BETA_HYBRID |
fb = C_basal_friction(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
231 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_basal_geom(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
232 |
STREAMICE_VISC_BETA_HYBRID |
& float_frac_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
234 |
STREAMICE_VISC_BETA_HYBRID |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
236 |
STREAMICE_VISC_BETA_HYBRID |
& (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
239 |
STREAMICE_VISC_BETA_HYBRID |
tau_beta_eff_streamice(i,j,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
240 |
STREAMICE_VISC_BETA_HYBRID |
& tau_beta_eff_streamice(i,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
241 |
STREAMICE_VISC_BETA_HYBRID |
& buttr_param*B_glen(i,j,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
243 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
42 |
STREAMICE_VISC_BETA_HYBRID |
INTEGER i, j, bi, bj, k, l, m |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
60 |
STREAMICE_VISC_BETA_HYBRID |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
64 |
STREAMICE_VISC_BETA_HYBRID |
IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
72 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
73 |
STREAMICE_VISC_BETA_HYBRID |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
74 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
76 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
77 |
STREAMICE_VISC_BETA_HYBRID |
& recip_rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
78 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
82 |
STREAMICE_VISC_BETA_HYBRID |
ux = (U_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
83 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
84 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
85 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
86 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
87 |
STREAMICE_VISC_BETA_HYBRID |
vx = (V_streamice(i+1,j+1,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
88 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
89 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
90 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
91 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
92 |
STREAMICE_VISC_BETA_HYBRID |
uy = (U_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
93 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
94 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
95 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
96 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
97 |
STREAMICE_VISC_BETA_HYBRID |
vy = (V_streamice(i+1,j+1,bi,bj) - |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
98 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+1,j,bi,bj) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
99 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i,j+1,bi,bj) - |
|
./pkg/thsice/THSICE_DEBUG.h |
21 |
NO PROCEDURE |
dBug(i,j,bi,bj) = dBugFlag .AND. |
|
./pkg/thsice/THSICE_DEBUG.h |
22 |
NO PROCEDURE |
& ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 ) |
|
./pkg/thsice/thsice_advdiff.F |
115 |
THSICE_ADVDIFF |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_advdiff.F |
157 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
15 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
162 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
165 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
171 |
THSICE_ADVDIFF |
iceTmp(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
175 |
THSICE_ADVDIFF |
I Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
177 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
179 |
THSICE_ADVDIFF |
I Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
181 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
191 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_advdiff.F |
197 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
198 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
199 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
213 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
221 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
235 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
248 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
253 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
259 |
THSICE_ADVDIFF |
U iceVol, snowHeight(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
261 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
270 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
271 |
THSICE_ADVDIFF |
oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
277 |
THSICE_ADVDIFF |
U iceVol, iceHeight(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
279 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
301 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
303 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
306 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
308 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
313 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
314 |
THSICE_ADVDIFF |
& ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
315 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
321 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
330 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrans, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
332 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrans, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
336 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
338 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
342 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrIce, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
344 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrIce, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
357 |
THSICE_ADVDIFF |
U iceVol, Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
359 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
364 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
379 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
381 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
394 |
THSICE_ADVDIFF |
U iceVol, Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
396 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
405 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
412 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
414 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
417 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
428 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
436 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
438 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
458 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
463 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
465 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
468 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
475 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
476 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
479 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
480 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
481 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
482 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
490 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
491 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
492 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
493 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = rhoi*iceHeight(i,j,bi,bj)*saltIce |
|
./pkg/thsice/thsice_advdiff.F |
494 |
THSICE_ADVDIFF |
& *iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
495 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_advdiff.F |
496 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
497 |
THSICE_ADVDIFF |
& *( Qice1(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
498 |
THSICE_ADVDIFF |
& +Qice2(i,j,bi,bj) )*0.5 _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
499 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
504 |
THSICE_ADVDIFF |
iceMask (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
505 |
THSICE_ADVDIFF |
iceHeight (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
506 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
507 |
THSICE_ADVDIFF |
Qice1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
508 |
THSICE_ADVDIFF |
Qice2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
509 |
THSICE_ADVDIFF |
snowAge (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
519 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
546 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
551 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
554 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
560 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
564 |
THSICE_ADVDIFF |
I Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
566 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
568 |
THSICE_ADVDIFF |
I Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
570 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
58 |
THSICE_ADVDIFF |
INTEGER bi,bj |
|
./pkg/thsice/thsice_advection.F |
156 |
THSICE_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_advection.F |
187 |
THSICE_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/thsice/thsice_advection.F |
21 |
THSICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/thsice/thsice_advection.F |
222 |
THSICE_ADVECTION |
& * maskInW(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
233 |
THSICE_ADVECTION |
& * maskInS(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
243 |
THSICE_ADVECTION |
& * maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
252 |
THSICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
329 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
332 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
342 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
359 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
368 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
372 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
376 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
388 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
391 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
419 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
452 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
491 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
549 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
552 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
561 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
562 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
579 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
588 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
592 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
596 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
607 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
610 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
638 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
671 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
710 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
751 |
THSICE_ADVECTION |
tmpFac= deltaTadvect*recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
767 |
THSICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/thsice/thsice_advection.F |
89 |
THSICE_ADVECTION |
INTEGER bi,bj |
|
./pkg/thsice/thsice_albedo.F |
10 |
THSICE_ALBEDO |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/thsice/thsice_albedo.F |
177 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj |
|
./pkg/thsice/thsice_albedo.F |
51 |
THSICE_ALBEDO |
INTEGER bi,bj |
|
./pkg/thsice/thsice_ave.F |
100 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
102 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
104 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
108 |
THSICE_AVE |
ice_timeAve(bi,bj) = ice_timeAve(bi,bj)+thSIce_deltaT |
|
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_ave.F |
130 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFlxAtm,'SIflxAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
131 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFrwAtm,'SIfrwAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
136 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
137 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
138 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
40 |
THSICE_AVE |
INTEGER bi,bj |
|
./pkg/thsice/thsice_ave.F |
58 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
61 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
63 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
65 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
67 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
69 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
74 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
91 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
93 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_balance_frw.F |
101 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
102 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
103 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
104 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
121 |
THSICE_BALANCE_FRW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_balance_frw.F |
125 |
THSICE_BALANCE_FRW |
tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
126 |
THSICE_BALANCE_FRW |
& *maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
127 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
128 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
52 |
THSICE_BALANCE_FRW |
INTEGER bi,bj |
|
./pkg/thsice/thsice_balance_frw.F |
62 |
THSICE_BALANCE_FRW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_balance_frw.F |
64 |
THSICE_BALANCE_FRW |
sumTilePrc(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
65 |
THSICE_BALANCE_FRW |
sumTileFrW(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
68 |
THSICE_BALANCE_FRW |
sumTilePrc(bi,bj) = sumTilePrc(bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
69 |
THSICE_BALANCE_FRW |
& + MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
70 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
71 |
THSICE_BALANCE_FRW |
sumTileFrW(bi,bj) = sumTileFrW(bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
72 |
THSICE_BALANCE_FRW |
& + icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
73 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
97 |
THSICE_BALANCE_FRW |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_calc_thickn.F |
1005 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1030 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
108 |
THSICE_CALC_THICKN |
INTEGER bi,bj |
|
./pkg/thsice/thsice_calc_thickn.F |
10 |
THSICE_CALC_THICKN |
I bi, bj, |
|
./pkg/thsice/thsice_calc_thickn.F |
1110 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1126 |
THSICE_CALC_THICKN |
CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0, |
|
./pkg/thsice/thsice_calc_thickn.F |
228 |
THSICE_CALC_THICKN |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_calc_thickn.F |
399 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
471 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
666 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
684 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
853 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
942 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
978 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_check_conserv.F |
35 |
THSICE_CHECK_CONSERV |
INTEGER i,j, bi,bj |
|
./pkg/thsice/thsice_check_conserv.F |
59 |
THSICE_CHECK_CONSERV |
dBugLoc = dBug(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
62 |
THSICE_CHECK_CONSERV |
flxAtm = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
63 |
THSICE_CHECK_CONSERV |
frwAtm = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
67 |
THSICE_CHECK_CONSERV |
dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
68 |
THSICE_CHECK_CONSERV |
& -rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
69 |
THSICE_CHECK_CONSERV |
& *(Qice1(i,j,bi,bj)+Qice2(i,j,bi,bj))*0.5 |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
71 |
THSICE_CHECK_CONSERV |
dSalt = rhoi*iceHeight(i,j,bi,bj)*saltice |
|
./pkg/thsice/thsice_check_conserv.F |
93 |
THSICE_CHECK_CONSERV |
ice_flx2oc_Ave(i,j,bi,bj) = ice_flx2oc_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
95 |
THSICE_CHECK_CONSERV |
ice_frw2oc_Ave(i,j,bi,bj) = ice_frw2oc_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
97 |
THSICE_CHECK_CONSERV |
ice_salFx_Ave(i,j,bi,bj) = ice_salFx_Ave(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
9 |
THSICE_CHECK_CONSERV |
I dBugFlag, i, j, bi, bj, iceStart, |
|
./pkg/thsice/thsice_cost_final.F |
37 |
THSICE_COST_FINAL |
INTEGER bi,bj |
|
./pkg/thsice/thsice_cost_final.F |
48 |
THSICE_COST_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_cost_final.F |
51 |
THSICE_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/thsice/thsice_cost_final.F |
52 |
THSICE_COST_FINAL |
& + mult_thsice * objf_thsice(bi,bj) |
|
./pkg/thsice/thsice_cost_final.F |
54 |
THSICE_COST_FINAL |
f_thsice = f_thsice + objf_thsice(bi,bj) |
|
./pkg/thsice/thsice_cost_init_varia.F |
34 |
THSICE_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/thsice/thsice_cost_init_varia.F |
49 |
THSICE_COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/thsice/thsice_cost_init_varia.F |
52 |
THSICE_COST_INIT_VARIA |
objf_thsice(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_cost_init_varia.F |
53 |
THSICE_COST_INIT_VARIA |
num_thsice(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_cost_test.F |
103 |
THSICE_COST_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_cost_test.F |
107 |
THSICE_COST_TEST |
objf_thsice(bi,bj) = objf_thsice(bi,bj) + |
|
./pkg/thsice/thsice_cost_test.F |
108 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_cost_test.F |
71 |
THSICE_COST_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/thsice/thsice_cost_test.F |
90 |
THSICE_COST_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_cost_test.F |
94 |
THSICE_COST_TEST |
objf_thsice(bi,bj) = objf_thsice(bi,bj) + |
|
./pkg/thsice/thsice_cost_test.F |
95 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
47 |
THSICE_DIAGNOSTICS_STATE |
INTEGER bi,bj |
|
./pkg/thsice/thsice_diagnostics_state.F |
78 |
THSICE_DIAGNOSTICS_STATE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
86 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
90 |
THSICE_DIAGNOSTICS_STATE |
I Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_diagnostics_state.F |
92 |
THSICE_DIAGNOSTICS_STATE |
I 0,1, 2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_diagnostics_state.F |
94 |
THSICE_DIAGNOSTICS_STATE |
I Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_diagnostics_state.F |
96 |
THSICE_DIAGNOSTICS_STATE |
I 0,1, 2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_diffusion.F |
101 |
THSICE_DIFFUSION |
& *recip_dyC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_diffusion.F |
13 |
THSICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_diffusion.F |
50 |
THSICE_DIFFUSION |
INTEGER bi,bj |
|
./pkg/thsice/thsice_diffusion.F |
77 |
THSICE_DIFFUSION |
iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diffusion.F |
78 |
THSICE_DIFFUSION |
& +rhoi*iceHeight(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_diffusion.F |
90 |
THSICE_DIFFUSION |
& *recip_dxC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_do_advect.F |
109 |
THSICE_DO_ADVECT |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_do_advect.F |
110 |
THSICE_DO_ADVECT |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
111 |
THSICE_DO_ADVECT |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
112 |
THSICE_DO_ADVECT |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
115 |
THSICE_DO_ADVECT |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_do_advect.F |
116 |
THSICE_DO_ADVECT |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_do_advect.F |
117 |
THSICE_DO_ADVECT |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
123 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
139 |
THSICE_DO_ADVECT |
bj = bjArg |
|
./pkg/thsice/thsice_do_advect.F |
142 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
145 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
50 |
THSICE_DO_ADVECT |
INTEGER bi, bj |
|
./pkg/thsice/thsice_do_advect.F |
68 |
THSICE_DO_ADVECT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_do_advect.F |
73 |
THSICE_DO_ADVECT |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_do_advect.F |
85 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
96 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./model/src/ini_nh_fields.F |
102 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_fields.F |
108 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
115 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
116 |
INI_NH_FIELDS |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
43 |
INI_NH_FIELDS |
INTEGER bi,bj |
|
./model/src/ini_nh_fields.F |
75 |
INI_NH_FIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_nh_fields.F |
81 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/ini_nh_fields.F |
89 |
INI_NH_FIELDS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
91 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/ini_nh_fields.F |
93 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_extend.F |
10 |
THSICE_EXTEND |
I bi, bj, |
|
./pkg/thsice/thsice_extend.F |
137 |
THSICE_EXTEND |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_extend.F |
228 |
THSICE_EXTEND |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_extend.F |
236 |
THSICE_EXTEND |
CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1, |
|
./pkg/thsice/thsice_extend.F |
68 |
THSICE_EXTEND |
INTEGER bi,bj |
|
./pkg/thsice/thsice_get_bulkf.F |
100 |
THSICE_GET_BULKF |
I Tsurf, flwdwn(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
101 |
THSICE_GET_BULKF |
I ThAir(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
102 |
THSICE_GET_BULKF |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
124 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
125 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
126 |
THSICE_GET_BULKF |
I cloud(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
132 |
THSICE_GET_BULKF |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/thsice/thsice_get_bulkf.F |
133 |
THSICE_GET_BULKF |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf(i,j), |
|
./pkg/thsice/thsice_get_bulkf.F |
136 |
THSICE_GET_BULKF |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/thsice/thsice_get_bulkf.F |
139 |
THSICE_GET_BULKF |
flwNet_dwn = flwdwn(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_bulkf.F |
13 |
THSICE_GET_BULKF |
I bi, bj, |
|
./pkg/thsice/thsice_get_bulkf.F |
51 |
THSICE_GET_BULKF |
INTEGER bi, bj |
|
./pkg/thsice/thsice_get_exf.F |
13 |
THSICE_GET_EXF |
I bi, bj, it2, |
|
./pkg/thsice/thsice_get_exf.F |
206 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
209 |
THSICE_GET_EXF |
& i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
215 |
THSICE_GET_EXF |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
244 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
250 |
THSICE_GET_EXF |
atmrho_loc(i,j) = apressure(i,j,bi,bj) / |
|
./pkg/thsice/thsice_get_exf.F |
251 |
THSICE_GET_EXF |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
252 |
THSICE_GET_EXF |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/thsice/thsice_get_exf.F |
257 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
258 |
THSICE_GET_EXF |
delq(i,j) = aqh(i,j,bi,bj) - ssq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
268 |
THSICE_GET_EXF |
flwNet_dwn = emiss*lwdown(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_exf.F |
285 |
THSICE_GET_EXF |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_get_exf.F |
301 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
307 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
308 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
311 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
334 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
352 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
353 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
355 |
THSICE_GET_EXF |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
396 |
THSICE_GET_EXF |
usn = wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
400 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
421 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
433 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
435 |
THSICE_GET_EXF |
tau = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
437 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
465 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
466 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
481 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
499 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
512 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
61 |
THSICE_GET_EXF |
INTEGER bi, bj |
|
./pkg/thsice/thsice_get_ocean.F |
100 |
THSICE_GET_OCEAN |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
101 |
THSICE_GET_OCEAN |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
102 |
THSICE_GET_OCEAN |
siceAlb (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
108 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_get_ocean.F |
109 |
THSICE_GET_OCEAN |
& ( uVel(i,j,ks,bi,bj) * uVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
110 |
THSICE_GET_OCEAN |
& + uVel(i+1,j,ks,bi,bj)*uVel(i+1,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
111 |
THSICE_GET_OCEAN |
& + vVel(i,j+1,ks,bi,bj)*vVel(i,j+1,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
112 |
THSICE_GET_OCEAN |
& + vVel(i,j,ks,bi,bj) * vVel(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
120 |
THSICE_GET_OCEAN |
uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
121 |
THSICE_GET_OCEAN |
uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
122 |
THSICE_GET_OCEAN |
vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
123 |
THSICE_GET_OCEAN |
vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
124 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_get_ocean.F |
13 |
THSICE_GET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_get_ocean.F |
46 |
THSICE_GET_OCEAN |
INTEGER bi, bj |
|
./pkg/thsice/thsice_get_ocean.F |
68 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
69 |
THSICE_GET_OCEAN |
& *rStarFacC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
75 |
THSICE_GET_OCEAN |
IF ( kSurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./pkg/thsice/thsice_get_ocean.F |
76 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
78 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
89 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
96 |
THSICE_GET_OCEAN |
tOceMxL(i,j,bi,bj) = theta(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
97 |
THSICE_GET_OCEAN |
sOceMxL(i,j,bi,bj) = salt (i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
98 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
99 |
THSICE_GET_OCEAN |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
107 |
THSICE_GET_PRECIP |
& ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
108 |
THSICE_GET_PRECIP |
& *( rain(i,j,bi,bj)*rhofw - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_get_precip.F |
109 |
THSICE_GET_PRECIP |
& + ( locSST(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
110 |
THSICE_GET_PRECIP |
& *runoff(i,j,bi,bj)*rhofw ) |
|
./pkg/thsice/thsice_get_precip.F |
126 |
THSICE_GET_PRECIP |
precip(i,j) = cheapPrecip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
137 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
138 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LT.zeroRL ) THEN |
|
./pkg/thsice/thsice_get_precip.F |
139 |
THSICE_GET_PRECIP |
snowPrc(i,j) = cheapPrecip(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
153 |
THSICE_GET_PRECIP |
& ( Tair(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_get_precip.F |
154 |
THSICE_GET_PRECIP |
& *( cheapPrecip(i,j,bi,bj) - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_get_precip.F |
18 |
THSICE_GET_PRECIP |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_get_precip.F |
62 |
THSICE_GET_PRECIP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_get_precip.F |
79 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/thsice/thsice_get_precip.F |
80 |
THSICE_GET_PRECIP |
flxSW (i,j) = solar(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
90 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
91 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/thsice/thsice_get_precip.F |
92 |
THSICE_GET_PRECIP |
snowPrc(i,j) = rain(i,j,bi,bj)*rhofw |
|
./pkg/thsice/thsice_get_velocity.F |
16 |
THSICE_GET_VELOCITY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_get_velocity.F |
49 |
THSICE_GET_VELOCITY |
INTEGER bi,bj |
|
./pkg/thsice/thsice_get_velocity.F |
68 |
THSICE_GET_VELOCITY |
uLoc(i,j) = UICE(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_velocity.F |
69 |
THSICE_GET_VELOCITY |
vLoc(i,j) = VICE(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
102 |
THSICE_IMPL_TEMP |
I bi, bj, |
|
./pkg/thsice/thsice_impl_temp.F |
104 |
THSICE_IMPL_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
105 |
THSICE_IMPL_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx, |
|
./pkg/thsice/thsice_impl_temp.F |
106 |
THSICE_IMPL_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
107 |
THSICE_IMPL_TEMP |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
108 |
THSICE_IMPL_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsurf, |
|
./pkg/thsice/thsice_impl_temp.F |
109 |
THSICE_IMPL_TEMP |
O sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
110 |
THSICE_IMPL_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
11 |
THSICE_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/thsice/thsice_impl_temp.F |
47 |
THSICE_IMPL_TEMP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_impl_temp.F |
83 |
THSICE_IMPL_TEMP |
icFlxSW(i,j,bi,bj) = netSW(i,j) |
|
./pkg/thsice/thsice_impl_temp.F |
84 |
THSICE_IMPL_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_impl_temp.F |
85 |
THSICE_IMPL_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
87 |
THSICE_IMPL_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_impl_temp.F |
88 |
THSICE_IMPL_TEMP |
WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_impl_temp.F |
90 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
91 |
THSICE_IMPL_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_impl_temp.F |
93 |
THSICE_IMPL_TEMP |
& Tice1(i,j,bi,bj), Tice2(i,j,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
94 |
THSICE_IMPL_TEMP |
& Qice1(i,j,bi,bj), Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
100 |
THSICE_INI_VARS |
& hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_ini_vars.F |
147 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
151 |
THSICE_INI_VARS |
IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
152 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
|
./pkg/thsice/thsice_ini_vars.F |
154 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
|
./pkg/thsice/thsice_ini_vars.F |
175 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
179 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_ini_vars.F |
180 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_ini_vars.F |
181 |
THSICE_INI_VARS |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
45 |
THSICE_INI_VARS |
INTEGER bi, bj |
|
./pkg/thsice/thsice_ini_vars.F |
52 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
57 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
58 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
59 |
THSICE_INI_VARS |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
62 |
THSICE_INI_VARS |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
63 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
64 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
65 |
THSICE_INI_VARS |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
71 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
72 |
THSICE_INI_VARS |
flxCndBt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
73 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
75 |
THSICE_INI_VARS |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
76 |
THSICE_INI_VARS |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
78 |
THSICE_INI_VARS |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
79 |
THSICE_INI_VARS |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
80 |
THSICE_INI_VARS |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
87 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
88 |
THSICE_INI_VARS |
tOceMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
89 |
THSICE_INI_VARS |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
90 |
THSICE_INI_VARS |
v2ocMxL(i,j,bi,bj) = v2Loc |
|
./pkg/thsice/thsice_ini_vars.F |
99 |
THSICE_INI_VARS |
IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 ) |
|
./model/src/ini_nh_vars.F |
38 |
INI_NH_VARS |
INTEGER bi, bj |
|
./model/src/ini_nh_vars.F |
44 |
INI_NH_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_nh_vars.F |
48 |
INI_NH_VARS |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
55 |
INI_NH_VARS |
gW (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
57 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
58 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
60 |
INI_NH_VARS |
gWnm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
112 |
THSICE_MAIN |
prcAtm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
122 |
THSICE_MAIN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
158 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
165 |
THSICE_MAIN |
O prcAtm(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
167 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
168 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_main.F |
174 |
THSICE_MAIN |
O prcAtm(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
176 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
177 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_main.F |
191 |
THSICE_MAIN |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_main.F |
221 |
THSICE_MAIN |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_main.F |
222 |
THSICE_MAIN |
I prcAtm(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
230 |
THSICE_MAIN |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_main.F |
231 |
THSICE_MAIN |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_main.F |
232 |
THSICE_MAIN |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
277 |
THSICE_MAIN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_main.F |
282 |
THSICE_MAIN |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_main.F |
300 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
312 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
313 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
319 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
320 |
THSICE_MAIN |
fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
65 |
THSICE_MAIN |
INTEGER bi,bj |
|
./pkg/thsice/thsice_main.F |
85 |
THSICE_MAIN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_main.F |
91 |
THSICE_MAIN |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_map_exf.F |
100 |
THSICE_MAP_EXF |
& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN |
|
./pkg/thsice/thsice_map_exf.F |
102 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
116 |
THSICE_MAP_EXF |
& *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn ) |
|
./pkg/thsice/thsice_map_exf.F |
117 |
THSICE_MAP_EXF |
& *( precip(i,j,bi,bj)*rhoConstFresh - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_map_exf.F |
122 |
THSICE_MAP_EXF |
& *( locSST(i,j,bi,bj) - temp_EvPrRn ) |
|
./pkg/thsice/thsice_map_exf.F |
123 |
THSICE_MAP_EXF |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
15 |
THSICE_MAP_EXF |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_map_exf.F |
58 |
THSICE_MAP_EXF |
INTEGER bi,bj |
|
./pkg/thsice/thsice_map_exf.F |
72 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
75 |
THSICE_MAP_EXF |
totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
80 |
THSICE_MAP_EXF |
flxSW (i,j) = swdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_map_exf.F |
91 |
THSICE_MAP_EXF |
snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
99 |
THSICE_MAP_EXF |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_monitor.F |
116 |
THSICE_MONITOR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
locMask(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
192 |
THSICE_MONITOR |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_monitor.F |
196 |
THSICE_MONITOR |
locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
59 |
THSICE_MONITOR |
INTEGER i,j,bi,bj |
|
./pkg/thsice/thsice_output.F |
101 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_output.F |
103 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_output.F |
107 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_output.F |
111 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
125 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
127 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
129 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
132 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
134 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
138 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
140 |
THSICE_OUTPUT |
& bi,bj,myThid) |
|
./pkg/thsice/thsice_output.F |
237 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_output.F |
239 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_fract_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
240 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_iceH_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
241 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowH_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
242 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tsrf_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
243 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice1_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
244 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice2_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
246 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
247 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
248 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_salFx_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
249 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flxAtm_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
250 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frwAtm_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
251 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
252 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_tMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
253 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_sMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
254 |
THSICE_OUTPUT |
ice_timeAve(bi,bj) = 0. |
|
./pkg/thsice/thsice_output.F |
52 |
THSICE_OUTPUT |
INTEGER bi, bj, kl |
|
./pkg/thsice/thsice_output.F |
64 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_output.F |
66 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_fract_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
67 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_iceH_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
68 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowH_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
69 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tsrf_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
70 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice1_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
71 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice2_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
73 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
74 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
75 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_salFx_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
76 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flxAtm_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
77 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frwAtm_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
78 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
79 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_tMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
80 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_sMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
81 |
THSICE_OUTPUT |
ice_timeAve(bi,bj) = 0. |
|
./pkg/thsice/thsice_output.F |
91 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/thsice/thsice_output.F |
95 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_output.F |
97 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_output.F |
99 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
|
./pkg/thsice/thsice_salt_plume.F |
107 |
THSICE_SALT_PLUME |
saltPlmFlxTime(bi,bj) = saltPlmFlxTime(bi,bj) + cplTimeFraction |
|
./pkg/thsice/thsice_salt_plume.F |
110 |
THSICE_SALT_PLUME |
saltPlmFlx_cpl(i,j,bi,bj) = saltPlmFlx_cpl(i,j,bi,bj) |
|
./pkg/thsice/thsice_salt_plume.F |
15 |
THSICE_SALT_PLUME |
I iMin,iMax, jMin,jMax, bi, bj, |
|
./pkg/thsice/thsice_salt_plume.F |
54 |
THSICE_SALT_PLUME |
INTEGER bi,bj |
|
./pkg/thsice/thsice_salt_plume.F |
95 |
THSICE_SALT_PLUME |
saltPlumeFlux(i,j,bi,bj) = locVar(i,j)*SPsalFRAC |
|
./pkg/thsice/thsice_slab_ocean.F |
111 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
112 |
THSICE_SLAB_OCEAN |
oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
113 |
THSICE_SLAB_OCEAN |
locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
114 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
117 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
118 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |
|
./pkg/thsice/thsice_slab_ocean.F |
125 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
126 |
THSICE_SLAB_OCEAN |
locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
127 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_qfx1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
129 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
12 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
130 |
THSICE_SLAB_OCEAN |
& + heatFac*locQflux / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
139 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
140 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
149 |
THSICE_SLAB_OCEAN |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
151 |
THSICE_SLAB_OCEAN |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
166 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_slab_ocean.F |
55 |
THSICE_SLAB_OCEAN |
INTEGER bi,bj |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
80 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
82 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_slab_ocean.F |
85 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
97 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
98 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
99 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |
|
./model/src/ini_nlfs_vars.F |
106 |
INI_NLFS_VARS |
etaHw (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
107 |
INI_NLFS_VARS |
etaHs (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
108 |
INI_NLFS_VARS |
dEtaWdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
109 |
INI_NLFS_VARS |
dEtaSdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
117 |
INI_NLFS_VARS |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
118 |
INI_NLFS_VARS |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
119 |
INI_NLFS_VARS |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
134 |
INI_NLFS_VARS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_nlfs_vars.F |
140 |
INI_NLFS_VARS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
143 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
144 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
145 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
146 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
147 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
148 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
149 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
150 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
152 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = |
|
./model/src/ini_nlfs_vars.F |
153 |
INI_NLFS_VARS |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/ini_nlfs_vars.F |
36 |
INI_NLFS_VARS |
INTEGER bi,bj |
|
./model/src/ini_nlfs_vars.F |
54 |
INI_NLFS_VARS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_nlfs_vars.F |
63 |
INI_NLFS_VARS |
etaHnm1(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
64 |
INI_NLFS_VARS |
dEtaHdt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
65 |
INI_NLFS_VARS |
PmEpR (i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
74 |
INI_NLFS_VARS |
hFac_surfC(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
75 |
INI_NLFS_VARS |
hFac_surfW(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
76 |
INI_NLFS_VARS |
hFac_surfS(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
77 |
INI_NLFS_VARS |
hFac_surfNm1C(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
78 |
INI_NLFS_VARS |
hFac_surfNm1W(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
79 |
INI_NLFS_VARS |
hFac_surfNm1S(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
80 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
87 |
INI_NLFS_VARS |
rStarFacC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
88 |
INI_NLFS_VARS |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
89 |
INI_NLFS_VARS |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
90 |
INI_NLFS_VARS |
pStarFacK(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
91 |
INI_NLFS_VARS |
rStarFacNm1C(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
92 |
INI_NLFS_VARS |
rStarFacNm1W(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
93 |
INI_NLFS_VARS |
rStarFacNm1S(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
94 |
INI_NLFS_VARS |
rStarExpC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
95 |
INI_NLFS_VARS |
rStarExpW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
96 |
INI_NLFS_VARS |
rStarExpS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
97 |
INI_NLFS_VARS |
rStarDhCDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
98 |
INI_NLFS_VARS |
rStarDhWDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
99 |
INI_NLFS_VARS |
rStarDhSDt(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
100 |
THSICE_SOLVE4TEMP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_solve4temp.F |
15 |
THSICE_SOLVE4TEMP |
I bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
197 |
THSICE_SOLVE4TEMP |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_solve4temp.F |
258 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)') |
|
./pkg/thsice/thsice_solve4temp.F |
259 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_solve4temp.F |
310 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
316 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
318 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
378 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, k, |
|
./pkg/thsice/thsice_solve4temp.F |
386 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_BULKF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
440 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, k+1, |
|
./pkg/thsice/thsice_solve4temp.F |
448 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_BULKF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
484 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
500 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
542 |
THSICE_SOLVE4TEMP |
& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
549 |
THSICE_SOLVE4TEMP |
& 'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
580 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
610 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
625 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
629 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
632 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
117 |
THSICE_STEP_FWD |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
13 |
THSICE_STEP_FWD |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_step_fwd.F |
164 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
166 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = thSIce_deltaT |
|
./pkg/thsice/thsice_step_fwd.F |
167 |
THSICE_STEP_FWD |
& + snowAge(i,j,bi,bj)*ageFac |
|
./pkg/thsice/thsice_step_fwd.F |
169 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
174 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
185 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
188 |
THSICE_STEP_FWD |
I iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1, |
|
./pkg/thsice/thsice_step_fwd.F |
189 |
THSICE_STEP_FWD |
I 'SIsnwPrc', 0,1,2,bi,bj,myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
191 |
THSICE_STEP_FWD |
I 'SIalbedo', 0,1,1,bi,bj,myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
196 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
209 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
212 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
216 |
THSICE_STEP_FWD |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
218 |
THSICE_STEP_FWD |
WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
221 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
223 |
THSICE_STEP_FWD |
& tOceMxL(i,j,bi,bj), tFrzOce(i,j), |
|
./pkg/thsice/thsice_step_fwd.F |
224 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
228 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
229 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
240 |
THSICE_STEP_FWD |
I bi, bj, |
|
./pkg/thsice/thsice_step_fwd.F |
242 |
THSICE_STEP_FWD |
I iceMask(siLo,sjLo,bi,bj), tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
243 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
245 |
THSICE_STEP_FWD |
I sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
246 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
247 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
248 |
THSICE_STEP_FWD |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
249 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
273 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
288 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
289 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
290 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
291 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
292 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
293 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
303 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
305 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
306 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
309 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
310 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
311 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
313 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
331 |
THSICE_STEP_FWD |
I bi, bj, |
|
./pkg/thsice/thsice_step_fwd.F |
334 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
335 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
336 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
337 |
THSICE_STEP_FWD |
U Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
338 |
THSICE_STEP_FWD |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
355 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
356 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
361 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
363 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
364 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
367 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
368 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
371 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
372 |
THSICE_STEP_FWD |
IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
373 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
377 |
THSICE_STEP_FWD |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
378 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
379 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
380 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
381 |
THSICE_STEP_FWD |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
382 |
THSICE_STEP_FWD |
Qice1(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
383 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
391 |
THSICE_STEP_FWD |
I sOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
393 |
THSICE_STEP_FWD |
I iMin,iMax, jMin,jMax, bi, bj, |
|
./pkg/thsice/thsice_step_fwd.F |
416 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_step_fwd.F |
417 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_step_fwd.F |
418 |
THSICE_STEP_FWD |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
420 |
THSICE_STEP_FWD |
pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
431 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
432 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
433 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
434 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
444 |
THSICE_STEP_FWD |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_step_fwd.F |
68 |
THSICE_STEP_FWD |
INTEGER bi,bj |
|
./pkg/thsice/thsice_step_temp.F |
10 |
THSICE_STEP_TEMP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_step_temp.F |
112 |
THSICE_STEP_TEMP |
icFlxAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
113 |
THSICE_STEP_TEMP |
icFrwAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
122 |
THSICE_STEP_TEMP |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/thsice/thsice_step_temp.F |
124 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
125 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
126 |
THSICE_STEP_TEMP |
I snowAge(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
127 |
THSICE_STEP_TEMP |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
143 |
THSICE_STEP_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_temp.F |
144 |
THSICE_STEP_TEMP |
WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_temp.F |
146 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
147 |
THSICE_STEP_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
155 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
157 |
THSICE_STEP_TEMP |
icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
158 |
THSICE_STEP_TEMP |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_temp.F |
159 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
175 |
THSICE_STEP_TEMP |
I bi, bj, |
|
./pkg/thsice/thsice_step_temp.F |
178 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
179 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, tmpFlx, |
|
./pkg/thsice/thsice_step_temp.F |
180 |
THSICE_STEP_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
181 |
THSICE_STEP_TEMP |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
182 |
THSICE_STEP_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsrf, |
|
./pkg/thsice/thsice_step_temp.F |
183 |
THSICE_STEP_TEMP |
O sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
184 |
THSICE_STEP_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
189 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
190 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
193 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
194 |
THSICE_STEP_TEMP |
& - icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
57 |
THSICE_STEP_TEMP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_step_temp.F |
89 |
THSICE_STEP_TEMP |
act2 = bj - myByLo(myThid) |
|
./pkg/thsice/thsice_test_addfluid.h |
14 |
NO PROCEDURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/thsice/thsice_test_addfluid.h |
18 |
NO PROCEDURE |
addMass(i,j,1,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
19 |
NO PROCEDURE |
& *rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
20 |
NO PROCEDURE |
& *maskC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_test_addfluid.h |
21 |
NO PROCEDURE |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_cumul_1k1t.F |
31 |
TIMEAVE_CUMUL_1K1T |
INTEGER k, bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_1k1t.F |
41 |
TIMEAVE_CUMUL_1K1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
9 |
TIMEAVE_CUMUL_1K1T |
I Ksize, k, bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_1t.F |
29 |
TIMEAVE_CUMUL_1T |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_1t.F |
40 |
TIMEAVE_CUMUL_1T |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumul_1t.F |
41 |
TIMEAVE_CUMUL_1T |
& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc |
|
./pkg/timeave/timeave_cumul_1t.F |
9 |
TIMEAVE_CUMUL_1T |
I bi, bj, myThid ) |
|
./model/src/ini_p_ground.F |
103 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_p_ground.F |
109 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.hRef(k)) ks = k |
|
./model/src/ini_p_ground.F |
112 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-hRef(ks))/(hRef(ks+1)-hRef(ks)) |
|
./model/src/ini_p_ground.F |
116 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
173 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
phiLoc = Hfld(i,j,bi,bj) - hRef(1) |
|
./model/src/ini_p_ground.F |
181 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = rF(1) |
|
./model/src/ini_p_ground.F |
183 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
208 |
INI_P_GROUND |
& ' selectMode,i,j,bi,bj=',selectMode,i,j,bi,bj |
|
./model/src/ini_p_ground.F |
211 |
INI_P_GROUND |
& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds', |
|
./model/src/ini_p_ground.F |
216 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
229 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
247 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
265 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_p_ground.F |
273 |
INI_P_GROUND |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
278 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
288 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
290 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
292 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = 0. |
|
./model/src/ini_p_ground.F |
308 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. rF(1) ) THEN |
|
./model/src/ini_p_ground.F |
309 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
331 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
344 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
346 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = zLoc |
|
./model/src/ini_p_ground.F |
62 |
INI_P_GROUND |
INTEGER bi,bj,i,j,k, ks |
|
./pkg/timeave/timeave_cumul_1vfc.F |
32 |
TIMEAVE_CUMUL_1VFC |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_1vfc.F |
45 |
TIMEAVE_CUMUL_1VFC |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
9 |
TIMEAVE_CUMUL_1VFC |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_2v.F |
112 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
114 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
127 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
131 |
TIMEAVE_CUMUL_2V |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
144 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
148 |
TIMEAVE_CUMUL_2V |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
161 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
165 |
TIMEAVE_CUMUL_2V |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
178 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
182 |
TIMEAVE_CUMUL_2V |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
36 |
TIMEAVE_CUMUL_2V |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_2v.F |
54 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
55 |
TIMEAVE_CUMUL_2V |
& + fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumul_2v.F |
68 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
69 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
70 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
82 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
83 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
84 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
97 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
99 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
9 |
TIMEAVE_CUMUL_2V |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
38 |
TIMEAVE_CUMUL_2VFC |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_2vfc.F |
53 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
54 |
TIMEAVE_CUMUL_2VFC |
& fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
68 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
69 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
70 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
84 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
85 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
86 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
9 |
TIMEAVE_CUMUL_2VFC |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
33 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
47 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
49 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_dxC(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
60 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
62 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_dyC(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
73 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
9 |
TIMEAVE_CUMUL_DIF_1T |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumulate.F |
29 |
TIMEAVE_CUMULATE |
INTEGER bi, bj, myThid |
|
./pkg/timeave/timeave_cumulate.F |
42 |
TIMEAVE_CUMULATE |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumulate.F |
43 |
TIMEAVE_CUMULATE |
& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumulate.F |
9 |
TIMEAVE_CUMULATE |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_norma_2v.F |
25 |
TIMEAVE_NORMA_2V |
INTEGER bi, bj, Ksize, myThid |
|
./pkg/timeave/timeave_norma_2v.F |
40 |
TIMEAVE_NORMA_2V |
IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_norma_2v.F |
41 |
TIMEAVE_NORMA_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_norma_2v.F |
42 |
TIMEAVE_NORMA_2V |
& / cumulWeight(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_norma_2v.F |
9 |
TIMEAVE_NORMA_2V |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_normalize.F |
13 |
TIMEAVE_NORMALIZE |
I bi, bj, myThid ) |
|
./pkg/timeave/timeave_normalize.F |
36 |
TIMEAVE_NORMALIZE |
INTEGER bi, bj |
|
./pkg/timeave/timeave_normalize.F |
48 |
TIMEAVE_NORMALIZE |
IF ( timeave_cumul(bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_normalize.F |
52 |
TIMEAVE_NORMALIZE |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normalize.F |
53 |
TIMEAVE_NORMALIZE |
& / timeave_cumul(bi,bj) |
|
./pkg/timeave/timeave_reset.F |
22 |
TIMEAVE_RESET |
INTEGER bi, bj, Ksize, myThid |
|
./pkg/timeave/timeave_reset.F |
36 |
TIMEAVE_RESET |
fldtave(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_reset.F |
6 |
TIMEAVE_RESET |
SUBROUTINE TIMEAVE_RESET( fldtave, Ksize, bi, bj, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
100 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
101 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
102 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(Eta2tave, timeAve_half,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
103 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
104 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
105 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
106 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
110 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
111 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
118 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
120 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
121 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
124 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
126 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
128 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
297 |
TIMEAVE_STATV_WRITE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/timeave/timeave_statv_write.F |
305 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_STATVARS(myTime, nIter0, bi, bj, myThid) |
|
./pkg/timeave/timeave_statv_write.F |
50 |
TIMEAVE_STATV_WRITE |
INTEGER bi, bj |
|
./pkg/timeave/timeave_statv_write.F |
80 |
TIMEAVE_STATV_WRITE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/timeave/timeave_statv_write.F |
84 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
85 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
86 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(tFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
87 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(sFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
88 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(etatave, timeAve_half,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
89 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
90 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
91 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
92 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
93 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
95 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
96 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
97 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
98 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
99 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statvars.F |
114 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(etatave, etaN, 1 , DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
115 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(thetatave,theta, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
116 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(salttave, salt, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
117 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(uVeltave, uVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
118 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
119 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
11 |
TIMEAVE_STATVARS |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/timeave/timeave_statvars.F |
123 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
125 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
127 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
129 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
131 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
135 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
137 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
147 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
149 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
155 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
157 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
159 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
161 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
174 |
TIMEAVE_STATVARS |
timeAve_half(bi,bj) = timeAve_half(bi,bj)+DDTT |
|
./pkg/timeave/timeave_statvars.F |
186 |
TIMEAVE_STATVARS |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
188 |
TIMEAVE_STATVARS |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
190 |
TIMEAVE_STATVARS |
& phiHydLow,phiHydLow, 1, 0, deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
191 |
TIMEAVE_STATVARS |
timeAve_full(bi,bj) = timeAve_full(bi,bj)+deltaTclock |
|
./pkg/timeave/timeave_statvars.F |
36 |
TIMEAVE_STATVARS |
INTEGER myIter, bi, bj |
|
./pkg/timeave/timeave_statvars.F |
53 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uFluxtave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
54 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vFluxtave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
55 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(tFluxtave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
56 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(sFluxtave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
57 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(etatave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
58 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(thetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
59 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(salttave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
60 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
61 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
62 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(wVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
63 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydLowtave,1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
64 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
65 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
66 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
67 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
68 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
69 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
70 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(Eta2tave, 1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
71 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
72 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UUtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
73 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
74 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
76 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TdiffRtave,Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
78 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uZetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
79 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vZetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
81 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
82 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydLow2Tave,1, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
83 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(ConvectCountTave,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statvars.F |
85 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hUtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
86 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
91 |
TIMEAVE_STATVARS |
timeAve_half(bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_statvars.F |
92 |
TIMEAVE_STATVARS |
timeAve_full(bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_surf_flux.F |
102 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
108 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
28 |
TIMEAVE_SURF_FLUX |
INTEGER bi, bj |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
53 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
62 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
69 |
TIMEAVE_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./pkg/timeave/timeave_surf_flux.F |
6 |
TIMEAVE_SURF_FLUX |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/timeave/timeave_surf_flux.F |
71 |
TIMEAVE_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./pkg/timeave/timeave_surf_flux.F |
81 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./pkg/timeave/timeave_surf_flux.F |
87 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
93 |
TIMEAVE_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)*rUnit2mass |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
38 |
ZONAL_FILT_APPLY_TS |
INTEGER bi,bj |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
40 |
ZONAL_FILT_APPLY_TS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
44 |
ZONAL_FILT_APPLY_TS |
U tFld( 1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
45 |
ZONAL_FILT_APPLY_TS |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
46 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
48 |
ZONAL_FILT_APPLY_TS |
U sFld( 1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
49 |
ZONAL_FILT_APPLY_TS |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
50 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
38 |
ZONAL_FILT_APPLY_UV |
INTEGER bi,bj |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
42 |
ZONAL_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
56 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
57 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, 1, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
69 |
ZONAL_FILT_APPLY_UV |
U uFld( 1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
70 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
71 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
76 |
ZONAL_FILT_APPLY_UV |
U vFld( 1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
77 |
ZONAL_FILT_APPLY_UV |
I hFacS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
78 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 2, myThid ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
100 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
102 |
ZONAL_FILT_INIT |
ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
107 |
ZONAL_FILT_INIT |
ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
108 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
110 |
ZONAL_FILT_INIT |
ampFactor(Nx,j,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
111 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
59 |
ZONAL_FILT_INIT |
INTEGER i, j, bi, bj |
|
./pkg/zonal_filt/zonal_filt_init.F |
85 |
ZONAL_FILT_INIT |
DO bj=1,nSy |
|
./pkg/zonal_filt/zonal_filt_init.F |
87 |
ZONAL_FILT_INIT |
CALL R8FFTI1( Nx, FFTPACKWS2(1,bj), FFTPACKWS3(1,bj) ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
91 |
ZONAL_FILT_INIT |
DO bj=1,nSy |
|
./pkg/zonal_filt/zonal_filt_init.F |
94 |
ZONAL_FILT_INIT |
ampFactor(1,j,bi,bj) = oneRL |
|
./pkg/zonal_filt/zonal_filt_init.F |
95 |
ZONAL_FILT_INIT |
ampFactorV(1,j,bi,bj) = oneRL |
|
./pkg/zonal_filt/zonal_filt_init.F |
97 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
99 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
35 |
ZONAL_FILT_NOFILL |
INTEGER jMin, jMax, kMin, kMax, bi, bj |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
54 |
ZONAL_FILT_NOFILL |
& FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) ) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
59 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
63 |
ZONAL_FILT_NOFILL |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
73 |
ZONAL_FILT_NOFILL |
& FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) ) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
8 |
ZONAL_FILT_NOFILL |
I jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid ) |
|
./model/src/ini_pressure.F |
111 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
115 |
INI_PRESSURE |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
125 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
126 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
44 |
INI_PRESSURE |
INTEGER bi, bj |
|
./model/src/ini_pressure.F |
69 |
INI_PRESSURE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_pressure.F |
74 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_pressure.F |
98 |
INI_PRESSURE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/zonal_filt/zonal_filter.F |
13 |
ZONAL_FILTER |
I jMin, jMax, kSize, bi, bj, gridLoc, myThid ) |
|
./pkg/zonal_filt/zonal_filter.F |
43 |
ZONAL_FILTER |
INTEGER jMin, jMax, bi, bj |
|
./pkg/zonal_filt/zonal_filter.F |
58 |
ZONAL_FILTER |
IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat) |
|
./pkg/zonal_filt/zonal_filter.F |
59 |
ZONAL_FILTER |
& .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat) |
|
./pkg/zonal_filt/zonal_filter.F |
74 |
ZONAL_FILTER |
& FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) ) |
|
./pkg/zonal_filt/zonal_filter.F |
79 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
83 |
ZONAL_FILTER |
phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx) |
|
./pkg/zonal_filt/zonal_filter.F |
93 |
ZONAL_FILTER |
& FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) ) |
|
./model/src/ini_psurf.F |
101 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_psurf.F |
105 |
INI_PSURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
106 |
INI_PSURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./model/src/ini_psurf.F |
49 |
INI_PSURF |
INTEGER bi, bj |
|
./model/src/ini_psurf.F |
54 |
INI_PSURF |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_psurf.F |
58 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
72 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_psurf.F |
76 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./model/src/ini_psurf.F |
86 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/ini_psurf.F |
90 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
91 |
INI_PSURF |
etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
92 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
102 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
50 |
INI_SALT |
INTEGER bi, bj |
|
./model/src/ini_salt.F |
56 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_salt.F |
61 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
88 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_salt.F |
94 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
28 |
COST_TEST |
integer bi, bj |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
62 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
65 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
69 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
70 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
71 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
74 |
COST_TEST |
& objf_test(bi,bj) |
|
./model/src/ini_sigma_hfac.F |
104 |
INI_SIGMA_HFAC |
IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
|
./model/src/ini_sigma_hfac.F |
111 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
131 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_sigma_hfac.F |
136 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
137 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
138 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
142 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
143 |
INI_SIGMA_HFAC |
rLowS (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
144 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_sigma_hfac.F |
148 |
INI_SIGMA_HFAC |
maskInW(i,j,bi,bj)= maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
149 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
150 |
INI_SIGMA_HFAC |
& ( Ro_surf(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
151 |
INI_SIGMA_HFAC |
& + Ro_surf( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
152 |
INI_SIGMA_HFAC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
153 |
INI_SIGMA_HFAC |
& ( R_low(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
154 |
INI_SIGMA_HFAC |
& + R_low( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
163 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_sigma_hfac.F |
164 |
INI_SIGMA_HFAC |
rSurfW(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
165 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
171 |
INI_SIGMA_HFAC |
maskInS(i,j,bi,bj)= maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
172 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
173 |
INI_SIGMA_HFAC |
& ( Ro_surf(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
174 |
INI_SIGMA_HFAC |
& + Ro_surf(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
175 |
INI_SIGMA_HFAC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
176 |
INI_SIGMA_HFAC |
& ( R_low(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
177 |
INI_SIGMA_HFAC |
& + R_low(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
186 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_sigma_hfac.F |
187 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
188 |
INI_SIGMA_HFAC |
rLowS (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
201 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_sigma_hfac.F |
205 |
INI_SIGMA_HFAC |
IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
206 |
INI_SIGMA_HFAC |
IF (dxG(i,j,bi,bj).EQ.0.) maskInS(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
213 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_sigma_hfac.F |
220 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
231 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
240 |
INI_SIGMA_HFAC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
241 |
INI_SIGMA_HFAC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
242 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
243 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
44 |
INI_SIGMA_HFAC |
INTEGER bi, bj |
|
./model/src/ini_sigma_hfac.F |
63 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_sigma_hfac.F |
71 |
INI_SIGMA_HFAC |
tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
86 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
87 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = Nr |
|
./model/src/ini_sigma_hfac.F |
88 |
INI_SIGMA_HFAC |
maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_sigma_hfac.F |
89 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
91 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
92 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = 0 |
|
./model/src/ini_sigma_hfac.F |
93 |
INI_SIGMA_HFAC |
maskInC(i,j,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
94 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
95 |
INI_SIGMA_HFAC |
Ro_surf(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
96 |
INI_SIGMA_HFAC |
R_low(i,j,bi,bj) = rEmpty |
|
./model/src/ini_spherical_polar_grid.F |
103 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
106 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
107 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
121 |
INI_SPHERICAL_POLAR_GRID |
dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
122 |
INI_SPHERICAL_POLAR_GRID |
IF (dxG(i,j,bi,bj).LT.1.) dxG(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
123 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
146 |
INI_SPHERICAL_POLAR_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
162 |
INI_SPHERICAL_POLAR_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
177 |
INI_SPHERICAL_POLAR_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
190 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
193 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
194 |
INI_SPHERICAL_POLAR_GRID |
dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
195 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
219 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
225 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
227 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
238 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
240 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0. |
|
./model/src/ini_spherical_polar_grid.F |
248 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
250 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
262 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower |
|
./model/src/ini_spherical_polar_grid.F |
264 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower |
|
./model/src/ini_spherical_polar_grid.F |
265 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj) = SQRT(cosFacU(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
266 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacV(j,bi,bj) = SQRT(cosFacV(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
268 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj) = 1. |
|
./model/src/ini_spherical_polar_grid.F |
269 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj) = 1. |
|
./model/src/ini_spherical_polar_grid.F |
270 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
271 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacV(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
53 |
INI_SPHERICAL_POLAR_GRID |
INTEGER bi, bj |
|
./model/src/ini_spherical_polar_grid.F |
66 |
INI_SPHERICAL_POLAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_spherical_polar_grid.F |
75 |
INI_SPHERICAL_POLAR_GRID |
I bi, bj, myThid ) |
|
./model/src/ini_spherical_polar_grid.F |
80 |
INI_SPHERICAL_POLAR_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
81 |
INI_SPHERICAL_POLAR_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
89 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
91 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./verification/advect_cs/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_cs/code/ini_vel.F |
41 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
52 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
60 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
62 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
81 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_cs/code/ini_vel.F |
86 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_theta.F |
102 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
103 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_theta.F |
135 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
141 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
50 |
INI_THETA |
INTEGER bi, bj |
|
./model/src/ini_theta.F |
57 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_theta.F |
62 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
89 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_theta.F |
95 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
46 |
INI_SALT |
INTEGER bi, bj |
|
./verification/advect_xy/code/ini_salt.F |
53 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
65 |
INI_SALT |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
66 |
INI_SALT |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
87 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
134 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./verification/advect_xy/code/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
46 |
INI_THETA |
INTEGER bi, bj |
|
./verification/advect_xy/code/ini_theta.F |
54 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_theta.F |
59 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./verification/advect_xy/code/ini_theta.F |
66 |
INI_THETA |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
67 |
INI_THETA |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./verification/advect_xy/code/ini_theta.F |
88 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_xy/code/ini_vel.F |
46 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
71 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/advect_xy/code/ini_vel.F |
76 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./model/src/ini_vel.F |
46 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
70 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/ini_vel.F |
75 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
120 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
160 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
161 |
AIM_SURF_BC |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
162 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
163 |
AIM_SURF_BC |
& + aim_sWght1*aim_lst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
178 |
AIM_SURF_BC |
soilw_0 = ( aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
179 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
180 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
182 |
AIM_SURF_BC |
soilw_1 = ( aim_sw11(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
183 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
184 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
196 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
197 |
AIM_SURF_BC |
& + aim_sWght1*aim_snw1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
199 |
AIM_SURF_BC |
& + aim_sWght1*aim_oic1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
243 |
AIM_SURF_BC |
alb_land = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
244 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
251 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
303 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
304 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
305 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
323 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
324 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
325 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
337 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
338 |
AIM_SURF_BC |
& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
348 |
AIM_SURF_BC |
& 1, bi, bj, 1, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
358 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
390 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
405 |
AIM_SURF_BC |
& 'aim_pCO2', 1, 1, 3, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
416 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
427 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
74 |
AIM_SURF_BC |
INTEGER bi, bj |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
162 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
204 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
228 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
233 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
240 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
241 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
243 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
250 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
255 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
262 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
263 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
265 |
INI_DEPTHS |
& ABS(yC(i,j,bi,bj)).GE.90. ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
58 |
INI_DEPTHS |
INTEGER bi, bj |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
75 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
97 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
24 |
MOM_VI_HFACZ_DISS |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
44 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
45 |
MOM_VI_HFACZ_DISS |
& + _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
46 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
47 |
MOM_VI_HFACZ_DISS |
& + _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
64 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN( _hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
65 |
MOM_VI_HFACZ_DISS |
& , _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
66 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
67 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
7 |
MOM_VI_HFACZ_DISS |
I bi,bj,k, |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
22 |
MOM_VI_MASK_VORT3 |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
43 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacW(i,j,k,bi,bj), |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
44 |
MOM_VI_MASK_VORT3 |
& _hFacW(i,j-1,k,bi,bj)) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
45 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
46 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
7 |
MOM_VI_MASK_VORT3 |
I bi,bj,k, |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
46 |
COST_TEST |
DO bj=jtlo,jthi |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
50 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
67 |
COST_TEST |
objf_test(bi,bj) = vol_trans*1.0e-06 |
|
./eesupp/src/comm_stats.F |
100 |
COMM_STATS |
IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN |
|
./eesupp/src/comm_stats.F |
103 |
COMM_STATS |
& FLOAT(exchRecvYSpinCount(1,bi,bj))/ |
|
./eesupp/src/comm_stats.F |
104 |
COMM_STATS |
& FLOAT(exchRecvYExchCount(1,bi,bj)) |
|
./eesupp/src/comm_stats.F |
30 |
COMM_STATS |
INTEGER bi, bj, I |
|
./eesupp/src/comm_stats.F |
48 |
COMM_STATS |
DO bj=1,nSy |
|
./eesupp/src/comm_stats.F |
51 |
COMM_STATS |
& '//',' o Tile number: ',tileNo(bi,bj) |
|
./eesupp/src/comm_stats.F |
56 |
COMM_STATS |
& '//',' No. X exchanges =',exchRecvXExchCount(1,bi,bj) |
|
./eesupp/src/comm_stats.F |
60 |
COMM_STATS |
& '//',' Max. X spins =',exchRecvXSpinMax (1,bi,bj) |
|
./eesupp/src/comm_stats.F |
64 |
COMM_STATS |
& '//',' Min. X spins =',exchRecvXSpinMin (1,bi,bj) |
|
./eesupp/src/comm_stats.F |
68 |
COMM_STATS |
& '//',' Total. X spins =',exchRecvXSpinCount(1,bi,bj) |
|
./eesupp/src/comm_stats.F |
71 |
COMM_STATS |
IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN |
|
./eesupp/src/comm_stats.F |
74 |
COMM_STATS |
& FLOAT(exchRecvXSpinCount(1,bi,bj))/ |
|
./eesupp/src/comm_stats.F |
75 |
COMM_STATS |
& FLOAT(exchRecvXExchCount(1,bi,bj)) |
|
./eesupp/src/comm_stats.F |
85 |
COMM_STATS |
& '//',' No. Y exchanges =',exchRecvYExchCount(1,bi,bj) |
|
./eesupp/src/comm_stats.F |
89 |
COMM_STATS |
& '//',' Max. Y spins =',exchRecvYSpinMax (1,bi,bj) |
|
./eesupp/src/comm_stats.F |
93 |
COMM_STATS |
& '//',' Min. Y spins =',exchRecvYSpinMin (1,bi,bj) |
|
./eesupp/src/comm_stats.F |
97 |
COMM_STATS |
& '//',' Total. Y spins =',exchRecvYSpinCount(1,bi,bj) |
|
./model/src/initialise_varia.F |
102 |
INITIALISE_VARIA |
INTEGER bi,bj |
|
./model/src/initialise_varia.F |
207 |
INITIALISE_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/initialise_varia.F |
211 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
111 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
112 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
122 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
125 |
INTEGR_CONTINUITY |
& -facMass*addMass(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
144 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
152 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
153 |
INTEGR_CONTINUITY |
& + hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
155 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass |
|
./model/src/integr_continuity.F |
161 |
INTEGR_CONTINUITY |
ks = kSurfC(I,J,bi,bj) |
|
./model/src/integr_continuity.F |
162 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
163 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
172 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
177 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
178 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
180 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
191 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
209 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
215 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
216 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
242 |
INTEGR_CONTINUITY |
rStarDhDt(i,j) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
244 |
INTEGR_CONTINUITY |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
259 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, |
|
./model/src/integr_continuity.F |
270 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
271 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
283 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
289 |
INTEGR_CONTINUITY |
& CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/integr_continuity.F |
55 |
INTEGR_CONTINUITY |
INTEGER k,bi,bj |
|
./model/src/integr_continuity.F |
79 |
INTEGR_CONTINUITY |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/integrate_for_w.F |
104 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
105 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
106 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, rStarDhDt, |
|
./model/src/integrate_for_w.F |
113 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
114 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
115 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
116 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
129 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
130 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
131 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
132 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
139 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
141 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
142 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
143 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
155 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
156 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
157 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
158 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
164 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
165 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
166 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
167 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
168 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
180 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
181 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
182 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
189 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
190 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
191 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
192 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
36 |
INTEGRATE_FOR_W |
INTEGER bi,bj,k |
|
./model/src/integrate_for_w.F |
66 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
67 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
68 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
69 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
70 |
INTEGRATE_FOR_W |
& *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
71 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
85 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/integrate_for_w.F |
98 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./verification/dome/code/obcs_calc.F |
104 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
111 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
112 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
119 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
121 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
130 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
136 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
137 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
138 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
140 |
OBCS_CALC |
OBWw(J,K,bi,bj)=0.0 |
|
./verification/dome/code/obcs_calc.F |
149 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
156 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
179 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
187 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
189 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
191 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
199 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
201 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
210 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
216 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
217 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
218 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
219 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
221 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
39 |
OBCS_CALC |
INTEGER bi, bj |
|
./verification/dome/code/obcs_calc.F |
92 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/dome/code/obcs_calc.F |
98 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./model/src/load_fields_driver.F |
100 |
LOAD_FIELDS_DRIVER |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
111 |
LOAD_FIELDS_DRIVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/load_fields_driver.F |
116 |
LOAD_FIELDS_DRIVER |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
84 |
LOAD_FIELDS_DRIVER |
INTEGER i,j,k,bi,bj |
|
./model/src/load_fields_driver.F |
95 |
LOAD_FIELDS_DRIVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
121 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
125 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
40 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
72 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
88 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
91 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
106 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
111 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
129 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
137 |
FIZHI_INIT_VEG |
& ', Total # of Tiles=', nchptot(bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
72 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
77 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
78 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
79 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
80 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
38 |
FIZHI_INIT_VEGSURFTILES |
integer n,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
40 |
FIZHI_INIT_VEGSURFTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
44 |
FIZHI_INIT_VEGSURFTILES |
tcanopy(n,bi,bj) = 300. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
45 |
FIZHI_INIT_VEGSURFTILES |
ecanopy(n,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
46 |
FIZHI_INIT_VEGSURFTILES |
tdeep(n,bi,bj) = 295. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
47 |
FIZHI_INIT_VEGSURFTILES |
swetshal(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
48 |
FIZHI_INIT_VEGSURFTILES |
swetroot(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
49 |
FIZHI_INIT_VEGSURFTILES |
swetdeep(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
50 |
FIZHI_INIT_VEGSURFTILES |
snodep(n,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
51 |
FIZHI_INIT_VEGSURFTILES |
capac(n,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
102 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
123 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
128 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
129 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
45 |
INI_SALT |
INTEGER bi, bj |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
71 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
76 |
INI_SALT |
temperature(I,J,K,bi,bj) = theta(I,J,K,bi,bj) * pkappa(K) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
84 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
104 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
105 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
118 |
GETSICE |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
166 |
GETSICE |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
184 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
191 |
GETSST |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
239 |
GETSST |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
269 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
270 |
GETSST |
sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2. |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
271 |
GETSST |
sst(i,j,bi,bj) = 273.16 + 27.*(1.-(sin(sinarg)*sin(sinarg))) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
273 |
GETSST |
sst(i,j,bi,bj) = 273.16 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
34 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, bislot, bjslot |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
82 |
UPDATE_OCEAN_EXPORTS |
bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
83 |
UPDATE_OCEAN_EXPORTS |
bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
91 |
UPDATE_OCEAN_EXPORTS |
. sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
92 |
UPDATE_OCEAN_EXPORTS |
. nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
93 |
UPDATE_OCEAN_EXPORTS |
. ssttimes(1,bi,bj),sst,myThid) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
. sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
97 |
UPDATE_OCEAN_EXPORTS |
. nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
173 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
175 |
DO_FIZHI |
termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
179 |
DO_FIZHI |
dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
184 |
DO_FIZHI |
termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
186 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
193 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
195 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
197 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=0. |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
202 |
DO_FIZHI |
dsphy(i,j,L,bi,bj)=0. |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
35 |
DO_FIZHI |
INTEGER Nrphin,nSxin,nSyin,bi,bj,nchp |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxin,nSyin,im1,im2,jm1,jm2,bi,bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
121 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
125 |
FIZHI_INIT_FIXED |
phis_var(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
40 |
FIZHI_INIT_FIXED |
INTEGER i,j,L,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
72 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
77 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
88 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
91 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
97 |
FIZHI_INIT_FIXED |
if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
& pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
114 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
115 |
FIZHI_INIT_VARS |
& pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
125 |
FIZHI_INIT_VARS |
windphy(i,j,L,bi,bj) = 0.025 * |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
126 |
FIZHI_INIT_VARS |
& log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
138 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
149 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
167 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
177 |
FIZHI_INIT_VARS |
sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
186 |
FIZHI_INIT_VARS |
duphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
187 |
FIZHI_INIT_VARS |
dvphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
188 |
FIZHI_INIT_VARS |
dthphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
189 |
FIZHI_INIT_VARS |
dsphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
198 |
FIZHI_INIT_VARS |
guphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
199 |
FIZHI_INIT_VARS |
gvphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
200 |
FIZHI_INIT_VARS |
gthphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
201 |
FIZHI_INIT_VARS |
gsphy(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
210 |
FIZHI_INIT_VARS |
ctmt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
211 |
FIZHI_INIT_VARS |
xxmt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
212 |
FIZHI_INIT_VARS |
yymt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
213 |
FIZHI_INIT_VARS |
zetamt(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
217 |
FIZHI_INIT_VARS |
tke(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
218 |
FIZHI_INIT_VARS |
xlmt(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
219 |
FIZHI_INIT_VARS |
khmt(i,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
226 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .TRUE. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
233 |
FIZHI_INIT_VARS |
tcanopy(i,bi,bj) = 283. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
234 |
FIZHI_INIT_VARS |
tdeep(i,bi,bj) = 282.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
235 |
FIZHI_INIT_VARS |
ecanopy(i,bi,bj) = 2.e-2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
swetshal(i,bi,bj) = 0.6 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
swetroot(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
swetdeep(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
239 |
FIZHI_INIT_VARS |
capac(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
240 |
FIZHI_INIT_VARS |
snodep(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
245 |
FIZHI_INIT_VARS |
imstturblw(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
246 |
FIZHI_INIT_VARS |
imstturbsw(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
247 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
248 |
FIZHI_INIT_VARS |
nlwcld(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
249 |
FIZHI_INIT_VARS |
nlwlz(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
250 |
FIZHI_INIT_VARS |
nswcld(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
251 |
FIZHI_INIT_VARS |
nswlz(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
259 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
260 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
261 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
262 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
266 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
274 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
288 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
290 |
FIZHI_INIT_VARS |
turbStart(bi,bj) = .FALSE. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
48 |
FIZHI_INIT_VARS |
INTEGER i, j, L, bi, bj, Lbotij |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
76 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
83 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
89 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
91 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
98 |
FIZHI_INIT_VARS |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
99 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
100 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
132 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
133 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
134 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
137 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
138 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
139 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
146 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
150 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
151 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
152 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
153 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
156 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
157 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
164 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
165 |
FIZHI_INIT_VEG |
& ', Total # of Tiles=', nchptot(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
78 |
FIZHI_INIT_VEG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
83 |
FIZHI_INIT_VEG |
if(aim_landfr(i,j,bi,bj).gt.0.1) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
84 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
89 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
90 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
91 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
92 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
99 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
101 |
FIZHI_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
129 |
FIZHI_TENDENCY_APPLY_T |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
138 |
FIZHI_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
139 |
FIZHI_TENDENCY_APPLY_T |
. *( gT_arr(i,j) + gthphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
175 |
FIZHI_TENDENCY_APPLY_S |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
184 |
FIZHI_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
185 |
FIZHI_TENDENCY_APPLY_S |
. *( gS_arr(i,j) + gsphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
36 |
FIZHI_TENDENCY_APPLY_U |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
46 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
54 |
FIZHI_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
7 |
FIZHI_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_V |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
93 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
115 |
GETSICE |
integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
123 |
GETSICE |
sice(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
130 |
GETSST |
. nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sst) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
175 |
GETSST |
integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
183 |
GETSST |
sst(i,j,bi,bj) = 280. |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
24 |
UPDATE_OCEAN_EXPORTS |
integer i, j, bi, bj, biglobal, bjglobal |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
47 |
UPDATE_OCEAN_EXPORTS |
bjglobal=bj+(myYGlobalLo-1)/jm2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
50 |
UPDATE_OCEAN_EXPORTS |
. nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sst) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
52 |
UPDATE_OCEAN_EXPORTS |
. nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
58 |
UPDATE_OCEAN_EXPORTS |
if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
59 |
UPDATE_OCEAN_EXPORTS |
. sst(i,j,bi,bj) = sstmin |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
70 |
GETSICE |
. nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |
|
./model/src/momentum_correction_step.F |
59 |
MOMENTUM_CORRECTION_STEP |
INTEGER bi, bj |
|
./model/src/momentum_correction_step.F |
63 |
MOMENTUM_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/momentum_correction_step.F |
84 |
MOMENTUM_CORRECTION_STEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/momentum_correction_step.F |
91 |
MOMENTUM_CORRECTION_STEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/momentum_correction_step.F |
98 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./eesupp/src/cumulsum_z_tile.F |
120 |
CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/cumulsum_z_tile.F |
123 |
CUMULSUM_Z_TILE_RL |
bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj |
|
./eesupp/src/cumulsum_z_tile.F |
124 |
CUMULSUM_Z_TILE_RL |
globalBuf(1,biG,bjG) = shareBufCS2_R8(1,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
125 |
CUMULSUM_Z_TILE_RL |
globalBuf(2,biG,bjG) = shareBufCS2_R8(2,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
140 |
CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/cumulsum_z_tile.F |
143 |
CUMULSUM_Z_TILE_RL |
bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj |
|
./eesupp/src/cumulsum_z_tile.F |
144 |
CUMULSUM_Z_TILE_RL |
globalBuf(1,biG,bjG) = loc2Buf(1,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
145 |
CUMULSUM_Z_TILE_RL |
globalBuf(2,biG,bjG) = loc2Buf(2,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
152 |
CUMULSUM_Z_TILE_RL |
bj = 1 |
|
./eesupp/src/cumulsum_z_tile.F |
154 |
CUMULSUM_Z_TILE_RL |
globalBuf(3,1+bi,bj) = globalBuf(3,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
155 |
CUMULSUM_Z_TILE_RL |
& + globalBuf(1,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
157 |
CUMULSUM_Z_TILE_RL |
DO bj = 1,nSy*nPy-1 |
|
./eesupp/src/cumulsum_z_tile.F |
159 |
CUMULSUM_Z_TILE_RL |
globalBuf(3,bi,1+bj) = globalBuf(3,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
160 |
CUMULSUM_Z_TILE_RL |
& + globalBuf(2,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
166 |
CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/cumulsum_z_tile.F |
169 |
CUMULSUM_Z_TILE_RL |
bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj |
|
./eesupp/src/cumulsum_z_tile.F |
170 |
CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,biG,bjG) |
|
./eesupp/src/cumulsum_z_tile.F |
178 |
CUMULSUM_Z_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/cumulsum_z_tile.F |
181 |
CUMULSUM_Z_TILE_RL |
bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj |
|
./eesupp/src/cumulsum_z_tile.F |
182 |
CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,biG,bjG) |
|
./eesupp/src/cumulsum_z_tile.F |
199 |
CUMULSUM_Z_TILE_RL |
bj = 1 |
|
./eesupp/src/cumulsum_z_tile.F |
202 |
CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(1+bi,bj) = shareBufCS1_R8(bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
203 |
CUMULSUM_Z_TILE_RL |
& + shareBufCS2_R8(nf,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
208 |
CUMULSUM_Z_TILE_RL |
psiLoc(1) = shareBufCS1_R8(bi,bj) + shareBufCS2_R8(2,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
210 |
CUMULSUM_Z_TILE_RL |
psiLoc(2) = shareBufCS1_R8(bi,bj) + shareBufCS2_R8(1,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
216 |
CUMULSUM_Z_TILE_RL |
bj = 1 |
|
./eesupp/src/cumulsum_z_tile.F |
218 |
CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(1+bi,bj) = shareBufCS1_R8(bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
219 |
CUMULSUM_Z_TILE_RL |
& + shareBufCS2_R8(1,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
221 |
CUMULSUM_Z_TILE_RL |
DO bj = 1,nSy-1 |
|
./eesupp/src/cumulsum_z_tile.F |
223 |
CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,1+bj) = shareBufCS1_R8(bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
224 |
CUMULSUM_Z_TILE_RL |
& + shareBufCS2_R8(2,bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
235 |
CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/cumulsum_z_tile.F |
237 |
CUMULSUM_Z_TILE_RL |
psiZ(bi,bj) = shareBufCS1_R8(bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
60 |
CUMULSUM_Z_TILE_RL |
INTEGER bi,bj |
|
./eesupp/src/cumulsum_z_tile.F |
80 |
CUMULSUM_Z_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/cumulsum_z_tile.F |
82 |
CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj) |
|
./eesupp/src/cumulsum_z_tile.F |
83 |
CUMULSUM_Z_TILE_RL |
shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
63 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
83 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
84 |
COST_TEST |
& (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2 |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
149 |
PLOT_FIELD_XYRL |
INTEGER bi, bj |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
165 |
PLOT_FIELD_XYRL |
DO bj=1,nSy |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
179 |
PLOT_FIELD_XYRL |
bjStart = bj |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
55 |
PLOT_FIELD_XYRS |
INTEGER bi ,bj |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
71 |
PLOT_FIELD_XYRS |
DO bj=1,nSy |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
85 |
PLOT_FIELD_XYRS |
bjStart = bj |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
86 |
PLOT_FIELD_XYRS |
bjEnd = bj |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
34 |
COST_TEST |
integer bi, bj |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
79 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
86 |
COST_TEST |
objf_test (bi,bj) = objf_test (bi,bj) + |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
87 |
COST_TEST |
& u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2+ |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
147 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
161 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
168 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
169 |
CTRL_MAP_GENTIM2D |
& bdot_streamice(i,j,bi,bj)+ |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
50 |
CTRL_MAP_GENTIM2D |
integer bi,bj |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
85 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
96 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
B_glen(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
& B_glen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
93 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
147 |
CTRL_MAP_INI_GENTIM2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
151 |
CTRL_MAP_INI_GENTIM2D |
if ((maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
152 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
153 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
154 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
156 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
66 |
CTRL_MAP_INI_GENTIM2D |
integer bi,bj |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
34 |
COST_TEST |
integer bi, bj |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
79 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
85 |
COST_TEST |
if (streamice_hmask(i,j,bi,bj).eq.1.0) then |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
86 |
COST_TEST |
objf_test (bi,bj) = objf_test (bi,bj) + |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
87 |
COST_TEST |
& u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2+ |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
88 |
COST_TEST |
& h_streamice(i,j,bi,bj)**2 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
147 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
161 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
168 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
169 |
CTRL_MAP_GENTIM2D |
& bdot_streamice(i,j,bi,bj)+ |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
170 |
CTRL_MAP_GENTIM2D |
& xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
50 |
CTRL_MAP_GENTIM2D |
integer bi,bj |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
85 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
96 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
& H_streamice(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
107 |
CTRL_MAP_INI_GENARR |
B_glen(i,j,bi,bj) = |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
108 |
CTRL_MAP_INI_GENARR |
& B_glen(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
93 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
99 |
CTRL_MAP_INI_GENARR |
H_streamice(i,j,bi,bj) = |
|
./verification/hs94.128x64x5/code/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code/ini_theta.F |
51 |
INI_THETA |
INTEGER bi, bj |
|
./verification/hs94.1x64x5/code/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
84 |
INI_THETA |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
47 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
49 |
COST_TEST |
objf_test(bi,bj)= 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
59 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
68 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
69 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
71 |
COST_TEST |
& 'objf_test ', objf_test(bi,bj), |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
78 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
107 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
112 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
113 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
115 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
125 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
127 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
130 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+ |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
140 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
145 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
158 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
164 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
46 |
CTRL_MAP_GENTIM2D |
integer bi,bj |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
83 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
132 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
51 |
INI_THETA |
INTEGER bi, bj |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
84 |
INI_THETA |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
47 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
49 |
COST_TEST |
objf_test(bi,bj)= 0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
59 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
68 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
69 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
71 |
COST_TEST |
& 'objf_test ', objf_test(bi,bj), |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
78 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
107 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
112 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
113 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
115 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
125 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
127 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
130 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+ |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
132 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
140 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
145 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
158 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
164 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
46 |
CTRL_MAP_GENTIM2D |
integer bi,bj |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
83 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
100 |
CTRL_MAP_INI_GENARR |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
132 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
97 |
CTRL_MAP_INI_GENARR |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
51 |
INI_THETA |
INTEGER bi, bj |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
84 |
INI_THETA |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
51 |
INI_THETA |
INTEGER bi, bj |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
84 |
INI_THETA |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/post_cg3d.F |
114 |
POST_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/post_cg3d.F |
120 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
121 |
POST_CG3D |
& - dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
122 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
128 |
POST_CG3D |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
129 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
130 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/post_cg3d.F |
50 |
POST_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/post_cg3d.F |
59 |
POST_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/post_cg3d.F |
65 |
POST_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
71 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = ( phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
72 |
POST_CG3D |
& + locGamma*Bo_surf(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
75 |
POST_CG3D |
& *( wVel(i,j,ks,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/post_cg3d.F |
84 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/post_cg3d.F |
91 |
POST_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
93 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
95 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./verification/internal_wave/code/obcs_calc.F |
100 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
109 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
144 |
OBCS_CALC |
OBWw(J,K,bi,bj)=-Uinflow |
|
./verification/internal_wave/code/obcs_calc.F |
162 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
168 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
169 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
170 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
171 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
173 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
182 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
188 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
189 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
190 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
191 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
193 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
43 |
OBCS_CALC |
INTEGER bi, bj |
|
./verification/internal_wave/code/obcs_calc.F |
83 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/internal_wave/code/obcs_calc.F |
89 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
95 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
96 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
97 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
98 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./model/src/pre_cg3d.F |
100 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
101 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
102 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
109 |
PRE_CG3D |
& + EmPmR(i,j,bi,bj)*mass2rUnit |
|
./model/src/pre_cg3d.F |
110 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
122 |
PRE_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
128 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
130 |
PRE_CG3D |
& + locGamma*wVel(i,j,ks,bi,bj) ) |
|
./model/src/pre_cg3d.F |
132 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
135 |
PRE_CG3D |
dPhiNH(i,j,bi,bj) = wSurfP2d(i,j) |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
144 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
146 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
157 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
159 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
160 |
PRE_CG3D |
& +freeSurfFac*etaN(i,j,bi,bj)/deltaTFreeSurf |
|
./model/src/pre_cg3d.F |
161 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom |
|
./model/src/pre_cg3d.F |
173 |
PRE_CG3D |
uf(i,j) = -_recip_dxC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
175 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj)) |
|
./model/src/pre_cg3d.F |
177 |
PRE_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/pre_cg3d.F |
179 |
PRE_CG3D |
vf(i,j) = -_recip_dyC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
181 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj)) |
|
./model/src/pre_cg3d.F |
183 |
PRE_CG3D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/pre_cg3d.F |
197 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
198 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
200 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
201 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
202 |
PRE_CG3D |
& +( surfFac*etaN(i,j,bi,bj)/deltaTFreeSurf |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
204 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTMom |
|
./model/src/pre_cg3d.F |
216 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
217 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
220 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
221 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
222 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
223 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTMom |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
243 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
244 |
PRE_CG3D |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
245 |
PRE_CG3D |
& *maskInC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
57 |
PRE_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/pre_cg3d.F |
72 |
PRE_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/pre_cg3d.F |
85 |
PRE_CG3D |
wSurfP2d(i,j) = ( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) ) |
|
./verification/isomip/code_ad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/isomip/code_ad/cost_test.F |
63 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/isomip/code_ad/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/isomip/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_ad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_ad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_ad/cost_test.F |
83 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/isomip/code_ad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./model/src/pressure_for_eos.F |
38 |
PRESSURE_FOR_EOS |
INTEGER bi, bj, k |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& +( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
9 |
PRESSURE_FOR_EOS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./verification/isomip/code_oad/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./verification/isomip/code_oad/cost_test.F |
63 |
COST_TEST |
do bj = jtlo,jthi |
|
./verification/isomip/code_oad/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/isomip/code_oad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_oad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_oad/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/isomip/code_oad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_oad/cost_test.F |
83 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/isomip/code_oad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./model/src/remove_mean.F |
150 |
REMOVE_MEAN_RS |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
161 |
REMOVE_MEAN_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/remove_mean.F |
166 |
REMOVE_MEAN_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
167 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
168 |
REMOVE_MEAN_RS |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
184 |
REMOVE_MEAN_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/remove_mean.F |
189 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
190 |
REMOVE_MEAN_RS |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/remove_mean.F |
45 |
REMOVE_MEAN_RL |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
56 |
REMOVE_MEAN_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/remove_mean.F |
61 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
62 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
63 |
REMOVE_MEAN_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
79 |
REMOVE_MEAN_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/remove_mean.F |
84 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
85 |
REMOVE_MEAN_RL |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/reset_nlfs_vars.F |
42 |
RESET_NLFS_VARS |
INTEGER i,j,bi,bj |
|
./model/src/reset_nlfs_vars.F |
47 |
RESET_NLFS_VARS |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/reset_nlfs_vars.F |
54 |
RESET_NLFS_VARS |
pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa |
|
./model/src/reset_nlfs_vars.F |
60 |
RESET_NLFS_VARS |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
137 |
ROTATE_SPHERICAL_POLAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/rotate_spherical_polar_grid.F |
146 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
149 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
164 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
168 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
172 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
174 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
60 |
ROTATE_SPHERICAL_POLAR_GRID |
INTEGER bi, bj |
|
./model/src/rotate_uv2en.F |
101 |
ROTATE_UV2EN_RL |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
103 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
104 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
112 |
ROTATE_UV2EN_RL |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
113 |
ROTATE_UV2EN_RL |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
115 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
116 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
125 |
ROTATE_UV2EN_RL |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
126 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
127 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
128 |
ROTATE_UV2EN_RL |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
129 |
ROTATE_UV2EN_RL |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
130 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
141 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
142 |
ROTATE_UV2EN_RL |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
144 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
145 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
152 |
ROTATE_UV2EN_RL |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
153 |
ROTATE_UV2EN_RL |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
156 |
ROTATE_UV2EN_RL |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
157 |
ROTATE_UV2EN_RL |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
159 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
161 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
164 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
165 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
173 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
174 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
176 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
177 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
241 |
ROTATE_UV2EN_RS |
integer bi,bj |
|
./model/src/rotate_uv2en.F |
257 |
ROTATE_UV2EN_RS |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./model/src/rotate_uv2en.F |
280 |
ROTATE_UV2EN_RS |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
282 |
ROTATE_UV2EN_RS |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
284 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
285 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
293 |
ROTATE_UV2EN_RS |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
294 |
ROTATE_UV2EN_RS |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
296 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
297 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
306 |
ROTATE_UV2EN_RS |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
307 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
308 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
309 |
ROTATE_UV2EN_RS |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
310 |
ROTATE_UV2EN_RS |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
311 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
322 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
323 |
ROTATE_UV2EN_RS |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
325 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
326 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
333 |
ROTATE_UV2EN_RS |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
334 |
ROTATE_UV2EN_RS |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
337 |
ROTATE_UV2EN_RS |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
338 |
ROTATE_UV2EN_RS |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
340 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
342 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
345 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
346 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
354 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
355 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
357 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
358 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
60 |
ROTATE_UV2EN_RL |
integer bi,bj |
|
./model/src/rotate_uv2en.F |
76 |
ROTATE_UV2EN_RL |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./model/src/rotate_uv2en.F |
99 |
ROTATE_UV2EN_RL |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
1000 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1008 |
APPLY_FORCING_S |
I k, bi, bj, myTime, 0, myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
1015 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1023 |
APPLY_FORCING_S |
I k, bi, bj, 2, |
|
./verification/rotating_tank/code/apply_forcing.F |
102 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1032 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1040 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1048 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
109 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
116 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
127 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
128 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
134 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
136 |
APPLY_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
137 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
146 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
154 |
APPLY_FORCING_U |
I k, bi, bj, -1, |
|
./verification/rotating_tank/code/apply_forcing.F |
164 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
173 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
20 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
222 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
243 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
247 |
APPLY_FORCING_V |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
251 |
APPLY_FORCING_V |
tmpVar = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
252 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
271 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
278 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
285 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
296 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
297 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
303 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
305 |
APPLY_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
306 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
315 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
323 |
APPLY_FORCING_V |
I k, bi, bj, -2, |
|
./verification/rotating_tank/code/apply_forcing.F |
332 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
341 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
357 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
391 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
466 |
APPLY_FORCING_T |
locVar(i,j) = gT(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
470 |
APPLY_FORCING_T |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
474 |
APPLY_FORCING_T |
tmpVar = gT(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
475 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
497 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
504 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
511 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
522 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
524 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
525 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
533 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
535 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
536 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
558 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
559 |
APPLY_FORCING_T |
& *tmpFac*recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
560 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
593 |
APPLY_FORCING_T |
& *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
594 |
APPLY_FORCING_T |
& + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
595 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
605 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
606 |
APPLY_FORCING_T |
& *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
607 |
APPLY_FORCING_T |
& + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
608 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
616 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
624 |
APPLY_FORCING_T |
& 'MoistCor', kc, 1, 3, bi,bj,myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
634 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
635 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
641 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
643 |
APPLY_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
644 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
653 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
655 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
678 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
679 |
APPLY_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
681 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
698 |
APPLY_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/rotating_tank/code/apply_forcing.F |
708 |
APPLY_FORCING_T |
hC = hFacC(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
709 |
APPLY_FORCING_T |
hW = hFacW(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
710 |
APPLY_FORCING_T |
hE = hFacW(i+1,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
711 |
APPLY_FORCING_T |
hN = hFacS(i ,j+1,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
712 |
APPLY_FORCING_T |
hS = hFacS(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
715 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
717 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
718 |
APPLY_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
722 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
724 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl - theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
725 |
APPLY_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
729 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
731 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl-theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
732 |
APPLY_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
736 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
738 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
739 |
APPLY_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
745 |
APPLY_FORCING_T |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/rotating_tank/code/apply_forcing.F |
746 |
APPLY_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
760 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
768 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
776 |
APPLY_FORCING_T |
I k, bi, bj, myTime, 0, myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
783 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
78 |
APPLY_FORCING_U |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
791 |
APPLY_FORCING_T |
I k, bi, bj, 1, |
|
./verification/rotating_tank/code/apply_forcing.F |
800 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
808 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
816 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
82 |
APPLY_FORCING_U |
tmpVar = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
832 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
83 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
866 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
887 |
APPLY_FORCING_S |
locVar(i,j) = gS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
891 |
APPLY_FORCING_S |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
895 |
APPLY_FORCING_S |
tmpVar = gS(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
896 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
917 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
924 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
931 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
942 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
943 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
944 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
945 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
953 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
955 |
APPLY_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
956 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
969 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
970 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
976 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
978 |
APPLY_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
979 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
988 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
990 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/salt_integrate.F |
174 |
SALT_INTEGRATE |
act2 = bj - myByLo(myThid) |
|
./model/src/salt_integrate.F |
17 |
SALT_INTEGRATE |
I bi, bj, recip_hFac, |
|
./model/src/salt_integrate.F |
191 |
SALT_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/salt_integrate.F |
192 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
197 |
SALT_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/salt_integrate.F |
198 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
199 |
SALT_INTEGRATE |
U gsNm1(1-OLx,1-OLy,1,bi,bj), gs_AB, |
|
./model/src/salt_integrate.F |
238 |
SALT_INTEGRATE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/salt_integrate.F |
269 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
282 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
318 |
SALT_INTEGRATE |
I k, bi, bj, myThid ) |
|
./model/src/salt_integrate.F |
329 |
SALT_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/salt_integrate.F |
333 |
SALT_INTEGRATE |
CALL DIAGNOSTICS_FILL(gsForc,'gS_Forc ',k,1,2,bi,bj,myThid) |
|
./model/src/salt_integrate.F |
342 |
SALT_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/salt_integrate.F |
347 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
348 |
SALT_INTEGRATE |
I gsNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/salt_integrate.F |
357 |
SALT_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/salt_integrate.F |
362 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
363 |
SALT_INTEGRATE |
I gsNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/salt_integrate.F |
384 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
390 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
391 |
SALT_INTEGRATE |
U gS_loc, gsNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
397 |
SALT_INTEGRATE |
CALL DIAGNOSTICS_FILL(gs_AB,'AB_gS ',k,1,2,bi,bj,myThid) |
|
./model/src/salt_integrate.F |
414 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
426 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
427 |
SALT_INTEGRATE |
U gsNm(1-OLx,1-OLy,1,bi,bj,1), |
|
./model/src/salt_integrate.F |
430 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
431 |
SALT_INTEGRATE |
U gsNm(1-OLx,1-OLy,1,bi,bj,2), |
|
./model/src/salt_integrate.F |
435 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
436 |
SALT_INTEGRATE |
U gsNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
450 |
SALT_INTEGRATE |
I GAD_SALINITY, bi, bj, kSurfC, |
|
./model/src/salt_integrate.F |
451 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
457 |
SALT_INTEGRATE |
I GAD_SALINITY, bi, bj, kLowC, |
|
./model/src/salt_integrate.F |
458 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
468 |
SALT_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/salt_integrate.F |
469 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
489 |
SALT_INTEGRATE |
I salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
491 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/salt_integrate.F |
501 |
SALT_INTEGRATE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/salt_integrate.F |
511 |
SALT_INTEGRATE |
I bi, bj, gS_loc, |
|
./model/src/salt_integrate.F |
512 |
SALT_INTEGRATE |
U salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
513 |
SALT_INTEGRATE |
O gsNm(1-OLx,1-OLy,1,bi,bj,m2), |
|
./model/src/salt_integrate.F |
517 |
SALT_INTEGRATE |
I bi, bj, gS_loc, |
|
./model/src/salt_integrate.F |
518 |
SALT_INTEGRATE |
U salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
519 |
SALT_INTEGRATE |
O gsNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
525 |
SALT_INTEGRATE |
I bi, bj, |
|
./model/src/salt_integrate.F |
526 |
SALT_INTEGRATE |
O salt(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/salt_integrate.F |
80 |
SALT_INTEGRATE |
INTEGER bi, bj |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
34 |
INI_PSURF |
INTEGER bi, bj |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
41 |
INI_PSURF |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
61 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
65 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
34 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
38 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
49 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
56 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
57 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
58 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
59 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
86 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
& )*recip_DXC(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
101 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
114 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
144 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
172 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
173 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
187 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
217 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
253 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
275 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
276 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
277 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
279 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
293 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
324 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
350 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
351 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
352 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
71 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
72 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
94 |
EXTERNAL_FORCING_U |
longitud1=XC(i-1,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
95 |
EXTERNAL_FORCING_U |
longitud2=XC(i,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
36 |
COST_TRACER |
integer bi, bj |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
62 |
COST_TRACER |
objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
65 |
COST_TRACER |
print *, 'COST TRACER nach', objf_tracer(bi,bj), |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
6 |
COST_TRACER |
subroutine COST_TRACER( bi, bj, myThid ) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
36 |
COST_TRACER |
integer bi, bj |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
62 |
COST_TRACER |
objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
65 |
COST_TRACER |
print *, 'COST TRACER nach', objf_tracer(bi,bj), |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
6 |
COST_TRACER |
subroutine COST_TRACER( bi, bj, myThid ) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
140 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
125 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
130 |
SOLVE_FOR_PRESSURE |
etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
132 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
133 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
140 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
141 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
142 |
SOLVE_FOR_PRESSURE |
& *maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
147 |
SOLVE_FOR_PRESSURE |
tileEmP(bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
150 |
SOLVE_FOR_PRESSURE |
tileEmP(bi,bj) = tileEmP(bi,bj) |
|
./model/src/solve_for_pressure.F |
151 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
152 |
SOLVE_FOR_PRESSURE |
& *maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
162 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
170 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
171 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
179 |
SOLVE_FOR_PRESSURE |
I bi,bj,k, |
|
./model/src/solve_for_pressure.F |
186 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
193 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
195 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
196 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
198 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
199 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
200 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
203 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
204 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
215 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
216 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
217 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
219 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
225 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
226 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
227 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
229 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
247 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
248 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
348 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
352 |
SOLVE_FOR_PRESSURE |
tmpVar(i,j) = implicSurfPress * cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
353 |
SOLVE_FOR_PRESSURE |
& + (oneRL - implicSurfPress)* Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
354 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
357 |
SOLVE_FOR_PRESSURE |
CALL DIAGNOSTICS_FILL( tmpVar,diagName,1,1,2,bi,bj,myThid ) |
|
./model/src/solve_for_pressure.F |
367 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_for_pressure.F |
371 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
58 |
SOLVE_FOR_PRESSURE |
INTEGER i,j,k,bi,bj |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
103 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
113 |
PTRACERS_APPLY_FORCING |
I k, bi, bj, iTracer+2, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
13 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
43 |
PTRACERS_APPLY_FORCING |
INTEGER k, bi,bj, iTracer |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
74 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
84 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
92 |
PTRACERS_APPLY_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
108 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
12 |
PTRACERS_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
134 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
135 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
136 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
137 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
165 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
166 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
167 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
168 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
187 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
188 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
189 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
41 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
70 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
73 |
PTRACERS_FORCING_SURF |
& * drF(ks) * _hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./model/src/solve_pentadiagonal.F |
14 |
SOLVE_PENTADIAGONAL |
I bi, bj, myThid ) |
|
./model/src/solve_pentadiagonal.F |
65 |
SOLVE_PENTADIAGONAL |
INTEGER bi, bj, myThid |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
37 |
COST_HFLUX |
integer bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
41 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
53 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
62 |
COST_HFLUX |
& Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
67 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
33 |
COST_TEMP |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
45 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
59 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
73 |
COST_TEMP |
objf_temp_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
106 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
121 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
38 |
COST_WEIGHTS |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
64 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
125 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
139 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
166 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
169 |
EXTERNAL_FORCING_SURF |
I surfaceForcingS(1-OLx,1-OLy,bi,bj), |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
182 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
188 |
EXTERNAL_FORCING_SURF |
act2 = bj - myByLo(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
220 |
EXTERNAL_FORCING_SURF |
& +Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
224 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
240 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
265 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
274 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
298 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
309 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
324 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
335 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
392 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
63 |
EXTERNAL_FORCING_SURF |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
136 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
170 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
174 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
40 |
INI_FORCING |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
45 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
96 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/solve_tridiagonal.F |
14 |
SOLVE_TRIDIAGONAL |
I bi, bj, myThid ) |
|
./model/src/solve_tridiagonal.F |
61 |
SOLVE_TRIDIAGONAL |
INTEGER bi, bj, myThid |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
37 |
COST_HFLUX |
integer bi, bj |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
41 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
53 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
60 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
62 |
COST_HFLUX |
& Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
67 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
33 |
COST_TEMP |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
45 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
59 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
73 |
COST_TEMP |
objf_temp_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
106 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
121 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
128 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
38 |
COST_WEIGHTS |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
64 |
COST_WEIGHTS |
DO bj = jtlo,jthi |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
125 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
130 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
139 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
166 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
169 |
EXTERNAL_FORCING_SURF |
I surfaceForcingS(1-OLx,1-OLy,bi,bj), |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
182 |
EXTERNAL_FORCING_SURF |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
188 |
EXTERNAL_FORCING_SURF |
act2 = bj - myByLo(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
210 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
212 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
220 |
EXTERNAL_FORCING_SURF |
& +Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
224 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
240 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
265 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
274 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
298 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
299 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
309 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
324 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
335 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
366 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
392 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
63 |
EXTERNAL_FORCING_SURF |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
101 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
107 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
136 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
140 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
170 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
174 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
40 |
INI_FORCING |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
45 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
96 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/solve_uv_tridiago.F |
104 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = aU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
105 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = cU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
106 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = rhsU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
114 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
121 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
122 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = alpU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
123 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
131 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
138 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = ( yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
139 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj)*yy_U(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
141 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
142 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)*alpU(im,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
152 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
153 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj)*yy_U(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
154 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = alpU(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
155 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj)*alpU(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
156 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = -gamU(i,j,bi,bj)*gamU(ip,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
177 |
SOLVE_UV_TRIDIAGO |
aTu(1,j,bi,bj) = alpU( 1, j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
178 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bi,bj) = gamU( 1, j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
179 |
SOLVE_UV_TRIDIAGO |
yTu(1,j,bi,bj) = yy_U( 1, j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
180 |
SOLVE_UV_TRIDIAGO |
aTu(2,j,bi,bj) = alpU(sNx,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
181 |
SOLVE_UV_TRIDIAGO |
cTu(2,j,bi,bj) = gamU(sNx,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
182 |
SOLVE_UV_TRIDIAGO |
yTu(2,j,bi,bj) = yy_U(sNx,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
195 |
SOLVE_UV_TRIDIAGO |
DO bj=1,nSy |
|
./model/src/solve_uv_tridiago.F |
201 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
208 |
SOLVE_UV_TRIDIAGO |
yTu(1,j,bi,bj) = ( yTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
209 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bi,bj)*yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
211 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bi,bj) = cTu(1,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
212 |
SOLVE_UV_TRIDIAGO |
aTu(1,j,bi,bj) = - aTu(1,j,bi,bj)*aTu(2,j,bm,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
215 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTu(2,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
216 |
SOLVE_UV_TRIDIAGO |
yTu(2,j,bi,bj) = yTu(2,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
217 |
SOLVE_UV_TRIDIAGO |
& - aTu(2,j,bi,bj)*yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
218 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*yTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
219 |
SOLVE_UV_TRIDIAGO |
cTu(2,j,bi,bj) = cTu(2,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
220 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*cTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
221 |
SOLVE_UV_TRIDIAGO |
aTu(2,j,bi,bj) = -aTu(2,j,bi,bj)*aTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
222 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*aTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
230 |
SOLVE_UV_TRIDIAGO |
aTu(i,j,bi,bj) = aTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
231 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj)*aTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
232 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = yTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
233 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj)*yTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
234 |
SOLVE_UV_TRIDIAGO |
cTu(i,j,bi,bj) = -cTu(i,j,bi,bj)*cTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
242 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bm,bj) = oneRL + cTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
243 |
SOLVE_UV_TRIDIAGO |
aTu(2,j,bp,bj) = oneRL + aTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
244 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTu(1,j,bm,bj) * aTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
245 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bm,bj) * cTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
252 |
SOLVE_UV_TRIDIAGO |
uTmp1 = ( aTu(2,j,bp,bj) * yTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
253 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bm,bj) * yTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
255 |
SOLVE_UV_TRIDIAGO |
uTmp2 = ( cTu(1,j,bm,bj) * yTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
256 |
SOLVE_UV_TRIDIAGO |
& - cTu(2,j,bp,bj) * yTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
263 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = uTmp1 |
|
./model/src/solve_uv_tridiago.F |
265 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = uTmp2 |
|
./model/src/solve_uv_tridiago.F |
267 |
SOLVE_UV_TRIDIAGO |
yTu(i,j,bi,bj) = yTu(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
268 |
SOLVE_UV_TRIDIAGO |
& - aTu(i,j,bi,bj) * uTmp2 |
|
./model/src/solve_uv_tridiago.F |
269 |
SOLVE_UV_TRIDIAGO |
& - cTu(i,j,bi,bj) * uTmp1 |
|
./model/src/solve_uv_tridiago.F |
279 |
SOLVE_UV_TRIDIAGO |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_uv_tridiago.F |
285 |
SOLVE_UV_TRIDIAGO |
uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
286 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj) * yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
287 |
SOLVE_UV_TRIDIAGO |
& - gamU(i,j,bi,bj) * yTu(1,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
297 |
SOLVE_UV_TRIDIAGO |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_uv_tridiago.F |
303 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = aV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
304 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = cV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
305 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = rhsV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
313 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
320 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
321 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = alpV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
322 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
330 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
337 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = ( yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
338 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj)*yy_V(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
340 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
341 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)*alpV(i,jm,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
351 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
352 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj)*yy_V(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
353 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = alpV(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
354 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj)*alpV(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
355 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = -gamV(i,j,bi,bj)*gamV(i,jp,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
364 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = alpV(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
365 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bj) = gamV(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
366 |
SOLVE_UV_TRIDIAGO |
yTv(1,i,bi,bj) = yy_V(i, 1, bi,bj) |
|
./model/src/solve_uv_tridiago.F |
367 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bj) = alpV(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
368 |
SOLVE_UV_TRIDIAGO |
cTv(2,i,bi,bj) = gamV(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
369 |
SOLVE_UV_TRIDIAGO |
yTv(2,i,bi,bj) = yy_V(i,sNy,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
385 |
SOLVE_UV_TRIDIAGO |
DO bj=2,nSy |
|
./model/src/solve_uv_tridiago.F |
386 |
SOLVE_UV_TRIDIAGO |
bm = bj-1 |
|
./model/src/solve_uv_tridiago.F |
388 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
395 |
SOLVE_UV_TRIDIAGO |
yTv(1,i,bi,bj) = ( yTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
396 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
398 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bj) = cTv(1,i,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
399 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = - aTv(1,i,bi,bj)*aTv(2,i,bi,bm)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
402 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTv(2,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
403 |
SOLVE_UV_TRIDIAGO |
yTv(2,i,bi,bj) = yTv(2,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
404 |
SOLVE_UV_TRIDIAGO |
& - aTv(2,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
405 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*yTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
406 |
SOLVE_UV_TRIDIAGO |
cTv(2,i,bi,bj) = cTv(2,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
407 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*cTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
408 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bj) = -aTv(2,i,bi,bj)*aTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
409 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*aTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
412 |
SOLVE_UV_TRIDIAGO |
DO bj=nSy-1,1,-1 |
|
./model/src/solve_uv_tridiago.F |
413 |
SOLVE_UV_TRIDIAGO |
bp = bj+1 |
|
./model/src/solve_uv_tridiago.F |
417 |
SOLVE_UV_TRIDIAGO |
aTv(j,i,bi,bj) = aTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
418 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj)*aTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
419 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = yTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
420 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj)*yTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
421 |
SOLVE_UV_TRIDIAGO |
cTv(j,i,bi,bj) = -cTv(j,i,bi,bj)*cTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
447 |
SOLVE_UV_TRIDIAGO |
DO bj=1,nSy |
|
./model/src/solve_uv_tridiago.F |
449 |
SOLVE_UV_TRIDIAGO |
IF ( bj+j .EQ.2 ) THEN |
|
./model/src/solve_uv_tridiago.F |
450 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = vTmp1 |
|
./model/src/solve_uv_tridiago.F |
451 |
SOLVE_UV_TRIDIAGO |
ELSEIF ( bj+j .EQ. nSy+2 ) THEN |
|
./model/src/solve_uv_tridiago.F |
452 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = vTmp2 |
|
./model/src/solve_uv_tridiago.F |
454 |
SOLVE_UV_TRIDIAGO |
yTv(j,i,bi,bj) = yTv(j,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
455 |
SOLVE_UV_TRIDIAGO |
& - aTv(j,i,bi,bj) * vTmp2 |
|
./model/src/solve_uv_tridiago.F |
456 |
SOLVE_UV_TRIDIAGO |
& - cTv(j,i,bi,bj) * vTmp1 |
|
./model/src/solve_uv_tridiago.F |
466 |
SOLVE_UV_TRIDIAGO |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/solve_uv_tridiago.F |
468 |
SOLVE_UV_TRIDIAGO |
bm = 1 + MOD(bj-2+nSy,nSy) |
|
./model/src/solve_uv_tridiago.F |
469 |
SOLVE_UV_TRIDIAGO |
bp = 1 + MOD(bj-0+nSy,nSy) |
|
./model/src/solve_uv_tridiago.F |
472 |
SOLVE_UV_TRIDIAGO |
vFld(i,j,k,bi,bj) = yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
473 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj) * yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
474 |
SOLVE_UV_TRIDIAGO |
& - gamV(i,j,bi,bj) * yTv(1,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
77 |
SOLVE_UV_TRIDIAGO |
INTEGER bi, bj, bm, bp |
|
./model/src/solve_uv_tridiago.F |
98 |
SOLVE_UV_TRIDIAGO |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
168 |
APPLY_FORCING_V |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
261 |
APPLY_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
268 |
APPLY_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
288 |
APPLY_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
75 |
APPLY_FORCING_U |
recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
137 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
148 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
90 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
12 |
PTRACERS_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
40 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
140 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
51 |
CTRL_MAP_INI_GENARR |
integer bi,bj |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
92 |
CTRL_MAP_INI_GENARR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/taueddy_init_varia.F |
36 |
TAUEDDY_INIT_VARIA |
INTEGER bi, bj |
|
./model/src/taueddy_init_varia.F |
41 |
TAUEDDY_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/taueddy_init_varia.F |
46 |
TAUEDDY_INIT_VARIA |
eddyPsiX(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_init_varia.F |
47 |
TAUEDDY_INIT_VARIA |
eddyPsiY(i,j,k,bi,bj)=0. |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
12 |
PTRACERS_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
40 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./model/src/taueddy_tendency_apply.F |
102 |
TAUEDDY_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/taueddy_tendency_apply.F |
137 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./model/src/taueddy_tendency_apply.F |
163 |
TAUEDDY_TENDENCY_APPLY_V |
& ( maskm1*_maskS(i,j, k ,bi,bj)*tauyEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
164 |
TAUEDDY_TENDENCY_APPLY_V |
& - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
165 |
TAUEDDY_TENDENCY_APPLY_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
21 |
TAUEDDY_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/taueddy_tendency_apply.F |
56 |
TAUEDDY_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./model/src/taueddy_tendency_apply.F |
82 |
TAUEDDY_TENDENCY_APPLY_U |
& ( maskm1*_maskW(i,j, k ,bi,bj)*tauxEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
83 |
TAUEDDY_TENDENCY_APPLY_U |
& - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
84 |
TAUEDDY_TENDENCY_APPLY_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/temp_integrate.F |
17 |
TEMP_INTEGRATE |
I bi, bj, recip_hFac, |
|
./model/src/temp_integrate.F |
182 |
TEMP_INTEGRATE |
act2 = bj - myByLo(myThid) |
|
./model/src/temp_integrate.F |
199 |
TEMP_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/temp_integrate.F |
200 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
205 |
TEMP_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/temp_integrate.F |
206 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
207 |
TEMP_INTEGRATE |
U gtNm1(1-OLx,1-OLy,1,bi,bj), gt_AB, |
|
./model/src/temp_integrate.F |
246 |
TEMP_INTEGRATE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/temp_integrate.F |
277 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
290 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
326 |
TEMP_INTEGRATE |
I k, bi, bj, myThid ) |
|
./model/src/temp_integrate.F |
337 |
TEMP_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/temp_integrate.F |
341 |
TEMP_INTEGRATE |
CALL DIAGNOSTICS_FILL(gtForc,'gT_Forc ',k,1,2,bi,bj,myThid) |
|
./model/src/temp_integrate.F |
350 |
TEMP_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/temp_integrate.F |
355 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
356 |
TEMP_INTEGRATE |
I gtNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev, |
|
./model/src/temp_integrate.F |
365 |
TEMP_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/temp_integrate.F |
370 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
371 |
TEMP_INTEGRATE |
I gtNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev, |
|
./model/src/temp_integrate.F |
392 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
398 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
399 |
TEMP_INTEGRATE |
U gT_loc, gtNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
405 |
TEMP_INTEGRATE |
CALL DIAGNOSTICS_FILL(gt_AB,'AB_gT ',k,1,2,bi,bj,myThid) |
|
./model/src/temp_integrate.F |
422 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
434 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
435 |
TEMP_INTEGRATE |
U gtNm(1-OLx,1-OLy,1,bi,bj,1), |
|
./model/src/temp_integrate.F |
438 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
439 |
TEMP_INTEGRATE |
U gtNm(1-OLx,1-OLy,1,bi,bj,2), |
|
./model/src/temp_integrate.F |
443 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
444 |
TEMP_INTEGRATE |
U gtNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
458 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/temp_integrate.F |
459 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
465 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kLowC, |
|
./model/src/temp_integrate.F |
466 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
476 |
TEMP_INTEGRATE |
I bi, bj, dTtracerLev, |
|
./model/src/temp_integrate.F |
477 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
497 |
TEMP_INTEGRATE |
I theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
499 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/temp_integrate.F |
509 |
TEMP_INTEGRATE |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/temp_integrate.F |
522 |
TEMP_INTEGRATE |
I Nr, 3, deltaTClock, bi, bj, myThid ) |
|
./model/src/temp_integrate.F |
530 |
TEMP_INTEGRATE |
I bi, bj, gT_loc, |
|
./model/src/temp_integrate.F |
531 |
TEMP_INTEGRATE |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
532 |
TEMP_INTEGRATE |
O gtNm(1-OLx,1-OLy,1,bi,bj,m2), |
|
./model/src/temp_integrate.F |
536 |
TEMP_INTEGRATE |
I bi, bj, gT_loc, |
|
./model/src/temp_integrate.F |
537 |
TEMP_INTEGRATE |
U theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
538 |
TEMP_INTEGRATE |
O gtNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
544 |
TEMP_INTEGRATE |
I bi, bj, |
|
./model/src/temp_integrate.F |
545 |
TEMP_INTEGRATE |
O theta(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/temp_integrate.F |
83 |
TEMP_INTEGRATE |
INTEGER bi, bj |
|
./model/src/the_main_loop.F |
236 |
THE_MAIN_LOOP |
INTEGER bi,bj |
|
./model/src/the_main_loop.F |
543 |
THE_MAIN_LOOP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/the_main_loop.F |
545 |
THE_MAIN_LOOP |
loadedRec(bi,bj) = 0 |
|
./model/src/thermodynamics.F |
100 |
THERMODYNAMICS |
INTEGER bi, bj |
|
./model/src/thermodynamics.F |
167 |
THERMODYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/thermodynamics.F |
173 |
THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
|
./model/src/thermodynamics.F |
207 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
208 |
THERMODYNAMICS |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
218 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
219 |
THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/thermodynamics.F |
221 |
THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
231 |
THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/thermodynamics.F |
232 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
234 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
245 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
258 |
THERMODYNAMICS |
uFld(i,j,k) = uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
259 |
THERMODYNAMICS |
vFld(i,j,k) = vVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
260 |
THERMODYNAMICS |
wFld(i,j,k) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
269 |
THERMODYNAMICS |
I bi, bj, myIter, myThid ) |
|
./model/src/thermodynamics.F |
274 |
THERMODYNAMICS |
CALL MON_CALC_ADVCFL_TILE( Nr, bi, bj, |
|
./model/src/thermodynamics.F |
276 |
THERMODYNAMICS |
O trAdvCFL(1,bi,bj), |
|
./model/src/thermodynamics.F |
320 |
THERMODYNAMICS |
I bi, bj, recip_hFacNew, |
|
./model/src/thermodynamics.F |
331 |
THERMODYNAMICS |
I bi, bj, recip_hFacNew, |
|
./model/src/thermodynamics.F |
347 |
THERMODYNAMICS |
I bi, bj, recip_hFacNew, |
|
./model/src/thermodynamics.F |
357 |
THERMODYNAMICS |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./model/src/thermodynamics.F |
365 |
THERMODYNAMICS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
373 |
THERMODYNAMICS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/timestep.F |
108 |
TIMESTEP |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/timestep.F |
112 |
TIMESTEP |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/timestep.F |
120 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
121 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
134 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j) |
|
./model/src/timestep.F |
135 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j) |
|
./model/src/timestep.F |
13 |
TIMESTEP |
SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/timestep.F |
144 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guExt(i,j) |
|
./model/src/timestep.F |
145 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvExt(i,j) |
|
./model/src/timestep.F |
155 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
156 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
166 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
167 |
TIMESTEP |
U gU(1-OLx,1-OLy,1,bi,bj), guNm, |
|
./model/src/timestep.F |
171 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
172 |
TIMESTEP |
U gV(1-OLx,1-OLy,1,bi,bj), gvNm, |
|
./model/src/timestep.F |
177 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
178 |
TIMESTEP |
U gU(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/timestep.F |
179 |
TIMESTEP |
U guNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/timestep.F |
183 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
184 |
TIMESTEP |
U gV(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/timestep.F |
185 |
TIMESTEP |
U gvNm1(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/timestep.F |
191 |
TIMESTEP |
CALL DIAGNOSTICS_FILL(gu_AB,'AB_gU ',k,1,2,bi,bj,myThid) |
|
./model/src/timestep.F |
192 |
TIMESTEP |
CALL DIAGNOSTICS_FILL(gv_AB,'AB_gV ',k,1,2,bi,bj,myThid) |
|
./model/src/timestep.F |
202 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
203 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
235 |
TIMESTEP |
I bi,bj,k, dPhiHydX,dPhiHydY, gUtmp,gVtmp, |
|
./model/src/timestep.F |
243 |
TIMESTEP |
gUtmp(i,j) = ( gU(i,j,k,bi,bj) + guExt(i,j) ) + guCor(i,j) |
|
./model/src/timestep.F |
244 |
TIMESTEP |
gVtmp(i,j) = ( gV(i,j,k,bi,bj) + gvExt(i,j) ) + gvCor(i,j) |
|
./model/src/timestep.F |
250 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) + guCor(i,j) |
|
./model/src/timestep.F |
251 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) + gvCor(i,j) |
|
./model/src/timestep.F |
283 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj) |
|
./model/src/timestep.F |
284 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj) |
|
./model/src/timestep.F |
293 |
TIMESTEP |
& /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
295 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
298 |
TIMESTEP |
& /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
300 |
TIMESTEP |
& *recip_hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
308 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
310 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/timestep.F |
312 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
314 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/timestep.F |
331 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
332 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
333 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) ) |
|
./model/src/timestep.F |
336 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
337 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
338 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) ) |
|
./model/src/timestep.F |
346 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
347 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
349 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
350 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
360 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
365 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
372 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
377 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
383 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guDissip,'Um_Diss ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
384 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvDissip,'Vm_Diss ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
387 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guExt,'Um_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
388 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvExt,'Vm_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
392 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
393 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
46 |
TIMESTEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/timestep_tracer.F |
11 |
TIMESTEP_TRACER |
I bi, bj, deltaTLev, |
|
./model/src/timestep_tracer.F |
39 |
TIMESTEP_TRACER |
INTEGER bi, bj |
|
./model/src/timestep_wvel.F |
102 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
10 |
TIMESTEP_WVEL |
I bi,bj, myTime, myIter, myThid ) |
|
./model/src/timestep_wvel.F |
117 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
35 |
TIMESTEP_WVEL |
INTEGER bi,bj |
|
./model/src/timestep_wvel.F |
73 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
75 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
81 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
83 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/timestep_wvel.F |
91 |
TIMESTEP_WVEL |
gWtmp(i,j) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
92 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/timestep_wvel.F |
93 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/tracers_correction_step.F |
107 |
TRACERS_CORRECTION_STEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/tracers_correction_step.F |
114 |
TRACERS_CORRECTION_STEP |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
119 |
TRACERS_CORRECTION_STEP |
& CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
48 |
TRACERS_CORRECTION_STEP |
INTEGER bi, bj |
|
./model/src/tracers_correction_step.F |
53 |
TRACERS_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/tracers_correction_step.F |
55 |
TRACERS_CORRECTION_STEP |
CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,myThid) |
|
./model/src/tracers_correction_step.F |
96 |
TRACERS_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/tracers_iigw_correction.F |
101 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
10 |
TRACERS_IIGW_CORRECTION |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_iigw_correction.F |
38 |
TRACERS_IIGW_CORRECTION |
INTEGER bi,bj |
|
./model/src/tracers_iigw_correction.F |
69 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = ( wVel(i,j,kp1,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
82 |
TRACERS_IIGW_CORRECTION |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
85 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
105 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
106 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
107 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
108 |
UPDATE_CG2D |
& + faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
110 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
111 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
112 |
UPDATE_CG2D |
& + faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
121 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
124 |
UPDATE_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
129 |
UPDATE_CG2D |
& *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
137 |
UPDATE_CG2D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
138 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
142 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/update_cg2d.F |
149 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
150 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
151 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
152 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
153 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/update_cg2d.F |
167 |
UPDATE_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/update_cg2d.F |
171 |
UPDATE_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
172 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
174 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
176 |
UPDATE_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
178 |
UPDATE_CG2D |
pW(i,j,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
180 |
UPDATE_CG2D |
pW(i,j,bi,bj) = |
|
./model/src/update_cg2d.F |
181 |
UPDATE_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
183 |
UPDATE_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
185 |
UPDATE_CG2D |
pS(i,j,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
187 |
UPDATE_CG2D |
pS(i,j,bi,bj) = |
|
./model/src/update_cg2d.F |
188 |
UPDATE_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
52 |
UPDATE_CG2D |
INTEGER bi, bj |
|
./model/src/update_cg2d.F |
70 |
UPDATE_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/update_cg2d.F |
74 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
77 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
89 |
UPDATE_CG2D |
& + faceArea*dU_psFacX(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
90 |
UPDATE_CG2D |
& *recip_dxC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
91 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
92 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
93 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
94 |
UPDATE_CG2D |
& + faceArea*dV_psFacY(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
95 |
UPDATE_CG2D |
& *recip_dyC(i,j,bi,bj) |
|
./model/src/update_etah.F |
44 |
UPDATE_ETAH |
INTEGER i,j,bi,bj |
|
./model/src/update_etah.F |
49 |
UPDATE_ETAH |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/update_etah.F |
55 |
UPDATE_ETAH |
etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/update_etah.F |
65 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
72 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
73 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/update_etah.F |
83 |
UPDATE_ETAH |
& CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
|
./model/src/update_etaws.F |
46 |
UPDATE_ETAWS |
INTEGER i,j,bi,bj |
|
./model/src/update_etaws.F |
51 |
UPDATE_ETAWS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/update_etaws.F |
58 |
UPDATE_ETAWS |
dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj) |
|
./model/src/update_etaws.F |
59 |
UPDATE_ETAWS |
dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj) |
|
./model/src/update_etaws.F |
65 |
UPDATE_ETAWS |
etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj) |
|
./model/src/update_etaws.F |
66 |
UPDATE_ETAWS |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etaws.F |
67 |
UPDATE_ETAWS |
etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj) |
|
./model/src/update_etaws.F |
68 |
UPDATE_ETAWS |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etaws.F |
86 |
UPDATE_ETAWS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./model/src/update_etaws.F |
92 |
UPDATE_ETAWS |
dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj) |
|
./model/src/update_etaws.F |
93 |
UPDATE_ETAWS |
& - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_etaws.F |
94 |
UPDATE_ETAWS |
dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj) |
|
./model/src/update_etaws.F |
95 |
UPDATE_ETAWS |
& - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_masks_etc.F |
105 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
107 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
137 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_masks_etc.F |
141 |
UPDATE_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
147 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
148 |
UPDATE_MASKS_ETC |
& - drF(K)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
184 |
UPDATE_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/update_masks_etc.F |
189 |
UPDATE_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
191 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
192 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
194 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
210 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_masks_etc.F |
217 |
UPDATE_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
221 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
225 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
230 |
UPDATE_MASKS_ETC |
IF (DXG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
233 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
235 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
237 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
292 |
UPDATE_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/update_masks_etc.F |
297 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
299 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
302 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
305 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
307 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
310 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
313 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
315 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
318 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
344 |
UPDATE_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
345 |
UPDATE_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
69 |
UPDATE_MASKS_ETC |
INTEGER bi, bj |
|
./model/src/update_masks_etc.F |
82 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
103 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
105 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
107 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
109 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
111 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
112 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
113 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
114 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
43 |
UPDATE_R_STAR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_r_star.F |
46 |
UPDATE_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_r_star.F |
58 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
59 |
UPDATE_R_STAR |
& *rStarFacC(i,j,bi,bj) |
|
./model/src/update_r_star.F |
60 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
61 |
UPDATE_R_STAR |
& *rStarFacW(i,j,bi,bj) |
|
./model/src/update_r_star.F |
62 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
63 |
UPDATE_R_STAR |
& *rStarFacS(i,j,bi,bj) |
|
./model/src/update_r_star.F |
67 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
68 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
69 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
70 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
71 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
72 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
74 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
75 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
76 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
78 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
93 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
94 |
UPDATE_R_STAR |
& *rStarFacNm1C(i,j,bi,bj) |
|
./model/src/update_r_star.F |
95 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
96 |
UPDATE_R_STAR |
& *rStarFacNm1W(i,j,bi,bj) |
|
./model/src/update_r_star.F |
97 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
98 |
UPDATE_R_STAR |
& *rStarFacNm1S(i,j,bi,bj) |
|
./model/src/update_sigma.F |
106 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
107 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHc(i,j,bi,bj) |
|
./model/src/update_sigma.F |
108 |
UPDATE_SIGMA |
& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
121 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
132 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
133 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHw(i,j,bi,bj) |
|
./model/src/update_sigma.F |
134 |
UPDATE_SIGMA |
& + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
147 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
158 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
159 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHs(i,j,bi,bj) |
|
./model/src/update_sigma.F |
160 |
UPDATE_SIGMA |
& + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
169 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
173 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
57 |
UPDATE_SIGMA |
INTEGER bi, bj |
|
./model/src/update_sigma.F |
67 |
UPDATE_SIGMA |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_surf_dr.F |
106 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
108 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
109 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
115 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
117 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfNm1S(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
118 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1S(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
128 |
UPDATE_SURF_DR |
hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
129 |
UPDATE_SURF_DR |
IF (h0FacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_surf_dr.F |
130 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
132 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/update_surf_dr.F |
43 |
UPDATE_SURF_DR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_surf_dr.F |
47 |
UPDATE_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./model/src/update_surf_dr.F |
57 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
59 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
60 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
70 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
72 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
73 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
79 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
81 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
82 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
93 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
95 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
96 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj) |
|
./model/src/write_grid.F |
52 |
WRITE_GRID |
INTEGER i,j,k,bi,bj |
|
./model/src/write_grid.F |
62 |
WRITE_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./model/src/write_grid.F |
67 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./optim/optim_readdata.F |
278 |
OPTIM_READDATA |
& bi,bj |
|
./optim/optim_readdata.F |
69 |
OPTIM_READDATA |
integer bi,bj |
|
./optim/optim_writedata.F |
194 |
OPTIM_WRITEDATA |
write( funit ) bj |
|
./optim/optim_writedata.F |
58 |
OPTIM_WRITEDATA |
integer bi,bj |
|
./pkg/admtlm/admtlm_bypassad.F |
100 |
ADMTLM_BYPASSAD |
& + adetan(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
111 |
ADMTLM_BYPASSAD |
do bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
116 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
117 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
129 |
ADMTLM_BYPASSAD |
do bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
134 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
135 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
147 |
ADMTLM_BYPASSAD |
do bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
152 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
153 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
165 |
ADMTLM_BYPASSAD |
do bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
170 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
171 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
34 |
ADMTLM_BYPASSAD |
integer bi, bj |
|
./pkg/admtlm/admtlm_bypassad.F |
72 |
ADMTLM_BYPASSAD |
DO bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
83 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
86 |
ADMTLM_BYPASSAD |
adetan(i,j,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
87 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_bypassad.F |
95 |
ADMTLM_BYPASSAD |
do bj = jtlo, jthi |
|
./pkg/admtlm/admtlm_bypassad.F |
99 |
ADMTLM_BYPASSAD |
tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_init_fixed.F |
29 |
ADMTLM_INIT_FIXED |
integer bi, bj |
|
./pkg/admtlm/admtlm_init_fixed.F |
34 |
ADMTLM_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_init_fixed.F |
43 |
ADMTLM_INIT_FIXED |
wtheta(k,bi,bj) = 1. / (1. _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
44 |
ADMTLM_INIT_FIXED |
wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
45 |
ADMTLM_INIT_FIXED |
wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
50 |
ADMTLM_INIT_FIXED |
wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_map.F |
29 |
ADMTLM_MAP |
integer bi, bj |
|
./pkg/admtlm/admtlm_map.F |
31 |
ADMTLM_MAP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_map.F |
36 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_map.F |
39 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
|
./pkg/admtlm/admtlm_map.F |
40 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_metric.F |
32 |
ADMTLM_METRIC |
integer bi, bj |
|
./pkg/admtlm/admtlm_metric.F |
51 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
59 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
60 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
63 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2 |
|
./pkg/admtlm/admtlm_metric.F |
73 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
10 |
AIM_AIM2DYN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
114 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
130 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
131 |
AIM_AIM2DYN |
& / pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
140 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
152 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
153 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
154 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
155 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
156 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
157 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_aim2dyn.F |
164 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
165 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
166 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
167 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
169 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
170 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
171 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
172 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
183 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
184 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
185 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
186 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
53 |
AIM_AIM2DYN |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_aim2dyn.F |
89 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
98 |
AIM_AIM2DYN |
aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
102 |
AIM_AIM2LAND |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_aim2land.F |
103 |
AIM_AIM2LAND |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2land.F |
104 |
AIM_AIM2LAND |
land_HeatFlx(i,j,bi,bj) = land_HeatFlx(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
106 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2land.F |
123 |
AIM_AIM2LAND |
land_Pr_m_Ev(i,j,bi,bj) = land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
138 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = land_EnWFlux(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2land.F |
13 |
AIM_AIM2LAND |
I land_frc, bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
51 |
AIM_AIM2LAND |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_aim2land.F |
67 |
AIM_AIM2LAND |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
68 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
89 |
AIM_AIM2LAND |
land_HeatFlx(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
101 |
AIM_AIM2SIOCE |
IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
107 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
118 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
151 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
154 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
15 |
AIM_AIM2SIOCE |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
163 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
167 |
AIM_AIM2SIOCE |
sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
191 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
202 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
222 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
233 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
234 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
79 |
AIM_AIM2SIOCE |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_diagnostics.F |
100 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
102 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
104 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
106 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
108 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
113 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
115 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
135 |
AIM_DIAGNOSTICS |
IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
143 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
144 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
145 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
146 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
147 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
148 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
149 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
150 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
175 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
179 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
181 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 2, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
183 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 3, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
185 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 4, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
187 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 5, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
189 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 6, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
191 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 7, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
193 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 8, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
195 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 9, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
197 |
AIM_DIAGNOSTICS |
& 1, bi, bj,10, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
199 |
AIM_DIAGNOSTICS |
& 1, bi, bj,11, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
201 |
AIM_DIAGNOSTICS |
& 1, bi, bj,12, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
203 |
AIM_DIAGNOSTICS |
& 1, bi, bj,13, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
205 |
AIM_DIAGNOSTICS |
& 1, bi, bj,14, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& 1, bi, bj,15, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& 1, bi, bj,16, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
& 1, bi, bj,17, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
& 1, bi, bj,18, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
218 |
AIM_DIAGNOSTICS |
& 1, bi, bj,19, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
220 |
AIM_DIAGNOSTICS |
& 1, bi, bj,20, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
222 |
AIM_DIAGNOSTICS |
& 1, bi, bj,21, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
224 |
AIM_DIAGNOSTICS |
& 1, bi, bj,22, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
241 |
AIM_DIAGNOSTICS |
IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
249 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
251 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
253 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
255 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
257 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
259 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
261 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
263 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
265 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
267 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
269 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
271 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
273 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
275 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
277 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
279 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
281 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
283 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
288 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
290 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
292 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
294 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
322 |
AIM_DIAGNOSTICS |
TSRtave(i,j,bi,bj) = TSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
324 |
AIM_DIAGNOSTICS |
OLRtave(i,j,bi,bj) = OLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
326 |
AIM_DIAGNOSTICS |
SSRtave(i,j,bi,bj) = SSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
328 |
AIM_DIAGNOSTICS |
SLRtave(i,j,bi,bj) = SLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
330 |
AIM_DIAGNOSTICS |
SHFtave(i,j,bi,bj) = SHFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
332 |
AIM_DIAGNOSTICS |
EVAPtave(i,j,bi,bj) = EVAPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
334 |
AIM_DIAGNOSTICS |
PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
336 |
AIM_DIAGNOSTICS |
PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
338 |
AIM_DIAGNOSTICS |
CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
340 |
AIM_DIAGNOSTICS |
CLTOPtave(i,j,bi,bj) = CLTOPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
342 |
AIM_DIAGNOSTICS |
CBMFtave(i,j,bi,bj) = CBMFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
344 |
AIM_DIAGNOSTICS |
DRAGtave(i,j,bi,bj) = DRAGtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
346 |
AIM_DIAGNOSTICS |
aimV0tave(i,j,bi,bj) = aimV0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
348 |
AIM_DIAGNOSTICS |
aimT0tave(i,j,bi,bj) = aimT0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
350 |
AIM_DIAGNOSTICS |
aimQ0tave(i,j,bi,bj) = aimQ0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
352 |
AIM_DIAGNOSTICS |
EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
356 |
AIM_DIAGNOSTICS |
albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
358 |
AIM_DIAGNOSTICS |
dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
369 |
AIM_DIAGNOSTICS |
aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
376 |
AIM_DIAGNOSTICS |
aim_timeAve(bi,bj) = aim_timeAve(bi,bj)+DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
387 |
AIM_DIAGNOSTICS |
& 'RADSW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
389 |
AIM_DIAGNOSTICS |
& 'RADLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
391 |
AIM_DIAGNOSTICS |
& 'DTCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
393 |
AIM_DIAGNOSTICS |
& 'TURBT ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
395 |
AIM_DIAGNOSTICS |
& 'DTLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
397 |
AIM_DIAGNOSTICS |
& 'DQCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
399 |
AIM_DIAGNOSTICS |
& 'TURBQ ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
401 |
AIM_DIAGNOSTICS |
& 'DQLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
403 |
AIM_DIAGNOSTICS |
& 'RELHUM ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
405 |
AIM_DIAGNOSTICS |
& 'TSR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
407 |
AIM_DIAGNOSTICS |
& 'OLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
409 |
AIM_DIAGNOSTICS |
& 'RADSWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
411 |
AIM_DIAGNOSTICS |
& 'RADLWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
413 |
AIM_DIAGNOSTICS |
& 'HFLUX ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
415 |
AIM_DIAGNOSTICS |
& 'EVAP ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
417 |
AIM_DIAGNOSTICS |
& 'PRECON ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
419 |
AIM_DIAGNOSTICS |
& 'PRECLS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
41 |
AIM_DIAGNOSTICS |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_diagnostics.F |
421 |
AIM_DIAGNOSTICS |
& 'CLDFRC ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
423 |
AIM_DIAGNOSTICS |
& 'CLDPRS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
427 |
AIM_DIAGNOSTICS |
& 'CLDMAS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
429 |
AIM_DIAGNOSTICS |
& 'DRAG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
431 |
AIM_DIAGNOSTICS |
& 'WINDS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
433 |
AIM_DIAGNOSTICS |
& 'TS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
435 |
AIM_DIAGNOSTICS |
& 'QS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
442 |
AIM_DIAGNOSTICS |
& 'ENPREC ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
445 |
AIM_DIAGNOSTICS |
& 'ALBVISDF', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
447 |
AIM_DIAGNOSTICS |
& 'DTSIMPL ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
451 |
AIM_DIAGNOSTICS |
& 'SWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
453 |
AIM_DIAGNOSTICS |
& 'LWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
455 |
AIM_DIAGNOSTICS |
& 'TSRCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
457 |
AIM_DIAGNOSTICS |
& 'OLRCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
459 |
AIM_DIAGNOSTICS |
& 'SWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
461 |
AIM_DIAGNOSTICS |
& 'LWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
94 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
96 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
98 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
9 |
AIM_DIAGNOSTICS |
SUBROUTINE AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_co2.F |
54 |
AIM_DO_CO2 |
INTEGER bi, bj, i, j |
|
./pkg/aim_v23/aim_do_co2.F |
68 |
AIM_DO_CO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
72 |
AIM_DO_CO2 |
aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
83 |
AIM_DO_CO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
85 |
AIM_DO_CO2 |
flxCO2tile(bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_do_co2.F |
88 |
AIM_DO_CO2 |
flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
89 |
AIM_DO_CO2 |
& * rA(i,j,bi,bj) * deltaT |
|
./pkg/aim_v23/aim_do_physics.F |
100 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
103 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_do_physics.F |
112 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
129 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
135 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
144 |
AIM_DO_PHYSICS |
CALL SFLSET (PHI0, fOrogr(1,myThid), bi,bj,myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
152 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
154 |
AIM_DO_PHYSICS |
CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
159 |
AIM_DO_PHYSICS |
CALL AIM_AIM2LAND( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
163 |
AIM_DO_PHYSICS |
CALL LAND_STEPFWD( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
167 |
AIM_DO_PHYSICS |
CALL LAND_DO_DIAGS( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
177 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
187 |
AIM_DO_PHYSICS |
CALL THSICE_STEP_FWD( bi, bj, 1, sNx, 1, sNy, |
|
./pkg/aim_v23/aim_do_physics.F |
194 |
AIM_DO_PHYSICS |
CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
211 |
AIM_DO_PHYSICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
217 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
74 |
AIM_DO_PHYSICS |
INTEGER bi,bj |
|
./pkg/aim_v23/aim_do_physics.F |
91 |
AIM_DO_PHYSICS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
98 |
AIM_DO_PHYSICS |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
115 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
127 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
12 |
AIM_DYN2AIM |
I bi,bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
168 |
AIM_DYN2AIM |
IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
172 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
178 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
191 |
AIM_DYN2AIM |
TA(I2,Katm) = TA(I2,Katm)*pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
202 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
205 |
AIM_DYN2AIM |
& uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
206 |
AIM_DYN2AIM |
& + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
207 |
AIM_DYN2AIM |
& + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
208 |
AIM_DYN2AIM |
& + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
230 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
265 |
AIM_DYN2AIM |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
58 |
AIM_DYN2AIM |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_dyn2aim.F |
79 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
80 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
88 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
99 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po |
|
./pkg/aim_v23/aim_fields_load.F |
154 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
161 |
AIM_FIELDS_LOAD |
aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100. |
|
./pkg/aim_v23/aim_fields_load.F |
178 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
179 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
201 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
206 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj)= 0. |
|
./pkg/aim_v23/aim_fields_load.F |
207 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
208 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
209 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
210 |
AIM_FIELDS_LOAD |
aim_oic0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
211 |
AIM_FIELDS_LOAD |
aim_snw0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
212 |
AIM_FIELDS_LOAD |
aim_sw10(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
213 |
AIM_FIELDS_LOAD |
aim_sw20(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
214 |
AIM_FIELDS_LOAD |
aim_qfx0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
215 |
AIM_FIELDS_LOAD |
aim_sst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
216 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
217 |
AIM_FIELDS_LOAD |
aim_oic1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
218 |
AIM_FIELDS_LOAD |
aim_snw1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
219 |
AIM_FIELDS_LOAD |
aim_sw11(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
220 |
AIM_FIELDS_LOAD |
aim_sw21(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
221 |
AIM_FIELDS_LOAD |
aim_qfx1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
288 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
296 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_fields_load.F |
304 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_fields_load.F |
305 |
AIM_FIELDS_LOAD |
& MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0) |
|
./pkg/aim_v23/aim_fields_load.F |
316 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
317 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
318 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
319 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
57 |
AIM_FIELDS_LOAD |
INTEGER bi,bj, i, j |
|
./pkg/aim_v23/aim_initialise.F |
106 |
AIM_INITIALISE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_initialise.F |
110 |
AIM_INITIALISE |
aim_landFr (i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_initialise.F |
48 |
AIM_INITIALISE |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_initialise.F |
84 |
AIM_INITIALISE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_initialise.F |
88 |
AIM_INITIALISE |
tmpPgrnd = truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
89 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
91 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa |
|
./pkg/aim_v23/aim_initialise.F |
97 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
98 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa |
|
./pkg/aim_v23/aim_land2aim.F |
104 |
AIM_LAND2AIM |
land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K |
|
./pkg/aim_v23/aim_land2aim.F |
110 |
AIM_LAND2AIM |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
124 |
AIM_LAND2AIM |
aimSWA(i,j) = land_groundW(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
125 |
AIM_LAND2AIM |
& + land_hSnow(i,j,bi,bj)*recip_hSnWet |
|
./pkg/aim_v23/aim_land2aim.F |
137 |
AIM_LAND2AIM |
aimSWA(i,j) = land_groundW(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
150 |
AIM_LAND2AIM |
land_groundW(i,j,k,bi,bj) = aimSWA(i,j) |
|
./pkg/aim_v23/aim_land2aim.F |
15 |
AIM_LAND2AIM |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_land2aim.F |
163 |
AIM_LAND2AIM |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
166 |
AIM_LAND2AIM |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/aim_v23/aim_land2aim.F |
167 |
AIM_LAND2AIM |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
184 |
AIM_LAND2AIM |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_land2aim.F |
191 |
AIM_LAND2AIM |
aimAlb(i,j) = grnd_alb(i,j,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
192 |
AIM_LAND2AIM |
& + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_land2aim.F |
69 |
AIM_LAND2AIM |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_v23/aim_land2aim.F |
96 |
AIM_LAND2AIM |
aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_land_impl.F |
103 |
AIM_LAND_IMPL |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_land_impl.F |
104 |
AIM_LAND_IMPL |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
108 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -ALHF |
|
./pkg/aim_v23/aim_land_impl.F |
118 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_land_impl.F |
140 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,0) |
|
./pkg/aim_v23/aim_land_impl.F |
142 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2) |
|
./pkg/aim_v23/aim_land_impl.F |
145 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
18 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_land_impl.F |
73 |
AIM_LAND_IMPL |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_land_impl.F |
92 |
AIM_LAND_IMPL |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_land_impl.F |
93 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_sice2aim.F |
104 |
AIM_SICE2AIM |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/aim_v23/aim_sice2aim.F |
106 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
107 |
AIM_SICE2AIM |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
108 |
AIM_SICE2AIM |
I snowAge(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
109 |
AIM_SICE2AIM |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
113 |
AIM_SICE2AIM |
aimAlb(i,j) = siceAlb(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
137 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
138 |
AIM_SICE2AIM |
tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
139 |
AIM_SICE2AIM |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/aim_v23/aim_sice2aim.F |
146 |
AIM_SICE2AIM |
& tOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
147 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
149 |
AIM_SICE2AIM |
& sOceMxL(1-OLx,1-OLy,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
150 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
156 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
157 |
AIM_SICE2AIM |
aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
16 |
AIM_SICE2AIM |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
68 |
AIM_SICE2AIM |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_v23/aim_sice2aim.F |
85 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
86 |
AIM_SICE2AIM |
aimSIfrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
94 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
95 |
AIM_SICE2AIM |
Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
96 |
AIM_SICE2AIM |
iceMask(i,j,bi,bj) = aimSIfrc(i,j) |
|
./pkg/aim_v23/aim_sice_impl.F |
17 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_sice_impl.F |
71 |
AIM_SICE_IMPL |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_sice_impl.F |
95 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
143 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
144 |
AIM_SURF_BC |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
145 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
146 |
AIM_SURF_BC |
& + aim_sWght1*aim_lst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
161 |
AIM_SURF_BC |
soilw_0 = ( aim_sw10(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
162 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./pkg/aim_v23/aim_surf_bc.F |
163 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
165 |
AIM_SURF_BC |
soilw_1 = ( aim_sw11(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
166 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./pkg/aim_v23/aim_surf_bc.F |
167 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
179 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
180 |
AIM_SURF_BC |
& + aim_sWght1*aim_snw1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
181 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
182 |
AIM_SURF_BC |
& + aim_sWght1*aim_oic1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
226 |
AIM_SURF_BC |
alb_land = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
227 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
234 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
235 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
286 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
287 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
306 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
307 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
308 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
327 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
359 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
366 |
AIM_SURF_BC |
aim_CO2(i,j,bi,bj)= atm_pCO2 |
|
./pkg/aim_v23/aim_surf_bc.F |
372 |
AIM_SURF_BC |
CALL DIAGNOSTICS_SCALE_FILL( aim_CO2(1-OLx,1-OLy,bi,bj), |
|
./pkg/aim_v23/aim_surf_bc.F |
373 |
AIM_SURF_BC |
& pCO2scl, 1, 'aim_pCO2', 1, 1, 2, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
384 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
395 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
68 |
AIM_SURF_BC |
INTEGER bi, bj |
|
./eesupp/src/exch_cycle_ebl.F |
50 |
EXCH_CYCLE_EBL |
INTEGER bi, bj |
|
./eesupp/src/exch_cycle_ebl.F |
53 |
EXCH_CYCLE_EBL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/exch_cycle_ebl.F |
56 |
EXCH_CYCLE_EBL |
exchangeBufLevel(1,bi,bj) = exchangeBufLevel(1,bi,bj)+1 |
|
./eesupp/src/exch_cycle_ebl.F |
57 |
EXCH_CYCLE_EBL |
IF ( exchangeBufLevel(1,bi,bj) .GT. NUMBER_OF_BUFFER_LEVELS ) |
|
./eesupp/src/exch_cycle_ebl.F |
58 |
EXCH_CYCLE_EBL |
& exchangeBufLevel(1,bi,bj) = 1 |
|
./pkg/aim_v23/aim_tendency_apply.F |
101 |
AIM_TENDENCY_APPLY_U |
& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
111 |
AIM_TENDENCY_APPLY_U |
& -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
115 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
117 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
130 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
131 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
133 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
134 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
135 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
138 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
140 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
143 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
157 |
AIM_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
158 |
AIM_TENDENCY_APPLY_U |
& - halfRL * ( aim_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
159 |
AIM_TENDENCY_APPLY_U |
& + aim_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
160 |
AIM_TENDENCY_APPLY_U |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
168 |
AIM_TENDENCY_APPLY_U |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
176 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
182 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
189 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
191 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
19 |
AIM_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
207 |
AIM_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
244 |
AIM_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
272 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
273 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
286 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
289 |
AIM_TENDENCY_APPLY_V |
& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
290 |
AIM_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
297 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
299 |
AIM_TENDENCY_APPLY_V |
& -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
300 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
303 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
305 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
308 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
319 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
321 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
322 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
323 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
326 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
328 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
331 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
345 |
AIM_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
346 |
AIM_TENDENCY_APPLY_V |
& - halfRL * ( aim_dKE(i, j )*rAs(i, j, bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
347 |
AIM_TENDENCY_APPLY_V |
& + aim_dKE(i,j+1)*rAs(i,j+1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
348 |
AIM_TENDENCY_APPLY_V |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
356 |
AIM_TENDENCY_APPLY_V |
& deltaTClock, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
364 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = aim_dKE(i,j) |
|
./pkg/aim_v23/aim_tendency_apply.F |
370 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
377 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
379 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
395 |
AIM_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
427 |
AIM_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
441 |
AIM_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
442 |
AIM_TENDENCY_APPLY_T |
& *( gT_arr(i,j) + aim_dTdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
457 |
AIM_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
489 |
AIM_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
503 |
AIM_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
504 |
AIM_TENDENCY_APPLY_S |
& *( gS_arr(i,j) + aim_dSdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
56 |
AIM_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
84 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
85 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
98 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_write_local.F |
11 |
AIM_WRITE_LOCAL |
I bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_local.F |
40 |
AIM_WRITE_LOCAL |
INTEGER bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_local.F |
61 |
AIM_WRITE_LOCAL |
& 'AIM_WRITE_LOCAL (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_local.F |
94 |
AIM_WRITE_LOCAL |
& bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
11 |
AIM_WRITE_PHYS |
I kLev, bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
43 |
AIM_WRITE_PHYS |
INTEGER kLev, bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_phys.F |
65 |
AIM_WRITE_PHYS |
bjLoc = bj |
|
./pkg/aim_v23/aim_write_phys.F |
72 |
AIM_WRITE_PHYS |
bjLoc = bj + myByLo(ith) - 1 |
|
./pkg/aim_v23/aim_write_phys.F |
81 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_phys.F |
91 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
|
./pkg/aim_v23/aim_write_tave.F |
100 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SHFtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
101 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EVAPtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
102 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECNVtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
103 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECLStave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
104 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLOUDCtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
105 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLTOPtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
106 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CBMFtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
107 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(DRAGtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
108 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimV0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
109 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimT0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
110 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimQ0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
111 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EnFxPrtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
112 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(albedotave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
113 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(dTsurftave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
115 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
204 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
206 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
207 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
208 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
209 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
210 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
211 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
212 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
213 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
214 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
215 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
216 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
217 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
218 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
219 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
220 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
221 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
222 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
223 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
224 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
225 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
226 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
227 |
AIM_WRITE_TAVE |
aim_timeAve(bi,bj) = 0. |
|
./pkg/aim_v23/aim_write_tave.F |
45 |
AIM_WRITE_TAVE |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_write_tave.F |
58 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
60 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
61 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
62 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
63 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
64 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
65 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
66 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
67 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
68 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
69 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
70 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
71 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
72 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
73 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
74 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
75 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
76 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
77 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
78 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
79 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
80 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
81 |
AIM_WRITE_TAVE |
aim_timeAve(bi,bj) = 0. |
|
./pkg/aim_v23/aim_write_tave.F |
92 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
94 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(USTRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
95 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(VSTRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
96 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(TSRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
97 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(OLRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
98 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SSRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
99 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SLRtave, aim_timeAve,1,bi,bj,myThid) |
|
./eesupp/src/exch_init.F |
29 |
EXCH_INIT |
INTEGER bi, bj |
|
./eesupp/src/exch_init.F |
32 |
EXCH_INIT |
DO bj=1,nSy |
|
./eesupp/src/exch_init.F |
34 |
EXCH_INIT |
exchangeBufLevel (1,bi,bj) = 1 |
|
./eesupp/src/exch_init.F |
35 |
EXCH_INIT |
exchRecvXSpinCount(1,bi,bj) = 0 |
|
./eesupp/src/exch_init.F |
36 |
EXCH_INIT |
exchRecvXSpinMax (1,bi,bj) = 0 |
|
./eesupp/src/exch_init.F |
37 |
EXCH_INIT |
exchRecvXSpinMin (1,bi,bj) = 1000000000 |
|
./eesupp/src/exch_init.F |
38 |
EXCH_INIT |
exchRecvYSpinCount(1,bi,bj) = 0 |
|
./eesupp/src/exch_init.F |
39 |
EXCH_INIT |
exchRecvYSpinMax (1,bi,bj) = 0 |
|
./eesupp/src/exch_init.F |
40 |
EXCH_INIT |
exchRecvYSpinMin (1,bi,bj) = 1000000000 |
|
./pkg/aim_v23/phy_convmf.F |
55 |
CONVMF |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_convmf.F |
8 |
CONVMF |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
10 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
143 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
182 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
198 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
208 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
225 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
254 |
PHY_DRIVER |
I absLW_CO2, kGround, bi, bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
269 |
PHY_DRIVER |
& 'UPSWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
282 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
298 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
308 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
316 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
325 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
336 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
344 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
362 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
367 |
PHY_DRIVER |
& 'DWNLWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
380 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
400 |
PHY_DRIVER |
I absLW_CO2, kGround, bi, bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
405 |
PHY_DRIVER |
& 'UPSWGclr', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
414 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
421 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
441 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
78 |
PHY_DRIVER |
INTEGER bi,bj |
|
./pkg/aim_v23/phy_lscond.F |
48 |
LSCOND |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_lscond.F |
8 |
LSCOND |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
144 |
SOL_OZ |
& 'FSOL ', 1, 1, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_radiat.F |
162 |
RADSW |
I absCO2, kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
19 |
SOL_OZ |
I bi, bj, myThid) |
|
./pkg/aim_v23/phy_radiat.F |
211 |
RADSW |
INTEGER bi, bj, myThid |
|
./pkg/aim_v23/phy_radiat.F |
494 |
RADSW |
& 'CLDCLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_radiat.F |
513 |
RADLW |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
53 |
SOL_OZ |
INTEGER bi, bj, myThid |
|
./pkg/aim_v23/phy_radiat.F |
559 |
RADLW |
INTEGER bi,bj,myThid |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
15 |
FILL_CS_CORNER_AG_RL |
I bi,bj, myThid) |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
53 |
FILL_CS_CORNER_AG_RL |
INTEGER bi,bj |
|
./eesupp/src/fill_cs_corner_ag_rl.F |
77 |
FILL_CS_CORNER_AG_RL |
myTile = W2_myTileList(bi,bj) |
|
./pkg/aim_v23/phy_snow_precip.F |
14 |
SNOW_PRECIP |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_snow_precip.F |
65 |
SNOW_PRECIP |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_land.F |
16 |
SUFLUX_LAND |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_land.F |
88 |
SUFLUX_LAND |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_ocean.F |
14 |
SUFLUX_OCEAN |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
65 |
SUFLUX_OCEAN |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
|
./pkg/aim_v23/phy_suflux_post.F |
15 |
SUFLUX_POST |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
85 |
SUFLUX_POST |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_prep.F |
13 |
SUFLUX_PREP |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
217 |
SFLSET |
SUBROUTINE SFLSET (PHI0, FOROG, bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
242 |
SFLSET |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_prep.F |
91 |
SUFLUX_PREP |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_suflux_sice.F |
16 |
SUFLUX_SICE |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_sice.F |
88 |
SUFLUX_SICE |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_vdifsc.F |
63 |
VDIFSC |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_vdifsc.F |
8 |
VDIFSC |
I kGrd,bi,bj,myThid) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
15 |
FILL_CS_CORNER_TR_RL |
I bi,bj, myThid) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
53 |
FILL_CS_CORNER_TR_RL |
INTEGER bi,bj |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
77 |
FILL_CS_CORNER_TR_RL |
myTile = W2_myTileList(bi,bj) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
15 |
FILL_CS_CORNER_UV_RL |
I bi,bj, myThid) |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
52 |
FILL_CS_CORNER_UV_RL |
INTEGER bi,bj |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
76 |
FILL_CS_CORNER_UV_RL |
myTile = W2_myTileList(bi,bj) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
15 |
FILL_CS_CORNER_UV_RS |
I bi,bj, myThid) |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
50 |
FILL_CS_CORNER_UV_RS |
INTEGER bi,bj |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
74 |
FILL_CS_CORNER_UV_RS |
myTile = W2_myTileList(bi,bj) |
|
./eesupp/src/gather_xz.F |
18 |
GATHER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/gather_xz.F |
33 |
GATHER_XZ |
DO bj=1,nSy |
|
./eesupp/src/gather_xz.F |
37 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
53 |
GATHER_XZ |
DO bj=1,nSy |
|
./eesupp/src/gather_xz.F |
57 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
72 |
GATHER_XZ |
DO bj=1,nSy |
|
./eesupp/src/gather_xz.F |
76 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
100 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
101 |
ATM_APPLY_IMPORT |
tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
111 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
112 |
ATM_APPLY_IMPORT |
sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
122 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
123 |
ATM_APPLY_IMPORT |
v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
12 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
138 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
149 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
153 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
154 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
157 |
ATM_APPLY_IMPORT |
atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/atm_compon_interf/atm_apply_import.F |
53 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
|
./pkg/atm_compon_interf/atm_apply_import.F |
69 |
ATM_APPLY_IMPORT |
iceMask (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
70 |
ATM_APPLY_IMPORT |
iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
71 |
ATM_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
72 |
ATM_APPLY_IMPORT |
Qice1 (i,j,bi,bj) = sIceQ1_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
Qice2 (i,j,bi,bj) = sIceQ2_cpl (i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_apply_import.F |
89 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
90 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
48 |
ATM_CHECK_CPLCONFIG |
INTEGER i, j, bi, bj |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
81 |
ATM_CHECK_CPLCONFIG |
DO bj=1,nSy |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
85 |
ATM_CHECK_CPLCONFIG |
IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
86 |
ATM_CHECK_CPLCONFIG |
& .AND. ocMxlD(i,j,bi,bj) .EQ. mxlD_noWater ) |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
87 |
ATM_CHECK_CPLCONFIG |
& .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
88 |
ATM_CHECK_CPLCONFIG |
& .AND. ocMxlD(i,j,bi,bj) .NE. mxlD_noWater ) ) THEN |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
92 |
ATM_CHECK_CPLCONFIG |
& ',bi=', bi, ',bj=', bj, ')' |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
95 |
ATM_CHECK_CPLCONFIG |
& 'Land (atmosphere) ==', landMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
98 |
ATM_CHECK_CPLCONFIG |
& 'Mxl-Depth (ocean) ==', ocMxlD(i,j,bi,bj) |
|
./eesupp/src/gather_yz.F |
18 |
GATHER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/gather_yz.F |
33 |
GATHER_YZ |
DO bj=1,nSy |
|
./eesupp/src/gather_yz.F |
37 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
53 |
GATHER_YZ |
DO bj=1,nSy |
|
./eesupp/src/gather_yz.F |
57 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
72 |
GATHER_YZ |
DO bj=1,nSy |
|
./eesupp/src/gather_yz.F |
76 |
GATHER_YZ |
global(jG) = temp(j,bi,bj) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
244 |
ATM_CPL_READ_PICKUP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
248 |
ATM_CPL_READ_PICKUP |
EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
250 |
ATM_CPL_READ_PICKUP |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
INTEGER i, bi, bj |
|
./pkg/atm_compon_interf/atm_export_fld.F |
53 |
ATM_EXPORT_FLD |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_export_fld.F |
56 |
ATM_EXPORT_FLD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_export_fld.F |
58 |
ATM_EXPORT_FLD |
IF ( ABS(countTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/atm_compon_interf/atm_export_fld.F |
59 |
ATM_EXPORT_FLD |
& .AND. countTime(bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_export_fld.F |
60 |
ATM_EXPORT_FLD |
recipAvT = 1. _d 0/countTime(bi,bj) |
|
./pkg/atm_compon_interf/atm_export_fld.F |
63 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT |
|
./pkg/atm_compon_interf/atm_export_fld.F |
68 |
ATM_EXPORT_FLD |
& bi,bj,1.-countTime(bi,bj) |
|
./pkg/atm_compon_interf/atm_export_fld.F |
83 |
ATM_EXPORT_FLD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_export_fld.F |
85 |
ATM_EXPORT_FLD |
countTime(bi,bj) = 0. |
|
./pkg/atm_compon_interf/atm_export_fld.F |
88 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
48 |
ATM_GET_ATMCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
51 |
ATM_GET_ATMCONFIG |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
57 |
ATM_GET_ATMCONFIG |
landMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
65 |
ATM_GET_ATMCONFIG |
landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
40 |
ATM_IMPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
43 |
ATM_IMPORT_OCNCONFIG |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_import_ocnconfig.F |
47 |
ATM_IMPORT_OCNCONFIG |
ocMxlD (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
13 |
ATM_STORE_AIM_FIELDS |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
52 |
ATM_STORE_AIM_FIELDS |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
68 |
ATM_STORE_AIM_FIELDS |
sWSpeedTime(bi,bj) = sWSpeedTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
71 |
ATM_STORE_AIM_FIELDS |
sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
72 |
ATM_STORE_AIM_FIELDS |
& + aim_surfWind(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
80 |
ATM_STORE_AIM_FIELDS |
airCO2Time(bi,bj) = airCO2Time(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
83 |
ATM_STORE_AIM_FIELDS |
airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
84 |
ATM_STORE_AIM_FIELDS |
& + aim_CO2(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
100 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i,j-1,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
101 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
102 |
ATM_STORE_AIM_WNDSTR |
& + aim_drag(i, j ,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
103 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
104 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
105 |
ATM_STORE_AIM_WNDSTR |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
117 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
119 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
120 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
121 |
ATM_STORE_AIM_WNDSTR |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
129 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
131 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
132 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
133 |
ATM_STORE_AIM_WNDSTR |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
13 |
ATM_STORE_AIM_WNDSTR |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
56 |
ATM_STORE_AIM_WNDSTR |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
75 |
ATM_STORE_AIM_WNDSTR |
tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
76 |
ATM_STORE_AIM_WNDSTR |
tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
83 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
85 |
ATM_STORE_AIM_WNDSTR |
& ( aim_drag(i-1,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
86 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
87 |
ATM_STORE_AIM_WNDSTR |
& + aim_drag( i ,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
88 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
89 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
90 |
ATM_STORE_AIM_WNDSTR |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
98 |
ATM_STORE_AIM_WNDSTR |
IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
10 |
ATM_STORE_DYNVARS |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
41 |
ATM_STORE_DYNVARS |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
56 |
ATM_STORE_DYNVARS |
atmSLPrTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
61 |
ATM_STORE_DYNVARS |
atmSLPr(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
10 |
ATM_STORE_LAND |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_land.F |
48 |
ATM_STORE_LAND |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_land.F |
63 |
ATM_STORE_LAND |
RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_land.F |
66 |
ATM_STORE_LAND |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
67 |
ATM_STORE_LAND |
& + land_runOff(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_land.F |
74 |
ATM_STORE_LAND |
ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_land.F |
77 |
ATM_STORE_LAND |
RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_land.F |
78 |
ATM_STORE_LAND |
& + land_enRnOf(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
45 |
ATM_STORE_MY_DATA |
INTEGER bi,bj |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
47 |
ATM_STORE_MY_DATA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
51 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SURFFLUX( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
53 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIM_WNDSTR( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
56 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIM_FIELDS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_store_my_data.F |
59 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_LAND( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
102 |
ATM_STORE_SURFFLUX |
tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
103 |
ATM_STORE_SURFFLUX |
tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
106 |
ATM_STORE_SURFFLUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
107 |
ATM_STORE_SURFFLUX |
& + fu(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
108 |
ATM_STORE_SURFFLUX |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
109 |
ATM_STORE_SURFFLUX |
& + fv(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
10 |
ATM_STORE_SURFFLUX |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
42 |
ATM_STORE_SURFFLUX |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
57 |
ATM_STORE_SURFFLUX |
HeatFluxTime(bi,bj) = HeatFluxTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
60 |
ATM_STORE_SURFFLUX |
HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
61 |
ATM_STORE_SURFFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
67 |
ATM_STORE_SURFFLUX |
qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
70 |
ATM_STORE_SURFFLUX |
qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
71 |
ATM_STORE_SURFFLUX |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
77 |
ATM_STORE_SURFFLUX |
EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
80 |
ATM_STORE_SURFFLUX |
EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
81 |
ATM_STORE_SURFFLUX |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
89 |
ATM_STORE_SURFFLUX |
saltFxTime(bi,bj) = saltFxTime(bi,bj) + cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
92 |
ATM_STORE_SURFFLUX |
iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
93 |
ATM_STORE_SURFFLUX |
& + saltFlux(i,j,bi,bj)*cplTimeFraction |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
10 |
ATM_STORE_THSICE |
I bi, bj, |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
44 |
ATM_STORE_THSICE |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
61 |
ATM_STORE_THSICE |
sIceMassTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
65 |
ATM_STORE_THSICE |
seaIceMass(i,j,bi,bj) = |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
66 |
ATM_STORE_THSICE |
& ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
67 |
ATM_STORE_THSICE |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
68 |
ATM_STORE_THSICE |
& )*iceMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
77 |
ATM_STORE_THSICE |
sIceFracTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
80 |
ATM_STORE_THSICE |
sIceFrac_cpl(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
88 |
ATM_STORE_THSICE |
sIceThickTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
89 |
ATM_STORE_THSICE |
sIceSnowHTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
90 |
ATM_STORE_THSICE |
sIceQ1Time (bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
91 |
ATM_STORE_THSICE |
sIceQ2Time (bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
94 |
ATM_STORE_THSICE |
sIceThick_cpl(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
95 |
ATM_STORE_THSICE |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
96 |
ATM_STORE_THSICE |
sIceQ1_cpl (i,j,bi,bj) = Qice1(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
97 |
ATM_STORE_THSICE |
sIceQ2_cpl (i,j,bi,bj) = Qice2(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
42 |
CPL_DIAGNOSTICS_FILL |
INTEGER bi,bj |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
82 |
CPL_DIAGNOSTICS_FILL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
87 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
88 |
CPL_DIAGNOSTICS_FILL |
& * sIceThick_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
92 |
CPL_DIAGNOSTICS_FILL |
I sIceQ1_cpl(1-OLx,1-OLy,bi,bj), |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
94 |
CPL_DIAGNOSTICS_FILL |
I 0, 1, 2,bi,bj, myThid ) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
96 |
CPL_DIAGNOSTICS_FILL |
I sIceQ2_cpl(1-OLx,1-OLy,bi,bj), |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
98 |
CPL_DIAGNOSTICS_FILL |
I 0, 1, 2,bi,bj, myThid ) |
|
./pkg/atm_compon_interf/cpl_export_import_data.F |
48 |
CPL_EXPORT_IMPORT_DATA |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/cpl_export_import_data.F |
69 |
CPL_EXPORT_IMPORT_DATA |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/cpl_export_import_data.F |
71 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_STORE_DYNVARS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_export_import_data.F |
73 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_STORE_THSICE( bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
100 |
CPL_INI_VARS |
sIceMassTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
101 |
CPL_INI_VARS |
saltPlmFlxTime(bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
104 |
CPL_INI_VARS |
airCO2Time (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
105 |
CPL_INI_VARS |
sWSpeedTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
108 |
CPL_INI_VARS |
sIceFracTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
109 |
CPL_INI_VARS |
sIceThickTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
110 |
CPL_INI_VARS |
sIceSnowHTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
111 |
CPL_INI_VARS |
sIceQ1Time (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
112 |
CPL_INI_VARS |
sIceQ2Time (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER i,j,bi,bj |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
47 |
CPL_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
atmSLPr (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
HeatFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
qShortWave (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
tauX (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
56 |
CPL_INI_VARS |
tauY (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
EvMPrFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
59 |
CPL_INI_VARS |
RunOffFlux (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
RunOffEnFx (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
63 |
CPL_INI_VARS |
iceSaltFlx (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
seaIceMass (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
saltPlmFlx_cpl(i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
airCO2 (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
sWSpeed (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
sIceFrac_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
sIceThick_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
sIceSnowH_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
sIceQ1_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
76 |
CPL_INI_VARS |
sIceQ2_cpl (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
80 |
CPL_INI_VARS |
SSTocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
81 |
CPL_INI_VARS |
SSSocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
82 |
CPL_INI_VARS |
vSqocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
84 |
CPL_INI_VARS |
flxCO2ocn (i,j,bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
88 |
CPL_INI_VARS |
atmSLPrTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
89 |
CPL_INI_VARS |
HeatFluxTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
90 |
CPL_INI_VARS |
qShortwaveTime(bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
tauXTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
92 |
CPL_INI_VARS |
tauYTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
93 |
CPL_INI_VARS |
EvMPrTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
95 |
CPL_INI_VARS |
RunOffTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
96 |
CPL_INI_VARS |
ROEnFxTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
saltFxTime (bi,bj) = 0. |
|
./pkg/atm_compon_interf/cpl_register.F |
103 |
CPL_REGISTER |
tN = W2_myTileList(bi,bj) |
|
./pkg/atm_compon_interf/cpl_register.F |
109 |
CPL_REGISTER |
iReg(2,j) = bj |
|
./pkg/atm_compon_interf/cpl_register.F |
48 |
CPL_REGISTER |
INTEGER bi, bj |
|
./pkg/atm_compon_interf/cpl_register.F |
96 |
CPL_REGISTER |
DO bj=1,nSy |
|
./pkg/atm_compon_interf/cpl_register.F |
99 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
|
./eesupp/src/global_sum_singlecpu.F |
63 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER bi, bj |
|
./eesupp/src/global_sum_singlecpu.F |
88 |
GLOBAL_SUM_SINGLECPU_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/global_sum_singlecpu.F |
92 |
GLOBAL_SUM_SINGLECPU_RL |
sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj) |
|
./eesupp/src/global_sum_tile.F |
115 |
GLOBAL_SUM_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/global_sum_tile.F |
118 |
GLOBAL_SUM_TILE_RL |
bjG = (mpi_myYGlobalLo(np)-1)/sNy+bj |
|
./eesupp/src/global_sum_tile.F |
119 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = shareBufGSR8(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
134 |
GLOBAL_SUM_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/global_sum_tile.F |
137 |
GLOBAL_SUM_TILE_RL |
bjG = (mpi_myYGlobalLo(np)-1)/sNy+bj |
|
./eesupp/src/global_sum_tile.F |
138 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = localBuf(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
175 |
GLOBAL_SUM_TILE_RL |
DO bj=1,nSy |
|
./eesupp/src/global_sum_tile.F |
178 |
GLOBAL_SUM_TILE_RL |
bjG = (myYGlobalLo-1)/sNy+bj |
|
./eesupp/src/global_sum_tile.F |
179 |
GLOBAL_SUM_TILE_RL |
localBuf(biG,bjG) = shareBufGSR8(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
203 |
GLOBAL_SUM_TILE_RL |
DO bj = 1,nSy |
|
./eesupp/src/global_sum_tile.F |
205 |
GLOBAL_SUM_TILE_RL |
sumMyPr = sumMyPr + shareBufGSR8(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
55 |
GLOBAL_SUM_TILE_RL |
INTEGER bi,bj |
|
./eesupp/src/global_sum_tile.F |
78 |
GLOBAL_SUM_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/global_sum_tile.F |
80 |
GLOBAL_SUM_TILE_RL |
shareBufGSR8(bi,bj) = phiTile(bi,bj) |
|
./eesupp/src/global_vec_sum.F |
127 |
GLOBAL_VEC_SUM_R8 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
140 |
GLOBAL_VEC_SUM_R8 |
DO bj = 1,nSy |
|
./eesupp/src/global_vec_sum.F |
143 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
209 |
GLOBAL_VEC_SUM_INT |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
222 |
GLOBAL_VEC_SUM_INT |
DO bj = 1,nSy |
|
./eesupp/src/global_vec_sum.F |
225 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
45 |
GLOBAL_VEC_SUM_R4 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
58 |
GLOBAL_VEC_SUM_R4 |
DO bj = 1,nSy |
|
./eesupp/src/global_vec_sum.F |
61 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./pkg/atm_phys/atm_phys_driver.F |
151 |
ATM_PHYS_DRIVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_phys/atm_phys_driver.F |
155 |
ATM_PHYS_DRIVER |
t_surf(:,:) = atmPhys_SST(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
164 |
ATM_PHYS_DRIVER |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
171 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
181 |
ATM_PHYS_DRIVER |
ocean_qflux(:,:) = atmPhys_Qflx(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
182 |
ATM_PHYS_DRIVER |
mixLayDepth(:,:) = atmPhys_MxLD(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
183 |
ATM_PHYS_DRIVER |
albedo_2d(:,:) = atmPhys_Albedo(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
190 |
ATM_PHYS_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
194 |
ATM_PHYS_DRIVER |
EmPmR(:,:,bi,bj) = 0. |
|
./pkg/atm_phys/atm_phys_driver.F |
215 |
ATM_PHYS_DRIVER |
I bi,bj,myIter,myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
224 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = -rain2d(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
232 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
234 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
236 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
238 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
240 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
242 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
244 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
246 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
248 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
250 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
271 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
280 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
284 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
407 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
408 |
ATM_PHYS_DRIVER |
& * conv_T2theta/pStarFacK(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
413 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
416 |
ATM_PHYS_DRIVER |
atmPhys_dQ(1:sNx,1:sNy,kc,bi,bj) = qdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
421 |
ATM_PHYS_DRIVER |
atmPhys_dU(1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
422 |
ATM_PHYS_DRIVER |
atmPhys_dV(1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
427 |
ATM_PHYS_DRIVER |
atmPhys_SST(1:sNx,1:sNy,bi,bj) = t_surf(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
430 |
ATM_PHYS_DRIVER |
EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
432 |
ATM_PHYS_DRIVER |
Qnet(1:sNx,1:sNy,bi,bj) = flux_t(:,:) + flux_r(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
435 |
ATM_PHYS_DRIVER |
Qsw (1:sNx,1:sNy,bi,bj) = -s_sw_dwn(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
438 |
ATM_PHYS_DRIVER |
taux(1:sNx,1:sNy,bi,bj) = -flux_u |
|
./pkg/atm_phys/atm_phys_driver.F |
439 |
ATM_PHYS_DRIVER |
tauy(1:sNx,1:sNy,bi,bj) = -flux_v |
|
./pkg/atm_phys/atm_phys_driver.F |
445 |
ATM_PHYS_DRIVER |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
447 |
ATM_PHYS_DRIVER |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
453 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
455 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
457 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
459 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
461 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
463 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
465 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
467 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
469 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
471 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
473 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
475 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
477 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
479 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
481 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
483 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
485 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
487 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
489 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
491 |
ATM_PHYS_DRIVER |
& 0, 1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
493 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
495 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
497 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
499 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
514 |
ATM_PHYS_DRIVER |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/atm_phys/atm_phys_driver.F |
518 |
ATM_PHYS_DRIVER |
fu(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
519 |
ATM_PHYS_DRIVER |
& *( taux(i-1,j,bi,bj) + taux(i,j,bi,bj) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
520 |
ATM_PHYS_DRIVER |
fv(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
521 |
ATM_PHYS_DRIVER |
& *( tauy(i,j-1,bi,bj) + tauy(i,j,bi,bj) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
58 |
ATM_PHYS_DRIVER |
INTEGER bi, bj |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
117 |
ATM_PHYS_DYN2PHYS |
& + totPhiHyd(1:sNx,1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
120 |
ATM_PHYS_DYN2PHYS |
t3d(:,:,k) = theta(1:sNx,1:sNy,kc,bi,bj)*conv_theta2T |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
121 |
ATM_PHYS_DYN2PHYS |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
122 |
ATM_PHYS_DYN2PHYS |
u3d(:,:,k) = ( uVel(1:sNx, 1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
123 |
ATM_PHYS_DYN2PHYS |
& + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
124 |
ATM_PHYS_DYN2PHYS |
v3d(:,:,k) = ( vVel(1:sNx,1:sNy, kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
125 |
ATM_PHYS_DYN2PHYS |
& + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
128 |
ATM_PHYS_DYN2PHYS |
& - Bo_surf(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
129 |
ATM_PHYS_DYN2PHYS |
& *etaN(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
134 |
ATM_PHYS_DYN2PHYS |
t3d(:,:,k) = t3d(:,:,k)*pStarFacK(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
14 |
ATM_PHYS_DYN2PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
152 |
ATM_PHYS_DYN2PHYS |
& + ( totPhiHyd(1:sNx,1:sNy,kp,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
153 |
ATM_PHYS_DYN2PHYS |
& +totPhiHyd(1:sNx,1:sNy,kc,bi,bj) )*0.5 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
157 |
ATM_PHYS_DYN2PHYS |
& - Bo_surf(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
158 |
ATM_PHYS_DYN2PHYS |
& *etaN(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
38 |
ATM_PHYS_DYN2PHYS |
INTEGER bi, bj |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
71 |
ATM_PHYS_DYN2PHYS |
lat2d(:,:) = yC(1:sNx,1:sNy,bi,bj)*deg2rad |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
78 |
ATM_PHYS_DYN2PHYS |
& *rStarFacC(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
83 |
ATM_PHYS_DYN2PHYS |
& *rStarFacC(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
89 |
ATM_PHYS_DYN2PHYS |
& *rStarFacNm1C(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
94 |
ATM_PHYS_DYN2PHYS |
& *rStarFacNm1C(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
128 |
ATM_PHYS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
132 |
ATM_PHYS_INIT_FIXED |
atmPhys_Qflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
133 |
ATM_PHYS_INIT_FIXED |
atmPhys_MxLD(i,j,bi,bj) = cst_mxlDepth |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
134 |
ATM_PHYS_INIT_FIXED |
atmPhys_Albedo(i,j,bi,bj) = cst_albedo |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
45 |
ATM_PHYS_INIT_FIXED |
INTEGER i,j,bi,bj |
|
./pkg/atm_phys/atm_phys_init_varia.F |
34 |
ATM_PHYS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/atm_phys/atm_phys_init_varia.F |
36 |
ATM_PHYS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/atm_phys/atm_phys_init_varia.F |
44 |
ATM_PHYS_INIT_VARIA |
atmPhys_dT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
45 |
ATM_PHYS_INIT_VARIA |
atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
46 |
ATM_PHYS_INIT_VARIA |
atmPhys_dU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
47 |
ATM_PHYS_INIT_VARIA |
atmPhys_dV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
55 |
ATM_PHYS_INIT_VARIA |
atmPhys_SST(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
107 |
ATM_PHYS_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
136 |
ATM_PHYS_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
152 |
ATM_PHYS_TENDENCY_APPLY_V |
& + halfRL *( atmPhys_dV(i,j-1,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
153 |
ATM_PHYS_TENDENCY_APPLY_V |
& + atmPhys_dV(i, j ,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
154 |
ATM_PHYS_TENDENCY_APPLY_V |
& )*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
163 |
ATM_PHYS_TENDENCY_APPLY_V |
& - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
165 |
ATM_PHYS_TENDENCY_APPLY_V |
& - vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
166 |
ATM_PHYS_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
173 |
ATM_PHYS_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
174 |
ATM_PHYS_TENDENCY_APPLY_V |
& - halfRL * ( damp_dKE( i, j)*rAs(i, j ,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
175 |
ATM_PHYS_TENDENCY_APPLY_V |
& + damp_dKE(i,j+1)*rAs(i,j+1,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
176 |
ATM_PHYS_TENDENCY_APPLY_V |
& )*recip_rA(i,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
195 |
ATM_PHYS_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
19 |
ATM_PHYS_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
222 |
ATM_PHYS_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
235 |
ATM_PHYS_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * atmPhys_dT(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
250 |
ATM_PHYS_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
277 |
ATM_PHYS_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
290 |
ATM_PHYS_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * atmPhys_dQ(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
48 |
ATM_PHYS_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
64 |
ATM_PHYS_TENDENCY_APPLY_U |
& + halfRL *( atmPhys_dU(i-1,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
65 |
ATM_PHYS_TENDENCY_APPLY_U |
& + atmPhys_dU( i ,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
66 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
75 |
ATM_PHYS_TENDENCY_APPLY_U |
& - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
77 |
ATM_PHYS_TENDENCY_APPLY_U |
& - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
78 |
ATM_PHYS_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
85 |
ATM_PHYS_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
86 |
ATM_PHYS_TENDENCY_APPLY_U |
& - halfRL * ( damp_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
87 |
ATM_PHYS_TENDENCY_APPLY_U |
& + damp_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
88 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_rA(i,j,bi,bj) |
|
./eesupp/src/ini_communication_patterns.F |
102 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
108 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
110 |
INI_COMMUNICATION_PATTERNS |
tileNo(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
127 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
129 |
INI_COMMUNICATION_PATTERNS |
tileNoW (bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
135 |
INI_COMMUNICATION_PATTERNS |
tileNoW (bi,bj) = NULL_TILE |
|
./eesupp/src/ini_communication_patterns.F |
138 |
INI_COMMUNICATION_PATTERNS |
tilePidW(bi,bj) = procW |
|
./eesupp/src/ini_communication_patterns.F |
139 |
INI_COMMUNICATION_PATTERNS |
tileBiW (bi,bj) = biW |
|
./eesupp/src/ini_communication_patterns.F |
140 |
INI_COMMUNICATION_PATTERNS |
tileBjW (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
155 |
INI_COMMUNICATION_PATTERNS |
theBj = bj |
|
./eesupp/src/ini_communication_patterns.F |
156 |
INI_COMMUNICATION_PATTERNS |
tileNoE(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
162 |
INI_COMMUNICATION_PATTERNS |
tileNoE (bi,bj) = NULL_TILE |
|
./eesupp/src/ini_communication_patterns.F |
165 |
INI_COMMUNICATION_PATTERNS |
tilePidE(bi,bj) = procE |
|
./eesupp/src/ini_communication_patterns.F |
166 |
INI_COMMUNICATION_PATTERNS |
tileBiE (bi,bj) = biE |
|
./eesupp/src/ini_communication_patterns.F |
167 |
INI_COMMUNICATION_PATTERNS |
tileBjE (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
169 |
INI_COMMUNICATION_PATTERNS |
bjN = bj+1 |
|
./eesupp/src/ini_communication_patterns.F |
183 |
INI_COMMUNICATION_PATTERNS |
tileNoN(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
187 |
INI_COMMUNICATION_PATTERNS |
tilePidN(bi,bj) = procN |
|
./eesupp/src/ini_communication_patterns.F |
188 |
INI_COMMUNICATION_PATTERNS |
tileBiN(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
189 |
INI_COMMUNICATION_PATTERNS |
tileBjN(bi,bj) = bjN |
|
./eesupp/src/ini_communication_patterns.F |
191 |
INI_COMMUNICATION_PATTERNS |
bjS = bj-1 |
|
./eesupp/src/ini_communication_patterns.F |
205 |
INI_COMMUNICATION_PATTERNS |
tileNoS(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
209 |
INI_COMMUNICATION_PATTERNS |
tilePidS(bi,bj) = procS |
|
./eesupp/src/ini_communication_patterns.F |
210 |
INI_COMMUNICATION_PATTERNS |
tileBiS(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
211 |
INI_COMMUNICATION_PATTERNS |
tileBjS(bi,bj) = bjS |
|
./eesupp/src/ini_communication_patterns.F |
230 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
234 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
235 |
INI_COMMUNICATION_PATTERNS |
tileTagSendW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
237 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
238 |
INI_COMMUNICATION_PATTERNS |
tileTagSendE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
240 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
241 |
INI_COMMUNICATION_PATTERNS |
tileTagSendN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
243 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
244 |
INI_COMMUNICATION_PATTERNS |
tileTagSendS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
247 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNoE(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
248 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
250 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNoW(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
251 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
253 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNoN(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
254 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
256 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNoS(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
257 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
268 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
271 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
272 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
274 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidW(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
275 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
277 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
281 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
282 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
284 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidE(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
285 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
287 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
291 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
292 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
294 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidS(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
295 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
297 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
301 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
302 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
304 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidN(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
305 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
307 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
315 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
317 |
INI_COMMUNICATION_PATTERNS |
exchNReqsX(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
318 |
INI_COMMUNICATION_PATTERNS |
exchNReqsY(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
56 |
INI_COMMUNICATION_PATTERNS |
INTEGER bi, bj, picnt, pjcnt |
|
./pkg/autodiff/active_file_control.F |
124 |
ACTIVE_READ_3D_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
129 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
156 |
ACTIVE_READ_3D_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
161 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
162 |
ACTIVE_READ_3D_RL |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
178 |
ACTIVE_READ_3D_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
183 |
ACTIVE_READ_3D_RL |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
275 |
ACTIVE_READ_3D_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control.F |
306 |
ACTIVE_READ_3D_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
311 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
338 |
ACTIVE_READ_3D_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
343 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
344 |
ACTIVE_READ_3D_RS |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
360 |
ACTIVE_READ_3D_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
365 |
ACTIVE_READ_3D_RS |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
445 |
ACTIVE_WRITE_3D_RL |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control.F |
473 |
ACTIVE_WRITE_3D_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
478 |
ACTIVE_WRITE_3D_RL |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
479 |
ACTIVE_WRITE_3D_RL |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
480 |
ACTIVE_WRITE_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
564 |
ACTIVE_WRITE_3D_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control.F |
592 |
ACTIVE_WRITE_3D_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control.F |
597 |
ACTIVE_WRITE_3D_RS |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
598 |
ACTIVE_WRITE_3D_RS |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
599 |
ACTIVE_WRITE_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
93 |
ACTIVE_READ_3D_RL |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
1020 |
ACTIVE_WRITE_YZ_RL |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
1048 |
ACTIVE_WRITE_YZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
1052 |
ACTIVE_WRITE_YZ_RL |
active_var(j,k,bi,bj) = active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1053 |
ACTIVE_WRITE_YZ_RL |
& + active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1054 |
ACTIVE_WRITE_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
1137 |
ACTIVE_WRITE_YZ_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
1165 |
ACTIVE_WRITE_YZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
1169 |
ACTIVE_WRITE_YZ_RS |
active_var(j,k,bi,bj) = active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1170 |
ACTIVE_WRITE_YZ_RS |
& + active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1171 |
ACTIVE_WRITE_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
126 |
ACTIVE_READ_XZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
130 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
156 |
ACTIVE_READ_XZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
160 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
161 |
ACTIVE_READ_XZ_RL |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
176 |
ACTIVE_READ_XZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
180 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
271 |
ACTIVE_READ_XZ_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
302 |
ACTIVE_READ_XZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
306 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
332 |
ACTIVE_READ_XZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
336 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
337 |
ACTIVE_READ_XZ_RS |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
352 |
ACTIVE_READ_XZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_READ_XZ_RS |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
446 |
ACTIVE_READ_YZ_RL |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
477 |
ACTIVE_READ_YZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
481 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
507 |
ACTIVE_READ_YZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
511 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
512 |
ACTIVE_READ_YZ_RL |
& + active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
527 |
ACTIVE_READ_YZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
531 |
ACTIVE_READ_YZ_RL |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
622 |
ACTIVE_READ_YZ_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
653 |
ACTIVE_READ_YZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
657 |
ACTIVE_READ_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
683 |
ACTIVE_READ_YZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
687 |
ACTIVE_READ_YZ_RS |
active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
688 |
ACTIVE_READ_YZ_RS |
& + active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
703 |
ACTIVE_READ_YZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
707 |
ACTIVE_READ_YZ_RS |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
786 |
ACTIVE_WRITE_XZ_RL |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
814 |
ACTIVE_WRITE_XZ_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
818 |
ACTIVE_WRITE_XZ_RL |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
819 |
ACTIVE_WRITE_XZ_RL |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
820 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
903 |
ACTIVE_WRITE_XZ_RS |
INTEGER bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
931 |
ACTIVE_WRITE_XZ_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/active_file_control_slice.F |
935 |
ACTIVE_WRITE_XZ_RS |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
936 |
ACTIVE_WRITE_XZ_RS |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
937 |
ACTIVE_WRITE_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
95 |
ACTIVE_READ_XZ_RL |
INTEGER bi,bj |
|
./pkg/autodiff/addamp_adj.F |
35 |
ADDAMP_ADJ |
INTEGER bi,bj,i,j,k |
|
./pkg/autodiff/addamp_adj.F |
39 |
ADDAMP_ADJ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/autodiff/addamp_adj.F |
44 |
ADDAMP_ADJ |
IF ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR. |
|
./pkg/autodiff/addamp_adj.F |
45 |
ADDAMP_ADJ |
& (fieldRef(i,j,k,bi,bj).LE.minRef) ) THEN |
|
./pkg/autodiff/addamp_adj.F |
50 |
ADDAMP_ADJ |
adfieldDamp(i,j,k,bi,bj)=facDamp* |
|
./pkg/autodiff/addamp_adj.F |
51 |
ADDAMP_ADJ |
& adfieldDamp(i,j,k,bi,bj) |
|
./pkg/autodiff/adzero_adj.F |
111 |
ADZERO_ADJ |
INTEGER bi,bj |
|
./pkg/autodiff/adzero_adj.F |
115 |
ADZERO_ADJ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/autodiff/adzero_adj.F |
120 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
40 |
AUTODIFF_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/autodiff/autodiff_init_varia.F |
49 |
AUTODIFF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_init_varia.F |
57 |
AUTODIFF_INIT_VARIA |
EfluxY(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/autodiff_init_varia.F |
58 |
AUTODIFF_INIT_VARIA |
EfluxP(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/autodiff_init_varia.F |
69 |
AUTODIFF_INIT_VARIA |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
70 |
AUTODIFF_INIT_VARIA |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
74 |
AUTODIFF_INIT_VARIA |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_restore.F |
100 |
AUTODIFF_RESTORE |
taux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
101 |
AUTODIFF_RESTORE |
taux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
102 |
AUTODIFF_RESTORE |
tauy0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
103 |
AUTODIFF_RESTORE |
tauy1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
104 |
AUTODIFF_RESTORE |
qnet0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
105 |
AUTODIFF_RESTORE |
qnet1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
106 |
AUTODIFF_RESTORE |
empmr0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
107 |
AUTODIFF_RESTORE |
empmr1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
108 |
AUTODIFF_RESTORE |
sst0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
109 |
AUTODIFF_RESTORE |
sst1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
110 |
AUTODIFF_RESTORE |
sss0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
111 |
AUTODIFF_RESTORE |
sss1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
112 |
AUTODIFF_RESTORE |
saltflux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
113 |
AUTODIFF_RESTORE |
saltflux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
115 |
AUTODIFF_RESTORE |
qsw0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
116 |
AUTODIFF_RESTORE |
qsw1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
119 |
AUTODIFF_RESTORE |
pload0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
120 |
AUTODIFF_RESTORE |
pload1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
123 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
124 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
125 |
AUTODIFF_RESTORE |
PmEpR(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
137 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
138 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
139 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
140 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
142 |
AUTODIFF_RESTORE |
gtNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
143 |
AUTODIFF_RESTORE |
gsNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
144 |
AUTODIFF_RESTORE |
guNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
145 |
AUTODIFF_RESTORE |
gvNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
theta(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
uVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
150 |
AUTODIFF_RESTORE |
vVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
wVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
152 |
AUTODIFF_RESTORE |
totPhiHyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
154 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
155 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
156 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
157 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
169 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
174 |
AUTODIFF_RESTORE |
hflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
175 |
AUTODIFF_RESTORE |
hflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
176 |
AUTODIFF_RESTORE |
sflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
177 |
AUTODIFF_RESTORE |
sflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
178 |
AUTODIFF_RESTORE |
ustress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
179 |
AUTODIFF_RESTORE |
ustress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
180 |
AUTODIFF_RESTORE |
vstress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
181 |
AUTODIFF_RESTORE |
vstress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
182 |
AUTODIFF_RESTORE |
wspeed0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
183 |
AUTODIFF_RESTORE |
wspeed1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
185 |
AUTODIFF_RESTORE |
swflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
186 |
AUTODIFF_RESTORE |
swflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
189 |
AUTODIFF_RESTORE |
runoff0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
190 |
AUTODIFF_RESTORE |
runoff1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
193 |
AUTODIFF_RESTORE |
apressure0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
194 |
AUTODIFF_RESTORE |
apressure1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
195 |
AUTODIFF_RESTORE |
siceload(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
198 |
AUTODIFF_RESTORE |
climsss0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
199 |
AUTODIFF_RESTORE |
climsss1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
202 |
AUTODIFF_RESTORE |
climsst0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
203 |
AUTODIFF_RESTORE |
climsst1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
206 |
AUTODIFF_RESTORE |
saltflx0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
207 |
AUTODIFF_RESTORE |
saltflx1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
215 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
221 |
AUTODIFF_RESTORE |
aqh0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
222 |
AUTODIFF_RESTORE |
aqh1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
223 |
AUTODIFF_RESTORE |
atemp0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
224 |
AUTODIFF_RESTORE |
atemp1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
225 |
AUTODIFF_RESTORE |
precip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
226 |
AUTODIFF_RESTORE |
precip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
227 |
AUTODIFF_RESTORE |
lwflux0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
228 |
AUTODIFF_RESTORE |
lwflux1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
229 |
AUTODIFF_RESTORE |
snowprecip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
230 |
AUTODIFF_RESTORE |
snowprecip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
232 |
AUTODIFF_RESTORE |
hs0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
233 |
AUTODIFF_RESTORE |
hs1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
234 |
AUTODIFF_RESTORE |
hl0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
235 |
AUTODIFF_RESTORE |
hl1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
238 |
AUTODIFF_RESTORE |
evap0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
239 |
AUTODIFF_RESTORE |
evap1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
241 |
AUTODIFF_RESTORE |
evap(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
244 |
AUTODIFF_RESTORE |
swdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
245 |
AUTODIFF_RESTORE |
swdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
246 |
AUTODIFF_RESTORE |
lwdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
247 |
AUTODIFF_RESTORE |
lwdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
250 |
AUTODIFF_RESTORE |
uwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
251 |
AUTODIFF_RESTORE |
uwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
252 |
AUTODIFF_RESTORE |
vwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
253 |
AUTODIFF_RESTORE |
vwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,24) |
|
./pkg/autodiff/autodiff_restore.F |
260 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
266 |
AUTODIFF_RESTORE |
xx_uwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
267 |
AUTODIFF_RESTORE |
xx_uwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
270 |
AUTODIFF_RESTORE |
xx_vwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
271 |
AUTODIFF_RESTORE |
xx_vwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
274 |
AUTODIFF_RESTORE |
xx_atemp0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
275 |
AUTODIFF_RESTORE |
xx_atemp1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
278 |
AUTODIFF_RESTORE |
xx_aqh0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
279 |
AUTODIFF_RESTORE |
xx_aqh1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
282 |
AUTODIFF_RESTORE |
xx_precip0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
283 |
AUTODIFF_RESTORE |
xx_precip1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
286 |
AUTODIFF_RESTORE |
xx_snowprecip0(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
287 |
AUTODIFF_RESTORE |
xx_snowprecip1(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
290 |
AUTODIFF_RESTORE |
xx_swflux0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
291 |
AUTODIFF_RESTORE |
xx_swflux1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
294 |
AUTODIFF_RESTORE |
xx_swdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
295 |
AUTODIFF_RESTORE |
xx_swdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
298 |
AUTODIFF_RESTORE |
xx_lwdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
299 |
AUTODIFF_RESTORE |
xx_lwdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
302 |
AUTODIFF_RESTORE |
xx_apressure0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
303 |
AUTODIFF_RESTORE |
xx_apressure1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
314 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
319 |
AUTODIFF_RESTORE |
OBNu(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
320 |
AUTODIFF_RESTORE |
OBNv(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
321 |
AUTODIFF_RESTORE |
OBNt(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
322 |
AUTODIFF_RESTORE |
OBNs(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
323 |
AUTODIFF_RESTORE |
OBNu0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
324 |
AUTODIFF_RESTORE |
OBNv0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
325 |
AUTODIFF_RESTORE |
OBNt0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
326 |
AUTODIFF_RESTORE |
OBNs0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
327 |
AUTODIFF_RESTORE |
OBNu1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
328 |
AUTODIFF_RESTORE |
OBNv1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
329 |
AUTODIFF_RESTORE |
OBNt1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
330 |
AUTODIFF_RESTORE |
OBNs1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
332 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
333 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
334 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
335 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
336 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
337 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
338 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
339 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
349 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
354 |
AUTODIFF_RESTORE |
OBSu(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
355 |
AUTODIFF_RESTORE |
OBSv(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
356 |
AUTODIFF_RESTORE |
OBSt(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
357 |
AUTODIFF_RESTORE |
OBSs(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
358 |
AUTODIFF_RESTORE |
OBSu0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
359 |
AUTODIFF_RESTORE |
OBSv0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
360 |
AUTODIFF_RESTORE |
OBSt0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
361 |
AUTODIFF_RESTORE |
OBSs0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
362 |
AUTODIFF_RESTORE |
OBSu1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
363 |
AUTODIFF_RESTORE |
OBSv1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
364 |
AUTODIFF_RESTORE |
OBSt1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
365 |
AUTODIFF_RESTORE |
OBSs1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
367 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
368 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
369 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
370 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
371 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
372 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
373 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
374 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
384 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
389 |
AUTODIFF_RESTORE |
OBEu(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
390 |
AUTODIFF_RESTORE |
OBEv(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
391 |
AUTODIFF_RESTORE |
OBEt(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
392 |
AUTODIFF_RESTORE |
OBEs(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
393 |
AUTODIFF_RESTORE |
OBEu0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
394 |
AUTODIFF_RESTORE |
OBEv0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
395 |
AUTODIFF_RESTORE |
OBEt0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
396 |
AUTODIFF_RESTORE |
OBEs0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
397 |
AUTODIFF_RESTORE |
OBEu1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
398 |
AUTODIFF_RESTORE |
OBEv1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
399 |
AUTODIFF_RESTORE |
OBEt1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
400 |
AUTODIFF_RESTORE |
OBEs1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
402 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
403 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
404 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
405 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
406 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
407 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
408 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
409 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
419 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
424 |
AUTODIFF_RESTORE |
OBWu(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
425 |
AUTODIFF_RESTORE |
OBWv(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
426 |
AUTODIFF_RESTORE |
OBWt(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
427 |
AUTODIFF_RESTORE |
OBWs(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
428 |
AUTODIFF_RESTORE |
OBWu0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
429 |
AUTODIFF_RESTORE |
OBWv0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
430 |
AUTODIFF_RESTORE |
OBWt0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
431 |
AUTODIFF_RESTORE |
OBWs0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
432 |
AUTODIFF_RESTORE |
OBWu1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
433 |
AUTODIFF_RESTORE |
OBWv1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
434 |
AUTODIFF_RESTORE |
OBWt1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
435 |
AUTODIFF_RESTORE |
OBWs1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
437 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
438 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
439 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
440 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
441 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
442 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
443 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
444 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
455 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
462 |
AUTODIFF_RESTORE |
HSNOW(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
464 |
AUTODIFF_RESTORE |
RUNOFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
466 |
AUTODIFF_RESTORE |
stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
467 |
AUTODIFF_RESTORE |
stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
473 |
AUTODIFF_RESTORE |
UICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
474 |
AUTODIFF_RESTORE |
VICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
475 |
AUTODIFF_RESTORE |
ZETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
476 |
AUTODIFF_RESTORE |
ETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
478 |
AUTODIFF_RESTORE |
dwatn(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
480 |
AUTODIFF_RESTORE |
cbotc(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
486 |
AUTODIFF_RESTORE |
seaice_sigma1(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
487 |
AUTODIFF_RESTORE |
seaice_sigma2(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
488 |
AUTODIFF_RESTORE |
seaice_sigma12(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
491 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
81 |
AUTODIFF_RESTORE |
INTEGER bi,bj |
|
./pkg/autodiff/autodiff_restore.F |
91 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
98 |
AUTODIFF_RESTORE |
etaN(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
99 |
AUTODIFF_RESTORE |
surfaceforcingTice(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
100 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,3) = taux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
101 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,4) = taux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
102 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,5) = tauy0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
103 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,6) = tauy1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
104 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,7) = qnet0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
105 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,8) = qnet1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
106 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,9) = empmr0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
107 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,10) = empmr1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
108 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,11) = sst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
109 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,12) = sst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
110 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,13) = sss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
111 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,14) = sss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
112 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,15) = saltflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
113 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,16) = saltflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
115 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = qsw0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
116 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = qsw1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
118 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = 0. |
|
./pkg/autodiff/autodiff_store.F |
119 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = 0. |
|
./pkg/autodiff/autodiff_store.F |
122 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = pload0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
123 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = pload1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
125 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = 0. |
|
./pkg/autodiff/autodiff_store.F |
126 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = 0. |
|
./pkg/autodiff/autodiff_store.F |
129 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
130 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
131 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
133 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = 0. |
|
./pkg/autodiff/autodiff_store.F |
134 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = 0. |
|
./pkg/autodiff/autodiff_store.F |
135 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = 0. |
|
./pkg/autodiff/autodiff_store.F |
147 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
148 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
149 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
150 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
152 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
153 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
154 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
155 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = theta(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = salt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = uVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = vVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = wVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
162 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = totPhiHyd(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
164 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,11) = gtNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
165 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,12) = gsNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
166 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,13) = guNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
167 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,14) = gvNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
179 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
184 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,1) = hflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
185 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,2) = hflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
186 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,3) = sflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
187 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,4) = sflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
188 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,5) = ustress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
189 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,6) = ustress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
190 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,7) = vstress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
191 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,8) = vstress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
192 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,9) = wspeed0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
193 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,10) = wspeed1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
195 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
196 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
198 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
199 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
202 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = runoff0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
203 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = runoff1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
205 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
206 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
209 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
210 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
211 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = siceload(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
213 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
214 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
215 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
218 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = climsss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
219 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = climsss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
221 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
222 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
225 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = climsst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
226 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = climsst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
228 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
229 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
232 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,22) = saltflx0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
233 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,23) = saltflx1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
235 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,22) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
236 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,23) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
244 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
250 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,1) = aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
251 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,2) = aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
252 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,3) = atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
253 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,4) = atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
254 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,5) = precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
255 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,6) = precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
256 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,7) = lwflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
257 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,8) = lwflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
258 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,9) = snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
259 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,10) = snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
261 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = hs0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
262 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = hs1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
263 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = hl0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
264 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = hl1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
266 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
267 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
268 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
269 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
272 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = evap0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
273 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = evap1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
275 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = evap(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
276 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
279 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
280 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
281 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
282 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
284 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
285 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
286 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
287 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
290 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,21) = uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
291 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,22) = uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
292 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,23) = vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
293 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,24) = vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
300 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
306 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = xx_uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
307 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = xx_uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
309 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
310 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
313 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = xx_vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
314 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = xx_vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
316 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
317 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
320 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = xx_atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
321 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = xx_atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
323 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
324 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
327 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = xx_aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
328 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = xx_aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
330 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
331 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
334 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = xx_precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
335 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = xx_precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
337 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
338 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
341 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = xx_snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
342 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = xx_snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
344 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
345 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
348 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = xx_swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
349 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = xx_swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
351 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
352 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
355 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = xx_swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
356 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = xx_swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
358 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
359 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
362 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = xx_lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
363 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = xx_lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
365 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
366 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
369 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = xx_apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
370 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = xx_apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
372 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
373 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
384 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
389 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,1) = OBNu(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
390 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,2) = OBNv(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
391 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,3) = OBNt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
392 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,4) = OBNs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
393 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,5) = OBNu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
394 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,6) = OBNv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
395 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,7) = OBNt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
396 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,8) = OBNs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
397 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,9) = OBNu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
398 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,10) = OBNv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
399 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = OBNt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
400 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = OBNs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
402 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = xx_obcsn0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
403 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = xx_obcsn0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
404 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = xx_obcsn0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
405 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = xx_obcsn0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
406 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = xx_obcsn1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
407 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = xx_obcsn1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
408 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,19) = xx_obcsn1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
409 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,20) = xx_obcsn1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
411 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
412 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
413 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
414 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
415 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
416 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
417 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
418 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
428 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
433 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,1) = OBSu(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
434 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,2) = OBSv(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
435 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,3) = OBSt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
436 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,4) = OBSs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
437 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,5) = OBSu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
438 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,6) = OBSv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
439 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,7) = OBSt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
440 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,8) = OBSs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
441 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,9) = OBSu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
442 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,10) = OBSv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
443 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = OBSt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
444 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = OBSs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
446 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = xx_obcss0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
447 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = xx_obcss0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
448 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = xx_obcss0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
449 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = xx_obcss0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
450 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = xx_obcss1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
451 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = xx_obcss1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
452 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,19) = xx_obcss1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
453 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,20) = xx_obcss1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
455 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
456 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
457 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
458 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
459 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
460 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
461 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
462 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
472 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
477 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,1) = OBEu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
478 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,2) = OBEv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
479 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,3) = OBEt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
480 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,4) = OBEs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
481 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,5) = OBEu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
482 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,6) = OBEv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
483 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,7) = OBEt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
484 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,8) = OBEs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
485 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,9) = OBEu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
486 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,10) = OBEv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
487 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,11) = OBEt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
488 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,12) = OBEs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
490 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = xx_obcse0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
491 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = xx_obcse0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
492 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = xx_obcse0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
493 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = xx_obcse0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
494 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = xx_obcse1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
495 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = xx_obcse1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
496 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = xx_obcse1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
497 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = xx_obcse1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
499 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
500 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
501 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
502 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
503 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
504 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
505 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
506 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
516 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
521 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,1) = OBWu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
522 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,2) = OBWv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
523 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,3) = OBWt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
524 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,4) = OBWs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
525 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,5) = OBWu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
526 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,6) = OBWv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
527 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,7) = OBWt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
528 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,8) = OBWs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
529 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,9) = OBWu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
530 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,10) = OBWv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
531 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,11) = OBWt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
532 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,12) = OBWs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
534 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = xx_obcsw0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
535 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = xx_obcsw0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
536 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = xx_obcsw0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
537 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = xx_obcsw0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
538 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = xx_obcsw1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
539 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = xx_obcsw1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
540 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = xx_obcsw1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
541 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = xx_obcsw1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
543 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
544 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
545 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
546 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
547 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
548 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
550 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
561 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
566 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
567 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
568 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
569 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
570 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
571 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
573 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
574 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
576 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
577 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
579 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
580 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
581 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
582 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = ETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
584 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
586 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = cbotc(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
588 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
592 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
594 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
595 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
596 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
599 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
600 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
601 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
603 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
604 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
605 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
608 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
610 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
81 |
AUTODIFF_STORE |
INTEGER bi,bj |
|
./pkg/autodiff/autodiff_store.F |
91 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
98 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,1) = etaN(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
99 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,2) = surfaceforcingTice(I,J,bi,bj) |
|
./eesupp/src/lef_zero.F |
24 |
LEF_ZERO |
INTEGER i,j,bi,bj |
|
./eesupp/src/lef_zero.F |
27 |
LEF_ZERO |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/lef_zero.F |
31 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./pkg/autodiff/copy_ad_uv_outp.F |
59 |
COPY_AD_UV_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_ad_uv_outp.F |
72 |
COPY_AD_UV_OUTP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
77 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
78 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
85 |
COPY_AD_UV_OUTP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
90 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
91 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
52 |
COPY_ADVAR_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_advar_outp.F |
65 |
COPY_ADVAR_OUTP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/copy_advar_outp.F |
70 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
77 |
COPY_ADVAR_OUTP |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/copy_advar_outp.F |
82 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/global_sum_tile_ad.F |
54 |
GLOBAL_ADSUM_TILE_RL |
INTEGER bi,bj |
|
./pkg/autodiff/global_sum_tile_ad.F |
65 |
GLOBAL_ADSUM_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/autodiff/global_sum_tile_ad.F |
67 |
GLOBAL_ADSUM_TILE_RL |
adphiTile(bi,bj) = adphiTile(bi,bj) + tmp |
|
./pkg/bbl/bbl_calc_rho.F |
100 |
BBL_CALC_RHO |
I bbl_salt(1-OLx,1-OLy,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
101 |
BBL_CALC_RHO |
O bbl_rho_nr(1-OLx,1-OLy,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
102 |
BBL_CALC_RHO |
I Nr, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
12 |
BBL_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
56 |
BBL_CALC_RHO |
INTEGER k, bi, bj |
|
./pkg/bbl/bbl_calc_rho.F |
73 |
BBL_CALC_RHO |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
74 |
BBL_CALC_RHO |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
75 |
BBL_CALC_RHO |
O rhoLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
76 |
BBL_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
82 |
BBL_CALC_RHO |
I bbl_theta(1-OLx,1-OLy,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
83 |
BBL_CALC_RHO |
I bbl_salt(1-OLx,1-OLy,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
85 |
BBL_CALC_RHO |
I kl, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
90 |
BBL_CALC_RHO |
IF ( k .GT. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rho.F |
91 |
BBL_CALC_RHO |
& rhoLoc(i,j,k,bi,bj) = rBBL(i,j) |
|
./pkg/bbl/bbl_calc_rho.F |
99 |
BBL_CALC_RHO |
I bbl_theta(1-OLx,1-OLy,bi,bj), |
|
./pkg/bbl/bbl_calc_rhs.F |
110 |
BBL_CALC_RHS |
kBot = kLowC(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
114 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) = max ( 0. _d 0 , |
|
./pkg/bbl/bbl_calc_rhs.F |
115 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
118 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
119 |
BBL_CALC_RHS |
bbl_theta(i,j,bi,bj) = tLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
120 |
BBL_CALC_RHS |
bbl_salt (i,j,bi,bj) = sLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
121 |
BBL_CALC_RHS |
bbl_eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
130 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
131 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
138 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
139 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
142 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
144 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
146 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
148 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
150 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
152 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
170 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
171 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
172 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
173 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
174 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
175 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
178 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
179 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
182 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
183 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
184 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
185 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
186 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
187 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
193 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
194 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
195 |
BBL_CALC_RHS |
& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
199 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
200 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
201 |
BBL_CALC_RHS |
bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
202 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
206 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
207 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
208 |
BBL_CALC_RHS |
bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
209 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
212 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
213 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
214 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
215 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
216 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
218 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
219 |
BBL_CALC_RHS |
bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
220 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
221 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
222 |
BBL_CALC_RHS |
bbl_salt(i,r,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
223 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
224 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
232 |
BBL_CALC_RHS |
kLowC1 = kLowC(i,j ,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
233 |
BBL_CALC_RHS |
kLowC2 = kLowC(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
240 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
241 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
244 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
246 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
248 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
250 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
252 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
254 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
272 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
273 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
274 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
275 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
276 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
277 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
280 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
281 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
284 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
285 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
286 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
287 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
288 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
289 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
295 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
296 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
297 |
BBL_CALC_RHS |
& dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
301 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
302 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
303 |
BBL_CALC_RHS |
bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
304 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
308 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
309 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
310 |
BBL_CALC_RHS |
bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
311 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
314 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
315 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
316 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
317 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
318 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
320 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
321 |
BBL_CALC_RHS |
bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
322 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
323 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
324 |
BBL_CALC_RHS |
bbl_salt(i,r,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
325 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
326 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
335 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
336 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
343 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
344 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
347 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
349 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
351 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
353 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
355 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
357 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
375 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
376 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
377 |
BBL_CALC_RHS |
IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
378 |
BBL_CALC_RHS |
& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
379 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
380 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
383 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
384 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
387 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
388 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
389 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
390 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
391 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
392 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
398 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
399 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
400 |
BBL_CALC_RHS |
& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
404 |
BBL_CALC_RHS |
bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
405 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
406 |
BBL_CALC_RHS |
bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
407 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
411 |
BBL_CALC_RHS |
bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
412 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
413 |
BBL_CALC_RHS |
bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
414 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
417 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
418 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
419 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
420 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
421 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
423 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
424 |
BBL_CALC_RHS |
bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
425 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
426 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
427 |
BBL_CALC_RHS |
bbl_salt(r,j,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
428 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
429 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
437 |
BBL_CALC_RHS |
kLowC1 = kLowC(i ,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
438 |
BBL_CALC_RHS |
kLowC2 = kLowC(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
445 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
446 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
449 |
BBL_CALC_RHS |
bbl_rho1 = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
451 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
453 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
455 |
BBL_CALC_RHS |
bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
457 |
BBL_CALC_RHS |
bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
459 |
BBL_CALC_RHS |
bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
477 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
478 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
479 |
BBL_CALC_RHS |
IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
480 |
BBL_CALC_RHS |
& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
481 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
482 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
485 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
486 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
489 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
490 |
BBL_CALC_RHS |
bblTheta_r = bbl_theta(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
491 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
492 |
BBL_CALC_RHS |
bblSalt_r = bbl_salt (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
493 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
494 |
BBL_CALC_RHS |
bblEta_r = bbl_eta (r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
500 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
501 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
502 |
BBL_CALC_RHS |
& dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT ) |
|
./pkg/bbl/bbl_calc_rhs.F |
506 |
BBL_CALC_RHS |
bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
507 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
508 |
BBL_CALC_RHS |
bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
509 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
513 |
BBL_CALC_RHS |
bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
514 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
515 |
BBL_CALC_RHS |
bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) + |
|
./pkg/bbl/bbl_calc_rhs.F |
516 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
519 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
520 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
521 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
522 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
523 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
525 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
526 |
BBL_CALC_RHS |
bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
527 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
528 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
529 |
BBL_CALC_RHS |
bbl_salt(r,j,bi,bj) = ( dVol * bblSalt_d + |
|
./pkg/bbl/bbl_calc_rhs.F |
530 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
531 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
65 |
BBL_CALC_RHS |
INTEGER bi, bj |
|
./pkg/bbl/bbl_calc_rhs.F |
79 |
BBL_CALC_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bbl/bbl_calc_rhs.F |
87 |
BBL_CALC_RHS |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
88 |
BBL_CALC_RHS |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
89 |
BBL_CALC_RHS |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_calc_rhs.F |
90 |
BBL_CALC_RHS |
tLoc(i,j) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
91 |
BBL_CALC_RHS |
sLoc(i,j) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
92 |
BBL_CALC_RHS |
rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
94 |
BBL_CALC_RHS |
rhoBBL(i,j) = bbl_rho_nr(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
96 |
BBL_CALC_RHS |
rhoBBL(i,j) = rhoInSitu(i,j,kBot+1,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
34 |
BBL_INIT_VARIA |
INTEGER i,j,bi,bj,kBot |
|
./pkg/bbl/bbl_init_varia.F |
37 |
BBL_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bbl/bbl_init_varia.F |
41 |
BBL_INIT_VARIA |
kBot = max(1,kLowC(i,j,bi,bj)) |
|
./pkg/bbl/bbl_init_varia.F |
42 |
BBL_INIT_VARIA |
bbl_theta(i,j,bi,bj) = theta(i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
43 |
BBL_INIT_VARIA |
bbl_salt (i,j,bi,bj) = salt (i,j,kBot,bi,bj) |
|
./pkg/bbl/bbl_init_varia.F |
44 |
BBL_INIT_VARIA |
bbl_eta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
45 |
BBL_INIT_VARIA |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
46 |
BBL_INIT_VARIA |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_tendency_apply.F |
107 |
BBL_TENDENCY_APPLY_S |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
109 |
BBL_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * bbl_TendSalt(i,j,bi,bj) |
|
./pkg/bbl/bbl_tendency_apply.F |
17 |
BBL_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/bbl/bbl_tendency_apply.F |
43 |
BBL_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/bbl/bbl_tendency_apply.F |
54 |
BBL_TENDENCY_APPLY_T |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
56 |
BBL_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * bbl_TendTheta(i,j,bi,bj) |
|
./pkg/bbl/bbl_tendency_apply.F |
70 |
BBL_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/bbl/bbl_tendency_apply.F |
96 |
BBL_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/bling/bling_airseaflux.F |
118 |
BLING_AIRSEAFLUX |
& * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
11 |
BLING_AIRSEAFLUX |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_airseaflux.F |
120 |
BLING_AIRSEAFLUX |
& * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
123 |
BLING_AIRSEAFLUX |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
124 |
BLING_AIRSEAFLUX |
surftemp(i,j) = theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
125 |
BLING_AIRSEAFLUX |
surfsalt(i,j) = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
133 |
BLING_AIRSEAFLUX |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/bling/bling_airseaflux.F |
141 |
BLING_AIRSEAFLUX |
wind(i,j,bi,bj) = wspeed(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
146 |
BLING_AIRSEAFLUX |
pisvel(i,j) = 0.337 _d 0 * wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/bling/bling_airseaflux.F |
148 |
BLING_AIRSEAFLUX |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/bling/bling_airseaflux.F |
162 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,klev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
167 |
BLING_AIRSEAFLUX |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
168 |
BLING_AIRSEAFLUX |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
169 |
BLING_AIRSEAFLUX |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
170 |
BLING_AIRSEAFLUX |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
171 |
BLING_AIRSEAFLUX |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
172 |
BLING_AIRSEAFLUX |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
173 |
BLING_AIRSEAFLUX |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_airseaflux.F |
174 |
BLING_AIRSEAFLUX |
U pH(i,j,klev,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_airseaflux.F |
175 |
BLING_AIRSEAFLUX |
I i,j,klev,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_airseaflux.F |
177 |
BLING_AIRSEAFLUX |
pCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
186 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,1,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
190 |
BLING_AIRSEAFLUX |
& + sca2 * theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
191 |
BLING_AIRSEAFLUX |
& + sca3 * theta(i,j,1,bi,bj)*theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
192 |
BLING_AIRSEAFLUX |
& + sca4 * theta(i,j,1,bi,bj)*theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
193 |
BLING_AIRSEAFLUX |
& *theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
199 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = apco2(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
207 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = pCO2sat(i,j)*(apressure(i,j,bi,bj)*0.00001) |
|
./pkg/bling/bling_airseaflux.F |
209 |
BLING_AIRSEAFLUX |
pCO2sat(i,j) = pCO2sat(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
218 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = |
|
./pkg/bling/bling_airseaflux.F |
220 |
BLING_AIRSEAFLUX |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/bling/bling_airseaflux.F |
221 |
BLING_AIRSEAFLUX |
& pCO2(i,j,bi,bj)*fugf(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
222 |
BLING_AIRSEAFLUX |
& *ak0(i,j,bi,bj) ) |
|
./pkg/bling/bling_airseaflux.F |
225 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
229 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil |
|
./pkg/bling/bling_airseaflux.F |
237 |
BLING_AIRSEAFLUX |
SGDIC(i,j)= recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
238 |
BLING_AIRSEAFLUX |
& *FluxCO2(i,j,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
249 |
BLING_AIRSEAFLUX |
IF (maskC(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/bling/bling_airseaflux.F |
250 |
BLING_AIRSEAFLUX |
ttemp = theta(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
251 |
BLING_AIRSEAFLUX |
stemp = salt(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
293 |
BLING_AIRSEAFLUX |
& (apressure(i,j,bi,bj)*0.00001) |
|
./pkg/bling/bling_airseaflux.F |
297 |
BLING_AIRSEAFLUX |
& (AtmosP(i,j,bi,bj)*O2sat(i,j) |
|
./pkg/bling/bling_airseaflux.F |
311 |
BLING_AIRSEAFLUX |
& *recip_drF(1) * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_airseaflux.F |
320 |
BLING_AIRSEAFLUX |
CALL DIAGNOSTICS_FILL(O2sat_percent,'BLGO2SAT',0,1,2,bi,bj, |
|
./pkg/bling/bling_airseaflux.F |
50 |
BLING_AIRSEAFLUX |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/bling/bling_carbon_chem.F |
1001 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/bling/bling_carbon_chem.F |
1010 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
1012 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/bling/bling_carbon_chem.F |
1016 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.000232 * scl/10.811 |
|
./pkg/bling/bling_carbon_chem.F |
1018 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.14 * scl/96.062 |
|
./pkg/bling/bling_carbon_chem.F |
1020 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.000067 * scl/18.9984 |
|
./pkg/bling/bling_carbon_chem.F |
1071 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue) |
|
./pkg/bling/bling_carbon_chem.F |
1072 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Arag(i,j,bi,bj) = Ksp_T_Arag*10**(xvalue) |
|
./pkg/bling/bling_carbon_chem.F |
1077 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj)=0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1078 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1079 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1080 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1081 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1082 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1083 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1084 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1085 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1086 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1087 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1088 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1089 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)= 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1090 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1091 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1092 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1093 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
1094 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Arag(i,j,bi,bj) = 0.d0 |
|
./pkg/bling/bling_carbon_chem.F |
24 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
335 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
377 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
479 |
CARBON_COEFFS |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/bling/bling_carbon_chem.F |
534 |
CARBON_COEFFS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/bling/bling_carbon_chem.F |
576 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/bling/bling_carbon_chem.F |
605 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
606 |
CARBON_COEFFS |
& (apressure (i,j,bi,bj) * 0.00001) |
|
./pkg/bling/bling_carbon_chem.F |
609 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbon_chem.F |
615 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
621 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
629 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
62 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
632 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/bling/bling_carbon_chem.F |
637 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/bling/bling_carbon_chem.F |
645 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
652 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
659 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
665 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
674 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
681 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
690 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
692 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/bling/bling_carbon_chem.F |
696 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
698 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
700 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
704 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
705 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
706 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
707 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
708 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
709 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
710 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
711 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
712 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
713 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
714 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
715 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
716 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
717 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
718 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
719 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
732 |
CARBON_COEFFS_PRESSURE_DEP |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/bling/bling_carbon_chem.F |
792 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/bling/bling_carbon_chem.F |
870 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/bling/bling_carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
903 |
CARBON_COEFFS_PRESSURE_DEP |
& (apressure (i,j,bi,bj) * 0.00001) |
|
./pkg/bling/bling_carbon_chem.F |
906 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbon_chem.F |
912 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
918 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/bling/bling_carbon_chem.F |
926 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
929 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/bling/bling_carbon_chem.F |
935 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj) = ak1(i,j,bi,bj)* |
|
./pkg/bling/bling_carbon_chem.F |
942 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj) = ak2(i,j,bi,bj)* |
|
./pkg/bling/bling_carbon_chem.F |
947 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/bling/bling_carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/bling/bling_carbon_chem.F |
965 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/bling/bling_carbon_chem.F |
972 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/bling/bling_carbon_chem.F |
979 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/bling/bling_carbon_chem.F |
985 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/bling/bling_carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/bling/bling_carbonate_init.F |
113 |
BLING_CARBONATE_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bling/bling_carbonate_init.F |
117 |
BLING_CARBONATE_INIT |
pH(i,j,k,bi,bj) = 8. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
124 |
BLING_CARBONATE_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bling/bling_carbonate_init.F |
128 |
BLING_CARBONATE_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
129 |
BLING_CARBONATE_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
130 |
BLING_CARBONATE_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
131 |
BLING_CARBONATE_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
132 |
BLING_CARBONATE_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
133 |
BLING_CARBONATE_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
134 |
BLING_CARBONATE_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
135 |
BLING_CARBONATE_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
136 |
BLING_CARBONATE_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
137 |
BLING_CARBONATE_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
138 |
BLING_CARBONATE_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
139 |
BLING_CARBONATE_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
140 |
BLING_CARBONATE_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
141 |
BLING_CARBONATE_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
142 |
BLING_CARBONATE_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
158 |
BLING_CARBONATE_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bling/bling_carbonate_init.F |
169 |
BLING_CARBONATE_INIT |
alktmp(i,j) = PTRACER(i,j,k,bi,bj,2) |
|
./pkg/bling/bling_carbonate_init.F |
170 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
171 |
BLING_CARBONATE_INIT |
phostmp(i,j)= PTRACER(i,j,k,bi,bj,5) |
|
./pkg/bling/bling_carbonate_init.F |
172 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
175 |
BLING_CARBONATE_INIT |
sitmp(i,j) = Silica(i,j,bi,bj) * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
177 |
BLING_CARBONATE_INIT |
sitmp(i,j) = 0.03 * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
179 |
BLING_CARBONATE_INIT |
dictmp(i,j) = PTRACER(i,j,k,bi,bj,1) |
|
./pkg/bling/bling_carbonate_init.F |
180 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
181 |
BLING_CARBONATE_INIT |
thetatmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
182 |
BLING_CARBONATE_INIT |
salttmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
188 |
BLING_CARBONATE_INIT |
I bi,bj,iMin,iMax,jMin,jMax,k,myThid) |
|
./pkg/bling/bling_carbonate_init.F |
196 |
BLING_CARBONATE_INIT |
IF ( maskC(i,j,k,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_init.F |
202 |
BLING_CARBONATE_INIT |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
203 |
BLING_CARBONATE_INIT |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
204 |
BLING_CARBONATE_INIT |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
205 |
BLING_CARBONATE_INIT |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
206 |
BLING_CARBONATE_INIT |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
207 |
BLING_CARBONATE_INIT |
I ff(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
208 |
BLING_CARBONATE_INIT |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_init.F |
209 |
BLING_CARBONATE_INIT |
U pH(i,j,k,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_carbonate_init.F |
210 |
BLING_CARBONATE_INIT |
I i,j,k,bi,bj, it , myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
43 |
BLING_CARBONATE_INIT |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/bling/bling_carbonate_init.F |
90 |
BLING_CARBONATE_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_carbonate_init.F |
94 |
BLING_CARBONATE_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
95 |
BLING_CARBONATE_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
100 |
BLING_CARBONATE_SYS |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_carbonate_sys.F |
110 |
BLING_CARBONATE_SYS |
IF ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_sys.F |
115 |
BLING_CARBONATE_SYS |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
120 |
BLING_CARBONATE_SYS |
pHlocal = pH(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
134 |
BLING_CARBONATE_SYS |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
135 |
BLING_CARBONATE_SYS |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
136 |
BLING_CARBONATE_SYS |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
137 |
BLING_CARBONATE_SYS |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
138 |
BLING_CARBONATE_SYS |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
139 |
BLING_CARBONATE_SYS |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/bling/bling_carbonate_sys.F |
141 |
BLING_CARBONATE_SYS |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbonate_sys.F |
144 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = pHlocal |
|
./pkg/bling/bling_carbonate_sys.F |
148 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
149 |
BLING_CARBONATE_SYS |
& Ksp_TP_Calc(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
150 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
151 |
BLING_CARBONATE_SYS |
& Ksp_TP_Arag(i,j,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
155 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
156 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
157 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
41 |
BLING_CARBONATE_SYS |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/bling/bling_carbonate_sys.F |
92 |
BLING_CARBONATE_SYS |
ttmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
93 |
BLING_CARBONATE_SYS |
stmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
9 |
BLING_CARBONATE_SYS |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_dvm.F |
11 |
BLING_DVM |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_dvm.F |
139 |
BLING_DVM |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_dvm.F |
150 |
BLING_DVM |
temp_upper = temp_upper + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
156 |
BLING_DVM |
temp_lower = temp_lower + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
178 |
BLING_DVM |
& log10(max(chl(i,j,1,bi,bj),chl_min)))) |
|
./pkg/bling/bling_dvm.F |
188 |
BLING_DVM |
if ( irr_mem(i,j,1,bi,bj) .lt. 10. ) then |
|
./pkg/bling/bling_dvm.F |
190 |
BLING_DVM |
& irr_mem(i,j,1,bi,bj) / 10. _d 0 |
|
./pkg/bling/bling_dvm.F |
202 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
232 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
42 |
BLING_DVM |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_fields_load.F |
148 |
BLING_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_fields_load.F |
150 |
BLING_FIELDS_LOAD |
BLING_ldRec(bi,bj) = intime1 |
|
./pkg/bling/bling_fields_load.F |
157 |
BLING_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_fields_load.F |
162 |
BLING_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
163 |
BLING_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
171 |
BLING_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
172 |
BLING_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
180 |
BLING_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
181 |
BLING_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
188 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
189 |
BLING_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
197 |
BLING_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
198 |
BLING_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
208 |
BLING_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_fields_load.F |
214 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
223 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
51 |
BLING_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/bling/bling_fields_load.F |
65 |
BLING_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/bling/bling_fields_load.F |
71 |
BLING_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,BLING_ldRec(bi,bj), intime0, |
|
./pkg/bling/bling_fields_load.F |
88 |
BLING_FIELDS_LOAD |
IF ( intime1.NE.BLING_ldRec(bi,bj) ) THEN |
|
./pkg/bling/bling_fields_load.F |
98 |
BLING_FIELDS_LOAD |
& ' (prev=', intimeP, BLING_ldRec(bi,bj), ' )' |
|
./pkg/bling/bling_ini_forcing.F |
38 |
BLING_INI_FORCING |
INTEGER bi,bj,i,j |
|
./pkg/bling/bling_ini_forcing.F |
44 |
BLING_INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_ini_forcing.F |
46 |
BLING_INI_FORCING |
BLING_ldRec(bi,bj) = 0 |
|
./pkg/bling/bling_ini_forcing.F |
75 |
BLING_INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_ini_forcing.F |
79 |
BLING_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
80 |
BLING_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
81 |
BLING_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
82 |
BLING_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
83 |
BLING_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
84 |
BLING_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_init_varia.F |
137 |
BLING_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_init_varia.F |
142 |
BLING_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/bling/bling_init_varia.F |
143 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
144 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
145 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
31 |
BLING_INIT_VARIA |
INTEGER i,j, bi,bj |
|
./pkg/bling/bling_init_varia.F |
38 |
BLING_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bling/bling_init_varia.F |
43 |
BLING_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
44 |
BLING_INIT_VARIA |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
45 |
BLING_INIT_VARIA |
irr_mem(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/bling/bling_init_varia.F |
46 |
BLING_INIT_VARIA |
chl(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
47 |
BLING_INIT_VARIA |
poc(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
48 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
49 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
50 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
52 |
BLING_INIT_VARIA |
Pc_2d(i,j,bi,bj) = Pc_0 |
|
./pkg/bling/bling_init_varia.F |
53 |
BLING_INIT_VARIA |
Pc_2d_diaz(i,j,bi,bj) = Pc_0_diaz |
|
./pkg/bling/bling_init_varia.F |
54 |
BLING_INIT_VARIA |
alpha_photo2d(i,j,bi,bj) = alpha_photo |
|
./pkg/bling/bling_init_varia.F |
55 |
BLING_INIT_VARIA |
k_Fe2d(i,j,bi,bj) = k_Fe |
|
./pkg/bling/bling_init_varia.F |
56 |
BLING_INIT_VARIA |
k_Fe_diaz2d(i,j,bi,bj) = k_Fe_diaz |
|
./pkg/bling/bling_init_varia.F |
57 |
BLING_INIT_VARIA |
gamma_POM2d(i,j,bi,bj) = gamma_POM |
|
./pkg/bling/bling_init_varia.F |
58 |
BLING_INIT_VARIA |
wsink0_2d(i,j,bi,bj) = wsink0 |
|
./pkg/bling/bling_init_varia.F |
59 |
BLING_INIT_VARIA |
phi_DOM2d(i,j,bi,bj) = phi_DOM |
|
./pkg/bling/bling_init_varia.F |
60 |
BLING_INIT_VARIA |
phi_sm2d(i,j,bi,bj) = phi_sm |
|
./pkg/bling/bling_init_varia.F |
61 |
BLING_INIT_VARIA |
phi_lg2d(i,j,bi,bj) = phi_lg |
|
./pkg/bling/bling_light.F |
10 |
BLING_LIGHT |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_light.F |
124 |
BLING_LIGHT |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/bling/bling_light.F |
128 |
BLING_LIGHT |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |
|
./pkg/bling/bling_light.F |
155 |
BLING_LIGHT |
& -parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)) |
|
./pkg/bling/bling_light.F |
172 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj).gt.0) THEN |
|
./pkg/bling/bling_light.F |
176 |
BLING_LIGHT |
atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_light.F |
180 |
BLING_LIGHT |
atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_light.F |
181 |
BLING_LIGHT |
& + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj) |
|
./pkg/bling/bling_light.F |
207 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_light.F |
226 |
BLING_LIGHT |
CALL DIAGNOSTICS_FILL(Qsw,'BLGQSW ',0,1,1,bi,bj,myThid) |
|
./pkg/bling/bling_light.F |
227 |
BLING_LIGHT |
CALL DIAGNOSTICS_FILL(irr_inst,'BLGIRRIS',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_light.F |
55 |
BLING_LIGHT |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_main.F |
12 |
BLING_MAIN |
& bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_main.F |
147 |
BLING_MAIN |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_main.F |
157 |
BLING_MAIN |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_main.F |
171 |
BLING_MAIN |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_main.F |
200 |
BLING_MAIN |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_main.F |
235 |
BLING_MAIN |
surf_Fe(i,j) = alpfe*InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/bling/bling_main.F |
236 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
238 |
BLING_MAIN |
& + alpfe*InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/bling/bling_main.F |
239 |
BLING_MAIN |
& * recip_hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_main.F |
266 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_DIC ,'BLGBIOC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
267 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_ALK ,'BLGBIOAL',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
268 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_O2 ,'BLGBIOO2',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
269 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_NO3 ,'BLGBION ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
270 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_PO4 ,'BLGBIOP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
271 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_Fe ,'BLGBIOFE',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
272 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(surf_Fe ,'BLGSURFE',0,1,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
273 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(pH ,'BLGPH3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
274 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(OmegaAr ,'BLGOMAR ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
275 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(pCO2 ,'BLGPCO2 ',0,1 ,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
276 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(fluxCO2 ,'BLGCFLX ',0,1 ,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
277 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(fluxO2 ,'BLGOFLX ',0,1 ,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
50 |
BLING_MAIN |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_min_val.F |
23 |
BLING_MIN_VAL |
INTEGER bi, bj |
|
./pkg/bling/bling_min_val.F |
35 |
BLING_MIN_VAL |
PTR(i,j,k) = max( min_val*maskC(i,j,k,bi,bj), PTR(i,j,k) ) |
|
./pkg/bling/bling_min_val.F |
8 |
BLING_MIN_VAL |
I PTR, min_val, bi, bj ) |
|
./pkg/bling/bling_mixedlayer.F |
41 |
BLING_MIXEDLAYER |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_mixedlayer.F |
68 |
BLING_MIXEDLAYER |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/bling/bling_mixedlayer.F |
70 |
BLING_MIXEDLAYER |
I 1, bi, bj, myThid ) |
|
./pkg/bling/bling_mixedlayer.F |
89 |
BLING_MIXEDLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bling/bling_mixedlayer.F |
91 |
BLING_MIXEDLAYER |
I k, bi, bj, myThid ) |
|
./pkg/bling/bling_mixedlayer.F |
98 |
BLING_MIXEDLAYER |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
9 |
BLING_MIXEDLAYER |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
16 |
BLING_PROD |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
265 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_NO3, 1. _d -7 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
266 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_PO4, 1. _d -8 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
267 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_FE, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
268 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_O2, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
269 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_DON, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
270 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_DOP, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
280 |
BLING_PROD |
Phy_lg_local(i,j,k) = PTR_PHY(i,j,k)*phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
281 |
BLING_PROD |
Phy_sm_local(i,j,k) = PTR_PHY(i,j,k)*phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
282 |
BLING_PROD |
Phy_diaz_local(i,j,k) = PTR_PHY(i,j,k)*phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
284 |
BLING_PROD |
Phy_lg_local(i,j,k) = phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
285 |
BLING_PROD |
Phy_sm_local(i,j,k) = phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
286 |
BLING_PROD |
Phy_diaz_local(i,j,k) = phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
303 |
BLING_PROD |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
326 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
330 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
332 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
334 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
343 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
366 |
BLING_PROD |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
374 |
BLING_PROD |
irr_mem(i,j,k,bi,bj) = irr_mem(i,j,k,bi,bj) + |
|
./pkg/bling/bling_production.F |
375 |
BLING_PROD |
& (irr_eff(i,j,k) - irr_mem(i,j,k,bi,bj))* |
|
./pkg/bling/bling_production.F |
389 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
409 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
412 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe_diaz2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
421 |
BLING_PROD |
expkT(i,j,k) = exp(kappa_eppley * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
426 |
BLING_PROD |
Pc_m = Pc_2d(i,j,bi,bj) * expkT(i,j,k) |
|
./pkg/bling/bling_production.F |
428 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
430 |
BLING_PROD |
Pc_m_diaz = Pc_2d_diaz(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
431 |
BLING_PROD |
& * exp(kappa_eppley_diaz * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
433 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
437 |
BLING_PROD |
Pc_m = max(Pc_m ,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
438 |
BLING_PROD |
Pc_m_diaz = max(Pc_m_diaz,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
453 |
BLING_PROD |
& / (1. _d 0 + alpha_photo2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
|
./pkg/bling/bling_production.F |
472 |
BLING_PROD |
& /(epsln + alpha_photo2d(i,j,bi,bj)*theta_Fe_max) |
|
./pkg/bling/bling_production.F |
473 |
BLING_PROD |
& + irr_mem(i,j,k,bi,bj)/2. _d 0 |
|
./pkg/bling/bling_production.F |
487 |
BLING_PROD |
IF (theta(i,j,k,bi,bj) .lt. 14) THEN |
|
./pkg/bling/bling_production.F |
517 |
BLING_PROD |
CaCO3_uptake(i,j,k) = Phy_sm_local(i,j,k)*phi_sm2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
529 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
561 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
568 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
569 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
56 |
BLING_PROD |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_production.F |
570 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
573 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k) |
|
./pkg/bling/bling_production.F |
574 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
575 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
581 |
BLING_PROD |
chl(i,j,k,bi,bj) = max(chl_min, CtoN * 12.01 * 1. _d 3 * |
|
./pkg/bling/bling_production.F |
595 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
618 |
BLING_PROD |
frac_exp = (phi_sm2d(i,j,bi,bj) + phi_lg2d(i,j,bi,bj) * |
|
./pkg/bling/bling_production.F |
621 |
BLING_PROD |
& exp(kappa_remin * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
654 |
BLING_PROD |
DON_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
658 |
BLING_PROD |
DOP_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
686 |
BLING_PROD |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
697 |
BLING_PROD |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_production.F |
708 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
713 |
BLING_PROD |
DON_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
715 |
BLING_PROD |
DOP_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
718 |
BLING_PROD |
DON_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
720 |
BLING_PROD |
DOP_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
730 |
BLING_PROD |
& ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
751 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
764 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
779 |
BLING_PROD |
G_DON(i,j,k) = DON_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
783 |
BLING_PROD |
G_DOP(i,j,k) = DOP_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
800 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
807 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
823 |
BLING_PROD |
& - (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
835 |
BLING_PROD |
poc(i,j,k,bi,bj) = (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
851 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_sm_local,'BLGPSM ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
853 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_lg_local,'BLGPLG ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
855 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_diaz_local,'BLGPDIA ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
857 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(chl, 'BLGCHL ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
858 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irr_mem,'BLGIMEM ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
860 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irrk, 'BLGIRRK ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
861 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irr_eff, 'BLGIEFF ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
862 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(poc, 'BLGPOC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
863 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(theta_Fe,'BLGCHL2C',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
864 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(thFe_inv,'BLGC2CHL',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
865 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_lim, 'BLGFELIM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
866 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NO3_lim, 'BLGNLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
867 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(PO4_lim, 'BLGPLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
868 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(light_lim,'BLGLLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
869 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(POC_flux,'BLGPOCF ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
870 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NPP, 'BLGNPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
871 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NCP, 'BLGNCP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
872 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_dvm, 'BLGFEDVM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
873 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_spm, 'BLGFESPM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
874 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_recycle, 'BLGFEREC',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
876 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_remindvm, 'BLGFERD ',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
878 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_uptake,'BLGFEUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
879 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_den_benthic,'BLGNDENB',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
881 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_den_pelag, 'BLGNDENP',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
883 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_dvm, 'BLGNDVM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
884 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_fix, 'BLGNFIX ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
885 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DON_prod, 'BLGDONP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
886 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DON_remin,'BLGDONR ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
887 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_spm, 'BLGNSPM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
888 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_recycle,'BLGNREC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
889 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_remindvm,'BLGNRD ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
890 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_reminp, 'BLGNREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
891 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_uptake, 'BLGNUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
892 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_dvm, 'BLGPDVM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
893 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DOP_prod, 'BLGDOPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
894 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_spm, 'BLGPSPM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
895 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_recycle,'BLGPREC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
896 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_remindvm,'BLGPRD ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
897 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_reminp, 'BLGPREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
898 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_uptake, 'BLGPUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
899 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu, 'BLGMU ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
900 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu_diaz, 'BLGMUDIA',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
901 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(CaCO3_diss, 'BLGCCdis',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
903 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(CaCO3_uptake,'BLGCCpro',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_remineralization.F |
12 |
BLING_REMIN |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bling/bling_remineralization.F |
157 |
BLING_REMIN |
IF (hFacC(i,j,k+1,bi,bj).GT.0) bttmlyr = 0 |
|
./pkg/bling/bling_remineralization.F |
161 |
BLING_REMIN |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_remineralization.F |
166 |
BLING_REMIN |
wsink = wsink0_2d(i,j,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
168 |
BLING_REMIN |
wsink = wsinkacc * (depth_l - wsink0z) + wsink0_2d(i,j,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
173 |
BLING_REMIN |
zremin = gamma_POM2d(i,j,bi,bj) * ( PTR_O2(i,j,k)**2 / |
|
./pkg/bling/bling_remineralization.F |
180 |
BLING_REMIN |
& omegaC(i,j,k,bi,bj) + epsln )) |
|
./pkg/bling/bling_remineralization.F |
184 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
185 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
188 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
189 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
193 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin_caco3*drF(k) |
|
./pkg/bling/bling_remineralization.F |
194 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
219 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + N_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
222 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + P_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
225 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
235 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
280 |
BLING_REMIN |
NO3_sed(i,j) = PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
283 |
BLING_REMIN |
PO4_sed(i,j) = POPflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
290 |
BLING_REMIN |
O2_sed(i,j) = -(O2toN * PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
342 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
343 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
358 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)-PFEflux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
359 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
382 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_ads_org, 'BLGFEADO',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_remineralization.F |
384 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_ads_inorg, 'BLGFEADI',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_remineralization.F |
386 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_sed, 'BLGFESED',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
387 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_reminp,'BLGFEREM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
388 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(N_reminp, 'BLGNREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
389 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(P_reminp, 'BLGPREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
391 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_burial,'BLGFEBUR',0,1,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
392 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(NO3_sed, 'BLGNSED ',0,1,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
393 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(PO4_sed, 'BLGPSED ',0,1,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
394 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(O2_sed, 'BLGO2SED',0,1,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
48 |
BLING_REMIN |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_sgs.F |
39 |
BLING_SGS |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/bling/bling_sgs.F |
8 |
BLING_SGS |
I bi, bj, imin, imax, jmin, jmax, |
|
./pkg/bulk_force/bulkf_ave.F |
31 |
BULKF_AVE |
INTEGER bi,bj |
|
./pkg/bulk_force/bulkf_ave.F |
43 |
BULKF_AVE |
BULK_Qnet_Ave(i,j,bi,bj) = BULK_Qnet_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
44 |
BULKF_AVE |
& +Qnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
48 |
BULKF_AVE |
BULK_EmPmR_Ave(i,j,bi,bj) = BULK_EmPmR_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
49 |
BULKF_AVE |
& +EmPmR(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
50 |
BULKF_AVE |
BULK_fu_Ave(i,j,bi,bj) = BULK_fu_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
51 |
BULKF_AVE |
& +fu(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
52 |
BULKF_AVE |
BULK_fv_Ave(i,j,bi,bj) = BULK_fv_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
53 |
BULKF_AVE |
& +fv(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
54 |
BULKF_AVE |
BULK_latent_Ave(i,j,bi,bj) = BULK_latent_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
55 |
BULKF_AVE |
& +flh(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
56 |
BULKF_AVE |
BULK_sensible_Ave(i,j,bi,bj) = BULK_sensible_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
57 |
BULKF_AVE |
& +fsh(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
58 |
BULKF_AVE |
BULK_evap_Ave(i,j,bi,bj) = BULK_evap_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
59 |
BULKF_AVE |
& +evap(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
60 |
BULKF_AVE |
BULK_flwup_Ave(i,j,bi,bj) = BULK_flwup_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
61 |
BULKF_AVE |
& +flwup(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
62 |
BULKF_AVE |
BULK_flwupnet_Ave(i,j,bi,bj) = BULK_flwupnet_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
63 |
BULKF_AVE |
& +flwupnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
64 |
BULKF_AVE |
BULK_solar_Ave(i,j,bi,bj) = BULK_solar_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
65 |
BULKF_AVE |
& +fswnet(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
66 |
BULKF_AVE |
BULK_ssq_Ave(i,j,bi,bj) = BULK_ssq_Ave(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_ave.F |
67 |
BULKF_AVE |
& +savssq(i,j,bi,bj)*deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
70 |
BULKF_AVE |
BULK_timeAve(bi,bj) = BULK_timeAve(bi,bj)+deltaTclock |
|
./pkg/bulk_force/bulkf_ave.F |
9 |
BULKF_AVE |
SUBROUTINE BULKF_AVE(bi,bj,myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
123 |
BULKF_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/bulk_force/bulkf_fields_load.F |
130 |
BULKF_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
132 |
BULKF_FIELDS_LOAD |
bulkfRec(bi,bj) = 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
135 |
BULKF_FIELDS_LOAD |
tair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
136 |
BULKF_FIELDS_LOAD |
tair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
137 |
BULKF_FIELDS_LOAD |
qair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
138 |
BULKF_FIELDS_LOAD |
qair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
139 |
BULKF_FIELDS_LOAD |
rain0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
140 |
BULKF_FIELDS_LOAD |
rain1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
141 |
BULKF_FIELDS_LOAD |
solar0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
142 |
BULKF_FIELDS_LOAD |
solar1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
143 |
BULKF_FIELDS_LOAD |
flwdwn0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
144 |
BULKF_FIELDS_LOAD |
flwdwn1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
145 |
BULKF_FIELDS_LOAD |
cloud0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
146 |
BULKF_FIELDS_LOAD |
cloud1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
147 |
BULKF_FIELDS_LOAD |
wspeed0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
148 |
BULKF_FIELDS_LOAD |
wspeed1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
149 |
BULKF_FIELDS_LOAD |
uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
150 |
BULKF_FIELDS_LOAD |
uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
151 |
BULKF_FIELDS_LOAD |
vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
152 |
BULKF_FIELDS_LOAD |
vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
153 |
BULKF_FIELDS_LOAD |
runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
154 |
BULKF_FIELDS_LOAD |
runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
155 |
BULKF_FIELDS_LOAD |
snow0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
156 |
BULKF_FIELDS_LOAD |
snow1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
158 |
BULKF_FIELDS_LOAD |
thAir0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
159 |
BULKF_FIELDS_LOAD |
thAir1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
161 |
BULKF_FIELDS_LOAD |
qnetch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
162 |
BULKF_FIELDS_LOAD |
qnetch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
163 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
164 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
178 |
BULKF_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
184 |
BULKF_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,bulkfRec(bi,bj), intime0,intime1, |
|
./pkg/bulk_force/bulkf_fields_load.F |
192 |
BULKF_FIELDS_LOAD |
IF ( intime1.NE.bulkfRec(bi,bj) ) THEN |
|
./pkg/bulk_force/bulkf_fields_load.F |
203 |
BULKF_FIELDS_LOAD |
& ' (prev=', intimeP, bulkfRec(bi,bj), ' )' |
|
./pkg/bulk_force/bulkf_fields_load.F |
299 |
BULKF_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
303 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
304 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
351 |
BULKF_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
353 |
BULKF_FIELDS_LOAD |
bulkfRec(bi,bj) = intime1 |
|
./pkg/bulk_force/bulkf_fields_load.F |
361 |
BULKF_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
367 |
BULKF_FIELDS_LOAD |
TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
368 |
BULKF_FIELDS_LOAD |
& +aWght*tair1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
372 |
BULKF_FIELDS_LOAD |
QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
373 |
BULKF_FIELDS_LOAD |
& +aWght*qair1(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
374 |
BULKF_FIELDS_LOAD |
SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
375 |
BULKF_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
376 |
BULKF_FIELDS_LOAD |
FLWDWN(i,j,bi,bj) = bWght*flwdwn0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
377 |
BULKF_FIELDS_LOAD |
& +aWght*flwdwn1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
378 |
BULKF_FIELDS_LOAD |
CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
379 |
BULKF_FIELDS_LOAD |
& +aWght*cloud1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
380 |
BULKF_FIELDS_LOAD |
WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
381 |
BULKF_FIELDS_LOAD |
& +aWght*wspeed1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
382 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
383 |
BULKF_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
384 |
BULKF_FIELDS_LOAD |
VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
385 |
BULKF_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
386 |
BULKF_FIELDS_LOAD |
RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
387 |
BULKF_FIELDS_LOAD |
& +aWght*rain1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
388 |
BULKF_FIELDS_LOAD |
RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
389 |
BULKF_FIELDS_LOAD |
& +aWght*runoff1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
394 |
BULKF_FIELDS_LOAD |
Qnetch(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
395 |
BULKF_FIELDS_LOAD |
& +aWght*qnetch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
396 |
BULKF_FIELDS_LOAD |
EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
397 |
BULKF_FIELDS_LOAD |
& +aWght*empch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
404 |
BULKF_FIELDS_LOAD |
thAir(i,j,bi,bj) = bWght*thAir0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
405 |
BULKF_FIELDS_LOAD |
& + aWght*thAir1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
10 |
BULKF_FLUX_ADJUST |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
43 |
BULKF_FLUX_ADJUST |
INTEGER bi,bj |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
58 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) Qnet(i,j,bi,bj) = Qnetch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_flux_adjust.F |
66 |
BULKF_FLUX_ADJUST |
IF ( adjustMask(i,j) ) EmPmR(i,j,bi,bj) = EmPch(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
100 |
BULKF_FORCING |
evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
109 |
BULKF_FORCING |
I uwind(i,j,bi,bj),vwind(i,j,bi,bj),wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
110 |
BULKF_FORCING |
I Tair(i,j,bi,bj), Qair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
111 |
BULKF_FORCING |
I cloud(i,j,bi,bj),theta(i,j,ks,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
112 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
113 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
114 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
115 |
BULKF_FORCING |
O evp, savssq(i,j,bi,bj), dEvdT, |
|
./pkg/bulk_force/bulkf_forcing.F |
121 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
125 |
BULKF_FORCING |
I uwind(i,j,bi,bj), vwind(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
126 |
BULKF_FORCING |
I wspeed(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
127 |
BULKF_FORCING |
I Qair(i,j,bi,bj), theta(i,j,ks,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
128 |
BULKF_FORCING |
O flwup(i,j,bi,bj), flh(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
129 |
BULKF_FORCING |
O fsh(i,j,bi,bj), df0dT, |
|
./pkg/bulk_force/bulkf_forcing.F |
130 |
BULKF_FORCING |
O ustress(i,j,bi,bj), vstress(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
131 |
BULKF_FORCING |
O evp, savssq(i,j,bi,bj), dEvdT, |
|
./pkg/bulk_force/bulkf_forcing.F |
132 |
BULKF_FORCING |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/bulk_force/bulkf_forcing.F |
135 |
BULKF_FORCING |
evap(i,j,bi,bj) = evp/rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
140 |
BULKF_FORCING |
flwupnet(i,j,bi,bj)=flwup(i,j,bi,bj)-flwdwn(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
142 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = solar(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
145 |
BULKF_FORCING |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
146 |
BULKF_FORCING |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
147 |
BULKF_FORCING |
fsh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
148 |
BULKF_FORCING |
flh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
149 |
BULKF_FORCING |
flwup(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
150 |
BULKF_FORCING |
evap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
151 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
152 |
BULKF_FORCING |
savssq(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
161 |
BULKF_FORCING |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
162 |
BULKF_FORCING |
& *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
167 |
BULKF_FORCING |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
168 |
BULKF_FORCING |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
176 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
179 |
BULKF_FORCING |
hfl = hfl + fsh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
180 |
BULKF_FORCING |
hfl = hfl + flh(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
181 |
BULKF_FORCING |
hfl = hfl - flwupnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
182 |
BULKF_FORCING |
hfl = hfl + fswnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
184 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = -hfl |
|
./pkg/bulk_force/bulkf_forcing.F |
185 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = -fswnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
187 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = df0dT |
|
./pkg/bulk_force/bulkf_forcing.F |
190 |
BULKF_FORCING |
EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
191 |
BULKF_FORCING |
& - runoff(i,j,bi,bj))*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
197 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
198 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
199 |
BULKF_FORCING |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
201 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
234 |
BULKF_FORCING |
IF ( Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
235 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
236 |
BULKF_FORCING |
& + Lfresh*rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
239 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
241 |
BULKF_FORCING |
& *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn ) |
|
./pkg/bulk_force/bulkf_forcing.F |
242 |
BULKF_FORCING |
& *rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
255 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
256 |
BULKF_FORCING |
& + ( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./pkg/bulk_force/bulkf_forcing.F |
257 |
BULKF_FORCING |
& *( evap(i,j,bi,bj) - runoff(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_forcing.F |
259 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
265 |
BULKF_FORCING |
& CALL BULKF_AVE( bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_forcing.F |
62 |
BULKF_FORCING |
INTEGER bi,bj |
|
./pkg/bulk_force/bulkf_forcing.F |
78 |
BULKF_FORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/bulk_force/bulkf_forcing.F |
83 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
88 |
BULKF_FORCING |
I theta(i,j,ks,bi,bj), flwdwn(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
89 |
BULKF_FORCING |
I thAir(i,j,bi,bj), Tair(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
90 |
BULKF_FORCING |
I Qair(i,j,bi,bj), wspeed(i,j,bi,bj), |
|
./pkg/bulk_force/bulkf_forcing.F |
95 |
BULKF_FORCING |
flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1) |
|
./pkg/bulk_force/bulkf_forcing.F |
97 |
BULKF_FORCING |
fsh(i,j,bi,bj) = -SHF(1) |
|
./pkg/bulk_force/bulkf_forcing.F |
98 |
BULKF_FORCING |
flh(i,j,bi,bj) = -Lvap*EVPloc(1) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
13 |
BULKF_FORMULA_LAY |
I iceornot, i,j,bi,bj,myThid ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
57 |
BULKF_FORMULA_LAY |
INTEGER i,j, bi,bj !current grid point indices |
|
./pkg/bulk_force/bulkf_init_varia.F |
38 |
BULKF_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/bulk_force/bulkf_init_varia.F |
42 |
BULKF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_init_varia.F |
46 |
BULKF_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
47 |
BULKF_INIT_VARIA |
Qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
48 |
BULKF_INIT_VARIA |
Solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
49 |
BULKF_INIT_VARIA |
flwdwn(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
50 |
BULKF_INIT_VARIA |
cloud (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
51 |
BULKF_INIT_VARIA |
wspeed(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
52 |
BULKF_INIT_VARIA |
uwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
53 |
BULKF_INIT_VARIA |
vwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
54 |
BULKF_INIT_VARIA |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
56 |
BULKF_INIT_VARIA |
thAir (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
58 |
BULKF_INIT_VARIA |
qnetch(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
59 |
BULKF_INIT_VARIA |
empch (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
63 |
BULKF_INIT_VARIA |
BULK_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
66 |
BULKF_INIT_VARIA |
BULK_Qnet_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
67 |
BULKF_INIT_VARIA |
BULK_EmPmR_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
68 |
BULKF_INIT_VARIA |
BULK_fu_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
69 |
BULKF_INIT_VARIA |
BULK_fv_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
70 |
BULKF_INIT_VARIA |
BULK_latent_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
71 |
BULKF_INIT_VARIA |
BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
72 |
BULKF_INIT_VARIA |
BULK_evap_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
73 |
BULKF_INIT_VARIA |
BULK_flwup_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
74 |
BULKF_INIT_VARIA |
BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
75 |
BULKF_INIT_VARIA |
BULK_solar_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
76 |
BULKF_INIT_VARIA |
BULK_ssq_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
83 |
BULKF_INIT_VARIA |
CONS_Qnet (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
84 |
BULKF_INIT_VARIA |
CONS_EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_output.F |
112 |
BULKF_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_output.F |
114 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_Qnet_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
115 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_EmPmR_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
116 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fu_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
117 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fv_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
118 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_latent_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
119 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_sensible_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
120 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_evap_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
121 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwup_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
122 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwupnet_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
123 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_solar_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
124 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_ssq_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
125 |
BULKF_OUTPUT |
BULK_timeAve(bi,bj) = 0. |
|
./pkg/bulk_force/bulkf_output.F |
47 |
BULKF_OUTPUT |
INTEGER bi, bj |
|
./pkg/bulk_force/bulkf_output.F |
55 |
BULKF_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/bulk_force/bulkf_output.F |
58 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
60 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
62 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
64 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
66 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
68 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
70 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
72 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
74 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
76 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
78 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/cd_code/cd_code_ini_vars.F |
23 |
CD_CODE_INI_VARS |
INTEGER bi, bj |
|
./pkg/cd_code/cd_code_ini_vars.F |
30 |
CD_CODE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cd_code/cd_code_ini_vars.F |
37 |
CD_CODE_INI_VARS |
uNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
38 |
CD_CODE_INI_VARS |
vNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
39 |
CD_CODE_INI_VARS |
uVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
40 |
CD_CODE_INI_VARS |
vVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
48 |
CD_CODE_INI_VARS |
etaNm1(I,J,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
103 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
104 |
CD_CODE_SCHEME |
& +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
106 |
CD_CODE_SCHEME |
pf(i,j) = Bo_surf(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
107 |
CD_CODE_SCHEME |
& *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
11 |
CD_CODE_SCHEME |
I bi,bj,k, dPhiHydX,dPhiHydY, guFld,gvFld, |
|
./pkg/cd_code/cd_code_scheme.F |
120 |
CD_CODE_SCHEME |
& -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1)) |
|
./pkg/cd_code/cd_code_scheme.F |
122 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
124 |
CD_CODE_SCHEME |
& *maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
134 |
CD_CODE_SCHEME |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
135 |
CD_CODE_SCHEME |
& -( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
136 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
138 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
140 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
147 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
153 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
156 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
157 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
160 |
CD_CODE_SCHEME |
& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
161 |
CD_CODE_SCHEME |
& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
163 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
170 |
CD_CODE_SCHEME |
& ( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
171 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
172 |
CD_CODE_SCHEME |
& *vVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
182 |
CD_CODE_SCHEME |
& -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j)) |
|
./pkg/cd_code/cd_code_scheme.F |
184 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
186 |
CD_CODE_SCHEME |
& *maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
196 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
197 |
CD_CODE_SCHEME |
& +( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
198 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
200 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
202 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
209 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
215 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
218 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
219 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
222 |
CD_CODE_SCHEME |
& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
223 |
CD_CODE_SCHEME |
& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
225 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
232 |
CD_CODE_SCHEME |
& -( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
233 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
234 |
CD_CODE_SCHEME |
& *uVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
241 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
242 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
41 |
CD_CODE_SCHEME |
INTEGER bi,bj,k |
|
./pkg/cfc/cfc11_forcing.F |
144 |
CFC11_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc11_forcing.F |
157 |
CFC11_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc11_forcing.F |
165 |
CFC11_FORCING |
& + fluxCFC11(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc11_forcing.F |
21 |
CFC11_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc11_forcing.F |
51 |
CFC11_FORCING |
INTEGER bi, bj |
|
./pkg/cfc/cfc11_forcing.F |
99 |
CFC11_FORCING |
& .AND. bi*bj.EQ.1 ) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
12 |
CFC11_SURFFORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc11_surfforcing.F |
45 |
CFC11_SURFFORCING |
INTEGER bi, bj |
|
./pkg/cfc/cfc11_surfforcing.F |
70 |
CFC11_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
74 |
CFC11_SURFFORCING |
& + sca_11_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
75 |
CFC11_SURFFORCING |
& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
76 |
CFC11_SURFFORCING |
& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
77 |
CFC11_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
79 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
86 |
CFC11_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc11_surfforcing.F |
92 |
CFC11_SURFFORCING |
Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
94 |
CFC11_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc11_surfforcing.F |
95 |
CFC11_SURFFORCING |
& * pisVel(i,j,bi,bj) |
|
./pkg/cfc/cfc12_forcing.F |
100 |
CFC12_FORCING |
& .AND. bi*bj.EQ.1 ) THEN |
|
./pkg/cfc/cfc12_forcing.F |
145 |
CFC12_FORCING |
weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat |
|
./pkg/cfc/cfc12_forcing.F |
158 |
CFC12_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc12_forcing.F |
166 |
CFC12_FORCING |
& + fluxCFC12(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc12_forcing.F |
21 |
CFC12_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc12_forcing.F |
52 |
CFC12_FORCING |
INTEGER bi, bj |
|
./pkg/cfc/cfc12_surfforcing.F |
12 |
CFC12_SURFFORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cfc/cfc12_surfforcing.F |
45 |
CFC12_SURFFORCING |
INTEGER bi, bj |
|
./pkg/cfc/cfc12_surfforcing.F |
70 |
CFC12_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
74 |
CFC12_SURFFORCING |
& + sca_12_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
75 |
CFC12_SURFFORCING |
& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
76 |
CFC12_SURFFORCING |
& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
77 |
CFC12_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
79 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
86 |
CFC12_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc12_surfforcing.F |
92 |
CFC12_SURFFORCING |
Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc12_surfforcing.F |
95 |
CFC12_SURFFORCING |
& * pisVel(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
105 |
CFC_FIELDS_LOAD |
IF ( intime1.NE.CFC_ldRec(bi,bj) ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
115 |
CFC_FIELDS_LOAD |
& ' (prev=', intimeP, CFC_ldRec(bi,bj), ' )' |
|
./pkg/cfc/cfc_fields_load.F |
153 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
155 |
CFC_FIELDS_LOAD |
CFC_ldRec(bi,bj) = intime1 |
|
./pkg/cfc/cfc_fields_load.F |
165 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
174 |
CFC_FIELDS_LOAD |
locWind(i,j) = sh(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
185 |
CFC_FIELDS_LOAD |
locWind(i,j) = bWght*wind0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
186 |
CFC_FIELDS_LOAD |
& + aWght*wind1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
192 |
CFC_FIELDS_LOAD |
locWind(i,j) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
201 |
CFC_FIELDS_LOAD |
pisVel(i,j,bi,bj)=(0.31 _d 0*locWind(i,j)**2)/3.6 _d 5 |
|
./pkg/cfc/cfc_fields_load.F |
209 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
210 |
CFC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
216 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
225 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
233 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
241 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
242 |
CFC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
248 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
53 |
CFC_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/cfc/cfc_fields_load.F |
63 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
65 |
CFC_FIELDS_LOAD |
CFC_ldRec(bi,bj) = 0 |
|
./pkg/cfc/cfc_fields_load.F |
83 |
CFC_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
89 |
CFC_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,CFC_ldRec(bi,bj), intime0,intime1, |
|
./eesupp/src/print.F |
1051 |
PRINT_MAPRS |
DO bj=dwnBlo, dwnBhi, dwnBStr |
|
./eesupp/src/print.F |
1054 |
PRINT_MAPRS |
& dwnBase-1+(bj-1)*dwnStep+J |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1233 |
PRINT_MAPRL |
INTEGER bi, bj, bk |
|
./eesupp/src/print.F |
1244 |
PRINT_MAPRL |
DO bj=byMin, byMax, byStr |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1253 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1254 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1483 |
PRINT_MAPRL |
DO bj=dwnBlo, dwnBhi, dwnBStr |
|
./eesupp/src/print.F |
1486 |
PRINT_MAPRL |
& dwnBase-1+(bj-1)*dwnStep+J |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
800 |
PRINT_MAPRS |
INTEGER bi, bj, bk |
|
./eesupp/src/print.F |
811 |
PRINT_MAPRS |
DO bj=byMin, byMax, byStr |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
819 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
820 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
116 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
121 |
CHEAPAML |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
122 |
CHEAPAML |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
138 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
144 |
CHEAPAML |
gTair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
145 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
146 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
150 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, |
|
./pkg/cheapaml/cheapaml.F |
161 |
CHEAPAML |
I bi, bj, 1, 1, |
|
./pkg/cheapaml/cheapaml.F |
162 |
CHEAPAML |
U gTair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
163 |
CHEAPAML |
U gTairm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
166 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer, |
|
./pkg/cheapaml/cheapaml.F |
178 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
182 |
CHEAPAML |
gqair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
183 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
184 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
188 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, |
|
./pkg/cheapaml/cheapaml.F |
199 |
CHEAPAML |
I bi, bj, 1, 1, |
|
./pkg/cheapaml/cheapaml.F |
200 |
CHEAPAML |
U gqair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
201 |
CHEAPAML |
U gqairm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
204 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer, |
|
./pkg/cheapaml/cheapaml.F |
217 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
221 |
CHEAPAML |
gCheaptracer(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
222 |
CHEAPAML |
uTrans(i,j)=uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
223 |
CHEAPAML |
vTrans(i,j)=vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
227 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, |
|
./pkg/cheapaml/cheapaml.F |
238 |
CHEAPAML |
I bi, bj, 1, 1, |
|
./pkg/cheapaml/cheapaml.F |
239 |
CHEAPAML |
U gCheaptracer(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
240 |
CHEAPAML |
U gCheaptracerm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
243 |
CHEAPAML |
I bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer, |
|
./pkg/cheapaml/cheapaml.F |
256 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
260 |
CHEAPAML |
I Tr(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
261 |
CHEAPAML |
U Tair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
262 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
266 |
CHEAPAML |
I qr(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
267 |
CHEAPAML |
U qair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
268 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
273 |
CHEAPAML |
I CheaptracerR(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
274 |
CHEAPAML |
U Cheaptracer(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
275 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
298 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
303 |
CHEAPAML |
surfDrag(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
312 |
CHEAPAML |
vRelWind(i,j) = vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
332 |
CHEAPAML |
windSq(i,j) = ( uWind( i ,j,bi,bj)*uWind( i ,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
333 |
CHEAPAML |
& + uWind(i+1,j,bi,bj)*uWind(i+1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
334 |
CHEAPAML |
& + vWind(i, j ,bi,bj)*vWind(i, j,bi,bj ) |
|
./pkg/cheapaml/cheapaml.F |
335 |
CHEAPAML |
& + vWind(i,j+1,bi,bj)*vWind(i,j+1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
338 |
CHEAPAML |
windSq(i,j) = uWind(i,j,bi,bj)*uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
339 |
CHEAPAML |
& + vWind(i,j,bi,bj)*vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
350 |
CHEAPAML |
I solar(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
351 |
CHEAPAML |
I cheapdlongwave(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
352 |
CHEAPAML |
I uWind(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
353 |
CHEAPAML |
I vWind(1-OLx,1-OLy,bi,bj), lath, |
|
./pkg/cheapaml/cheapaml.F |
355 |
CHEAPAML |
O Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
356 |
CHEAPAML |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
360 |
CHEAPAML |
I i, j, bi, bj, 0, |
|
./pkg/cheapaml/cheapaml.F |
361 |
CHEAPAML |
I theta(1-OLx,1-OLy,1,bi,bj), windSq, |
|
./pkg/cheapaml/cheapaml.F |
364 |
CHEAPAML |
O surfDrag(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
368 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
369 |
CHEAPAML |
& +xolw0 - cheapdlongwave(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
372 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
373 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp_0 |
|
./pkg/cheapaml/cheapaml.F |
377 |
CHEAPAML |
Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
378 |
CHEAPAML |
& + opFrac*solar(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
393 |
CHEAPAML |
I i, j, bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
398 |
CHEAPAML |
I i, j, bi, bj, 0, |
|
./pkg/cheapaml/cheapaml.F |
399 |
CHEAPAML |
I theta(1-OLx,1-OLy,1,bi,bj), windSq, |
|
./pkg/cheapaml/cheapaml.F |
402 |
CHEAPAML |
O surfDrag(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
407 |
CHEAPAML |
EmPmR(i,j,bi,bj) = evp(i,j) |
|
./pkg/cheapaml/cheapaml.F |
417 |
CHEAPAML |
ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt) |
|
./pkg/cheapaml/cheapaml.F |
419 |
CHEAPAML |
xalwu = stefan*(0.5*Tair(i,j,bi,bj)+0.5*ttt+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
422 |
CHEAPAML |
xalwd = stefan*(Tair(i,j,bi,bj)+celsius2K)**4*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
424 |
CHEAPAML |
xflu = ( -solar(i,j,bi,bj) + xalwu + flha(i,j) |
|
./pkg/cheapaml/cheapaml.F |
425 |
CHEAPAML |
& )*xef*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
427 |
CHEAPAML |
xfld = ( -solar(i,j,bi,bj) - xalwd + xolw(i,j) |
|
./pkg/cheapaml/cheapaml.F |
429 |
CHEAPAML |
& )*xef*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
432 |
CHEAPAML |
xlwnet = xolw(i,j)-cheapdlongwave(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
437 |
CHEAPAML |
xlwnet = 0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
438 |
CHEAPAML |
& *(0.39 _d 0 - 0.05 _d 0*SQRT(ABS(qair(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
441 |
CHEAPAML |
& *cheapclouds(i,j,bi,bj)**2 ) |
|
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
& + 4.0*0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**3 |
|
./pkg/cheapaml/cheapaml.F |
443 |
CHEAPAML |
& *(theta(i,j,1,bi,bj)-Tair(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
455 |
CHEAPAML |
gTair(i,j,bi,bj)= (xfld-xflu)/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
457 |
CHEAPAML |
Qnet(i,j,bi,bj) = ( |
|
./pkg/cheapaml/cheapaml.F |
458 |
CHEAPAML |
& -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
465 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
466 |
CHEAPAML |
Qsw(i,j,bi,bj) = -solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
476 |
CHEAPAML |
ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K |
|
./pkg/cheapaml/cheapaml.F |
477 |
CHEAPAML |
pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts) |
|
./pkg/cheapaml/cheapaml.F |
485 |
CHEAPAML |
IF ( wWind(i,j,bi,bj).GT.0. .AND. |
|
./pkg/cheapaml/cheapaml.F |
489 |
CHEAPAML |
& *(wWind(i,j,bi,bj)/0.75 _d -5)**2 |
|
./pkg/cheapaml/cheapaml.F |
497 |
CHEAPAML |
cheapPrecip(i,j,bi,bj) = precip*1200/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
503 |
CHEAPAML |
gqair(i,j,bi,bj) = (evp(i,j)-entrain)/CheapHgrid(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
504 |
CHEAPAML |
& /rhoa*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
505 |
CHEAPAML |
EmPmR(i,j,bi,bj) = ( EmPmR(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
506 |
CHEAPAML |
& -cheapPrecip(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
507 |
CHEAPAML |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
517 |
CHEAPAML |
I bi, bj, iMin, iMax, jMin, jMax, deltaT, |
|
./pkg/cheapaml/cheapaml.F |
524 |
CHEAPAML |
dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
525 |
CHEAPAML |
Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+dtemp*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
532 |
CHEAPAML |
I bi, bj, iMin, iMax, jMin, jMax, deltaT, |
|
./pkg/cheapaml/cheapaml.F |
539 |
CHEAPAML |
dq=qr(i,j,bi,bj)-qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
53 |
CHEAPAML |
INTEGER bi,bj |
|
./pkg/cheapaml/cheapaml.F |
540 |
CHEAPAML |
qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
541 |
CHEAPAML |
IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
551 |
CHEAPAML |
dtr=CheaptracerR(i,j,bi,bj)-Cheaptracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
552 |
CHEAPAML |
Cheaptracer(i,j,bi,bj) = Cheaptracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
553 |
CHEAPAML |
& + dtr*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
560 |
CHEAPAML |
CALL DIAGNOSTICS_FILL( fsha,'CH_SH ',0,1,2,bi,bj,myThid ) |
|
./pkg/cheapaml/cheapaml.F |
561 |
CHEAPAML |
CALL DIAGNOSTICS_FILL( flha,'CH_LH ',0,1,2,bi,bj,myThid ) |
|
./pkg/cheapaml/cheapaml.F |
562 |
CHEAPAML |
CALL DIAGNOSTICS_FILL( q100,'CH_q100 ',0,1,2,bi,bj,myThid ) |
|
./pkg/cheapaml/cheapaml.F |
563 |
CHEAPAML |
CALL DIAGNOSTICS_FILL( ssqt,'CH_ssqt ',0,1,2,bi,bj,myThid ) |
|
./pkg/cheapaml/cheapaml.F |
594 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
599 |
CHEAPAML |
I Tr(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
600 |
CHEAPAML |
U Tair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
601 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
606 |
CHEAPAML |
I qr(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
607 |
CHEAPAML |
U qair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
608 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
614 |
CHEAPAML |
I CheaptracerR(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
615 |
CHEAPAML |
U Cheaptracer(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
616 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
626 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
634 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
635 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
636 |
CHEAPAML |
& *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
637 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
638 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
639 |
CHEAPAML |
& *( vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
645 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
646 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
647 |
CHEAPAML |
& *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
648 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
649 |
CHEAPAML |
& *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/cheapaml.F |
654 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
655 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
656 |
CHEAPAML |
& *( vWind(i,j-1,bi,bj)-vVel(i,j-1,1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
657 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
658 |
CHEAPAML |
& *( vWind(i,j,bi,bj) - vVel(i,j,1,bi,bj) ) ) |
|
./pkg/cheapaml/cheapaml.F |
666 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
667 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
668 |
CHEAPAML |
& *uWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
669 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
670 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
671 |
CHEAPAML |
& *vWind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
677 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
678 |
CHEAPAML |
& *( surfDrag(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
679 |
CHEAPAML |
& *uWind(i-1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
680 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
681 |
CHEAPAML |
& *uWind(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
686 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
687 |
CHEAPAML |
& *( surfDrag(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
688 |
CHEAPAML |
& *vWind(i,j-1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
689 |
CHEAPAML |
& + surfDrag(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
690 |
CHEAPAML |
& *vWind(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
701 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
702 |
CHEAPAML |
& *( ustress(i,j,bi,bj) + ustress(i-1,j,bi,bj) ) |
|
./pkg/cheapaml/cheapaml.F |
707 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
708 |
CHEAPAML |
& *( vstress(i,j,bi,bj) + vstress(i,j-1,bi,bj) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
107 |
CHEAPAML_COARE3_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
113 |
CHEAPAML_COARE3_FLUX |
cwave=gravity*wavesp(i,j,bi,bj)/twoPI |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
114 |
CHEAPAML_COARE3_FLUX |
lwave=cwave*wavesp(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
182 |
CHEAPAML_COARE3_FLUX |
zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
18 |
CHEAPAML_COARE3_FLUX |
I i,j,bi,bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
192 |
CHEAPAML_COARE3_FLUX |
& ' , in: i,j,bi,bj,thid=', i, j, bi, bj, myThid |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
42 |
CHEAPAML_COARE3_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
80 |
CHEAPAML_COARE3_FLUX |
Tas = Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
13 |
CHEAPAML_COPY_EDGES |
I bi, bj, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
41 |
CHEAPAML_COPY_EDGES |
INTEGER bi, bj, myIter, myThid |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
73 |
CHEAPAML_COPY_EDGES |
jG = 1 + myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
81 |
CHEAPAML_COPY_EDGES |
jG = sNy + myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/cheapaml/cheapaml_fields_load.F |
102 |
CHEAPAML_FIELDS_LOAD |
INTEGER bi, bj |
|
./pkg/cheapaml/cheapaml_fields_load.F |
128 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
132 |
CHEAPAML_FIELDS_LOAD |
trair0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
133 |
CHEAPAML_FIELDS_LOAD |
trair1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
134 |
CHEAPAML_FIELDS_LOAD |
qrair0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
135 |
CHEAPAML_FIELDS_LOAD |
qrair1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
136 |
CHEAPAML_FIELDS_LOAD |
solar0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
137 |
CHEAPAML_FIELDS_LOAD |
solar1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
138 |
CHEAPAML_FIELDS_LOAD |
uWind0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
139 |
CHEAPAML_FIELDS_LOAD |
uWind1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
140 |
CHEAPAML_FIELDS_LOAD |
vWind0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
141 |
CHEAPAML_FIELDS_LOAD |
vWind1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
142 |
CHEAPAML_FIELDS_LOAD |
cheaph0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
143 |
CHEAPAML_FIELDS_LOAD |
cheaph1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
144 |
CHEAPAML_FIELDS_LOAD |
cheapcl0(i,j,bi,bj) = 0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
145 |
CHEAPAML_FIELDS_LOAD |
cheapcl1(i,j,bi,bj) = 0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
146 |
CHEAPAML_FIELDS_LOAD |
cheaplw0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
147 |
CHEAPAML_FIELDS_LOAD |
cheaplw1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
148 |
CHEAPAML_FIELDS_LOAD |
cheappr0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
149 |
CHEAPAML_FIELDS_LOAD |
cheappr1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
150 |
CHEAPAML_FIELDS_LOAD |
ustress0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
151 |
CHEAPAML_FIELDS_LOAD |
ustress1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
152 |
CHEAPAML_FIELDS_LOAD |
vstress0(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
153 |
CHEAPAML_FIELDS_LOAD |
vstress1(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
154 |
CHEAPAML_FIELDS_LOAD |
wavesh0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
155 |
CHEAPAML_FIELDS_LOAD |
wavesh1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
156 |
CHEAPAML_FIELDS_LOAD |
wavesp0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
157 |
CHEAPAML_FIELDS_LOAD |
wavesp1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
160 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR0 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
161 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR1 (i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_fields_load.F |
185 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
189 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
203 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
207 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
221 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
225 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
239 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
243 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
260 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
264 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
328 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
332 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
383 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
387 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
388 |
CHEAPAML_FIELDS_LOAD |
& + aWght*trair1(i,j,bi,bj) !+273.15 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
389 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
390 |
CHEAPAML_FIELDS_LOAD |
& + aWght*qrair1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
391 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = bWght*uWind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
392 |
CHEAPAML_FIELDS_LOAD |
& + aWght*uWind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
393 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = bWght*vWind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
394 |
CHEAPAML_FIELDS_LOAD |
& + aWght*vWind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
395 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
396 |
CHEAPAML_FIELDS_LOAD |
& + aWght*solar1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
398 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj) = bWght*ustress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
399 |
CHEAPAML_FIELDS_LOAD |
& + aWght*ustress1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
400 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj) = bWght*vstress0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
401 |
CHEAPAML_FIELDS_LOAD |
& + aWght*vstress1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
404 |
CHEAPAML_FIELDS_LOAD |
CheapHgrid(i,j,bi,bj) = bWght*cheaph0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
405 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheaph1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
408 |
CHEAPAML_FIELDS_LOAD |
cheapclouds(i,j,bi,bj) = bWght*cheapcl0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
409 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheapcl1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
412 |
CHEAPAML_FIELDS_LOAD |
cheapdlongwave(i,j,bi,bj) = bWght*cheaplw0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
413 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheaplw1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
416 |
CHEAPAML_FIELDS_LOAD |
cheapPrecip(i,j,bi,bj) = bWght*cheappr0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
417 |
CHEAPAML_FIELDS_LOAD |
& + aWght*cheappr1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
420 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj) = bWght*CheaptracerR0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
421 |
CHEAPAML_FIELDS_LOAD |
& + aWght*CheaptracerR1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
425 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
426 |
CHEAPAML_FIELDS_LOAD |
& + aWght*wavesh1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
429 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj) = bWght*wavesp0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
430 |
CHEAPAML_FIELDS_LOAD |
& + aWght*wavesp1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
433 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
435 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj) = 0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
436 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = 0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
451 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
455 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
457 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
468 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
472 |
CHEAPAML_FIELDS_LOAD |
local = solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
474 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
487 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
491 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj) + celsius2K |
|
./pkg/cheapaml/cheapaml_fields_load.F |
493 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
504 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
508 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
514 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
524 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
528 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
555 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
559 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=290. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
574 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
578 |
CHEAPAML_FIELDS_LOAD |
u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
580 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
581 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
597 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
601 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=0.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
625 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
629 |
CHEAPAML_FIELDS_LOAD |
CheapPrecip(i,j,bi,bj)=0.0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
647 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
650 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
656 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
657 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
658 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
659 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
660 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
662 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
663 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
666 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
669 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
670 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
673 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
676 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
681 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(2,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
685 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
686 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
687 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
688 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
689 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
691 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
692 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
695 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
698 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
699 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
702 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
705 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
710 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
711 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
712 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
713 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,2,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
714 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
716 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
717 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
720 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
723 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
726 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
729 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
730 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
735 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,2,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
739 |
CHEAPAML_FIELDS_LOAD |
Tr(i,j,bi,bj)=Tr(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
740 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj)=qr(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
741 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj)=uWind(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
742 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj)=vWind(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
743 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj)=Solar(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
745 |
CHEAPAML_FIELDS_LOAD |
ustress(i,j,bi,bj)=ustress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
746 |
CHEAPAML_FIELDS_LOAD |
vstress(i,j,bi,bj)=vstress(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
749 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=CheaptracerR(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
752 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=wavesp(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
753 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
756 |
CHEAPAML_FIELDS_LOAD |
Cheapclouds(i,j,bi,bj)=Cheapclouds(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
759 |
CHEAPAML_FIELDS_LOAD |
Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
11 |
CHEAPAML_GAD_C2_ADV_R |
I bi,bj, |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
37 |
CHEAPAML_GAD_C2_ADV_R |
INTEGER bi,bj |
|
./eesupp/src/reset_halo.F |
113 |
RESET_HALO_RS |
INTEGER bi, bj, k |
|
./eesupp/src/reset_halo.F |
117 |
RESET_HALO_RS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/reset_halo.F |
125 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
131 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
46 |
RESET_HALO_RL |
INTEGER bi, bj, k |
|
./eesupp/src/reset_halo.F |
50 |
RESET_HALO_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./eesupp/src/reset_halo.F |
58 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
64 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
11 |
CHEAPAML_GAD_DST3FL_ADV_R |
I bi,bj,dTarg, |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
38 |
CHEAPAML_GAD_DST3FL_ADV_R |
INTEGER bi,bj |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
119 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf*cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
127 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
131 |
CHEAPAML_INIT_FIXED |
IF( maskC(i,j,1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
132 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
134 |
CHEAPAML_INIT_FIXED |
ELSEIF( relaxMask(i,j,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
135 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj)=cheapaml_taurelaxocean |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
144 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
148 |
CHEAPAML_INIT_FIXED |
IF (relaxMask(i,j,bi,bj).NE.0.) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
149 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=1. _d 0/relaxMask(i,j,bi,bj)/8.64 _d 4 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
151 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
153 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= xgs(i,j,bi,bj)*deltaT |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
154 |
CHEAPAML_INIT_FIXED |
& /(1. _d 0+xgs(i,j,bi,bj)*deltaT) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
176 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
183 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
194 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
205 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = xmf |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
212 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = MAX( relaxMask(i,j,bi,bj), |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
213 |
CHEAPAML_INIT_FIXED |
& (oneRL - maskC(i,j,1,bi,bj)) ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
222 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
227 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
234 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = relaxMask(i,j,bi,bj)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
243 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = MAX( xgs(i,j,bi,bj), tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
250 |
CHEAPAML_INIT_FIXED |
tmpVar = xgs(i,j,bi,bj)*deltaT |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
251 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= tmpVar/( oneRL + tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
42 |
CHEAPAML_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
61 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
65 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
66 |
CHEAPAML_INIT_FIXED |
xgs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
67 |
CHEAPAML_INIT_FIXED |
xrelf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
92 |
CHEAPAML_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
98 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
100 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
104 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
109 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj) = localt |
|
./pkg/cheapaml/cheapaml_init_varia.F |
129 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
133 |
CHEAPAML_INIT_VARIA |
local= Tair(i,j,bi,bj)+celsius2K |
|
./pkg/cheapaml/cheapaml_init_varia.F |
135 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_init_varia.F |
155 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
159 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=290.0 _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
181 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
185 |
CHEAPAML_INIT_VARIA |
cheapHgrid(i,j,bi,bj) = cheapaml_h |
|
./pkg/cheapaml/cheapaml_init_varia.F |
210 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
213 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
217 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
218 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
219 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
220 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
222 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
223 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
224 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
225 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
227 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
228 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
229 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
230 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
232 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj)=Tair(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
233 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
234 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=Cheaptracer(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
235 |
CHEAPAML_INIT_VARIA |
CheapHgrid(i,j,bi,bj)=CheapHgrid(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
40 |
CHEAPAML_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/cheapaml/cheapaml_init_varia.F |
56 |
CHEAPAML_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
60 |
CHEAPAML_INIT_VARIA |
Tr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
61 |
CHEAPAML_INIT_VARIA |
qr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
62 |
CHEAPAML_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
63 |
CHEAPAML_INIT_VARIA |
gTairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
64 |
CHEAPAML_INIT_VARIA |
qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
65 |
CHEAPAML_INIT_VARIA |
gqairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
66 |
CHEAPAML_INIT_VARIA |
uWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
67 |
CHEAPAML_INIT_VARIA |
vWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
68 |
CHEAPAML_INIT_VARIA |
wWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
69 |
CHEAPAML_INIT_VARIA |
solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
70 |
CHEAPAML_INIT_VARIA |
ustress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
71 |
CHEAPAML_INIT_VARIA |
vstress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
72 |
CHEAPAML_INIT_VARIA |
wavesh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
73 |
CHEAPAML_INIT_VARIA |
wavesp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
74 |
CHEAPAML_INIT_VARIA |
cheapPrecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
75 |
CHEAPAML_INIT_VARIA |
CheapHgrid (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
77 |
CHEAPAML_INIT_VARIA |
Cheapclouds (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
78 |
CHEAPAML_INIT_VARIA |
Cheapdlongwave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
79 |
CHEAPAML_INIT_VARIA |
Cheaptracer (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
80 |
CHEAPAML_INIT_VARIA |
CheaptracerR (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
81 |
CHEAPAML_INIT_VARIA |
gCheaptracerm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
100 |
CHEAPAML_LANL_FLUX |
if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
101 |
CHEAPAML_LANL_FLUX |
if (snowheight(i,j,bi,bj).gt.3. _d -1) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
112 |
CHEAPAML_LANL_FLUX |
uw=uwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
113 |
CHEAPAML_LANL_FLUX |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
117 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
118 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
11 |
CHEAPAML_LANL_FLUX |
I i,j,bi,bj, |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
121 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
122 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
127 |
CHEAPAML_LANL_FLUX |
to=theta(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
128 |
CHEAPAML_LANL_FLUX |
t=Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
132 |
CHEAPAML_LANL_FLUX |
ttt=tta-( cheaphgrid(i,j,bi,bj)- zref)*gamma_blk |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
133 |
CHEAPAML_LANL_FLUX |
pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
143 |
CHEAPAML_LANL_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
35 |
CHEAPAML_LANL_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
98 |
CHEAPAML_LANL_FLUX |
if (maskC(i,j,1,bi,bj).ne.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_seaice.F |
134 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_seaice.F |
146 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
147 |
CHEAPAML_SEAICE |
vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
164 |
CHEAPAML_SEAICE |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/cheapaml/cheapaml_seaice.F |
166 |
CHEAPAML_SEAICE |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
167 |
CHEAPAML_SEAICE |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
168 |
CHEAPAML_SEAICE |
I snowAge(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
169 |
CHEAPAML_SEAICE |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
174 |
CHEAPAML_SEAICE |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
177 |
CHEAPAML_SEAICE |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml_seaice.F |
190 |
CHEAPAML_SEAICE |
IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
197 |
CHEAPAML_SEAICE |
I i, j, bi, bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_seaice.F |
19 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_seaice.F |
206 |
CHEAPAML_SEAICE |
Tsurf(i,j) = Tsrf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
208 |
CHEAPAML_SEAICE |
I i, j, bi, bj, iceOrNot, |
|
./pkg/cheapaml/cheapaml_seaice.F |
227 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_seaice.F |
232 |
CHEAPAML_SEAICE |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
233 |
CHEAPAML_SEAICE |
sw2oce (i,j) = icFlxSW(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
254 |
CHEAPAML_SEAICE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
257 |
CHEAPAML_SEAICE |
icFlxAtm(i,j,bi,bj) = netSW(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
260 |
CHEAPAML_SEAICE |
icFrwAtm(i,j,bi,bj) = evp(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
65 |
CHEAPAML_SEAICE |
INTEGER bi, bj, myIter, myThid |
|
./pkg/cheapaml/cheapaml_timestep.F |
10 |
CHEAPAML_TIMESTEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cheapaml/cheapaml_timestep.F |
31 |
CHEAPAML_TIMESTEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/cheapaml/cheapaml_timestep.F |
47 |
CHEAPAML_TIMESTEP |
tracer(i,j,bi,bj) = tracer(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_timestep.F |
48 |
CHEAPAML_TIMESTEP |
& + deltaTloc*gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
11 |
GAD_2D_CALC_RHS |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
120 |
GAD_2D_CALC_RHS |
localT(i,j)=tracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
125 |
GAD_2D_CALC_RHS |
localW(i,j)=-(recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
126 |
GAD_2D_CALC_RHS |
& *(uVel(i+1,j,bi,bj)-uVel(i,j,bi,bj)) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
127 |
GAD_2D_CALC_RHS |
& + (vVel(i,j+1,bi,bj)-vVel(i,j,bi,bj))*recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
129 |
GAD_2D_CALC_RHS |
wvel(i,j,bi,bj) = localW(i,j)/2. _d 0 /zu |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
153 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
173 |
GAD_2D_CALC_RHS |
I bi,bj,1,.TRUE., deltaTtracer, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
179 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
190 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
211 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
213 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
217 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
219 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
241 |
GAD_2D_CALC_RHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
244 |
GAD_2D_CALC_RHS |
IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
250 |
GAD_2D_CALC_RHS |
IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
270 |
GAD_2D_CALC_RHS |
I bi,bj,1,.TRUE., deltaTtracer, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
276 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
287 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
315 |
GAD_2D_CALC_RHS |
I bi,bj,deltaTtracer, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
322 |
GAD_2D_CALC_RHS |
I bi,bj, |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
340 |
GAD_2D_CALC_RHS |
gTracer(i,j,bi,bj)= |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
341 |
GAD_2D_CALC_RHS |
& -(recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
343 |
GAD_2D_CALC_RHS |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
67 |
GAD_2D_CALC_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./eesupp/src/scatter_xz.F |
18 |
SCATTER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/scatter_xz.F |
34 |
SCATTER_XZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_xz.F |
38 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
53 |
SCATTER_XZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_xz.F |
57 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
64 |
SCATTER_XZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_xz.F |
68 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
11 |
GAD_C2_2D_ADV_X |
I bi,bj, |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
34 |
GAD_C2_2D_ADV_X |
INTEGER bi,bj |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
52 |
GAD_C2_2D_ADV_X |
& uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
11 |
GAD_C2_2D_ADV_Y |
I bi,bj, |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
34 |
GAD_C2_2D_ADV_Y |
INTEGER bi,bj |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
54 |
GAD_C2_2D_ADV_Y |
& vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/cheapaml/gad_diff_2d_x.F |
11 |
GAD_DIFF_2D_X |
I bi,bj, |
|
./pkg/cheapaml/gad_diff_2d_x.F |
34 |
GAD_DIFF_2D_X |
INTEGER bi,bj |
|
./pkg/cheapaml/gad_diff_2d_x.F |
52 |
GAD_DIFF_2D_X |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
54 |
GAD_DIFF_2D_X |
& *CosFacU(j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
11 |
GAD_DIFF_2D_Y |
I bi,bj, |
|
./pkg/cheapaml/gad_diff_2d_y.F |
35 |
GAD_DIFF_2D_Y |
INTEGER bi,bj |
|
./pkg/cheapaml/gad_diff_2d_y.F |
55 |
GAD_DIFF_2D_Y |
$ *_recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
58 |
GAD_DIFF_2D_Y |
$ *CosFacV(j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
60 |
GAD_DIFF_2D_Y |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
31 |
COMPRECV_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./eesupp/src/scatter_yz.F |
18 |
SCATTER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/scatter_yz.F |
34 |
SCATTER_YZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_yz.F |
38 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
53 |
SCATTER_YZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_yz.F |
57 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
64 |
SCATTER_YZ |
DO bj=1,nSy |
|
./eesupp/src/scatter_yz.F |
68 |
SCATTER_YZ |
temp(j,bi,bj) = global(jG) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
31 |
COMPRECV_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
29 |
COMPSEND_R4TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
29 |
COMPSEND_R8TILES |
bj=my_tile_bj(bibj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./eesupp/src/write_utils.F |
876 |
WRITE_XY_XLINE_RS |
INTEGER bi, bj, i, j |
|
./eesupp/src/write_utils.F |
881 |
WRITE_XY_XLINE_RS |
bj = tCoord |
|
./eesupp/src/write_utils.F |
884 |
WRITE_XY_XLINE_RS |
WRITE(num2,'(I10)') bj |
|
./eesupp/src/write_utils.F |
897 |
WRITE_XY_XLINE_RS |
xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj) |
|
./eesupp/src/write_utils.F |
956 |
WRITE_XY_YLINE_RS |
INTEGER bi, bj, i, j |
|
./eesupp/src/write_utils.F |
976 |
WRITE_XY_YLINE_RS |
DO bj=1,nSy |
|
./eesupp/src/write_utils.F |
978 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
26 |
COST_ACCUMULATE_MEAN |
integer bi, bj |
|
./pkg/cost/cost_accumulate_mean.F |
44 |
COST_ACCUMULATE_MEAN |
do bj = jtlo,jthi |
|
./pkg/cost/cost_accumulate_mean.F |
49 |
COST_ACCUMULATE_MEAN |
cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
50 |
COST_ACCUMULATE_MEAN |
& + theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
52 |
COST_ACCUMULATE_MEAN |
cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
53 |
COST_ACCUMULATE_MEAN |
& + uVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
55 |
COST_ACCUMULATE_MEAN |
cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
59 |
COST_ACCUMULATE_MEAN |
cMeanThetaUVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
60 |
COST_ACCUMULATE_MEAN |
& cMeanThetaUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
61 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
62 |
COST_ACCUMULATE_MEAN |
& /2.*uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
63 |
COST_ACCUMULATE_MEAN |
& *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
65 |
COST_ACCUMULATE_MEAN |
cMeanThetaVVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
66 |
COST_ACCUMULATE_MEAN |
& cMeanThetaVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
67 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
68 |
COST_ACCUMULATE_MEAN |
& /2.*vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
69 |
COST_ACCUMULATE_MEAN |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
102 |
COST_ATLANTIC_HEAT |
& + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
103 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
106 |
COST_ATLANTIC_HEAT |
& + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
110 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
112 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
150 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
154 |
COST_ATLANTIC_HEAT |
& + cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
155 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
156 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
158 |
COST_ATLANTIC_HEAT |
& 0.5*( cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
159 |
COST_ATLANTIC_HEAT |
& +cMeanTheta(i-,j,k,bi,bj) ) |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
161 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
163 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
countU(k) = countU(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
188 |
COST_ATLANTIC_HEAT |
objf_atl(bi,bj) = |
|
./pkg/cost/cost_atlantic_heat.F |
191 |
COST_ATLANTIC_HEAT |
objf_atl(bi,bj) = |
|
./pkg/cost/cost_atlantic_heat.F |
34 |
COST_ATLANTIC_HEAT |
integer bi, bj |
|
./pkg/cost/cost_atlantic_heat.F |
60 |
COST_ATLANTIC_HEAT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cost/cost_atlantic_heat.F |
79 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
82 |
COST_ATLANTIC_HEAT |
locfc = locfc + sum*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
89 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_dependent_init.F |
37 |
COST_DEPENDENT_INIT |
integer bi,bj |
|
./pkg/cost/cost_dependent_init.F |
65 |
COST_DEPENDENT_INIT |
do bj = jtlo,jthi |
|
./pkg/cost/cost_dependent_init.F |
69 |
COST_DEPENDENT_INIT |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
70 |
COST_DEPENDENT_INIT |
adobjf_vector(i,bi,bj) = 1. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
77 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
79 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_depth.F |
29 |
COST_DEPTH |
integer bi, bj |
|
./pkg/cost/cost_depth.F |
40 |
COST_DEPTH |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/cost/cost_final.F |
113 |
COST_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/cost/cost_final.F |
118 |
COST_FINAL |
& ' --> objf_test(bi,bj) = ', objf_test(bi,bj) |
|
./pkg/cost/cost_final.F |
122 |
COST_FINAL |
& ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj) |
|
./pkg/cost/cost_final.F |
127 |
COST_FINAL |
& ' --> objf_atl(bi,bj) = ', objf_atl(bi,bj) |
|
./pkg/cost/cost_final.F |
132 |
COST_FINAL |
& ' --> objf_temp_tut(bi,bj) = ', objf_temp_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
136 |
COST_FINAL |
& ' --> objf_hflux_tut(bi,bj) = ', objf_hflux_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
140 |
COST_FINAL |
& ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj) |
|
./pkg/cost/cost_final.F |
143 |
COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/cost/cost_final.F |
145 |
COST_FINAL |
& + mult_test * objf_test(bi,bj) |
|
./pkg/cost/cost_final.F |
148 |
COST_FINAL |
& + mult_tracer * objf_tracer(bi,bj) |
|
./pkg/cost/cost_final.F |
152 |
COST_FINAL |
& + mult_atl * objf_atl(bi,bj) |
|
./pkg/cost/cost_final.F |
156 |
COST_FINAL |
& + mult_transport * objf_transport(bi,bj) |
|
./pkg/cost/cost_final.F |
159 |
COST_FINAL |
& + mult_temp_tut * objf_temp_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
162 |
COST_FINAL |
& + mult_hflux_tut * objf_hflux_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
169 |
COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/cost/cost_final.F |
171 |
COST_FINAL |
& *objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/cost/cost_final.F |
177 |
COST_FINAL |
loc_fc = loc_fc + tile_fc(bi,bj) |
|
./pkg/cost/cost_final.F |
49 |
COST_FINAL |
INTEGER bi,bj |
|
./pkg/cost/cost_init_varia.F |
41 |
COST_INIT_VARIA |
integer bi,bj |
|
./pkg/cost/cost_init_varia.F |
54 |
COST_INIT_VARIA |
do bj = jtlo,jthi |
|
./pkg/cost/cost_init_varia.F |
56 |
COST_INIT_VARIA |
tile_fc(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
58 |
COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
60 |
COST_INIT_VARIA |
objf_test(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
61 |
COST_INIT_VARIA |
objf_tracer(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
63 |
COST_INIT_VARIA |
objf_transport(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
66 |
COST_INIT_VARIA |
objf_depth(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
70 |
COST_INIT_VARIA |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
81 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
82 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
92 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
94 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_state_final.F |
29 |
COST_STATE_FINAL |
integer bi, bj |
|
./pkg/cost/cost_state_final.F |
31 |
COST_STATE_FINAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cost/cost_state_final.F |
36 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
41 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj) |
|
./pkg/cost/cost_test.F |
31 |
COST_TEST |
integer bi, bj |
|
./pkg/cost/cost_test.F |
60 |
COST_TEST |
do bj = jtlo,jthi |
|
./pkg/cost/cost_test.F |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_test.F |
70 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
71 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
74 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
78 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./pkg/cost/cost_test.F |
79 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj)**2 |
|
./pkg/cost/cost_tile.F |
101 |
COST_TILE |
integer bi, bj |
|
./pkg/cost/cost_tile.F |
140 |
COST_TILE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cost/cost_tile.F |
144 |
COST_TILE |
CALL COST_TRACER( bi, bj, myThid ) |
|
./pkg/cost/cost_tile.F |
148 |
COST_TILE |
CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid ) |
|
./pkg/cost/cost_tracer.F |
35 |
COST_TRACER |
integer bi, bj |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + hFacC(i,j,k,bi,bj)* |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/cost/cost_tracer.F |
62 |
COST_TRACER |
objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc |
|
./pkg/cost/cost_tracer.F |
6 |
COST_TRACER |
subroutine COST_TRACER( bi, bj, myThid ) |
|
./pkg/cost/cost_vector.F |
34 |
COST_VECTOR |
integer bi, bj |
|
./pkg/cost/cost_vector.F |
56 |
COST_VECTOR |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/cost/cost_vector.F |
61 |
COST_VECTOR |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_vector.F |
70 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
74 |
COST_VECTOR |
objf_vector(i,bi,bj) = sum*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_vector.F |
83 |
COST_VECTOR |
& objf_vector(i,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
132 |
ADCTRL_BOUND_2D |
INTEGER bi,bj,i,j |
|
./pkg/ctrl/adctrl_bound.F |
153 |
ADCTRL_BOUND_2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/adctrl_bound.F |
158 |
ADCTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/adctrl_bound.F |
159 |
ADCTRL_BOUND_2D |
xCur=fieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
160 |
ADCTRL_BOUND_2D |
adxCur=adjFieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
163 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
168 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
42 |
ADCTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
63 |
ADCTRL_BOUND_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/adctrl_bound.F |
69 |
ADCTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/adctrl_bound.F |
70 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
71 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
74 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
79 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/ctrl_bound.F |
101 |
CTRL_BOUND_2D |
INTEGER bi,bj,i,j |
|
./pkg/ctrl/ctrl_bound.F |
106 |
CTRL_BOUND_2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_bound.F |
111 |
CTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/ctrl_bound.F |
112 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).GT.boundsVec(4)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
113 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
115 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).LT.boundsVec(1)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
116 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_bound.F |
41 |
CTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
46 |
CTRL_BOUND_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_bound.F |
52 |
CTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/ctrl_bound.F |
53 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).GT.boundsVec(4)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
54 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
56 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).LT.boundsVec(1)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
57 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_cost_gen.F |
146 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
148 |
CTRL_COST_GEN2D |
num_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
149 |
CTRL_COST_GEN2D |
objf_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
153 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
156 |
CTRL_COST_GEN2D |
num_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
157 |
CTRL_COST_GEN2D |
num_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
158 |
CTRL_COST_GEN2D |
objf_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
159 |
CTRL_COST_GEN2D |
objf_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
177 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
185 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
187 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
189 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
193 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
194 |
CTRL_COST_GEN2D |
& num_gen_anom(bi,bj) = num_gen_anom(bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
201 |
CTRL_COST_GEN2D |
objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile |
|
./pkg/ctrl/ctrl_cost_gen.F |
223 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
227 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
228 |
CTRL_COST_GEN2D |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
239 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
246 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
247 |
CTRL_COST_GEN2D |
& = xx_mean(i,j,bi,bj)/float(nrec) |
|
./pkg/ctrl/ctrl_cost_gen.F |
248 |
CTRL_COST_GEN2D |
tmpx = xx_mean(i,j,bi,bj)/xx_gen_wmean |
|
./pkg/ctrl/ctrl_cost_gen.F |
249 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
251 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
252 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
253 |
CTRL_COST_GEN2D |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
254 |
CTRL_COST_GEN2D |
if ( cosphi(i,j,bi,bj) .ne. 0. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
255 |
CTRL_COST_GEN2D |
& num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
258 |
CTRL_COST_GEN2D |
num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
263 |
CTRL_COST_GEN2D |
objf_gen_mean(bi,bj) = objf_gen_mean(bi,bj) + fctilem |
|
./pkg/ctrl/ctrl_cost_gen.F |
281 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
289 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
292 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
293 |
CTRL_COST_GEN2D |
& - xx_mean(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
297 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
298 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
299 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
300 |
CTRL_COST_GEN2D |
& * cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
302 |
CTRL_COST_GEN2D |
fctile = fctile + xx_gen_weight(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
305 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
309 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
310 |
CTRL_COST_GEN2D |
& *cosphi(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
312 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
314 |
CTRL_COST_GEN2D |
& num_gen_anom(bi,bj) = num_gen_anom(bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
322 |
CTRL_COST_GEN2D |
objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile |
|
./pkg/ctrl/ctrl_cost_gen.F |
347 |
CTRL_COST_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
355 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
357 |
CTRL_COST_GEN2D |
& ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
358 |
CTRL_COST_GEN2D |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
359 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
360 |
CTRL_COST_GEN2D |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
361 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
362 |
CTRL_COST_GEN2D |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
363 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
364 |
CTRL_COST_GEN2D |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
366 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
367 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
369 |
CTRL_COST_GEN2D |
& + xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
372 |
CTRL_COST_GEN2D |
& + xx_gen_weight(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
377 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
380 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
382 |
CTRL_COST_GEN2D |
& num_gen_smoo(bi,bj) = num_gen_smoo(bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
388 |
CTRL_COST_GEN2D |
objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile |
|
./pkg/ctrl/ctrl_cost_gen.F |
457 |
CTRL_COST_GEN3D |
integer bi,bj |
|
./pkg/ctrl/ctrl_cost_gen.F |
500 |
CTRL_COST_GEN3D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
502 |
CTRL_COST_GEN3D |
num_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
503 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
518 |
CTRL_COST_GEN3D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_cost_gen.F |
521 |
CTRL_COST_GEN3D |
num_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
522 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
527 |
CTRL_COST_GEN3D |
if (xx_gen_mask(i,j,k,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
528 |
CTRL_COST_GEN3D |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
530 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = objf_gen(bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
531 |
CTRL_COST_GEN3D |
& + xx_gen_weight(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
534 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = objf_gen(bi,bj) + tmpx*tmpx |
|
./pkg/ctrl/ctrl_cost_gen.F |
536 |
CTRL_COST_GEN3D |
if ( xx_gen_weight(i,j,k,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
537 |
CTRL_COST_GEN3D |
& num_gen(bi,bj) = num_gen(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
90 |
CTRL_COST_GEN2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_depth_ini.F |
103 |
CTRL_DEPTH_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_depth_ini.F |
107 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
119 |
CTRL_DEPTH_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_depth_ini.F |
123 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
124 |
CTRL_DEPTH_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
40 |
CTRL_DEPTH_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_depth_ini.F |
92 |
CTRL_DEPTH_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_depth_ini.F |
96 |
CTRL_DEPTH_INI |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen.F |
265 |
CTRL_GET_GEN |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_get_gen.F |
271 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = genfld (i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
272 |
CTRL_GET_GEN |
& + gensign*genfac *xx_gen0(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
273 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
274 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_get_gen.F |
275 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
67 |
CTRL_GET_GEN |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcse.F |
128 |
CTRL_GETOBCSE |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcse.F |
133 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
139 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
141 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
150 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
152 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcse.F |
154 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcse.F |
159 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
160 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
162 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
163 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
171 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
181 |
CTRL_GETOBCSE |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcse.F |
185 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
186 |
CTRL_GETOBCSE |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
197 |
CTRL_GETOBCSE |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcse.F |
202 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
208 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
210 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
219 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
221 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcse.F |
223 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcse.F |
228 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
229 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
231 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
232 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
240 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
249 |
CTRL_GETOBCSE |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcse.F |
254 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
257 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
258 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
259 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
260 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
261 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
263 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
264 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
265 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
266 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
267 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
269 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
270 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
271 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
272 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
276 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
277 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
278 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
279 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
54 |
CTRL_GETOBCSE |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcsn.F |
133 |
CTRL_GETOBCSN |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsn.F |
138 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
144 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
146 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
155 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
157 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsn.F |
159 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsn.F |
164 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
168 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
176 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
186 |
CTRL_GETOBCSN |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsn.F |
190 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
202 |
CTRL_GETOBCSN |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
j = OB_Jn(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
213 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
215 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
226 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsn.F |
228 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsn.F |
233 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
234 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
236 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
237 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
245 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
255 |
CTRL_GETOBCSN |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsn.F |
260 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
263 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
264 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
265 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
266 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
267 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
269 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
270 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
271 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
272 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
273 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
275 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
276 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
277 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
278 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
281 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
282 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
283 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
284 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
285 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
55 |
CTRL_GETOBCSN |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcss.F |
129 |
CTRL_GETOBCSS |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcss.F |
134 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
140 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
142 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
151 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
153 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcss.F |
155 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcss.F |
160 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
161 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
163 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
164 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
172 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
182 |
CTRL_GETOBCSS |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcss.F |
186 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
187 |
CTRL_GETOBCSS |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
198 |
CTRL_GETOBCSS |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcss.F |
203 |
CTRL_GETOBCSS |
j = OB_Js(i,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
209 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
220 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
222 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcss.F |
224 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcss.F |
229 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
230 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
232 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
233 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
241 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
250 |
CTRL_GETOBCSS |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcss.F |
255 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
258 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
259 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
261 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
262 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
264 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
265 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
266 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
268 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
270 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
271 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
272 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
274 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
276 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
277 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
279 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
280 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
56 |
CTRL_GETOBCSS |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcsw.F |
128 |
CTRL_GETOBCSW |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsw.F |
133 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
139 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
141 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
150 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
152 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsw.F |
154 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsw.F |
159 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
160 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
162 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
163 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
171 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
181 |
CTRL_GETOBCSW |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsw.F |
185 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
186 |
CTRL_GETOBCSW |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
197 |
CTRL_GETOBCSW |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_getobcsw.F |
202 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
208 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
210 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
219 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
221 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsw.F |
223 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
229 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
231 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
232 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
249 |
CTRL_GETOBCSW |
do bj = jtlo, jthi |
|
./pkg/ctrl/ctrl_getobcsw.F |
254 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
257 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
258 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
259 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
260 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
261 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
263 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
264 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
265 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
266 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
267 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
269 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
270 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
271 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
272 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
273 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
275 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
277 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
55 |
CTRL_GETOBCSW |
integer bi,bj |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
100 |
CTRL_HFACC_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
106 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
125 |
CTRL_HFACC_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
131 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
141 |
CTRL_HFACC_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
145 |
CTRL_HFACC_INI |
k = k_lowC(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
147 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
148 |
CTRL_HFACC_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
40 |
CTRL_HFACC_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_init.F |
110 |
CTRL_INIT |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init.F |
113 |
CTRL_INIT |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
116 |
CTRL_INIT |
loctmp3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
54 |
CTRL_INIT |
integer bi,bj |
|
./pkg/ctrl/ctrl_init.F |
947 |
CTRL_INIT |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init.F |
951 |
CTRL_INIT |
wareaunit (i,j,bi,bj) = 1.0 |
|
./pkg/ctrl/ctrl_init.F |
953 |
CTRL_INIT |
whflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
955 |
CTRL_INIT |
wtauu (i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
956 |
CTRL_INIT |
wtauv (i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
957 |
CTRL_INIT |
watemp (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
958 |
CTRL_INIT |
waqh (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
959 |
CTRL_INIT |
wprecip (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
960 |
CTRL_INIT |
wswflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
961 |
CTRL_INIT |
wswdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
962 |
CTRL_INIT |
wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
963 |
CTRL_INIT |
wvwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
964 |
CTRL_INIT |
wlwflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
965 |
CTRL_INIT |
wlwdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
966 |
CTRL_INIT |
wevap (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
967 |
CTRL_INIT |
wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
968 |
CTRL_INIT |
wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
969 |
CTRL_INIT |
wrunoff (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
970 |
CTRL_INIT |
wsst (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
971 |
CTRL_INIT |
wsss (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
107 |
CTRL_INIT_OBCS_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
111 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
112 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
39 |
CTRL_INIT_OBCS_VARIABLES |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
62 |
CTRL_INIT_OBCS_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
66 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
67 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
77 |
CTRL_INIT_OBCS_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
81 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
82 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
92 |
CTRL_INIT_OBCS_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
96 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
97 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
100 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
104 |
CTRL_INIT_VARIABLES |
xx_tauu0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
105 |
CTRL_INIT_VARIABLES |
xx_tauu1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
113 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
117 |
CTRL_INIT_VARIABLES |
xx_tauv0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
118 |
CTRL_INIT_VARIABLES |
xx_tauv1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
126 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
130 |
CTRL_INIT_VARIABLES |
xx_uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
131 |
CTRL_INIT_VARIABLES |
xx_uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
139 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
143 |
CTRL_INIT_VARIABLES |
xx_vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
144 |
CTRL_INIT_VARIABLES |
xx_vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
152 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
156 |
CTRL_INIT_VARIABLES |
xx_atemp0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
157 |
CTRL_INIT_VARIABLES |
xx_atemp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
165 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
169 |
CTRL_INIT_VARIABLES |
xx_aqh0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
170 |
CTRL_INIT_VARIABLES |
xx_aqh1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
178 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
182 |
CTRL_INIT_VARIABLES |
xx_precip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
183 |
CTRL_INIT_VARIABLES |
xx_precip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
191 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
195 |
CTRL_INIT_VARIABLES |
xx_swflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
196 |
CTRL_INIT_VARIABLES |
xx_swflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
204 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
208 |
CTRL_INIT_VARIABLES |
xx_swdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
209 |
CTRL_INIT_VARIABLES |
xx_swdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
217 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
221 |
CTRL_INIT_VARIABLES |
xx_lwflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
222 |
CTRL_INIT_VARIABLES |
xx_lwflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
230 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
234 |
CTRL_INIT_VARIABLES |
xx_lwdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
235 |
CTRL_INIT_VARIABLES |
xx_lwdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
243 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
247 |
CTRL_INIT_VARIABLES |
xx_evap0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
248 |
CTRL_INIT_VARIABLES |
xx_evap1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
256 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
260 |
CTRL_INIT_VARIABLES |
xx_snowprecip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
261 |
CTRL_INIT_VARIABLES |
xx_snowprecip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
269 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
273 |
CTRL_INIT_VARIABLES |
xx_apressure0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
274 |
CTRL_INIT_VARIABLES |
xx_apressure1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
282 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
286 |
CTRL_INIT_VARIABLES |
xx_runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
287 |
CTRL_INIT_VARIABLES |
xx_runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
295 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
299 |
CTRL_INIT_VARIABLES |
xx_sst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
300 |
CTRL_INIT_VARIABLES |
xx_sst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
308 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
312 |
CTRL_INIT_VARIABLES |
xx_sss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
313 |
CTRL_INIT_VARIABLES |
xx_sss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
321 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
325 |
CTRL_INIT_VARIABLES |
xx_shifwflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
326 |
CTRL_INIT_VARIABLES |
xx_shifwflx1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
334 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
338 |
CTRL_INIT_VARIABLES |
bottomDragFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
346 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
351 |
CTRL_INIT_VARIABLES |
xx_atemp_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
354 |
CTRL_INIT_VARIABLES |
xx_aqh_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
357 |
CTRL_INIT_VARIABLES |
xx_uwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
360 |
CTRL_INIT_VARIABLES |
xx_vwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
363 |
CTRL_INIT_VARIABLES |
xx_precip_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
366 |
CTRL_INIT_VARIABLES |
xx_swdown_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
403 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
406 |
CTRL_INIT_VARIABLES |
objf_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
407 |
CTRL_INIT_VARIABLES |
num_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
409 |
CTRL_INIT_VARIABLES |
num_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
410 |
CTRL_INIT_VARIABLES |
objf_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
411 |
CTRL_INIT_VARIABLES |
objf_gentim2dsmoo(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
418 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
421 |
CTRL_INIT_VARIABLES |
objf_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
422 |
CTRL_INIT_VARIABLES |
num_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
428 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
431 |
CTRL_INIT_VARIABLES |
objf_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
432 |
CTRL_INIT_VARIABLES |
num_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
43 |
CTRL_INIT_VARIABLES |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_variables.F |
64 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
66 |
CTRL_INIT_VARIABLES |
num_zero_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
67 |
CTRL_INIT_VARIABLES |
objf_zero_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
68 |
CTRL_INIT_VARIABLES |
objf_zero_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
74 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
78 |
CTRL_INIT_VARIABLES |
xx_hflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
79 |
CTRL_INIT_VARIABLES |
xx_hflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
87 |
CTRL_INIT_VARIABLES |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_variables.F |
91 |
CTRL_INIT_VARIABLES |
xx_sflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
92 |
CTRL_INIT_VARIABLES |
xx_sflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
102 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
111 |
CTRL_INIT_WET |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_wet.F |
117 |
CTRL_INIT_WET |
if (maskC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
118 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = nwetctile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
122 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = nwetstile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
125 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
126 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = nwetwtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
130 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
131 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = nwetvtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
136 |
CTRL_INIT_WET |
if (maskSHI(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
137 |
CTRL_INIT_WET |
nwetitile(bi,bj,k) = nwetitile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
186 |
CTRL_INIT_WET |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
200 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
205 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetitile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
216 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
222 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
228 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
234 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
368 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
36 |
CTRL_INIT_WET |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_wet.F |
370 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
377 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
379 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
386 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
388 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
395 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
420 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
422 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
436 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
438 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
452 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
454 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
468 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
470 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
551 |
CTRL_INIT_WET |
do bj=1,nSy |
|
./pkg/ctrl/ctrl_init_wet.F |
553 |
CTRL_INIT_WET |
ntmpshi=ntmpshi+nWetiTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
72 |
CTRL_INIT_WET |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_wet.F |
75 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
76 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
77 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
78 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
80 |
CTRL_INIT_WET |
nwetitile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
88 |
CTRL_INIT_WET |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_init_wet.F |
93 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
96 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
99 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
119 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
124 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
125 |
CTRL_MAP_FORCING |
& xx_tauu0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
126 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
128 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
144 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
149 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
150 |
CTRL_MAP_FORCING |
& xx_tauv0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
151 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
153 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
169 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
174 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
175 |
CTRL_MAP_FORCING |
& xx_sflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
176 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
178 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
194 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
199 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
200 |
CTRL_MAP_FORCING |
& xx_hflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
201 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
203 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
219 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
223 |
CTRL_MAP_FORCING |
sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
238 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
242 |
CTRL_MAP_FORCING |
sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
257 |
CTRL_MAP_FORCING |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_forcing.F |
262 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
263 |
CTRL_MAP_FORCING |
& xx_hfluxm(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
264 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
266 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
301 |
CTRL_MAP_FORCING |
do bj = mybylo(mythid),mybyhi(mythid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
305 |
CTRL_MAP_FORCING |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
306 |
CTRL_MAP_FORCING |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
307 |
CTRL_MAP_FORCING |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
308 |
CTRL_MAP_FORCING |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
314 |
CTRL_MAP_FORCING |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
320 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpUE(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
322 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=tmpVN(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
334 |
CTRL_MAP_FORCING |
DO bj = myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_forcing.F |
338 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj)=fu(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
339 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj)=fv(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
342 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qnet(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
344 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=EmPmR(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
346 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=Qsw(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
348 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SST(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
350 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=SSS(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
352 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=pLoad(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
354 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=saltFlux(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
356 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fu(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
358 |
CTRL_MAP_FORCING |
& (i,j,bi,bj)=fv(i,j,bi,bj)+xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_forcing.F |
50 |
CTRL_MAP_FORCING |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
105 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
106 |
CTRL_MAP_GENTIM2D |
& +xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
108 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
118 |
CTRL_MAP_GENTIM2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
120 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
123 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+ |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
124 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
125 |
CTRL_MAP_GENTIM2D |
& *xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
133 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
137 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
138 |
CTRL_MAP_GENTIM2D |
& LOCsumGlob/globalArea*maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
46 |
CTRL_MAP_GENTIM2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
76 |
CTRL_MAP_GENTIM2D |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
80 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini.F |
116 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
122 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
123 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
124 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
125 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
127 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
128 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
130 |
CTRL_MAP_INI |
if(theta(i,j,k,bi,bj).lt.-2.0) |
|
./pkg/ctrl/ctrl_map_ini.F |
131 |
CTRL_MAP_INI |
& theta(i,j,k,bi,bj)= -2.0 |
|
./pkg/ctrl/ctrl_map_ini.F |
150 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
156 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
157 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
159 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
161 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
162 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
181 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
187 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
188 |
CTRL_MAP_INI |
& fac*xx_tr1(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
189 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
191 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
192 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
210 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
215 |
CTRL_MAP_INI |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
216 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
231 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
236 |
CTRL_MAP_INI |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
237 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
253 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
258 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
259 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
277 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
283 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
284 |
CTRL_MAP_INI |
& xx_kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
285 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
287 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
288 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
307 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
312 |
CTRL_MAP_INI |
kapRedi(i,j,k,bi,bj) = kapRedi(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
313 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
331 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
336 |
CTRL_MAP_INI |
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
337 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
338 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
358 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
363 |
CTRL_MAP_INI |
EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& + fCori(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
365 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
366 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
386 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
390 |
CTRL_MAP_INI |
bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
391 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
406 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
411 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
412 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
425 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
430 |
CTRL_MAP_INI |
eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
431 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
447 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
453 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
CTRL_MAP_INI |
& fac*xx_uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
456 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
457 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
474 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
480 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
& fac*xx_vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
483 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
484 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
501 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
506 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
507 |
CTRL_MAP_INI |
& fac*xx_etan(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
509 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
510 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
511 |
CTRL_MAP_INI |
etaH(i,j,bi,bj) = etaH(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
512 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
528 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
532 |
CTRL_MAP_INI |
lambdaThetaClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
533 |
CTRL_MAP_INI |
& lambdaThetaClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
534 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
549 |
CTRL_MAP_INI |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini.F |
553 |
CTRL_MAP_INI |
lambdaSaltClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
554 |
CTRL_MAP_INI |
& lambdaSaltClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
555 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
63 |
CTRL_MAP_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
109 |
CTRL_MAP_INI_ECCO |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
113 |
CTRL_MAP_INI_ECCO |
tmpfld2d(i,j,bi,bj) = 1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
120 |
CTRL_MAP_INI_ECCO |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
125 |
CTRL_MAP_INI_ECCO |
tmpfld3d(i,j,k,bi,bj)=1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
294 |
CTRL_MAP_INI_ECCO |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
299 |
CTRL_MAP_INI_ECCO |
xx_gentim2d(i,j,bi,bj,k)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
70 |
CTRL_MAP_INI_ECCO |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
102 |
CTRL_MAP_INI_GEN3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
107 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
108 |
CTRL_MAP_INI_GEN3D |
wFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
133 |
CTRL_MAP_INI_GEN3D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
138 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
139 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
140 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
141 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
142 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
144 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
164 |
CTRL_MAP_INI_GEN3D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
169 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
170 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
186 |
CTRL_MAP_INI_GEN3D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
192 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
193 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
194 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
195 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
197 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
199 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
200 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
275 |
CTRL_MAP_INI_GEN2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
316 |
CTRL_MAP_INI_GEN2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
320 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
321 |
CTRL_MAP_INI_GEN2D |
wFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
345 |
CTRL_MAP_INI_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
349 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
350 |
CTRL_MAP_INI_GEN2D |
& (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
351 |
CTRL_MAP_INI_GEN2D |
tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
352 |
CTRL_MAP_INI_GEN2D |
if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
353 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
355 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
374 |
CTRL_MAP_INI_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
378 |
CTRL_MAP_INI_GEN2D |
paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
379 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
394 |
CTRL_MAP_INI_GEN2D |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
399 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
400 |
CTRL_MAP_INI_GEN2D |
& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
401 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
402 |
CTRL_MAP_INI_GEN2D |
& /sqrt( wFld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
404 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
406 |
CTRL_MAP_INI_GEN2D |
paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
407 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
61 |
CTRL_MAP_INI_GEN3D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
196 |
CTRL_MAP_GENARR2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
220 |
CTRL_MAP_GENARR2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
224 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
276 |
CTRL_MAP_GENARR2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
282 |
CTRL_MAP_GENARR2D |
if ( (maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
283 |
CTRL_MAP_GENARR2D |
& (wgenarr2d(i,j,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
284 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
285 |
CTRL_MAP_GENARR2D |
& /sqrt( wgenarr2d(i,j,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
287 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
291 |
CTRL_MAP_GENARR2D |
fld(i,j,bi,bj)=fld(i,j,bi,bj)+xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
351 |
CTRL_MAP_GENARR3D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
376 |
CTRL_MAP_GENARR3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
381 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
446 |
CTRL_MAP_GENARR3D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
454 |
CTRL_MAP_GENARR3D |
if ( (localmask(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
456 |
CTRL_MAP_GENARR3D |
if ( (maskC(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
458 |
CTRL_MAP_GENARR3D |
& (wgenarr3d(i,j,k,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
459 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
460 |
CTRL_MAP_GENARR3D |
& /sqrt( wgenarr3d(i,j,k,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
462 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
466 |
CTRL_MAP_GENARR3D |
fld(i,j,k,bi,bj)=fld(i,j,k,bi,bj)+xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
322 |
CTRL_MAP_INI_GENTIM2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
326 |
CTRL_MAP_INI_GENTIM2D |
if ((maskC(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
327 |
CTRL_MAP_INI_GENTIM2D |
& (wgentim2d(i,j,bi,bj,iarr).GT.0.)) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
328 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=xx_gen(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
329 |
CTRL_MAP_INI_GENTIM2D |
& /sqrt(wgentim2d(i,j,bi,bj,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
331 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
75 |
CTRL_MAP_INI_GENTIM2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
86 |
CTRL_MAP_INI_GENTIM2D |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
90 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
100 |
CTRL_MASK_SET_XZ |
j = OB_J(i,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
104 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
105 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
111 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
112 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
129 |
CTRL_MASK_SET_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
41 |
CTRL_MASK_SET_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
84 |
CTRL_MASK_SET_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
96 |
CTRL_MASK_SET_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
101 |
CTRL_MASK_SET_YZ |
i = OB_I(j,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
105 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
106 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
107 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
112 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
113 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
114 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
130 |
CTRL_MASK_SET_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
41 |
CTRL_MASK_SET_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
85 |
CTRL_MASK_SET_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
89 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
97 |
CTRL_MASK_SET_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_readparms.F |
45 |
CTRL_READPARMS |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
45 |
CTRL_SET_GLOBFLD_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
71 |
CTRL_SET_GLOBFLD_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
75 |
CTRL_SET_GLOBFLD_XY |
globfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
81 |
CTRL_SET_GLOBFLD_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
40 |
CTRL_SET_GLOBFLD_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
65 |
CTRL_SET_GLOBFLD_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
70 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
45 |
CTRL_SET_GLOBFLD_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
71 |
CTRL_SET_GLOBFLD_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
75 |
CTRL_SET_GLOBFLD_XZ |
globfldxz(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
81 |
CTRL_SET_GLOBFLD_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
86 |
CTRL_SET_GLOBFLD_XZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
45 |
CTRL_SET_GLOBFLD_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
72 |
CTRL_SET_GLOBFLD_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
76 |
CTRL_SET_GLOBFLD_YZ |
globfldyz(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
82 |
CTRL_SET_GLOBFLD_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
87 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
104 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
105 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
106 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
107 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
157 |
CTRL_SET_PACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
162 |
CTRL_SET_PACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
190 |
CTRL_SET_PACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
195 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
198 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
199 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
205 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
206 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
210 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
211 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
217 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
221 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
228 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
232 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
237 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
284 |
CTRL_SET_PACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
289 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
292 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
293 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
299 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
300 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
304 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
305 |
CTRL_SET_PACK_XY |
& sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
311 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
315 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
322 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
326 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
331 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
374 |
CTRL_SET_PACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
456 |
CTRL_SET_PACK_XY |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
460 |
CTRL_SET_PACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
461 |
CTRL_SET_PACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
462 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
466 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
467 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / PrecondScalar |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
469 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
470 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * PrecondScalar |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
475 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
478 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
47 |
CTRL_SET_PACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
483 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
484 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
487 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
488 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
99 |
CTRL_SET_PACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
109 |
CTRL_SET_PACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
114 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
115 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
116 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
117 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
168 |
CTRL_SET_PACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
207 |
CTRL_SET_PACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
212 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
215 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
216 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
222 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
226 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
230 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
232 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
234 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
238 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
241 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
244 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
287 |
CTRL_SET_PACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
371 |
CTRL_SET_PACK_XYZ |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
381 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
382 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
383 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
386 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
389 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
392 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
393 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
395 |
CTRL_SET_PACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
397 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
400 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
401 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
403 |
CTRL_SET_PACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
405 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
51 |
CTRL_SET_PACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
100 |
CTRL_SET_PACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
104 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
105 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
106 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
119 |
CTRL_SET_PACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
124 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
198 |
CTRL_SET_PACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
204 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
208 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
215 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
221 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
223 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
229 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
232 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
273 |
CTRL_SET_PACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
277 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
280 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
281 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
286 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
288 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
294 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
296 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
302 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
305 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
54 |
CTRL_SET_PACK_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
100 |
CTRL_SET_PACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
104 |
CTRL_SET_PACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
105 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
106 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
108 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
119 |
CTRL_SET_PACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
124 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
201 |
CTRL_SET_PACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
208 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
211 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
212 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
217 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
219 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
227 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
233 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
236 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
277 |
CTRL_SET_PACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
281 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
284 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
285 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
290 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
292 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
298 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
300 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
306 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
309 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
54 |
CTRL_SET_PACK_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
100 |
CTRL_SET_UNPACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
106 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
107 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
108 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
158 |
CTRL_SET_UNPACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
163 |
CTRL_SET_UNPACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
214 |
CTRL_SET_UNPACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
219 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
223 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
227 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
230 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
236 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
237 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
239 |
CTRL_SET_UNPACK_XY |
& / sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
243 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
244 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
246 |
CTRL_SET_UNPACK_XY |
& * sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
252 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
253 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
256 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
257 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
262 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
265 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
266 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
324 |
CTRL_SET_UNPACK_XY |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
329 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
331 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
333 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
337 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
340 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
346 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
347 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
349 |
CTRL_SET_UNPACK_XY |
& / sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
353 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
354 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
356 |
CTRL_SET_UNPACK_XY |
& * sqrt(weightfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
362 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
363 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
366 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
367 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
372 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
375 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
376 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
408 |
CTRL_SET_UNPACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
48 |
CTRL_SET_UNPACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
560 |
CTRL_SET_UNPACK_XY |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
564 |
CTRL_SET_UNPACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
565 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
566 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
570 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
574 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
575 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * precondScalar |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
577 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
578 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / precondScalar |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
583 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
586 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
591 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
592 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
595 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
596 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
111 |
CTRL_SET_UNPACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
116 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
117 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
118 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
119 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
177 |
CTRL_SET_UNPACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
182 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
238 |
CTRL_SET_UNPACK_XYZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
247 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
251 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
254 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
261 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
262 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
264 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
266 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
269 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
270 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
272 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
274 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
280 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
283 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
284 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
316 |
CTRL_SET_UNPACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
469 |
CTRL_SET_UNPACK_XYZ |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
479 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
480 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
481 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
485 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
488 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
491 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
494 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
495 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
497 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
499 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
502 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
503 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
505 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
507 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
51 |
CTRL_SET_UNPACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
105 |
CTRL_SET_UNPACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
109 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
110 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
111 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
113 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
124 |
CTRL_SET_UNPACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
227 |
CTRL_SET_UNPACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
231 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
233 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
236 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
240 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
241 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
243 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
249 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
252 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
253 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
312 |
CTRL_SET_UNPACK_XZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
316 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
318 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
320 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
323 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
324 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
326 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
332 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
335 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
336 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
55 |
CTRL_SET_UNPACK_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
105 |
CTRL_SET_UNPACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
109 |
CTRL_SET_UNPACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
110 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
111 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
113 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
124 |
CTRL_SET_UNPACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
224 |
CTRL_SET_UNPACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
231 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
233 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
236 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
240 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
241 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
243 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
249 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
252 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
253 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
311 |
CTRL_SET_UNPACK_YZ |
do bj = jtlo,jthi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
315 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
317 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
319 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
322 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
323 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
325 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
331 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
334 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
335 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
55 |
CTRL_SET_UNPACK_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_smooth.F |
26 |
CTRL_SMOOTH |
integer k, bi, bj |
|
./pkg/ctrl/ctrl_smooth.F |
38 |
CTRL_SMOOTH |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/ctrl/ctrl_smooth.F |
48 |
CTRL_SMOOTH |
& p25 * mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
49 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
50 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
51 |
CTRL_SMOOTH |
& mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& p0625 * ( mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
55 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
60 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
61 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
fld_tmp(i,j) = fld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_smooth.F |
78 |
CTRL_SMOOTH |
fld(i,j,bi,bj) = fld_tmp(i,j) |
|
./pkg/ctrl/ctrl_summary.F |
110 |
CTRL_SUMMARY |
do bj = 1,nsy |
|
./pkg/ctrl/ctrl_summary.F |
116 |
CTRL_SUMMARY |
nwetcenter = nwetcenter + nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
117 |
CTRL_SUMMARY |
nwetsouth = nwetsouth + nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
118 |
CTRL_SUMMARY |
nwetwest = nwetwest + nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
121 |
CTRL_SUMMARY |
& ' bi,bj,#(c/s/w):',bi,bj,nwetcenter, |
|
./pkg/ctrl/ctrl_summary.F |
45 |
CTRL_SUMMARY |
integer bi,bj |
|
./pkg/ctrl/ctrl_swapffields.F |
112 |
CTRL_SWAPFFIELDS_3D |
INTEGER bi, bj |
|
./pkg/ctrl/ctrl_swapffields.F |
117 |
CTRL_SWAPFFIELDS_3D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_swapffields.F |
122 |
CTRL_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
123 |
CTRL_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
166 |
CTRL_SWAPFFIELDS_XZ |
INTEGER bi, bj |
|
./pkg/ctrl/ctrl_swapffields.F |
171 |
CTRL_SWAPFFIELDS_XZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_swapffields.F |
175 |
CTRL_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
176 |
CTRL_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
218 |
CTRL_SWAPFFIELDS_YZ |
INTEGER bi, bj |
|
./pkg/ctrl/ctrl_swapffields.F |
223 |
CTRL_SWAPFFIELDS_YZ |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_swapffields.F |
227 |
CTRL_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
228 |
CTRL_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
53 |
CTRL_SWAPFFIELDS |
INTEGER bi, bj |
|
./pkg/ctrl/ctrl_swapffields.F |
58 |
CTRL_SWAPFFIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_swapffields.F |
62 |
CTRL_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
68 |
CTRL_SWAPFFIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ctrl/ctrl_swapffields.F |
72 |
CTRL_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/debug/chksum_tiled.F |
13 |
CHKSUM_TILED |
INTEGER NN,bi,bj,myThid |
|
./pkg/debug/chksum_tiled.F |
22 |
CHKSUM_TILED |
Fmin=fld(1,1,1,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
23 |
CHKSUM_TILED |
Fmax=fld(1,1,1,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
28 |
CHKSUM_TILED |
Fmin=min(Fmin,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
29 |
CHKSUM_TILED |
Fmax=max(Fmax,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
30 |
CHKSUM_TILED |
Fmn=Fmn+fld(I,J,K,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
39 |
CHKSUM_TILED |
Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2 |
|
./pkg/debug/chksum_tiled.F |
6 |
CHKSUM_TILED |
SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid ) |
|
./pkg/debug/debug_cs_corner_uv.F |
49 |
DEBUG_CS_CORNER_UV |
INTEGER bi, bj |
|
./pkg/debug/debug_cs_corner_uv.F |
81 |
DEBUG_CS_CORNER_UV |
n1 = bi + (bj-1)*nSx |
|
./pkg/debug/debug_cs_corner_uv.F |
94 |
DEBUG_CS_CORNER_UV |
IF (bi.EQ.nSx .AND. bj.EQ.nSy .AND. sNx.EQ.sNy) THEN |
|
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid ) |
|
./pkg/debug/debug_fld_stats_rl.F |
109 |
DEBUG_FLD_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/debug/debug_fld_stats_rl.F |
111 |
DEBUG_FLD_STATS_RL |
tileSD(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rl.F |
115 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
117 |
DEBUG_FLD_STATS_RL |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
47 |
DEBUG_FLD_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rl.F |
66 |
DEBUG_FLD_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/debug/debug_fld_stats_rl.F |
68 |
DEBUG_FLD_STATS_RL |
tileNbPt(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rl.F |
69 |
DEBUG_FLD_STATS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rl.F |
70 |
DEBUG_FLD_STATS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rl.F |
74 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
83 |
DEBUG_FLD_STATS_RL |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + 1. _d 0 |
|
./pkg/debug/debug_fld_stats_rl.F |
84 |
DEBUG_FLD_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
85 |
DEBUG_FLD_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVal*tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
109 |
DEBUG_FLD_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/debug/debug_fld_stats_rs.F |
111 |
DEBUG_FLD_STATS_RS |
tileSD(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rs.F |
115 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
117 |
DEBUG_FLD_STATS_RS |
tileSD(bi,bj) = tileSD(bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
47 |
DEBUG_FLD_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rs.F |
66 |
DEBUG_FLD_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/debug/debug_fld_stats_rs.F |
68 |
DEBUG_FLD_STATS_RS |
tileNbPt(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rs.F |
69 |
DEBUG_FLD_STATS_RS |
tileMean(bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rs.F |
70 |
DEBUG_FLD_STATS_RS |
tileVar (bi,bj) = 0. |
|
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
83 |
DEBUG_FLD_STATS_RS |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + 1. _d 0 |
|
./pkg/debug/debug_fld_stats_rs.F |
84 |
DEBUG_FLD_STATS_RS |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
85 |
DEBUG_FLD_STATS_RS |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVal*tmpVal |
|
./pkg/debug/fill_in_corners_rl.F |
39 |
FILL_IN_CORNERS_RL |
INTEGER bi, bj |
|
./pkg/debug/fill_in_corners_rl.F |
41 |
FILL_IN_CORNERS_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/debug/fill_in_corners_rl.F |
48 |
FILL_IN_CORNERS_RL |
fld(i,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
49 |
FILL_IN_CORNERS_RL |
fld(ii,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
51 |
FILL_IN_CORNERS_RL |
fld(ii,jj,k,bi,bj) = spvFld |
|
./pkg/debug/write_fullarray_rl.F |
50 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
74 |
WRITE_FULLARRAY_RL |
DO bj = 1,nSy |
|
./pkg/debug/write_fullarray_rl.F |
77 |
WRITE_FULLARRAY_RL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/debug/write_fullarray_rl.F |
99 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rs.F |
50 |
WRITE_FULLARRAY_RS |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rs.F |
74 |
WRITE_FULLARRAY_RS |
DO bj = 1,nSy |
|
./pkg/debug/write_fullarray_rs.F |
77 |
WRITE_FULLARRAY_RS |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/debug/write_fullarray_rs.F |
99 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/diagnostics/diag_calc_psivel.F |
108 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_calc_psivel.F |
117 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j,bi,bj).EQ.1. |
|
./pkg/diagnostics/diag_calc_psivel.F |
138 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i,j-1,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
139 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask(i, j ,bi,bj).EQ.1. ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
143 |
DIAG_CALC_PSIVEL |
psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
144 |
DIAG_CALC_PSIVEL |
& + vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
149 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i+1,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
150 |
DIAG_CALC_PSIVEL |
& - vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
157 |
DIAG_CALC_PSIVEL |
IF ( OBCS_insideMask(i-1,j,bi,bj).EQ.1. .OR. |
|
./pkg/diagnostics/diag_calc_psivel.F |
158 |
DIAG_CALC_PSIVEL |
& OBCS_insideMask( i ,j,bi,bj).EQ.1. ) THEN |
|
./pkg/diagnostics/diag_calc_psivel.F |
162 |
DIAG_CALC_PSIVEL |
psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
163 |
DIAG_CALC_PSIVEL |
& - uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
168 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j+1,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
169 |
DIAG_CALC_PSIVEL |
& + uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
177 |
DIAG_CALC_PSIVEL |
& ' diag_calc_psivel: bi,bj=', bi, bj, |
|
./pkg/diagnostics/diag_calc_psivel.F |
194 |
DIAG_CALC_PSIVEL |
IF ( jx.NE.0 ) dPsiX (bi,bj) = psiVel(ix,jx,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
205 |
DIAG_CALC_PSIVEL |
IF ( iy.NE.0 ) dPsiY (bi,bj) = psiVel(iy,jy,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
220 |
DIAG_CALC_PSIVEL |
psiVel(1,1,bi,bj) = psiOri(bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
223 |
DIAG_CALC_PSIVEL |
psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
224 |
DIAG_CALC_PSIVEL |
& + vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
229 |
DIAG_CALC_PSIVEL |
psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
230 |
DIAG_CALC_PSIVEL |
& - uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
233 |
DIAG_CALC_PSIVEL |
dPsiX (bi,bj) = psiVel(1+sNx,1,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
234 |
DIAG_CALC_PSIVEL |
dPsiY (bi,bj) = psiVel(1,1+sNy,bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
246 |
DIAG_CALC_PSIVEL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_calc_psivel.F |
250 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + psiOri(bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
253 |
DIAG_CALC_PSIVEL |
IF ( iPsi0(bi,bj)*jPsi0(bi,bj).GT.0 ) |
|
./pkg/diagnostics/diag_calc_psivel.F |
254 |
DIAG_CALC_PSIVEL |
& offSet = -psiVel(iPsi0(bi,bj),jPsi0(bi,bj),bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
263 |
DIAG_CALC_PSIVEL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_calc_psivel.F |
267 |
DIAG_CALC_PSIVEL |
psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + offSet |
|
./pkg/diagnostics/diag_calc_psivel.F |
64 |
DIAG_CALC_PSIVEL |
INTEGER bi, bj |
|
./pkg/diagnostics/diag_calc_psivel.F |
89 |
DIAG_CALC_PSIVEL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_calc_psivel.F |
91 |
DIAG_CALC_PSIVEL |
dPsiX (bi,bj) = 0. |
|
./pkg/diagnostics/diag_calc_psivel.F |
92 |
DIAG_CALC_PSIVEL |
dPsiY (bi,bj) = 0. |
|
./pkg/diagnostics/diag_calc_psivel.F |
93 |
DIAG_CALC_PSIVEL |
psiOri(bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
111 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
116 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
121 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = -( ( aW2d(i,j,bi,bj)+aW2d(i+1,j,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
122 |
DIAG_CG2D |
& +( aS2d(i,j,bi,bj)+aS2d(i,j+1,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
131 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
135 |
DIAG_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
136 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
138 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
140 |
DIAG_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
142 |
DIAG_CG2D |
pW(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
144 |
DIAG_CG2D |
pW(i,j,bi,bj) = -aW2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
147 |
DIAG_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
149 |
DIAG_CG2D |
pS(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
151 |
DIAG_CG2D |
pS(i,j,bi,bj) = -aS2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
168 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
172 |
DIAG_CG2D |
r2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
173 |
DIAG_CG2D |
s2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
174 |
DIAG_CG2D |
x2dm(i,j,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
177 |
DIAG_CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
178 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
181 |
DIAG_CG2D |
r2d(i,j,bi,bj) = b2d(i,j,bi,bj) - |
|
./pkg/diagnostics/diag_cg2d.F |
182 |
DIAG_CG2D |
& (aW2d(i ,j ,bi,bj)*x2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
183 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*x2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
184 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*x2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
185 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*x2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
186 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*x2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
188 |
DIAG_CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
189 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
190 |
DIAG_CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + b2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
235 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
237 |
DIAG_CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
240 |
DIAG_CG2D |
q2d(i,j,bi,bj) = |
|
./pkg/diagnostics/diag_cg2d.F |
241 |
DIAG_CG2D |
& pC(i ,j ,bi,bj)*r2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
242 |
DIAG_CG2D |
& +pW(i ,j ,bi,bj)*r2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
243 |
DIAG_CG2D |
& +pW(i+1,j ,bi,bj)*r2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
244 |
DIAG_CG2D |
& +pS(i ,j ,bi,bj)*r2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
245 |
DIAG_CG2D |
& +pS(i ,j+1,bi,bj)*r2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
246 |
DIAG_CG2D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
247 |
DIAG_CG2D |
& +q2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
257 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
261 |
DIAG_CG2D |
s2d(i,j,bi,bj) = q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
262 |
DIAG_CG2D |
& + cgBeta*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
273 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
275 |
DIAG_CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
278 |
DIAG_CG2D |
q2d(i,j,bi,bj) = |
|
./pkg/diagnostics/diag_cg2d.F |
279 |
DIAG_CG2D |
& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
280 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
281 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
282 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
283 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
284 |
DIAG_CG2D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
285 |
DIAG_CG2D |
& + s2d(i,j,bi,bj)*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
295 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
297 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
300 |
DIAG_CG2D |
x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
301 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
302 |
DIAG_CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
303 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
324 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
328 |
DIAG_CG2D |
x2dm(i,j,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
356 |
DIAG_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
360 |
DIAG_CG2D |
x2d(i,j,bi,bj) = x2dm(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
80 |
DIAG_CG2D |
INTEGER bi, bj |
|
./pkg/diagnostics/diag_vegtile_fill.F |
11 |
DIAG_VEGTILE_FILL |
& check, chardiag, kLev, nLevs, bi, bj, myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
159 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
160 |
DIAG_VEGTILE_FILL |
ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
161 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
170 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
193 |
DIAG_VEGTILE_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
266 |
DIAG_VEGTILE_FILL |
I 3, bi, bj, myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
48 |
DIAG_VEGTILE_FILL |
INTEGER kLev, nLevs, bi, bj |
|
./pkg/diagnostics/diag_vegtile_fill.F |
98 |
DIAG_VEGTILE_FILL |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
104 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
105 |
DIAGNOSTICS_CALC_PHIVEL |
x2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
113 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
114 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
115 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
116 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
117 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
118 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
119 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
120 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
127 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
128 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp1(i,j,ks,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
129 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
130 |
DIAGNOSTICS_CALC_PHIVEL |
& *qtmp2(i,j,ks,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
138 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
142 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = ( |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
143 |
DIAGNOSTICS_CALC_PHIVEL |
& ( uTrans(i+1,j,bi,bj) - uTrans(i,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
144 |
DIAGNOSTICS_CALC_PHIVEL |
& + ( vTrans(i,j+1,bi,bj) - vTrans(i,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
145 |
DIAGNOSTICS_CALC_PHIVEL |
& )*maskInC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
179 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
183 |
DIAGNOSTICS_CALC_PHIVEL |
rhsMax = MAX(ABS(b2d(I,J,bi,bj)),rhsMax) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
209 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
213 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*a2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
214 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*a2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
215 |
DIAGNOSTICS_CALC_PHIVEL |
b2d(i,j,bi,bj) = b2d(i,j,bi,bj) *b2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
252 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
256 |
DIAGNOSTICS_CALC_PHIVEL |
x2d(i,j,bi,bj) = x2d(i,j,bi,bj)*x2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
264 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
268 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = uTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
269 |
DIAGNOSTICS_CALC_PHIVEL |
& - ( x2d(i,j,bi,bj) - x2d(i-1,j,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
270 |
DIAGNOSTICS_CALC_PHIVEL |
& *recip_dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
271 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
272 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInW(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
273 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = vTrans(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
274 |
DIAGNOSTICS_CALC_PHIVEL |
& - ( x2d(i,j,bi,bj) - x2d(i,j-1,bi,bj) ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
275 |
DIAGNOSTICS_CALC_PHIVEL |
& *recip_dyC(i,j,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
276 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
277 |
DIAGNOSTICS_CALC_PHIVEL |
& *maskInS(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
318 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
322 |
DIAGNOSTICS_CALC_PHIVEL |
qtmp1(i,j,ks,bi,bj) = x2d(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
323 |
DIAGNOSTICS_CALC_PHIVEL |
qtmp2(i,j,ks,bi,bj) = psiVel(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
66 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
99 |
DIAGNOSTICS_CALC_PHIVEL |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_clear.F |
79 |
DIAGNOSTICS_CLRDIAG |
INTEGER bi,bj |
|
./pkg/diagnostics/diagnostics_clear.F |
87 |
DIAGNOSTICS_CLRDIAG |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_clear.F |
94 |
DIAGNOSTICS_CLRDIAG |
qdiag(i,j,kl,bi,bj) = 0.0 |
|
./pkg/diagnostics/diagnostics_fill.F |
100 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill.F |
122 |
DIAGNOSTICS_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
65 |
DIAGNOSTICS_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill.F |
85 |
DIAGNOSTICS_FILL |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_fill.F |
88 |
DIAGNOSTICS_FILL |
bj = bjArg |
|
./pkg/diagnostics/diagnostics_fill.F |
97 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
111 |
DIAGNOSTICS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
113 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
118 |
DIAGNOSTICS_FILL_FIELD |
bj = MIN(bjArg,nSy) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
119 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
225 |
DIAGNOSTICS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
231 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
235 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
240 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
245 |
DIAGNOSTICS_FILL_FIELD |
I bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
252 |
DIAGNOSTICS_FILL_FIELD |
bj = MIN(bjArg,sizTy) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
261 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
298 |
DIAGNOSTICS_HF_CUMUL |
I bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
340 |
DIAGNOSTICS_HF_CUMUL |
INTEGER iRun, jRun, k, km, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
354 |
DIAGNOSTICS_HF_CUMUL |
tj = MIN(bj,sizTy) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
383 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacC(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
390 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacW(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
397 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacS(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
421 |
DIAGNOSTICS_CUMULATE |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
466 |
DIAGNOSTICS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
487 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
488 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
489 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
496 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
497 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
498 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
505 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
506 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
507 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
514 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
515 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
516 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
530 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
531 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
538 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
539 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
546 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
547 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
554 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
555 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
568 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
569 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
576 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
577 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
594 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
601 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
99 |
DIAGNOSTICS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
100 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
122 |
DIAGNOSTICS_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
65 |
DIAGNOSTICS_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
85 |
DIAGNOSTICS_FILL_RS |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
88 |
DIAGNOSTICS_FILL_RS |
bj = bjArg |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
97 |
DIAGNOSTICS_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
111 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
119 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
120 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
123 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
124 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
127 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
128 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
136 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
141 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
153 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
159 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
160 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
173 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
179 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
180 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
181 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
183 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
195 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
200 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
201 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
211 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
217 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
227 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
233 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
244 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
249 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
260 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
276 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
282 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
293 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
298 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
309 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
314 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
325 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
329 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
335 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |
|
./pkg/diagnostics/diagnostics_fill_state.F |
339 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
360 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
366 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
381 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
415 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
423 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
& *salt(i,j,k,bi,bj)*100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
491 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
510 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
515 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
516 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
526 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
531 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
544 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
550 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
551 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
561 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
567 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
568 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
578 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
585 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
595 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
602 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
612 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
618 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
619 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
61 |
DIAGNOSTICS_FILL_STATE |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
629 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
635 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
636 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
654 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
657 |
DIAGNOSTICS_FILL_STATE |
& 'TOTUTEND',0,Nr,-1,bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
659 |
DIAGNOSTICS_FILL_STATE |
& 'TOTVTEND',0,Nr,-1,bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
664 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
670 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
674 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
677 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,1,'TOT',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
685 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
695 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
698 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,2,'TOT',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
70 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
74 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
102 |
DIAGNOSTICS_FRACT_FILL |
bj = bjArg |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
111 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
113 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
79 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
99 |
DIAGNOSTICS_FRACT_FILL |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
30 |
DIAGNOSTICS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
41 |
DIAGNOSTICS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
50 |
DIAGNOSTICS_INIT_VARIA |
ndiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
54 |
DIAGNOSTICS_INIT_VARIA |
pdiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
60 |
DIAGNOSTICS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
65 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
113 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
116 |
DIAGNOSTICS_INTERP_VERT |
O qtmpsrf(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
117 |
DIAGNOSTICS_INTERP_VERT |
I jpoint1,0,ipoint1,0, bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
120 |
DIAGNOSTICS_INTERP_VERT |
O qtmp2(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
121 |
DIAGNOSTICS_INTERP_VERT |
I jpoint2,0,ipoint2,0, bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
128 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
132 |
DIAGNOSTICS_INTERP_VERT |
qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
138 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
149 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
154 |
DIAGNOSTICS_INTERP_VERT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
163 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
175 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
197 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
67 |
DIAGNOSTICS_INTERP_VERT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_is_on.F |
37 |
NO PROCEDURE |
INTEGER bi,bj |
|
./pkg/diagnostics/diagnostics_is_on.F |
41 |
NO PROCEDURE |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_is_on.F |
48 |
NO PROCEDURE |
IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_is_on.F |
60 |
NO PROCEDURE |
IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE. |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
255 |
DIAGNOSTICS_MNC_OUT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
363 |
DIAGNOSTICS_MNC_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
370 |
DIAGNOSTICS_MNC_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
371 |
DIAGNOSTICS_MNC_OUT |
& qtmp(i,j,k,bi,bj) = misValLoc |
|
./pkg/diagnostics/diagnostics_out.F |
242 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
247 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
298 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
304 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
305 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
310 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
316 |
DIAGNOSTICS_OUT |
O qtmp2(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
317 |
DIAGNOSTICS_OUT |
I mDbl, 0, im, 0, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
324 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
328 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
329 |
DIAGNOSTICS_OUT |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
333 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
337 |
DIAGNOSTICS_OUT |
O qtmp2(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
338 |
DIAGNOSTICS_OUT |
I mDbl, 0, im, 0, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
66 |
DIAGNOSTICS_OUT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
159 |
DIAGNOSTICS_READ_PICKUP |
DO bj=1,nSy |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
162 |
DIAGNOSTICS_READ_PICKUP |
ndiag(n,bi,bj) = ndiag(n,1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
36 |
DIAGNOSTICS_READ_PICKUP |
INTEGER bi,bj |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
102 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
124 |
DIAGNOSTICS_SCALE_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
69 |
DIAGNOSTICS_SCALE_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
87 |
DIAGNOSTICS_SCALE_FILL |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
90 |
DIAGNOSTICS_SCALE_FILL |
bj = bjArg |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
99 |
DIAGNOSTICS_SCALE_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
102 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
124 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
69 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
87 |
DIAGNOSTICS_SCALE_FILL_RS |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
90 |
DIAGNOSTICS_SCALE_FILL_RS |
bj = bjArg |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
99 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
105 |
DIAGNOSTICS_SET_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
107 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
108 |
DIAGNOSTICS_SET_CALC |
jPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
110 |
DIAGNOSTICS_SET_CALC |
bjG = bj-1+(myYGlobalLo-1)/sNy |
|
./pkg/diagnostics/diagnostics_set_calc.F |
114 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
115 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
118 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.EQ.d2Min .AND. kPsi(i,j,bi,bj) ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
128 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = i |
|
./pkg/diagnostics/diagnostics_set_calc.F |
129 |
DIAGNOSTICS_SET_CALC |
jPsi0(bi,bj) = j |
|
./pkg/diagnostics/diagnostics_set_calc.F |
156 |
DIAGNOSTICS_SET_CALC |
DO bj=1,nSy |
|
./pkg/diagnostics/diagnostics_set_calc.F |
158 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
159 |
DIAGNOSTICS_SET_CALC |
jPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
163 |
DIAGNOSTICS_SET_CALC |
DO bj=1,nSy |
|
./pkg/diagnostics/diagnostics_set_calc.F |
165 |
DIAGNOSTICS_SET_CALC |
IF ( iPsi0(bi,bj).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
167 |
DIAGNOSTICS_SET_CALC |
bjG = bj-1+(myYGlobalLo-1)/sNy |
|
./pkg/diagnostics/diagnostics_set_calc.F |
169 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + iPsi0(bi,bj) + (jPsi0(bi,bj)-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
173 |
DIAGNOSTICS_SET_CALC |
& ' discard: bi,bj=',bi,bj, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
174 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
177 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
178 |
DIAGNOSTICS_SET_CALC |
jPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
181 |
DIAGNOSTICS_SET_CALC |
& ' SELECT : bi,bj=',bi,bj, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
182 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
38 |
DIAGNOSTICS_SET_CALC |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_set_calc.F |
51 |
DIAGNOSTICS_SET_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
53 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
54 |
DIAGNOSTICS_SET_CALC |
jPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
60 |
DIAGNOSTICS_SET_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
64 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = .TRUE. |
|
./pkg/diagnostics/diagnostics_set_calc.F |
70 |
DIAGNOSTICS_SET_CALC |
kPsi(i,j,bi,bj) = OBCS_insideMask( i , j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
71 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1, j ,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
72 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask( i ,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
73 |
DIAGNOSTICS_SET_CALC |
& .OR. OBCS_insideMask(i-1,j-1,bi,bj).EQ.oneRS |
|
./pkg/diagnostics/diagnostics_set_calc.F |
82 |
DIAGNOSTICS_SET_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
86 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
87 |
DIAGNOSTICS_SET_CALC |
dyLoc = yG(i,j,bi,bj)-yPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
91 |
DIAGNOSTICS_SET_CALC |
& .AND. kPsi(i,j,bi,bj) ) d2Min = d2Loc |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
114 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
120 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
138 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
139 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
154 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
155 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
170 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
171 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
187 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
188 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
192 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
202 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
58 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
74 |
DIAGNOSTICS_SUM_LEVELS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
90 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
96 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
104 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
112 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
120 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
156 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
158 |
DIAGNOSTICS_SWITCH_ONOFF |
pdiag(n,bi,bj) = nInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
194 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
196 |
DIAGNOSTICS_SWITCH_ONOFF |
dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
203 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
206 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
207 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
216 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
219 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
220 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = -1. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
47 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER bi, bj, ip, iSp |
|
./pkg/diagnostics/diagnostics_utils.F |
104 |
DIAGNOSTICS_GET_DIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
129 |
DIAGNOSTICS_GET_DIAG |
INTEGER bi, bj, myThid |
|
./pkg/diagnostics/diagnostics_utils.F |
157 |
DIAGNOSTICS_GET_DIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_GET_DIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_utils.F |
163 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
164 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
186 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
187 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
188 |
DIAGNOSTICS_GET_DIAG |
& / qdiag(i,j,ipCt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
55 |
DIAGNOSTICS_COUNT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_utils.F |
61 |
DIAGNOSTICS_COUNT |
bj = myByLo(myThid) |
|
./pkg/diagnostics/diagnostics_utils.F |
64 |
DIAGNOSTICS_COUNT |
bj = MIN(bjArg,nSy) |
|
./pkg/diagnostics/diagnostics_utils.F |
73 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,bi,bj).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
75 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
78 |
DIAGNOSTICS_COUNT |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagnostics_utils.F |
80 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
84 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagstats_clear.F |
69 |
DIAGSTATS_CLRDIAG |
INTEGER bi,bj |
|
./pkg/diagnostics/diagstats_clear.F |
76 |
DIAGSTATS_CLRDIAG |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_clear.F |
81 |
DIAGSTATS_CLRDIAG |
qSdiag(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_fill.F |
106 |
DIAGSTATS_FILL |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagstats_fill.F |
220 |
DIAGSTATS_FILL |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_fill.F |
226 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,bi,bj), |
|
./pkg/diagnostics/diagstats_fill.F |
230 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
231 |
DIAGSTATS_FILL |
I km, bi, bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
238 |
DIAGSTATS_FILL |
bj = MIN(bjArg,sizTy) |
|
./pkg/diagnostics/diagstats_fill.F |
247 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
256 |
DIAGSTATS_FILL |
DO bj=myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_fill.F |
266 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
268 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,bi,bj), |
|
./pkg/diagnostics/diagstats_fill.F |
273 |
DIAGSTATS_FILL |
I km, bi, bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
280 |
DIAGSTATS_FILL |
bj = MIN(bjArg,sizTy) |
|
./pkg/diagnostics/diagstats_fill.F |
289 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
49 |
DIAGSTATS_GLOBAL |
INTEGER bi, bj |
|
./pkg/diagnostics/diagstats_global.F |
70 |
DIAGSTATS_GLOBAL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/diagnostics/diagstats_global.F |
75 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
92 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
95 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
99 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
134 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
135 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
136 |
DIAGSTATS_LOCAL |
I hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
146 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
147 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
148 |
DIAGSTATS_LOCAL |
I hFacS(1-OLx,1-OLy,k,bi,bj), rAs(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
157 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
158 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
159 |
DIAGSTATS_LOCAL |
I hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
15 |
DIAGSTATS_LOCAL |
I k,bi,bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_local.F |
172 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
173 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
175 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
185 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
186 |
DIAGSTATS_LOCAL |
I rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
188 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
201 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
202 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
203 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj),rAw(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
212 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
213 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
214 |
DIAGSTATS_LOCAL |
I maskInS(1-OLx,1-OLy,bi,bj),rAs(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
223 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
224 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
225 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
71 |
DIAGSTATS_LOCAL |
INTEGER k, bi, bj, bibjFlg |
|
./pkg/diagnostics/diagstats_others_calc.F |
108 |
DIAGSTATS_LM_CALC |
I dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
114 |
DIAGSTATS_LM_CALC |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
|
./pkg/diagnostics/diagstats_others_calc.F |
144 |
DIAGSTATS_G_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
200 |
DIAGSTATS_G_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_others_calc.F |
21 |
DIAGSTATS_LM_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
226 |
DIAGSTATS_G_CALC |
I regMask, aim_landFr(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_others_calc.F |
227 |
DIAGSTATS_G_CALC |
I aim_landFr(1-OLx,1-OLy,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
75 |
DIAGSTATS_LM_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_set_regions.F |
104 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_set_regions.F |
108 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_set_regions.F |
192 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_set_regions.F |
198 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,1,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_set_regions.F |
39 |
DIAGSTATS_SET_REGIONS |
INTEGER bi, bj |
|
./pkg/diagnostics/diagstats_set_regions.F |
55 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/diagnostics/diagstats_set_regions.F |
60 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = 0. |
|
./pkg/dic/alk_surfforcing.F |
11 |
ALK_SURFFORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/alk_surfforcing.F |
37 |
ALK_SURFFORCING |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/dic/alk_surfforcing.F |
54 |
ALK_SURFFORCING |
IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/alk_surfforcing.F |
61 |
ALK_SURFFORCING |
GALK(i,j)=gsm_ALK*surfaceForcingS(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
105 |
BIO_EXPORT |
kall = k0+kchl*CHL(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0 |
|
./pkg/dic/bio_export.F |
109 |
BIO_EXPORT |
& +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 ) |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
149 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
15 |
BIO_EXPORT |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/bio_export.F |
46 |
BIO_EXPORT |
INTEGER iMin, iMax, jMin, jMax, bi, bj |
|
./pkg/dic/bio_export.F |
73 |
BIO_EXPORT |
CALL INSOL(myTime,sfac,bi,bj,myThid) |
|
./pkg/dic/bio_export.F |
84 |
BIO_EXPORT |
lit(i,j)=PAR(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
86 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/bio_export.F |
93 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/calcite_saturation.F |
109 |
CALCITE_SATURATION |
I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
112 |
CALCITE_SATURATION |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
113 |
CALCITE_SATURATION |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
114 |
CALCITE_SATURATION |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
115 |
CALCITE_SATURATION |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
116 |
CALCITE_SATURATION |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
117 |
CALCITE_SATURATION |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
119 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/calcite_saturation.F |
11 |
CALCITE_SATURATION |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/calcite_saturation.F |
128 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
129 |
CALCITE_SATURATION |
& Ksp_TP_Calc(i,j,bi,bj) |
|
./pkg/dic/calcite_saturation.F |
156 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/calcite_saturation.F |
38 |
CALCITE_SATURATION |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/calcite_saturation.F |
77 |
CALCITE_SATURATION |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/car_flux.F |
107 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
111 |
CAR_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/car_flux.F |
114 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
11 |
CAR_FLUX |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/car_flux.F |
130 |
CAR_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
35 |
CAR_FLUX |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
75 |
CAR_FLUX |
caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
103 |
CAR_FLUX_OMEGA_TOP |
if (omegaC(i,j,ko,bi,bj) .gt. 1.0) then |
|
./pkg/dic/car_flux_omega_top.F |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
111 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
11 |
CAR_FLUX_OMEGA_TOP |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/car_flux_omega_top.F |
121 |
CAR_FLUX_OMEGA_TOP |
KierRate = 7.177* ((1.0-omegaC(i,j,ko,bi,bj))**4.54) |
|
./pkg/dic/car_flux_omega_top.F |
132 |
CAR_FLUX_OMEGA_TOP |
& hFacC(i,j,ko,bi,bj)/WsinkPIC |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |
|
./pkg/dic/car_flux_omega_top.F |
149 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
163 |
CAR_FLUX_OMEGA_TOP |
& R_CP*rain_ratio(i,j,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
165 |
CAR_FLUX_OMEGA_TOP |
& (drF(1)*hFacC(i,j,1,bi,bj) ) |
|
./pkg/dic/car_flux_omega_top.F |
170 |
CAR_FLUX_OMEGA_TOP |
& R_CP*rain_ratio(i,j,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
37 |
CAR_FLUX_OMEGA_TOP |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
88 |
CAR_FLUX_OMEGA_TOP |
caexport(i,j)= R_CP*rain_ratio(i,j,bi,bj)*bioac(i,j,k)* |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
93 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
1039 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue) |
|
./pkg/dic/carbon_chem.F |
1046 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/dic/carbon_chem.F |
1047 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1048 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1049 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1050 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1051 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1052 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1053 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1054 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1055 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1056 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1057 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1058 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1059 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1060 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1061 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
348 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
391 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
497 |
CARBON_COEFFS |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/carbon_chem.F |
546 |
CARBON_COEFFS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/dic/carbon_chem.F |
588 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
615 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/dic/carbon_chem.F |
619 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
625 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
633 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/dic/carbon_chem.F |
636 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/dic/carbon_chem.F |
641 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
656 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
663 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
669 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
678 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
67 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
685 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
694 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/dic/carbon_chem.F |
696 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
700 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/dic/carbon_chem.F |
702 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/dic/carbon_chem.F |
704 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/dic/carbon_chem.F |
708 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
709 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
710 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
711 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
712 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
713 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
714 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
715 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
716 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
717 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
718 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
719 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
720 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
721 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
722 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
723 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
739 |
CARBON_COEFFS_PRESSURE_DEP |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/carbon_chem.F |
794 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/dic/carbon_chem.F |
868 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
888 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/dic/carbon_chem.F |
894 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/dic/carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
905 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
911 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj) = ak1(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
918 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj) = ak2(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
923 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/dic/carbon_chem.F |
937 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/dic/carbon_chem.F |
941 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
948 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
955 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
970 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
977 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
986 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/dic/carbon_chem.F |
988 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
992 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.000232 * scl/10.811 |
|
./pkg/dic/carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.14 * scl/96.062 |
|
./pkg/dic/carbon_chem.F |
996 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.000067 * scl/18.9984 |
|
./pkg/dic/dic_atmos.F |
100 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_atmos.F |
102 |
DIC_ATMOS |
tile_flux(bi,bj) = 0. |
|
./pkg/dic/dic_atmos.F |
103 |
DIC_ATMOS |
tile_carbon(bi,bj) = 0. |
|
./pkg/dic/dic_atmos.F |
106 |
DIC_ATMOS |
tile_flux(bi,bj) = tile_flux(bi,bj) |
|
./pkg/dic/dic_atmos.F |
107 |
DIC_ATMOS |
& + fluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
108 |
DIC_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_atmos.F |
114 |
DIC_ATMOS |
tile_carbon(bi,bj) = tile_carbon(bi,bj) |
|
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
117 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_atmos.F |
119 |
DIC_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
120 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_atmos.F |
196 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_atmos.F |
200 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj) = atm_pCO2 |
|
./pkg/dic/dic_atmos.F |
49 |
DIC_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_biotic_diags.F |
142 |
DIC_BIOTIC_DIAGS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_biotic_diags.F |
144 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
145 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
146 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
147 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
148 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
149 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
150 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
151 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
152 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
153 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
154 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
155 |
DIC_BIOTIC_DIAGS |
DIC_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_biotic_diags.F |
38 |
DIC_BIOTIC_DIAGS |
INTEGER bi, bj |
|
./pkg/dic/dic_biotic_diags.F |
48 |
DIC_BIOTIC_DIAGS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_biotic_diags.F |
51 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
53 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
55 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
57 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
59 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
61 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
63 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
65 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
67 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
69 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
71 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
123 |
DIC_BIOTIC_FORCING |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/dic/dic_biotic_forcing.F |
166 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
176 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
187 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
18 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
196 |
DIC_BIOTIC_FORCING |
CALL FE_CHEM( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
212 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
222 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
229 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k)=BIOac(i,j,k)*R_CP*rain_ratio(i,j,bi,bj)* |
|
./pkg/dic/dic_biotic_forcing.F |
247 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
257 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
267 |
DIC_BIOTIC_FORCING |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
276 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
279 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
315 |
DIC_BIOTIC_FORCING |
& InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/dic/dic_biotic_forcing.F |
316 |
DIC_BIOTIC_FORCING |
& *recip_hFacC(i,j,1,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
319 |
DIC_BIOTIC_FORCING |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/dic/dic_biotic_forcing.F |
322 |
DIC_BIOTIC_FORCING |
& *recip_drF(kBottom)*recip_hFacC(i,j,kBottom,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
332 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) = GDIC(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
333 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) = GALK(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
334 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) = GPO4(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
335 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) = GDOP(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
337 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) = GO2(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
340 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = GFE(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
377 |
DIC_BIOTIC_FORCING |
CALL FE_CHEM( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/dic/dic_biotic_forcing.F |
390 |
DIC_BIOTIC_FORCING |
BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
392 |
DIC_BIOTIC_FORCING |
CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
394 |
DIC_BIOTIC_FORCING |
OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
395 |
DIC_BIOTIC_FORCING |
& OmegaC(i,j,k,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
396 |
DIC_BIOTIC_FORCING |
pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
398 |
DIC_BIOTIC_FORCING |
epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
400 |
DIC_BIOTIC_FORCING |
cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
407 |
DIC_BIOTIC_FORCING |
SURave(i,j,bi,bj) =SURave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
410 |
DIC_BIOTIC_FORCING |
SUROave(i,j,bi,bj) =SUROave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
413 |
DIC_BIOTIC_FORCING |
pCO2ave(i,j,bi,bj) =pCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
414 |
DIC_BIOTIC_FORCING |
& pCO2(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
415 |
DIC_BIOTIC_FORCING |
pHave(i,j,bi,bj) =pHave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
416 |
DIC_BIOTIC_FORCING |
& pH(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
417 |
DIC_BIOTIC_FORCING |
fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
418 |
DIC_BIOTIC_FORCING |
& fluxCO2(i,j,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
421 |
DIC_BIOTIC_FORCING |
DIC_timeAve(bi,bj) = DIC_timeAve(bi,bj)+deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
429 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(BIOac ,'DICBIOA ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
430 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(CAR ,'DICCARB ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
431 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pCO2 ,'DICPCO2 ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
432 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(fluxCO2,'DICCFLX ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
433 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pH ,'DICPHAV ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
434 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURC ,'DICTFLX ',0,1 ,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
436 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURO ,'DICOFLX ',0,1 ,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
57 |
DIC_BIOTIC_FORCING |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/dic/dic_biotic_init.F |
31 |
DIC_BIOTIC_INIT |
INTEGER bi, bj |
|
./pkg/dic/dic_biotic_init.F |
35 |
DIC_BIOTIC_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_biotic_init.F |
37 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(BIOave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
38 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(CARave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
39 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(SURave, 1, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
40 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(SUROave, 1, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
41 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pCO2ave, 1, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
42 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pHave, 1, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
43 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(fluxCO2ave, 1, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
44 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(OmegaCave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
45 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
46 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(epfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
47 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(cfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
49 |
DIC_BIOTIC_INIT |
DIC_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_cost.F |
40 |
DIC_COST |
INTEGER i, j, bi, bj |
|
./pkg/dic/dic_cost.F |
45 |
DIC_COST |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_cost.F |
47 |
DIC_COST |
loc_cost(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_cost.F |
50 |
DIC_COST |
loc_cost(bi,bj) = loc_cost(bi,bj) |
|
./pkg/dic/dic_cost.F |
51 |
DIC_COST |
& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_cost.F |
52 |
DIC_COST |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_fields_load.F |
161 |
DIC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_fields_load.F |
163 |
DIC_FIELDS_LOAD |
DIC_ldRec(bi,bj) = intime1 |
|
./pkg/dic/dic_fields_load.F |
170 |
DIC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_fields_load.F |
175 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
176 |
DIC_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
188 |
DIC_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
189 |
DIC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
197 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
198 |
DIC_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
205 |
DIC_FIELDS_LOAD |
fIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
206 |
DIC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
215 |
DIC_FIELDS_LOAD |
PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
216 |
DIC_FIELDS_LOAD |
& + aWght*par1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
231 |
DIC_FIELDS_LOAD |
CHL(i,j,bi,bj) = chlinput(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
240 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
241 |
DIC_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
36 |
DIC_FIELDS_LOAD |
INTEGER bi, bj, i, j |
|
./pkg/dic/dic_fields_load.F |
53 |
DIC_FIELDS_LOAD |
bj = myByLo(myThid) |
|
./pkg/dic/dic_fields_load.F |
59 |
DIC_FIELDS_LOAD |
& ' : iP,iLd,i0,i1=', intimeP,DIC_ldRec(bi,bj), intime0,intime1, |
|
./pkg/dic/dic_fields_load.F |
75 |
DIC_FIELDS_LOAD |
IF ( intime1.NE.DIC_ldRec(bi,bj) ) THEN |
|
./pkg/dic/dic_fields_load.F |
85 |
DIC_FIELDS_LOAD |
& ' (prev=', intimeP, DIC_ldRec(bi,bj), ' )' |
|
./pkg/dic/dic_fields_update.F |
11 |
DIC_FIELDS_UPDATE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/dic/dic_fields_update.F |
41 |
DIC_FIELDS_UPDATE |
INTEGER bi, bj |
|
./pkg/dic/dic_fields_update.F |
59 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
67 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
76 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
88 |
DIC_FIELDS_UPDATE |
AtmospCO2(i,j,bi,bj) = airCO2(i,j,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
95 |
DIC_FIELDS_UPDATE |
wind(i,j,bi,bj) = surfWSpeed(i,j,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
105 |
DIC_INI_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_ini_atmos.F |
107 |
DIC_INI_ATMOS |
tile_carbon(bi,bj) = 0. |
|
./pkg/dic/dic_ini_atmos.F |
111 |
DIC_INI_ATMOS |
tile_carbon(bi,bj) = tile_carbon(bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
112 |
DIC_INI_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_ini_atmos.F |
114 |
DIC_INI_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_ini_atmos.F |
116 |
DIC_INI_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
117 |
DIC_INI_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
175 |
DIC_INI_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_ini_atmos.F |
179 |
DIC_INI_ATMOS |
AtmospCO2(i,j,bi,bj) = atm_pCO2 |
|
./pkg/dic/dic_ini_atmos.F |
49 |
DIC_INI_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_ini_forcing.F |
33 |
DIC_INI_FORCING |
INTEGER bi,bj,i,j |
|
./pkg/dic/dic_ini_forcing.F |
39 |
DIC_INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_ini_forcing.F |
41 |
DIC_INI_FORCING |
DIC_ldRec(bi,bj) = 0 |
|
./pkg/dic/dic_ini_forcing.F |
75 |
DIC_INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_ini_forcing.F |
79 |
DIC_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
80 |
DIC_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
81 |
DIC_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
82 |
DIC_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
83 |
DIC_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
85 |
DIC_INI_FORCING |
PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
89 |
DIC_INI_FORCING |
CHL(i,j,bi,bj) = 1. _d -2*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
92 |
DIC_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_init_varia.F |
33 |
DIC_INIT_VARIA |
INTEGER i,j, bi,bj |
|
./pkg/dic/dic_init_varia.F |
56 |
DIC_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/dic_init_varia.F |
60 |
DIC_INIT_VARIA |
alpha(i,j,bi,bj) = alphaUniform |
|
./pkg/dic/dic_init_varia.F |
61 |
DIC_INIT_VARIA |
rain_ratio(i,j,bi,bj) = rainRatioUniform |
|
./pkg/dic/dic_init_varia.F |
67 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_set_control.F |
101 |
DIC_SET_CONTROL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_set_control.F |
105 |
DIC_SET_CONTROL |
feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1)) |
|
./pkg/dic/dic_set_control.F |
106 |
DIC_SET_CONTROL |
rain_ratio(i,j,bi,bj) = |
|
./pkg/dic/dic_set_control.F |
107 |
DIC_SET_CONTROL |
& rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2)) |
|
./pkg/dic/dic_set_control.F |
41 |
DIC_SET_CONTROL |
INTEGER bi, bj |
|
./pkg/dic/dic_set_control.F |
77 |
DIC_SET_CONTROL |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_set_control.F |
81 |
DIC_SET_CONTROL |
alpha (i,j,bi,bj) = alpha(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
82 |
DIC_SET_CONTROL |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/dic/dic_store_fluxco2.F |
45 |
DIC_STORE_FLUXCO2 |
INTEGER i,j,bi,bj |
|
./pkg/dic/dic_store_fluxco2.F |
48 |
DIC_STORE_FLUXCO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_store_fluxco2.F |
52 |
DIC_STORE_FLUXCO2 |
fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
101 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
105 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
106 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
109 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
112 |
DIC_SURFFORCING |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
114 |
DIC_SURFFORCING |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
118 |
DIC_SURFFORCING |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
119 |
DIC_SURFFORCING |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
127 |
DIC_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/dic_surfforcing.F |
12 |
DIC_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/dic_surfforcing.F |
140 |
DIC_SURFFORCING |
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/dic/dic_surfforcing.F |
146 |
DIC_SURFFORCING |
Kwexch_Pre(i,j,bi,bj) = pisvel(i,j) |
|
./pkg/dic/dic_surfforcing.F |
147 |
DIC_SURFFORCING |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/dic_surfforcing.F |
158 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
163 |
DIC_SURFFORCING |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
164 |
DIC_SURFFORCING |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
165 |
DIC_SURFFORCING |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
166 |
DIC_SURFFORCING |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
167 |
DIC_SURFFORCING |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
168 |
DIC_SURFFORCING |
I ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
169 |
DIC_SURFFORCING |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
170 |
DIC_SURFFORCING |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing.F |
171 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
173 |
DIC_SURFFORCING |
pCO2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
181 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
185 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
186 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
187 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
188 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
195 |
DIC_SURFFORCING |
& AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
198 |
DIC_SURFFORCING |
Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
206 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = |
|
./pkg/dic/dic_surfforcing.F |
208 |
DIC_SURFFORCING |
& ak0(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing.F |
209 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
215 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = |
|
./pkg/dic/dic_surfforcing.F |
217 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing.F |
218 |
DIC_SURFFORCING |
& pCO2(i,j,bi,bj)*fugf(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
219 |
DIC_SURFFORCING |
& *ak0(i,j,bi,bj) ) |
|
./pkg/dic/dic_surfforcing.F |
223 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
226 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil |
|
./pkg/dic/dic_surfforcing.F |
229 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
237 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
252 |
DIC_SURFFORCING |
GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
253 |
DIC_SURFFORCING |
& *(FluxCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
39 |
DIC_SURFFORCING |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
96 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
99 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
103 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
104 |
DIC_SURFFORCING_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
121 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
125 |
DIC_SURFFORCING_INIT |
pH(i,j,bi,bj) = 8. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
131 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
135 |
DIC_SURFFORCING_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
136 |
DIC_SURFFORCING_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
137 |
DIC_SURFFORCING_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
138 |
DIC_SURFFORCING_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
141 |
DIC_SURFFORCING_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
142 |
DIC_SURFFORCING_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
146 |
DIC_SURFFORCING_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
147 |
DIC_SURFFORCING_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
148 |
DIC_SURFFORCING_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
149 |
DIC_SURFFORCING_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
165 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
175 |
DIC_SURFFORCING_INIT |
& min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2))) |
|
./pkg/dic/dic_surfforcing_init.F |
176 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
178 |
DIC_SURFFORCING_INIT |
& min(1. _d -1,PTRACER(i,j,kLev,bi,bj,3))) |
|
./pkg/dic/dic_surfforcing_init.F |
179 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
182 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= PTRACER(i,j,kLev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
184 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
188 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
189 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
195 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
197 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
199 |
DIC_SURFFORCING_INIT |
& min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1))) |
|
./pkg/dic/dic_surfforcing_init.F |
201 |
DIC_SURFFORCING_INIT |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
202 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
203 |
DIC_SURFFORCING_INIT |
surfdic(i,j) = PTRACER(i,j,kLev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
204 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
211 |
DIC_SURFFORCING_INIT |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
224 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
233 |
DIC_SURFFORCING_INIT |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
234 |
DIC_SURFFORCING_INIT |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
235 |
DIC_SURFFORCING_INIT |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
236 |
DIC_SURFFORCING_INIT |
I aksi(i,j,bi,bj),akf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
237 |
DIC_SURFFORCING_INIT |
I ak0(i,j,bi,bj), fugf(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
238 |
DIC_SURFFORCING_INIT |
I ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
239 |
DIC_SURFFORCING_INIT |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
240 |
DIC_SURFFORCING_INIT |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/dic/dic_surfforcing_init.F |
241 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
249 |
DIC_SURFFORCING_INIT |
& pH(iprt,jprt,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
250 |
DIC_SURFFORCING_INIT |
& theta(iprt,jprt,1,bi,bj), salt(iprt,jprt,1,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
44 |
DIC_SURFFORCING_INIT |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/dic/dic_surfforcing_init.F |
99 |
DIC_SURFFORCING_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/dic/fe_chem.F |
10 |
FE_CHEM |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./pkg/dic/fe_chem.F |
37 |
FE_CHEM |
INTEGER bi,bj |
|
./pkg/dic/fe_chem.F |
73 |
FE_CHEM |
IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN |
|
./pkg/dic/insol.F |
10 |
INSOL |
SUBROUTINE INSOL(Time,sfac,bi,bj,myThid) |
|
./pkg/dic/insol.F |
31 |
INSOL |
INTEGER bi,bj |
|
./pkg/dic/insol.F |
68 |
INSOL |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/dic/insol.F |
72 |
INSOL |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |
|
./pkg/dic/o2_surfforcing.F |
111 |
O2_SURFFORCING |
& (AtmosP(i,j,bi,bj)*O2sat(i,j) |
|
./pkg/dic/o2_surfforcing.F |
11 |
O2_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/o2_surfforcing.F |
125 |
O2_SURFFORCING |
& *recip_drF(K) * recip_hFacC(i,j,K,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
34 |
O2_SURFFORCING |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/dic/o2_surfforcing.F |
72 |
O2_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/o2_surfforcing.F |
73 |
O2_SURFFORCING |
ttemp = theta(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
74 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
86 |
O2_SURFFORCING |
Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj) |
|
./pkg/dic/phos_flux.F |
111 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
117 |
PHOS_FLUX |
& *maskC(i,j,kop1,bi,bj) |
|
./pkg/dic/phos_flux.F |
11 |
PHOS_FLUX |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/phos_flux.F |
120 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
137 |
PHOS_FLUX |
& *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
35 |
PHOS_FLUX |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/dic/phos_flux.F |
77 |
PHOS_FLUX |
& *drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
10 |
DWNSLP_APPLY |
I trIdentity, bi, bj, kBottom, |
|
./pkg/down_slope/dwnslp_apply.F |
125 |
DWNSLP_APPLY |
& 0, Nr, -2, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
132 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
|
./pkg/down_slope/dwnslp_apply.F |
138 |
DWNSLP_APPLY |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
139 |
DWNSLP_APPLY |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
143 |
DWNSLP_APPLY |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
150 |
DWNSLP_APPLY |
gTrLoc(k) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
159 |
DWNSLP_APPLY |
gTrLoc(0) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
162 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
k=DWNSLP_deepK(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
169 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
171 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
173 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
178 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
192 |
DWNSLP_APPLY |
& CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
52 |
DWNSLP_APPLY |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
100 |
DWNSLP_CALC_FLOW |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
102 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
105 |
DWNSLP_CALC_FLOW |
& -rho3d(ijd,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
107 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,kshelf+1,bi,bj).GT.rho3d(ijd,kshelf+1,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
10 |
DWNSLP_CALC_FLOW |
I bi, bj, kBottom, rho3d, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
113 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
115 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = kdeep |
|
./pkg/down_slope/dwnslp_calc_flow.F |
121 |
DWNSLP_CALC_FLOW |
DWNSLP_Transp(n,bi,bj) = DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
129 |
DWNSLP_CALC_FLOW |
uFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
131 |
DWNSLP_CALC_FLOW |
vFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
144 |
DWNSLP_CALC_FLOW |
& ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
147 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
148 |
DWNSLP_CALC_FLOW |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
149 |
DWNSLP_CALC_FLOW |
ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
154 |
DWNSLP_CALC_FLOW |
& bi,bj,n,' :', DWNSLP_ijDeep(n,bi,bj), |
|
./pkg/down_slope/dwnslp_calc_flow.F |
155 |
DWNSLP_CALC_FLOW |
& DWNSLP_shVsD(n,bi,bj), ishelf,jshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
156 |
DWNSLP_CALC_FLOW |
& ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
157 |
DWNSLP_CALC_FLOW |
& DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
166 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( uFlow, 'DSLPuFlw', 0,1,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
167 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( vFlow, 'DSLPvFlw', 0,1,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
40 |
DWNSLP_CALC_FLOW |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
94 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
95 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
99 |
DWNSLP_CALC_FLOW |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
47 |
DWNSLP_CALC_RHO |
INTEGER k, bi, bj |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
72 |
DWNSLP_CALC_RHO |
tLoc(i,j) = tFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
73 |
DWNSLP_CALC_RHO |
sLoc(i,j) = sFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
81 |
DWNSLP_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
108 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
110 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
113 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
115 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
119 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
122 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
124 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
139 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
141 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
144 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
146 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
150 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
153 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
155 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
167 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
169 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
172 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
174 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
178 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
181 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
183 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
195 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
203 |
DWNSLP_INIT_FIXED |
& ' DWNSLP_INIT: min needed for tile',bi,bj,' :', ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
210 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
212 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
215 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
220 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kdeep = kLowC (ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
224 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
235 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
242 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
243 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
246 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
247 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
252 |
DWNSLP_INIT_FIXED |
dz_bottom = Ro_surf(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
253 |
DWNSLP_INIT_FIXED |
& - Ro_surf(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
257 |
DWNSLP_INIT_FIXED |
dz_bottom = R_low(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
258 |
DWNSLP_INIT_FIXED |
& - R_low(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
262 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
264 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
267 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
268 |
DWNSLP_INIT_FIXED |
& *dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
269 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
294 |
DWNSLP_INIT_FIXED |
DO bj = 1,nSy |
|
./pkg/down_slope/dwnslp_init_fixed.F |
298 |
DWNSLP_INIT_FIXED |
& 'DWNSLP_INIT: DWNSLP_NbSite=',bi,bj,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
305 |
DWNSLP_INIT_FIXED |
& bi,bj, DWNSLP_NbSite(bi,bj), xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
308 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
309 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
312 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
317 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
319 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
320 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
324 |
DWNSLP_INIT_FIXED |
& ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
44 |
DWNSLP_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_init_fixed.F |
53 |
DWNSLP_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
60 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
62 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
63 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
64 |
DWNSLP_INIT_FIXED |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
65 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_fixed.F |
66 |
DWNSLP_INIT_FIXED |
DWNSLP_Transp(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_fixed.F |
80 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
82 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
85 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
87 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
91 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
94 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
96 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |
|
./pkg/down_slope/dwnslp_init_varia.F |
40 |
DWNSLP_INIT_VARIA |
INTEGER n, bi, bj |
|
./pkg/down_slope/dwnslp_init_varia.F |
45 |
DWNSLP_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/down_slope/dwnslp_init_varia.F |
50 |
DWNSLP_INIT_VARIA |
DWNSLP_deepK (n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_varia.F |
51 |
DWNSLP_INIT_VARIA |
DWNSLP_Transp(n,bi,bj) = 0. _d 0 |
|
./pkg/ebm/ebm_area_t.F |
44 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
61 |
EBM_AREA_T |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_area_t.F |
64 |
EBM_AREA_T |
TmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
65 |
EBM_AREA_T |
TmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
66 |
EBM_AREA_T |
TtS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
67 |
EBM_AREA_T |
TtN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
68 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
69 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
70 |
EBM_AREA_T |
CounttS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
71 |
EBM_AREA_T |
CounttN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
78 |
EBM_AREA_T |
TmlS_tile(bi,bj) = TmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
79 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
80 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = CountmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
81 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
84 |
EBM_AREA_T |
TtS_tile(bi,bj) = TtS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
86 |
EBM_AREA_T |
CounttS_tile(bi,bj) = CounttS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. latBnd(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
90 |
EBM_AREA_T |
TtN_tile(bi,bj) = TtN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
92 |
EBM_AREA_T |
CounttN_tile(bi,bj) = CounttN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(3) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
96 |
EBM_AREA_T |
TmlN_tile(bi,bj) = TmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
98 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = CountmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
S(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
104 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
107 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
108 |
EBM_ATMOSPHERE |
LW(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
109 |
EBM_ATMOSPHERE |
Hd(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
110 |
EBM_ATMOSPHERE |
Fw(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
111 |
EBM_ATMOSPHERE |
T(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
112 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
121 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
122 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
123 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 90. |
|
./pkg/ebm/ebm_atmosphere.F |
124 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
125 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 9.0 |
|
./pkg/ebm/ebm_atmosphere.F |
126 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
127 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 8.0 |
|
./pkg/ebm/ebm_atmosphere.F |
128 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
129 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 5.0 |
|
./pkg/ebm/ebm_atmosphere.F |
130 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
131 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 1.0 |
|
./pkg/ebm/ebm_atmosphere.F |
228 |
EBM_ATMOSPHERE |
S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
231 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.12 _d 0 * |
|
./pkg/ebm/ebm_atmosphere.F |
232 |
EBM_ATMOSPHERE |
& (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.) |
|
./pkg/ebm/ebm_atmosphere.F |
244 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
& (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
|
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
255 |
EBM_ATMOSPHERE |
LW(j,bj) = LW0 + LW1*(T(j,bj)-t_mlt) |
|
./pkg/ebm/ebm_atmosphere.F |
258 |
EBM_ATMOSPHERE |
LW(j,bj) = LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
270 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
EBM_ATMOSPHERE |
& 0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
274 |
EBM_ATMOSPHERE |
& 0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
275 |
EBM_ATMOSPHERE |
& 2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
276 |
EBM_ATMOSPHERE |
& 4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
277 |
EBM_ATMOSPHERE |
& 4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
278 |
EBM_ATMOSPHERE |
& 1.2893 _d 4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
289 |
EBM_ATMOSPHERE |
IF (ReCountX(j,bj) .GT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
291 |
EBM_ATMOSPHERE |
& ( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
EBM_ATMOSPHERE |
& 1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
294 |
EBM_ATMOSPHERE |
& 1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
295 |
EBM_ATMOSPHERE |
& 2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
296 |
EBM_ATMOSPHERE |
& 2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
297 |
EBM_ATMOSPHERE |
& 8.119 _d 2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
300 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
EBM_ATMOSPHERE |
& *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13 |
|
./pkg/ebm/ebm_atmosphere.F |
308 |
EBM_ATMOSPHERE |
& +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11 |
|
./pkg/ebm/ebm_atmosphere.F |
309 |
EBM_ATMOSPHERE |
& -5.1701 _d 5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
EBM_ATMOSPHERE |
& +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8 |
|
./pkg/ebm/ebm_atmosphere.F |
311 |
EBM_ATMOSPHERE |
& -1.791 _d 5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
EBM_ATMOSPHERE |
& -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
313 |
EBM_ATMOSPHERE |
& +0.3824 _d 5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
314 |
EBM_ATMOSPHERE |
& -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2 |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5) |
|
./pkg/ebm/ebm_atmosphere.F |
325 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
EBM_ATMOSPHERE |
& - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
330 |
EBM_ATMOSPHERE |
& + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
331 |
EBM_ATMOSPHERE |
& - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
332 |
EBM_ATMOSPHERE |
& + 2855.0 _d 0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
336 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
337 |
EBM_ATMOSPHERE |
& .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
338 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
340 |
EBM_ATMOSPHERE |
& 2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
341 |
EBM_ATMOSPHERE |
& 1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 - |
|
./pkg/ebm/ebm_atmosphere.F |
342 |
EBM_ATMOSPHERE |
& 6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 + |
|
./pkg/ebm/ebm_atmosphere.F |
343 |
EBM_ATMOSPHERE |
& 1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 - |
|
./pkg/ebm/ebm_atmosphere.F |
344 |
EBM_ATMOSPHERE |
& 8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 + |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
& 2.703 _d 4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
349 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
350 |
EBM_ATMOSPHERE |
& *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
351 |
EBM_ATMOSPHERE |
& 1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
352 |
EBM_ATMOSPHERE |
& 2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
353 |
EBM_ATMOSPHERE |
& 6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
354 |
EBM_ATMOSPHERE |
& 2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
355 |
EBM_ATMOSPHERE |
& 2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
356 |
EBM_ATMOSPHERE |
& 9.486 _d 3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
361 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
362 |
EBM_ATMOSPHERE |
& - Run(i,j,bi,bj)*scale_runoff |
|
./pkg/ebm/ebm_atmosphere.F |
363 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ebm/ebm_atmosphere.F |
55 |
EBM_ATMOSPHERE |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_atmosphere.F |
85 |
EBM_ATMOSPHERE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
91 |
EBM_ATMOSPHERE |
act2 = bj - myByLo(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
40 |
EBM_INI_VARS |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_ini_vars.F |
43 |
EBM_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
47 |
EBM_INI_VARS |
Run (i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_ini_vars.F |
48 |
EBM_INI_VARS |
winPert(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_load_climatology.F |
45 |
EBM_LOAD_CLIMATOLOGY |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_load_climatology.F |
67 |
EBM_LOAD_CLIMATOLOGY |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
74 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)- 0. )/lY |
|
./pkg/ebm/ebm_load_climatology.F |
77 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_wind_perturb.F |
115 |
EBM_WIND_PERTURB |
& (1.0/1.66)*(0.75*winPert(i,j,bi,bj) + |
|
./pkg/ebm/ebm_wind_perturb.F |
129 |
EBM_WIND_PERTURB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_wind_perturb.F |
133 |
EBM_WIND_PERTURB |
fu(i,j,bi,bj) = fu(i,j,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
134 |
EBM_WIND_PERTURB |
& + winPert(i,j,bi,bj)*rUnit2mass |
|
./pkg/ebm/ebm_wind_perturb.F |
135 |
EBM_WIND_PERTURB |
& *drF(1)*hFacW(i,j,1,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
36 |
EBM_WIND_PERTURB |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_wind_perturb.F |
52 |
EBM_WIND_PERTURB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
103 |
EBM_ZONALMEAN |
SST(i,j,bi,bj) = ZonalMeanSST(j,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
45 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
57 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
59 |
EBM_ZONALMEAN |
tileSumMask(bi,bj) = 0. |
|
./pkg/ebm/ebm_zonalmean.F |
60 |
EBM_ZONALMEAN |
tileSumSST (bi,bj) = 0. |
|
./pkg/ebm/ebm_zonalmean.F |
61 |
EBM_ZONALMEAN |
j = jg + 1 - myYGlobalLo - (bj-1)*sNy |
|
./pkg/ebm/ebm_zonalmean.F |
64 |
EBM_ZONALMEAN |
tileSumMask(bi,bj) = tileSumMask(bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
66 |
EBM_ZONALMEAN |
tileSumSST (bi,bj) = tileSumSST (bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
80 |
EBM_ZONALMEAN |
DO bj=1,nSy |
|
./pkg/ebm/ebm_zonalmean.F |
82 |
EBM_ZONALMEAN |
jg = myYGlobalLo + j-1 + (bj-1)*sNy |
|
./pkg/ebm/ebm_zonalmean.F |
87 |
EBM_ZONALMEAN |
CountX(j,bj) = locSumMask(jg) |
|
./pkg/ebm/ebm_zonalmean.F |
88 |
EBM_ZONALMEAN |
ZonalMeanSST(j,bj) = locSumSST(jg) |
|
./pkg/ebm/ebm_zonalmean.F |
89 |
EBM_ZONALMEAN |
IF ( CountX(j,bj).GT.0. _d 0 ) THEN |
|
./pkg/ebm/ebm_zonalmean.F |
90 |
EBM_ZONALMEAN |
ZonalMeanSST(j,bj) = ZonalMeanSST(j,bj)/CountX(j,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
99 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/cost_averagesfields.F |
211 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
221 |
COST_AVERAGESFIELDS |
& genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr) |
|
./pkg/ecco/cost_averagesfields.F |
226 |
COST_AVERAGESFIELDS |
etanLeads(i,j,bi,bj)=etan(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
228 |
COST_AVERAGESFIELDS |
& +sIceLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ecco/cost_averagesfields.F |
342 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
347 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
348 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
355 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
360 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
361 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
363 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
364 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
393 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
398 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
399 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
400 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
401 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
417 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
421 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
422 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = vstress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
428 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
432 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = (tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
433 |
COST_AVERAGESFIELDS |
& ustress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
435 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = (tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
436 |
COST_AVERAGESFIELDS |
& vstress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
463 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
467 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
468 |
COST_AVERAGESFIELDS |
& ustress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
469 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
470 |
COST_AVERAGESFIELDS |
& vstress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
598 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
602 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = 0.0 |
|
./pkg/ecco/cost_averagesfields.F |
607 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
612 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_averagesfields.F |
618 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
623 |
COST_AVERAGESFIELDS |
if (hFacC(i,j,k,bi,bj).gt.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
624 |
COST_AVERAGESFIELDS |
prmm = totPhiHyd(i,j,k,bi,bj)/gravity |
|
./pkg/ecco/cost_averagesfields.F |
626 |
COST_AVERAGESFIELDS |
tmpmm = SW_TEMP(SALT(i,j,k,bi,bj), |
|
./pkg/ecco/cost_averagesfields.F |
627 |
COST_AVERAGESFIELDS |
& THETA(i,j,k,bi,bj),prmm,0. _d 0) |
|
./pkg/ecco/cost_averagesfields.F |
629 |
COST_AVERAGESFIELDS |
& totPhiHyd(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
633 |
COST_AVERAGESFIELDS |
salmm = SALT(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
649 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm |
|
./pkg/ecco/cost_averagesfields.F |
657 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
662 |
COST_AVERAGESFIELDS |
if (csmm(i,j,k,bi,bj).ne.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
663 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = iestau(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
664 |
COST_AVERAGESFIELDS |
& + 2*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
665 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
667 |
COST_AVERAGESFIELDS |
iestau(i,j,bi,bj) = iestau(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
669 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
734 |
COST_AVERAGESFIELDS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesfields.F |
737 |
COST_AVERAGESFIELDS |
& transpbar(locdayrec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
740 |
COST_AVERAGESFIELDS |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/ecco/cost_averagesfields.F |
744 |
COST_AVERAGESFIELDS |
transpbar(locdayrec,bi,bj) = transpbar(locdayrec,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
745 |
COST_AVERAGESFIELDS |
& +vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
746 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
752 |
COST_AVERAGESFIELDS |
transpbar(locdayrec,bi,bj) = |
|
./pkg/ecco/cost_averagesfields.F |
753 |
COST_AVERAGESFIELDS |
& transpbar(locdayrec,bi,bj)/float(sum1day) |
|
./pkg/ecco/cost_averagesfields.F |
79 |
COST_AVERAGESFIELDS |
integer bi,bj |
|
./pkg/ecco/cost_averagesgeneric.F |
115 |
COST_AVERAGESGENERIC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesgeneric.F |
120 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
149 |
COST_AVERAGESGENERIC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesgeneric.F |
154 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
162 |
COST_AVERAGESGENERIC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesgeneric.F |
167 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
168 |
COST_AVERAGESGENERIC |
& (localbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
169 |
COST_AVERAGESGENERIC |
& +localfld(i,j,k,bi,bj))/ |
|
./pkg/ecco/cost_averagesgeneric.F |
200 |
COST_AVERAGESGENERIC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesgeneric.F |
205 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
206 |
COST_AVERAGESGENERIC |
& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
55 |
COST_AVERAGESGENERIC |
integer bi,bj |
|
./pkg/ecco/cost_averagesinit.F |
107 |
COST_AVERAGESINIT |
psbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
118 |
COST_AVERAGESINIT |
bpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
129 |
COST_AVERAGESINIT |
iestaubar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
140 |
COST_AVERAGESINIT |
sigmaRbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
157 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
169 |
COST_AVERAGESINIT |
tbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
182 |
COST_AVERAGESINIT |
sstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
196 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
208 |
COST_AVERAGESINIT |
sbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
222 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
223 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
236 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
248 |
COST_AVERAGESINIT |
tauxbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
249 |
COST_AVERAGESINIT |
tauybar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
260 |
COST_AVERAGESINIT |
hfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
270 |
COST_AVERAGESINIT |
sfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
282 |
COST_AVERAGESINIT |
smrareabar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
283 |
COST_AVERAGESINIT |
smrsstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
284 |
COST_AVERAGESINIT |
smrsssbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
296 |
COST_AVERAGESINIT |
transpbar(irec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
56 |
COST_AVERAGESINIT |
integer bi,bj |
|
./pkg/ecco/cost_averagesinit.F |
76 |
COST_AVERAGESINIT |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_averagesinit.F |
83 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
84 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
94 |
COST_AVERAGESINIT |
gencost_bar3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
95 |
COST_AVERAGESINIT |
gencost_mod3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
122 |
COST_BP_READ |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_bp_read.F |
126 |
COST_BP_READ |
localobs(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_bp_read.F |
135 |
COST_BP_READ |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_bp_read.F |
145 |
COST_BP_READ |
if (localobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_bp_read.F |
146 |
COST_BP_READ |
localmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
148 |
COST_BP_READ |
localmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
150 |
COST_BP_READ |
localobs(i,j,bi,bj) = localobs(i,j,bi,bj)* |
|
./pkg/ecco/cost_bp_read.F |
151 |
COST_BP_READ |
& localmask(i,j,bi,bj) |
|
./pkg/ecco/cost_bp_read.F |
152 |
COST_BP_READ |
nobs = nobs + int(localmask(i,j,bi,bj)) |
|
./pkg/ecco/cost_bp_read.F |
53 |
COST_BP_READ |
integer bi,bj |
|
./pkg/ecco/cost_gencost_boxmean.F |
116 |
COST_GENCOST_BOXMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/cost_gencost_boxmean.F |
118 |
COST_GENCOST_BOXMEAN |
tmpSumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
140 |
COST_GENCOST_BOXMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/cost_gencost_boxmean.F |
145 |
COST_GENCOST_BOXMEAN |
objf_gencost(bi,bj,kgen)=objf_gencost(bi,bj,kgen) |
|
./pkg/ecco/cost_gencost_boxmean.F |
146 |
COST_GENCOST_BOXMEAN |
& +gencost_mskTemporal*mybar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
149 |
COST_GENCOST_BOXMEAN |
tmpSumTile(bi,bj)=tmpSumTile(bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
150 |
COST_GENCOST_BOXMEAN |
& +gencost_mskTemporal*mybar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
49 |
COST_GENCOST_BOXMEAN |
integer bi,bj |
|
./pkg/ecco/cost_gencost_boxmean.F |
89 |
COST_GENCOST_BOXMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/cost_gencost_boxmean.F |
91 |
COST_GENCOST_BOXMEAN |
mySumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
92 |
COST_GENCOST_BOXMEAN |
myVolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
108 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
112 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
113 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
114 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
115 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
116 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
117 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
118 |
COST_GENCOST_BPV4 |
locbpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
119 |
COST_GENCOST_BPV4 |
locbpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
120 |
COST_GENCOST_BPV4 |
locbpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
131 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
135 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = gencost_weight(i,j,bi,bj,kgen) |
|
./pkg/ecco/cost_gencost_bpv4.F |
170 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
174 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
175 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
176 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_bpv4.F |
177 |
COST_GENCOST_BPV4 |
& ( fac*locbpbar(i,j,bi,bj) - locbpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
178 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_bpv4.F |
179 |
COST_GENCOST_BPV4 |
& locbpdat(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
180 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
189 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
193 |
COST_GENCOST_BPV4 |
if (bpcount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
194 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
195 |
COST_GENCOST_BPV4 |
& bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
196 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
197 |
COST_GENCOST_BPV4 |
& bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
224 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
228 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
229 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
230 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
231 |
COST_GENCOST_BPV4 |
& ( fac*locbpbar(i,j,bi,bj) - locbpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
232 |
COST_GENCOST_BPV4 |
& - bpdifmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
233 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_bpv4.F |
234 |
COST_GENCOST_BPV4 |
& locbpdat(i,j,bi,bj) - bpdatmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
236 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
237 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
248 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
252 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
253 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
254 |
COST_GENCOST_BPV4 |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
255 |
COST_GENCOST_BPV4 |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
265 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
270 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
271 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
272 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
310 |
COST_GENCOST_BPV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_bpv4.F |
315 |
COST_GENCOST_BPV4 |
if ( (locwbp(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
316 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
317 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
318 |
COST_GENCOST_BPV4 |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
319 |
COST_GENCOST_BPV4 |
objf_gencost(kgen,bi,bj) = objf_gencost(kgen,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
320 |
COST_GENCOST_BPV4 |
& + junk*junk*locwbp(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
321 |
COST_GENCOST_BPV4 |
num_gencost(kgen,bi,bj) = num_gencost(kgen,bi,bj) |
|
./pkg/ecco/cost_gencost_bpv4.F |
47 |
COST_GENCOST_BPV4 |
integer bi,bj |
|
./pkg/ecco/cost_gencost_customize.F |
100 |
COST_GENCOST_CUSTOMIZE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
101 |
COST_GENCOST_CUSTOMIZE |
mertau(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_gencost_customize.F |
102 |
COST_GENCOST_CUSTOMIZE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
118 |
COST_GENCOST_CUSTOMIZE |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_customize.F |
124 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
125 |
COST_GENCOST_CUSTOMIZE |
& m_eta(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
127 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
128 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
130 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
131 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
133 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
134 |
COST_GENCOST_CUSTOMIZE |
& THETA(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
136 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
137 |
COST_GENCOST_CUSTOMIZE |
& SALT(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
139 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
140 |
COST_GENCOST_CUSTOMIZE |
& (phiHydLow(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
146 |
COST_GENCOST_CUSTOMIZE |
& )*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
150 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
151 |
COST_GENCOST_CUSTOMIZE |
& geothermalFlux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
155 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
156 |
COST_GENCOST_CUSTOMIZE |
& zontau(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
158 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
159 |
COST_GENCOST_CUSTOMIZE |
& mertau(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
161 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
162 |
COST_GENCOST_CUSTOMIZE |
& zonwind(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
164 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
165 |
COST_GENCOST_CUSTOMIZE |
& merwind(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
168 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
169 |
COST_GENCOST_CUSTOMIZE |
& atemp(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
171 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
172 |
COST_GENCOST_CUSTOMIZE |
& aqh(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
174 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
175 |
COST_GENCOST_CUSTOMIZE |
& precip(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
179 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
180 |
COST_GENCOST_CUSTOMIZE |
& swdown(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
182 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
183 |
COST_GENCOST_CUSTOMIZE |
& lwdown(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
186 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
187 |
COST_GENCOST_CUSTOMIZE |
& wspeed(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
192 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
193 |
COST_GENCOST_CUSTOMIZE |
& bottomDragFld(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
199 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
200 |
COST_GENCOST_CUSTOMIZE |
& area(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
202 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
203 |
COST_GENCOST_CUSTOMIZE |
& theta(i,j,1,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
206 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
207 |
COST_GENCOST_CUSTOMIZE |
& heff(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
209 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
210 |
COST_GENCOST_CUSTOMIZE |
& hsnow(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
216 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
217 |
COST_GENCOST_CUSTOMIZE |
& theta(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
222 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
223 |
COST_GENCOST_CUSTOMIZE |
& salt(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
229 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
230 |
COST_GENCOST_CUSTOMIZE |
& pTracer(i,j,k2,bi,bj,itr)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
236 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
237 |
COST_GENCOST_CUSTOMIZE |
& m_UE(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
242 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
243 |
COST_GENCOST_CUSTOMIZE |
& m_VN(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
248 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trVol(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
253 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trHeat(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
258 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trSalt(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
264 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
265 |
COST_GENCOST_CUSTOMIZE |
& diffkr(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
273 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
274 |
COST_GENCOST_CUSTOMIZE |
& kapgm(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
281 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
282 |
COST_GENCOST_CUSTOMIZE |
& kapredi(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
59 |
COST_GENCOST_CUSTOMIZE |
integer bi,bj |
|
./pkg/ecco/cost_gencost_customize.F |
91 |
COST_GENCOST_CUSTOMIZE |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_customize.F |
96 |
COST_GENCOST_CUSTOMIZE |
& *(ustress(i,j,bi,bj)+ustress(i+1,j,bi,bj)) |
|
./pkg/ecco/cost_gencost_customize.F |
98 |
COST_GENCOST_CUSTOMIZE |
& *(vstress(i,j,bi,bj)+vstress(i,j+1,bi,bj)) |
|
./pkg/ecco/cost_gencost_customize.F |
99 |
COST_GENCOST_CUSTOMIZE |
zontau(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_gencost_glbmean.F |
113 |
COST_GENCOST_GLBMEAN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_glbmean.F |
117 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
118 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
119 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
120 |
COST_GENCOST_GLBMEAN |
locbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
181 |
COST_GENCOST_GLBMEAN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_glbmean.F |
185 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0 ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
186 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = locbarmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_glbmean.F |
187 |
COST_GENCOST_GLBMEAN |
& fac*locbar(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
188 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = loccount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
198 |
COST_GENCOST_GLBMEAN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_glbmean.F |
202 |
COST_GENCOST_GLBMEAN |
if (loccount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
203 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_glbmean.F |
204 |
COST_GENCOST_GLBMEAN |
& locbarmean(i,j,bi,bj)/loccount(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
224 |
COST_GENCOST_GLBMEAN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_glbmean.F |
228 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
229 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_glbmean.F |
230 |
COST_GENCOST_GLBMEAN |
& fac*locbar(i,j,bi,bj) - locbarmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
232 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
243 |
COST_GENCOST_GLBMEAN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_glbmean.F |
247 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
249 |
COST_GENCOST_GLBMEAN |
& RA(i,j,bi,bj)*locbaranom(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
250 |
COST_GENCOST_GLBMEAN |
locbarglbmean_sum = locbarglbmean_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_glbmean.F |
48 |
COST_GENCOST_GLBMEAN |
integer bi,bj |
|
./pkg/ecco/cost_gencost_seaicev4.F |
137 |
COST_GENCOST_SEAICEV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_seaicev4.F |
139 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
140 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
142 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
143 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
146 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
147 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
402 |
GET_EXCONC_DECONC |
integer bi,bj |
|
./pkg/ecco/cost_gencost_seaicev4.F |
462 |
GET_EXCONC_DECONC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_seaicev4.F |
468 |
GET_EXCONC_DECONC |
if ( (concbar(i,j,k,bi,bj) .LE. 0.).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
469 |
GET_EXCONC_DECONC |
& (localobs(i,j,k,bi,bj) .GT. 0.) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
471 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
474 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
476 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
477 |
GET_EXCONC_DECONC |
& (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
498 |
GET_EXCONC_DECONC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_seaicev4.F |
504 |
GET_EXCONC_DECONC |
if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
505 |
GET_EXCONC_DECONC |
& (exconcbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
507 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
509 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
511 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
512 |
GET_EXCONC_DECONC |
& ( (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
514 |
GET_EXCONC_DECONC |
& - max(exconcbar(i,j,k,bi,bj),epsilonHEFF)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
516 |
GET_EXCONC_DECONC |
& - exconcbar(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
72 |
COST_GENCOST_SEAICEV4 |
integer bi,bj |
|
./pkg/ecco/cost_gencost_sshv4.F |
1000 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1001 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1002 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1003 |
COST_GENCOST_SSHV4 |
& ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1004 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1005 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1007 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1009 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1011 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1012 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1013 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1014 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
1015 |
COST_GENCOST_SSHV4 |
& gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1016 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1017 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1019 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1028 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1032 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1033 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1035 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1036 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
1037 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1038 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1039 |
COST_GENCOST_SSHV4 |
& anom_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
1040 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1042 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1043 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1057 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1061 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1062 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1064 |
COST_GENCOST_SSHV4 |
slaoffset=slaoffset+RA(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
1065 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1066 |
COST_GENCOST_SSHV4 |
slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1070 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1105 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1109 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1110 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1112 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1113 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1114 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1115 |
COST_GENCOST_SSHV4 |
& anom_slaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1117 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1118 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1165 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1169 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1170 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1171 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1172 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj) = anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1173 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1176 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1177 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1179 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_lsc) = objf_gencost(bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1180 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1181 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
1182 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1183 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_lsc) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1184 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_lsc) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1233 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1237 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1238 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1239 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1240 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1241 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1242 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1264 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1268 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1269 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1270 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1271 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1272 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1273 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1279 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1283 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1285 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1286 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1287 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1288 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1289 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj)=tpob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1290 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1292 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1294 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1295 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1296 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1297 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1298 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj)=ersob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1299 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1301 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1303 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
1304 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) - gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1305 |
COST_GENCOST_SSHV4 |
& - mean_psMslaobs(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1306 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1307 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj)=gfoob(i,j,bi,bj) - slaoffset |
|
./pkg/ecco/cost_gencost_sshv4.F |
1308 |
COST_GENCOST_SSHV4 |
& - anom_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1342 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
1347 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1348 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1349 |
COST_GENCOST_SSHV4 |
& *tpma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1350 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1351 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_tp) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1352 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_tp)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1354 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_tp) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1355 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_tp) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1357 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1358 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1359 |
COST_GENCOST_SSHV4 |
& *ersma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1360 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1361 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_ers) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1362 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_ers)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1364 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_ers) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1365 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_ers) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1367 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1368 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1369 |
COST_GENCOST_SSHV4 |
& *gfoma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1370 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1371 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1372 |
COST_GENCOST_SSHV4 |
& objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
1374 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
1375 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
253 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
257 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
258 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
259 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
260 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
261 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
262 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
263 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
264 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
347 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
351 |
COST_GENCOST_SSHV4 |
if ( (maskC(i,j,1,bi,bj) .eq. 0.).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
353 |
COST_GENCOST_SSHV4 |
& (R_low(i,j,bi,bj).GT.-200.).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
355 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .lt. spval ).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .eq. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
357 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
360 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
361 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj)*factor |
|
./pkg/ecco/cost_gencost_sshv4.F |
370 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
374 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
375 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
384 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
388 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
389 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
390 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
391 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
392 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
393 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
412 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
416 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
417 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
418 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
419 |
COST_GENCOST_SSHV4 |
& tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
420 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
422 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
423 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
424 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
425 |
COST_GENCOST_SSHV4 |
& ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
426 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
428 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
429 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
430 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
431 |
COST_GENCOST_SSHV4 |
& gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
432 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
442 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
446 |
COST_GENCOST_SSHV4 |
if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
447 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
448 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
449 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
450 |
COST_GENCOST_SSHV4 |
& mean_slaobs_mdt(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
451 |
COST_GENCOST_SSHV4 |
& mean_slaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
453 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
483 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
487 |
COST_GENCOST_SSHV4 |
if ( ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
488 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
490 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
491 |
COST_GENCOST_SSHV4 |
& -mean_slaobs_mdt(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
508 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
513 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
514 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
515 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
516 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
517 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
518 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
519 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
521 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
522 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
523 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
524 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
525 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
550 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
554 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
555 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
556 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
557 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
558 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
559 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
581 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
585 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
586 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj) / float(ndaysrec) |
|
./pkg/ecco/cost_gencost_sshv4.F |
587 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
588 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
589 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
590 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
591 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
592 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
593 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
594 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
595 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
597 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
598 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
599 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
600 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
601 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
602 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
603 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-ersob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
604 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
605 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
607 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
608 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
609 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
610 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj)+gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
611 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
612 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
613 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-gfoob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
614 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
615 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
627 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
631 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
633 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
634 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
635 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
636 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
637 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
638 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
639 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
640 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
641 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
643 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
645 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
646 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
647 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
648 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
649 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
650 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
651 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
652 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
653 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
655 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
657 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
658 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
659 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
65 |
COST_GENCOST_SSHV4 |
integer bi,bj |
|
./pkg/ecco/cost_gencost_sshv4.F |
660 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
661 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
662 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
663 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
664 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
665 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
668 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. 0 ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
669 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
671 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
672 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
673 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
674 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
676 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
677 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
680 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0 ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
681 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
682 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
684 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
685 |
COST_GENCOST_SSHV4 |
& mean_slaobs_model(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
686 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
687 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
688 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
689 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj)-mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
690 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
691 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
692 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
693 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
694 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
696 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
697 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
698 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
699 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
700 |
COST_GENCOST_SSHV4 |
& *( psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+RA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
704 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
705 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
706 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
722 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
726 |
COST_GENCOST_SSHV4 |
num0total=num0total+num0array(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
771 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
776 |
COST_GENCOST_SSHV4 |
if ( (mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
777 |
COST_GENCOST_SSHV4 |
& ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
778 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
781 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
782 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
783 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
785 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtma(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
786 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
789 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
790 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
791 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
794 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
795 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
798 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
799 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
856 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
860 |
COST_GENCOST_SSHV4 |
if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
861 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
862 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
863 |
COST_GENCOST_SSHV4 |
& * mdtma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
868 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_mdt) = objf_gencost(bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
870 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) num_gencost(bi,bj,igen_mdt) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
871 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_mdt) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
872 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
916 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
920 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
921 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
922 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
923 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
924 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
925 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
950 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
955 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
956 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
957 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
958 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
959 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
981 |
COST_GENCOST_SSHV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sshv4.F |
985 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
987 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
988 |
COST_GENCOST_SSHV4 |
& etaday(i,j,bi,bj)-tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
989 |
COST_GENCOST_SSHV4 |
& -mean_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
990 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
991 |
COST_GENCOST_SSHV4 |
& tpob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
992 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
993 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
995 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
997 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
999 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
172 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
176 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
177 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
178 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
179 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
239 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
243 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
251 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
255 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
256 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
257 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
258 |
COST_GENCOST_SSTV4 |
& mybar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
259 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
260 |
COST_GENCOST_SSTV4 |
& tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
261 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
271 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
275 |
COST_GENCOST_SSTV4 |
if ( nb_sst(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
276 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
277 |
COST_GENCOST_SSTV4 |
& obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
278 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
279 |
COST_GENCOST_SSTV4 |
& anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
280 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
324 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
328 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
329 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
330 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
331 |
COST_GENCOST_SSTV4 |
objf_gencost(kgen_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
332 |
COST_GENCOST_SSTV4 |
& objf_gencost(kgen_lsc,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
334 |
COST_GENCOST_SSTV4 |
if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
335 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
336 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
397 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
401 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
409 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
413 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
414 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
415 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
416 |
COST_GENCOST_SSTV4 |
& mybar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
417 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
419 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
420 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
435 |
COST_GENCOST_SSTV4 |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_sstv4.F |
439 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
440 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,kgen)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
441 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
442 |
COST_GENCOST_SSTV4 |
objf_gencost(kgen,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
443 |
COST_GENCOST_SSTV4 |
& objf_gencost(kgen,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
445 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
446 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
50 |
COST_GENCOST_SSTV4 |
integer bi,bj |
|
./pkg/ecco/cost_gencost_transp.F |
134 |
COST_GENCOST_TRANSP |
DO bj=jtlo,jthi |
|
./pkg/ecco/cost_gencost_transp.F |
136 |
COST_GENCOST_TRANSP |
objf_gencost(bi,bj,kgen(icount))=0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
137 |
COST_GENCOST_TRANSP |
num_gencost(bi,bj,kgen(icount))=0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
234 |
COST_GENCOST_TRANSP |
DO bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_transp.F |
236 |
COST_GENCOST_TRANSP |
tmpMeanTile(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
237 |
COST_GENCOST_TRANSP |
tmpNumTile(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
283 |
COST_GENCOST_TRANSP |
DO bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_transp.F |
285 |
COST_GENCOST_TRANSP |
objf_gencost(bi,bj,kgen(icount))= |
|
./pkg/ecco/cost_gencost_transp.F |
286 |
COST_GENCOST_TRANSP |
& objf_gencost(bi,bj,kgen(icount))+tmpMeanTile(bi,bj) |
|
./pkg/ecco/cost_gencost_transp.F |
295 |
COST_GENCOST_TRANSP |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_gencost_transp.F |
297 |
COST_GENCOST_TRANSP |
objf_gencost(bi,bj,kgen(icount))= |
|
./pkg/ecco/cost_gencost_transp.F |
298 |
COST_GENCOST_TRANSP |
& objf_gencost(bi,bj,kgen(icount))*facCost |
|
./pkg/ecco/cost_gencost_transp.F |
299 |
COST_GENCOST_TRANSP |
num_gencost(bi,bj,kgen(icount))=nrecloc*facNum |
|
./pkg/ecco/cost_gencost_transp.F |
65 |
COST_GENCOST_TRANSP |
integer bi,bj |
|
./pkg/ecco/cost_generic.F |
100 |
COST_GENERIC |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_generic.F |
102 |
COST_GENERIC |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
103 |
COST_GENERIC |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
236 |
COST_GENLOOP |
integer bi,bj |
|
./pkg/ecco/cost_generic.F |
83 |
COST_GENERIC |
integer bi,bj,k2 |
|
./pkg/ecco/cost_obcs_ageos.F |
160 |
COST_OBCS_AGEOS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
165 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
166 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
167 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
170 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
171 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
172 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
173 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
179 |
COST_OBCS_AGEOS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcs_ageos.F |
183 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
222 |
COST_OBCS_AGEOS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcs_ageos.F |
231 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
234 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
236 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
237 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
238 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
239 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
240 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
248 |
COST_OBCS_AGEOS |
IF ( bi.NE.1 .OR. bj.NE.1 ) |
|
./pkg/ecco/cost_obcs_ageos.F |
252 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
253 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
255 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
260 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
262 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
263 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
264 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
273 |
COST_OBCS_AGEOS |
j = OB_Jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
275 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
276 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
277 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
278 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
281 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
282 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
283 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
284 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
285 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
300 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
302 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
305 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
306 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
308 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
309 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
317 |
COST_OBCS_AGEOS |
IF ( bi.NE.1 .OR. bj.NE.1 ) |
|
./pkg/ecco/cost_obcs_ageos.F |
321 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
322 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
324 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
330 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
334 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
341 |
COST_OBCS_AGEOS |
j = OB_Js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
344 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
345 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
348 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
349 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
353 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
354 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
355 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
369 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
372 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
376 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
377 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
378 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
385 |
COST_OBCS_AGEOS |
IF ( bi.NE.1 .OR. bj.NE.1 ) |
|
./pkg/ecco/cost_obcs_ageos.F |
389 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
390 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
392 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
400 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
402 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
409 |
COST_OBCS_AGEOS |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
412 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
413 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
416 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
417 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
421 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
422 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
424 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
436 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
438 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) =0. |
|
./pkg/ecco/cost_obcs_ageos.F |
441 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
442 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
443 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
444 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
452 |
COST_OBCS_AGEOS |
IF ( bi.NE.1 .OR. bj.NE.1 ) |
|
./pkg/ecco/cost_obcs_ageos.F |
456 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
457 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
468 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
469 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
476 |
COST_OBCS_AGEOS |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
479 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
480 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
483 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
484 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
488 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
489 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
490 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
491 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
499 |
COST_OBCS_AGEOS |
objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
507 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_obcs_ageos.F |
65 |
COST_OBCS_AGEOS |
integer bi,bj |
|
./pkg/ecco/cost_obcse.F |
172 |
COST_OBCSE |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcse.F |
182 |
COST_OBCSE |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
185 |
COST_OBCSE |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
188 |
COST_OBCSE |
if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcse.F |
189 |
COST_OBCSE |
& num_obcse(bi,bj) = num_obcse(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcse.F |
193 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
77 |
COST_OBCSE |
integer bi,bj |
|
./pkg/ecco/cost_obcsn.F |
170 |
COST_OBCSN |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsn.F |
180 |
COST_OBCSN |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
183 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
186 |
COST_OBCSN |
if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsn.F |
187 |
COST_OBCSN |
& num_obcsn(bi,bj) = num_obcsn(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
192 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
77 |
COST_OBCSN |
integer bi,bj |
|
./pkg/ecco/cost_obcss.F |
172 |
COST_OBCSS |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcss.F |
182 |
COST_OBCSS |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
188 |
COST_OBCSS |
if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcss.F |
189 |
COST_OBCSS |
& num_obcss(bi,bj) = num_obcss(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcss.F |
194 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
77 |
COST_OBCSS |
integer bi,bj |
|
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsvol.F |
217 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
220 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
221 |
COST_OBCSVOL |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
224 |
COST_OBCSVOL |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsvol.F |
259 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
262 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
263 |
COST_OBCSVOL |
if (maskS(i,j+1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
265 |
COST_OBCSVOL |
fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
266 |
COST_OBCSVOL |
& * _hFacS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsvol.F |
302 |
COST_OBCSVOL |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
305 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
306 |
COST_OBCSVOL |
if (maskW(i+1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
308 |
COST_OBCSVOL |
fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
309 |
COST_OBCSVOL |
& * _hFacW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsvol.F |
345 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
348 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
349 |
COST_OBCSVOL |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
351 |
COST_OBCSVOL |
fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
352 |
COST_OBCSVOL |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
64 |
COST_OBCSVOL |
integer bi,bj |
|
./pkg/ecco/cost_obcsw.F |
170 |
COST_OBCSW |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_obcsw.F |
180 |
COST_OBCSW |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
183 |
COST_OBCSW |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
186 |
COST_OBCSW |
if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsw.F |
187 |
COST_OBCSW |
& num_obcsw(bi,bj) = num_obcsw(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
191 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
77 |
COST_OBCSW |
integer bi,bj |
|
./pkg/ecco/cost_sla_read.F |
125 |
COST_SLA_READ |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_sla_read.F |
129 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_sla_read.F |
137 |
COST_SLA_READ |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_sla_read.F |
142 |
COST_SLA_READ |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read.F |
143 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
145 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
147 |
COST_SLA_READ |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read.F |
148 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
150 |
COST_SLA_READ |
if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_sla_read.F |
151 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
155 |
COST_SLA_READ |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read.F |
156 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
160 |
COST_SLA_READ |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_sla_read.F |
161 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
165 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read.F |
166 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read.F |
167 |
COST_SLA_READ |
& ( sla_obs(i,j,bi,bj) - |
|
./pkg/ecco/cost_sla_read.F |
43 |
COST_SLA_READ |
integer bi,bj |
|
./pkg/ecco/cost_sla_read_yd.F |
115 |
COST_SLA_READ_YD |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_sla_read_yd.F |
121 |
COST_SLA_READ_YD |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read_yd.F |
122 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
124 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
126 |
COST_SLA_READ_YD |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read_yd.F |
127 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
129 |
COST_SLA_READ_YD |
if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
130 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
134 |
COST_SLA_READ_YD |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
135 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
139 |
COST_SLA_READ_YD |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
140 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
144 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read_yd.F |
145 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read_yd.F |
146 |
COST_SLA_READ_YD |
& sla_obs(i,j,bi,bj) |
|
./pkg/ecco/cost_sla_read_yd.F |
155 |
COST_SLA_READ_YD |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_sla_read_yd.F |
159 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
160 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
52 |
COST_SLA_READ_YD |
integer bi,bj |
|
./pkg/ecco/cost_ssh.F |
130 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
134 |
COST_SSH |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
146 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
150 |
COST_SSH |
mdtmask(i,j,bi,bj)=maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
151 |
COST_SSH |
if (mdt(i,j,bi,bj) .lt. -9990. _d 0) then |
|
./pkg/ecco/cost_ssh.F |
152 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
154 |
COST_SSH |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_ssh.F |
155 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
157 |
COST_SSH |
mdt(i,j,bi,bj) = mdt(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
158 |
COST_SSH |
& mdtmask(i,j,bi,bj)*0.01 _d 0 |
|
./pkg/ecco/cost_ssh.F |
173 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
177 |
COST_SSH |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
178 |
COST_SSH |
& psbar(i,j,bi,bj)/ |
|
./pkg/ecco/cost_ssh.F |
193 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
198 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
199 |
COST_SSH |
& (mdt(i,j,bi,bj) - psmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
201 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
231 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
235 |
COST_SSH |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
251 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
255 |
COST_SSH |
junk = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh.F |
257 |
COST_SSH |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
258 |
COST_SSH |
if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
301 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
308 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
310 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
311 |
COST_SSH |
& tpobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
312 |
COST_SSH |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
313 |
COST_SSH |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
316 |
COST_SSH |
& num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
318 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
319 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
320 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
321 |
COST_SSH |
& (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
322 |
COST_SSH |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
323 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
324 |
COST_SSH |
num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
335 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
337 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
338 |
COST_SSH |
& ersobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
339 |
COST_SSH |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
340 |
COST_SSH |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
343 |
COST_SSH |
& num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
345 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
346 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
347 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
348 |
COST_SSH |
& (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
349 |
COST_SSH |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
350 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
351 |
COST_SSH |
num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
362 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
364 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
365 |
COST_SSH |
& gfoobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
366 |
COST_SSH |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
367 |
COST_SSH |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
370 |
COST_SSH |
& num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
372 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
373 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
374 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
375 |
COST_SSH |
& (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
376 |
COST_SSH |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
377 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
378 |
COST_SSH |
num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
391 |
COST_SSH |
do bj = jtlo,jthi |
|
./pkg/ecco/cost_ssh.F |
393 |
COST_SSH |
objf_h(bi,bj) = objf_h(bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
394 |
COST_SSH |
& objf_tp(bi,bj) + objf_ers(bi,bj) + objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
395 |
COST_SSH |
num_h(bi,bj) = num_h(bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
396 |
COST_SSH |
& num_tp(bi,bj) + num_ers(bi,bj) + num_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
66 |
COST_SSH |
integer bi,bj |
|
./pkg/ecco/ecco_check.F |
54 |
ECCO_CHECK |
INTEGER bi, bj, i, j, k |
|
./pkg/ecco/ecco_check.F |
62 |
ECCO_CHECK |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ecco/ecco_check.F |
67 |
ECCO_CHECK |
eccoVol_0(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_check.F |
68 |
ECCO_CHECK |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
420 |
ECCO_COST_FINAL |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_final.F |
423 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
425 |
ECCO_COST_FINAL |
& + mult_temp * objf_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
426 |
ECCO_COST_FINAL |
& + mult_salt * objf_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
427 |
ECCO_COST_FINAL |
& + mult_temp0 * ( objf_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
428 |
ECCO_COST_FINAL |
& +mult_smooth_ic*objf_temp0smoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
429 |
ECCO_COST_FINAL |
& + mult_salt0 * ( objf_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
430 |
ECCO_COST_FINAL |
& +mult_smooth_ic*objf_salt0smoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
431 |
ECCO_COST_FINAL |
& + mult_etan0 * objf_etan0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
432 |
ECCO_COST_FINAL |
& + mult_uvel0 * objf_uvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
433 |
ECCO_COST_FINAL |
& + mult_vvel0 * objf_vvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
434 |
ECCO_COST_FINAL |
& + mult_sst * objf_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
435 |
ECCO_COST_FINAL |
& + mult_tmi * objf_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
436 |
ECCO_COST_FINAL |
& + mult_sss * objf_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
437 |
ECCO_COST_FINAL |
& + mult_bp * objf_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
438 |
ECCO_COST_FINAL |
& + mult_ies * objf_ies(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
439 |
ECCO_COST_FINAL |
& + mult_tauu * ( objf_tauu(bi,bj)+objf_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
440 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_tauusmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
441 |
ECCO_COST_FINAL |
& + mult_tauv * ( objf_tauv(bi,bj)+objf_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
442 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_tauvsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
443 |
ECCO_COST_FINAL |
& + mult_hflux * ( objf_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
444 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_hfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
445 |
ECCO_COST_FINAL |
& + mult_sflux * ( objf_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
446 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_sfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
447 |
ECCO_COST_FINAL |
& + mult_h * ( mult_tp * objf_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
448 |
ECCO_COST_FINAL |
& + mult_ers * objf_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
449 |
ECCO_COST_FINAL |
& + mult_gfo * objf_gfo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
451 |
ECCO_COST_FINAL |
& + mult_atl * objf_atl(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
453 |
ECCO_COST_FINAL |
& + mult_ctdt * objf_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
454 |
ECCO_COST_FINAL |
& + mult_ctds * objf_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
455 |
ECCO_COST_FINAL |
& + mult_ctdtclim* objf_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
456 |
ECCO_COST_FINAL |
& + mult_ctdsclim* objf_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
457 |
ECCO_COST_FINAL |
& + mult_xbt * objf_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
458 |
ECCO_COST_FINAL |
& + mult_argot * objf_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
459 |
ECCO_COST_FINAL |
& + mult_argos * objf_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
460 |
ECCO_COST_FINAL |
& + mult_drift * objf_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
461 |
ECCO_COST_FINAL |
& + mult_sdrift * objf_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
462 |
ECCO_COST_FINAL |
& + mult_tdrift * objf_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
463 |
ECCO_COST_FINAL |
& + mult_wdrift * objf_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
464 |
ECCO_COST_FINAL |
& + mult_scatx * objf_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
465 |
ECCO_COST_FINAL |
& + mult_scaty * objf_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
466 |
ECCO_COST_FINAL |
& + mult_scatx * objf_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
467 |
ECCO_COST_FINAL |
& + mult_scaty * objf_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
468 |
ECCO_COST_FINAL |
& + mult_uwind * ( objf_uwind(bi,bj)+objf_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
469 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_uwindsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
470 |
ECCO_COST_FINAL |
& + mult_vwind * ( objf_vwind(bi,bj)+objf_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
471 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_vwindsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
472 |
ECCO_COST_FINAL |
& + mult_atemp * ( objf_atemp(bi,bj)+objf_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
473 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_atempsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
474 |
ECCO_COST_FINAL |
& + mult_aqh * ( objf_aqh(bi,bj)+objf_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
475 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_aqhsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
476 |
ECCO_COST_FINAL |
& + mult_precip * ( objf_precip(bi,bj)+objf_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
477 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_precipsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
478 |
ECCO_COST_FINAL |
& + mult_swflux * ( objf_swflux(bi,bj)+objf_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
479 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_swfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
480 |
ECCO_COST_FINAL |
& + mult_swdown * ( objf_swdown(bi,bj)+objf_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
481 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_swdownsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
482 |
ECCO_COST_FINAL |
& + mult_lwflux * ( objf_lwflux(bi,bj)+objf_lwfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
483 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_lwfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
484 |
ECCO_COST_FINAL |
& + mult_lwdown * ( objf_lwdown(bi,bj)+objf_lwdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
485 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_lwdownsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
486 |
ECCO_COST_FINAL |
& + mult_curmtr * objf_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
487 |
ECCO_COST_FINAL |
& + mult_kapgm * objf_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
488 |
ECCO_COST_FINAL |
& + mult_kapredi * objf_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
489 |
ECCO_COST_FINAL |
& + mult_diffkr * objf_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
490 |
ECCO_COST_FINAL |
& + mult_ini_fin *(objf_theta_ini_fin(bi,bj) + |
|
./pkg/ecco/ecco_cost_final.F |
491 |
ECCO_COST_FINAL |
& objf_salt_ini_fin(bi,bj)) |
|
./pkg/ecco/ecco_cost_final.F |
492 |
ECCO_COST_FINAL |
& + mult_edtau * objf_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
493 |
ECCO_COST_FINAL |
& + mult_bottomdrag * objf_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
498 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
499 |
ECCO_COST_FINAL |
& + mult_obcsn * objf_obcsn(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
500 |
ECCO_COST_FINAL |
& + mult_obcss * objf_obcss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
501 |
ECCO_COST_FINAL |
& + mult_obcsw * objf_obcsw(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
502 |
ECCO_COST_FINAL |
& + mult_obcse * objf_obcse(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
504 |
ECCO_COST_FINAL |
& + mult_ageos * objf_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
510 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
512 |
ECCO_COST_FINAL |
& *objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
516 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
518 |
ECCO_COST_FINAL |
& *objf_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
523 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
525 |
ECCO_COST_FINAL |
& *objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
530 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
532 |
ECCO_COST_FINAL |
& *objf_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
537 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
539 |
ECCO_COST_FINAL |
& *objf_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
544 |
ECCO_COST_FINAL |
tile_fc(bi,bj) = tile_fc(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
546 |
ECCO_COST_FINAL |
& *objf_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
551 |
ECCO_COST_FINAL |
f_temp = f_temp + objf_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
552 |
ECCO_COST_FINAL |
f_salt = f_salt + objf_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
553 |
ECCO_COST_FINAL |
f_temp0 = f_temp0 + objf_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
554 |
ECCO_COST_FINAL |
f_salt0 = f_salt0 + objf_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
555 |
ECCO_COST_FINAL |
f_temp0smoo = f_temp0smoo + objf_temp0smoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
556 |
ECCO_COST_FINAL |
f_salt0smoo = f_salt0smoo + objf_salt0smoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
557 |
ECCO_COST_FINAL |
f_etan0 = f_etan0 + objf_etan0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
558 |
ECCO_COST_FINAL |
f_uvel0 = f_uvel0 + objf_uvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
559 |
ECCO_COST_FINAL |
f_vvel0 = f_vvel0 + objf_vvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
560 |
ECCO_COST_FINAL |
f_tauu = f_tauu + objf_tauu(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
561 |
ECCO_COST_FINAL |
f_tauum = f_tauum + objf_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
562 |
ECCO_COST_FINAL |
f_tauusmoo = f_tauusmoo + objf_tauusmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
563 |
ECCO_COST_FINAL |
f_tauv = f_tauv + objf_tauv(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
564 |
ECCO_COST_FINAL |
f_tauvm = f_tauvm + objf_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
565 |
ECCO_COST_FINAL |
f_tauvsmoo = f_tauvsmoo + objf_tauvsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
566 |
ECCO_COST_FINAL |
f_hflux = f_hflux + objf_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
567 |
ECCO_COST_FINAL |
f_hfluxsmoo = f_hfluxsmoo + objf_hfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
568 |
ECCO_COST_FINAL |
f_sflux = f_sflux + objf_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
569 |
ECCO_COST_FINAL |
f_sfluxsmoo = f_sfluxsmoo + objf_sfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
570 |
ECCO_COST_FINAL |
f_uwind = f_uwind + objf_uwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
571 |
ECCO_COST_FINAL |
f_vwind = f_vwind + objf_vwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
572 |
ECCO_COST_FINAL |
f_atemp = f_atemp + objf_atemp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
573 |
ECCO_COST_FINAL |
f_aqh = f_aqh + objf_aqh(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
574 |
ECCO_COST_FINAL |
f_precip = f_precip + objf_precip(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
575 |
ECCO_COST_FINAL |
f_swflux = f_swflux + objf_swflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
576 |
ECCO_COST_FINAL |
f_swdown = f_swdown + objf_swdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
577 |
ECCO_COST_FINAL |
f_lwflux = f_lwflux + objf_lwflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
578 |
ECCO_COST_FINAL |
f_lwdown = f_lwdown + objf_lwdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
579 |
ECCO_COST_FINAL |
f_uwindm = f_uwindm + objf_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
580 |
ECCO_COST_FINAL |
f_vwindm = f_vwindm + objf_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
581 |
ECCO_COST_FINAL |
f_atempm = f_atempm + objf_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
582 |
ECCO_COST_FINAL |
f_aqhm = f_aqhm + objf_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
583 |
ECCO_COST_FINAL |
f_precipm = f_precipm + objf_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
584 |
ECCO_COST_FINAL |
f_swfluxm = f_swfluxm + objf_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
585 |
ECCO_COST_FINAL |
f_swdownm = f_swdownm + objf_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
586 |
ECCO_COST_FINAL |
f_lwfluxm = f_lwfluxm + objf_lwfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
587 |
ECCO_COST_FINAL |
f_lwdownm = f_lwdownm + objf_lwdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
588 |
ECCO_COST_FINAL |
f_uwindsmoo = f_uwindsmoo + objf_uwindsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
589 |
ECCO_COST_FINAL |
f_vwindsmoo = f_vwindsmoo + objf_vwindsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
590 |
ECCO_COST_FINAL |
f_atempsmoo = f_atempsmoo + objf_atempsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
591 |
ECCO_COST_FINAL |
f_aqhsmoo = f_aqhsmoo + objf_aqhsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
592 |
ECCO_COST_FINAL |
f_precipsmoo = f_precipsmoo + objf_precipsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
593 |
ECCO_COST_FINAL |
f_swfluxsmoo = f_swfluxsmoo + objf_swfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
594 |
ECCO_COST_FINAL |
f_swdownsmoo = f_swdownsmoo + objf_swdownsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
595 |
ECCO_COST_FINAL |
f_lwfluxsmoo = f_lwfluxsmoo + objf_lwfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
596 |
ECCO_COST_FINAL |
f_lwdownsmoo = f_lwdownsmoo + objf_lwdownsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
597 |
ECCO_COST_FINAL |
f_ssh = f_ssh + objf_h(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
598 |
ECCO_COST_FINAL |
f_tp = f_tp + objf_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
599 |
ECCO_COST_FINAL |
f_ers = f_ers + objf_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
600 |
ECCO_COST_FINAL |
f_gfo = f_gfo + objf_gfo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
601 |
ECCO_COST_FINAL |
f_sst = f_sst + objf_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
602 |
ECCO_COST_FINAL |
f_tmi = f_tmi + objf_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
603 |
ECCO_COST_FINAL |
f_sss = f_sss + objf_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
604 |
ECCO_COST_FINAL |
f_bp = f_bp + objf_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
605 |
ECCO_COST_FINAL |
f_ies = f_ies + objf_ies(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
607 |
ECCO_COST_FINAL |
f_atl = f_atl + objf_atl(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
609 |
ECCO_COST_FINAL |
f_ctdt = f_ctdt + objf_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
610 |
ECCO_COST_FINAL |
f_ctds = f_ctds + objf_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
611 |
ECCO_COST_FINAL |
f_ctdtclim = f_ctdtclim + objf_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
612 |
ECCO_COST_FINAL |
f_ctdsclim = f_ctdsclim + objf_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
613 |
ECCO_COST_FINAL |
f_xbt = f_xbt + objf_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
614 |
ECCO_COST_FINAL |
f_argot = f_argot + objf_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
615 |
ECCO_COST_FINAL |
f_argos = f_argos + objf_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
616 |
ECCO_COST_FINAL |
f_drifter = f_drifter + objf_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
617 |
ECCO_COST_FINAL |
f_sdrift = f_sdrift + objf_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
618 |
ECCO_COST_FINAL |
f_tdrift = f_tdrift + objf_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
619 |
ECCO_COST_FINAL |
f_wdrift = f_wdrift + objf_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
61 |
ECCO_COST_FINAL |
integer bi,bj |
|
./pkg/ecco/ecco_cost_final.F |
620 |
ECCO_COST_FINAL |
f_scatx = f_scatx + objf_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
621 |
ECCO_COST_FINAL |
f_scaty = f_scaty + objf_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
622 |
ECCO_COST_FINAL |
f_scatxm = f_scatxm + objf_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
623 |
ECCO_COST_FINAL |
f_scatym = f_scatym + objf_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
624 |
ECCO_COST_FINAL |
f_curmtr = f_curmtr + objf_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
625 |
ECCO_COST_FINAL |
f_kapgm = f_kapgm + objf_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
626 |
ECCO_COST_FINAL |
f_kapredi = f_kapredi + objf_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
627 |
ECCO_COST_FINAL |
f_diffkr = f_diffkr + objf_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
629 |
ECCO_COST_FINAL |
& objf_theta_ini_fin(bi,bj) + objf_salt_ini_fin(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
630 |
ECCO_COST_FINAL |
f_eddytau = f_eddytau + objf_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
631 |
ECCO_COST_FINAL |
f_bottomdrag = f_bottomdrag + objf_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
635 |
ECCO_COST_FINAL |
f_obcsn = f_obcsn + objf_obcsn(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
636 |
ECCO_COST_FINAL |
f_obcss = f_obcss + objf_obcss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
637 |
ECCO_COST_FINAL |
f_obcsw = f_obcsw + objf_obcsw(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
638 |
ECCO_COST_FINAL |
f_obcse = f_obcse + objf_obcse(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
640 |
ECCO_COST_FINAL |
f_ageos = f_ageos + objf_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
647 |
ECCO_COST_FINAL |
& +objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
652 |
ECCO_COST_FINAL |
& +objf_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
658 |
ECCO_COST_FINAL |
& +objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
664 |
ECCO_COST_FINAL |
& +objf_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
670 |
ECCO_COST_FINAL |
& +objf_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
676 |
ECCO_COST_FINAL |
& +objf_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
681 |
ECCO_COST_FINAL |
no_temp = no_temp + num_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
682 |
ECCO_COST_FINAL |
no_salt = no_salt + num_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
683 |
ECCO_COST_FINAL |
no_temp0 = no_temp0 + num_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
684 |
ECCO_COST_FINAL |
no_salt0 = no_salt0 + num_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
685 |
ECCO_COST_FINAL |
no_etan0 = no_etan0 + num_etan0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
686 |
ECCO_COST_FINAL |
no_uvel0 = no_uvel0 + num_uvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
687 |
ECCO_COST_FINAL |
no_vvel0 = no_vvel0 + num_vvel0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
688 |
ECCO_COST_FINAL |
no_tauu = no_tauu + num_tauu(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
689 |
ECCO_COST_FINAL |
no_tauum = no_tauum + num_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
690 |
ECCO_COST_FINAL |
no_tauv = no_tauv + num_tauv(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
691 |
ECCO_COST_FINAL |
no_tauvm = no_tauvm + num_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
692 |
ECCO_COST_FINAL |
no_hflux= no_hflux + num_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
693 |
ECCO_COST_FINAL |
no_hfluxmm = no_hfluxmm + num_hfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
694 |
ECCO_COST_FINAL |
no_sflux= no_sflux + num_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
695 |
ECCO_COST_FINAL |
no_sfluxmm = no_sfluxmm + num_sfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
696 |
ECCO_COST_FINAL |
no_atemp = no_atemp + num_atemp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
697 |
ECCO_COST_FINAL |
no_aqh = no_aqh + num_aqh(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
698 |
ECCO_COST_FINAL |
no_precip = no_precip + num_precip(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
699 |
ECCO_COST_FINAL |
no_swflux = no_swflux + num_swflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
700 |
ECCO_COST_FINAL |
no_swdown = no_swdown + num_swdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
701 |
ECCO_COST_FINAL |
no_lwflux = no_lwflux + num_lwflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
702 |
ECCO_COST_FINAL |
no_lwdown = no_lwdown + num_lwdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
703 |
ECCO_COST_FINAL |
no_uwind = no_uwind + num_uwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
704 |
ECCO_COST_FINAL |
no_vwind = no_vwind + num_vwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
705 |
ECCO_COST_FINAL |
no_atempm = no_atempm + num_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
706 |
ECCO_COST_FINAL |
no_aqhm = no_aqhm + num_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
707 |
ECCO_COST_FINAL |
no_precipm = no_precipm + num_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
708 |
ECCO_COST_FINAL |
no_swfluxm = no_swfluxm + num_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
709 |
ECCO_COST_FINAL |
no_swdownm = no_swdownm + num_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
710 |
ECCO_COST_FINAL |
no_lwfluxm = no_lwfluxm + num_lwfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
711 |
ECCO_COST_FINAL |
no_lwdownm = no_lwdownm + num_lwdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
712 |
ECCO_COST_FINAL |
no_uwindm = no_uwindm + num_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
713 |
ECCO_COST_FINAL |
no_vwindm = no_vwindm + num_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
714 |
ECCO_COST_FINAL |
no_ssh = no_ssh + num_h(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
715 |
ECCO_COST_FINAL |
no_tp = no_tp + num_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
716 |
ECCO_COST_FINAL |
no_ers = no_ers + num_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
717 |
ECCO_COST_FINAL |
no_gfo = no_gfo + num_gfo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
718 |
ECCO_COST_FINAL |
no_sst = no_sst + num_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
719 |
ECCO_COST_FINAL |
no_tmi = no_tmi + num_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
720 |
ECCO_COST_FINAL |
no_sss = no_sss + num_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
721 |
ECCO_COST_FINAL |
no_bp = no_bp + num_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
722 |
ECCO_COST_FINAL |
no_ies = no_ies + num_ies(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
723 |
ECCO_COST_FINAL |
no_ctdt = no_ctdt + num_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
724 |
ECCO_COST_FINAL |
no_ctds = no_ctds + num_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
725 |
ECCO_COST_FINAL |
no_ctdtclim = no_ctdtclim + num_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
726 |
ECCO_COST_FINAL |
no_ctdsclim = no_ctdsclim + num_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
727 |
ECCO_COST_FINAL |
no_xbt = no_xbt + num_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
728 |
ECCO_COST_FINAL |
no_argot = no_argot + num_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
729 |
ECCO_COST_FINAL |
no_argos = no_argos + num_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
730 |
ECCO_COST_FINAL |
no_drifter = no_drifter + num_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
731 |
ECCO_COST_FINAL |
no_sdrift = no_sdrift + num_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
732 |
ECCO_COST_FINAL |
no_tdrift = no_tdrift + num_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
733 |
ECCO_COST_FINAL |
no_wdrift = no_wdrift + num_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
734 |
ECCO_COST_FINAL |
no_scatx = no_scatx + num_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
735 |
ECCO_COST_FINAL |
no_scaty = no_scaty + num_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
736 |
ECCO_COST_FINAL |
no_scatxm = no_scatxm + num_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
737 |
ECCO_COST_FINAL |
no_scatym = no_scatym + num_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
738 |
ECCO_COST_FINAL |
no_curmtr = no_curmtr + num_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
739 |
ECCO_COST_FINAL |
no_ageos = no_ageos + num_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
740 |
ECCO_COST_FINAL |
no_kapgm = no_kapgm + num_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
741 |
ECCO_COST_FINAL |
no_kapredi = no_kapredi + num_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
742 |
ECCO_COST_FINAL |
no_diffkr = no_diffkr + num_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
744 |
ECCO_COST_FINAL |
& num_theta_ini_fin(bi,bj) + num_salt_ini_fin(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
745 |
ECCO_COST_FINAL |
no_eddytau = no_eddytau + num_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
746 |
ECCO_COST_FINAL |
no_bottomdrag = no_bottomdrag + num_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
751 |
ECCO_COST_FINAL |
no_obcsn = no_obcsn + num_obcsn(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
752 |
ECCO_COST_FINAL |
no_obcss = no_obcss + num_obcss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
753 |
ECCO_COST_FINAL |
no_obcse = no_obcse + num_obcse(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
754 |
ECCO_COST_FINAL |
no_obcsw = no_obcsw + num_obcsw(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
760 |
ECCO_COST_FINAL |
& +num_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
765 |
ECCO_COST_FINAL |
& +num_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
771 |
ECCO_COST_FINAL |
& +num_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
777 |
ECCO_COST_FINAL |
& +num_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
783 |
ECCO_COST_FINAL |
& +num_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
789 |
ECCO_COST_FINAL |
& +num_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
135 |
ECCO_COST_INIT_BARFILES |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
139 |
ECCO_COST_INIT_BARFILES |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
144 |
ECCO_COST_INIT_BARFILES |
do bj = jtlo,jthi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
149 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
59 |
ECCO_COST_INIT_BARFILES |
integer bi,bj |
|
./pkg/ecco/ecco_cost_init_fixed.F |
73 |
ECCO_COST_INIT_FIXED |
integer bi,bj |