| File |
Line number |
Procedure |
Code |
|
./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/fizhi/do_fizhi.F |
170 |
DO_FIZHI |
xlats(i,j) = lats(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
171 |
DO_FIZHI |
xlons(i,j) = lons(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
172 |
DO_FIZHI |
surfZ(i,j) = Zsurf(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
183 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./pkg/fizhi/do_fizhi.F |
193 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
194 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
195 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
196 |
DO_FIZHI |
sea_ice(i,j) = sice(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
197 |
DO_FIZHI |
raincon(i,j) = rainconin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
198 |
DO_FIZHI |
rainlsp(i,j) = rainlspin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
199 |
DO_FIZHI |
snowfall(i,j) = snowfallin(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
205 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
206 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
209 |
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 |
210 |
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 |
211 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
212 |
DO_FIZHI |
if (ple(i,j,L,bi,bj).gt.0.) then |
|
./pkg/fizhi/do_fizhi.F |
213 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
215 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
217 |
DO_FIZHI |
cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
218 |
DO_FIZHI |
cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
219 |
DO_FIZHI |
cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
220 |
DO_FIZHI |
lwlz(i,j,L) = lwlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
221 |
DO_FIZHI |
qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
222 |
DO_FIZHI |
fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
223 |
DO_FIZHI |
cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
224 |
DO_FIZHI |
cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
225 |
DO_FIZHI |
cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
226 |
DO_FIZHI |
swlz(i,j,L) = swlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
227 |
DO_FIZHI |
qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
228 |
DO_FIZHI |
fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
233 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
. pkl(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
236 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
. xlons,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 |
238 |
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 |
239 |
DO_FIZHI |
. fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
240 |
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 |
241 |
DO_FIZHI |
. chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
242 |
DO_FIZHI |
. chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
243 |
DO_FIZHI |
. ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
244 |
DO_FIZHI |
. swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
245 |
DO_FIZHI |
. ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
246 |
DO_FIZHI |
. xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
247 |
DO_FIZHI |
. albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
248 |
DO_FIZHI |
. albnirdf(1,1,bi,bj),emiss(1,1,1,bi,bj),alai(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
249 |
DO_FIZHI |
. agrn(1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
250 |
DO_FIZHI |
. qstr(1,1,1,bi,bj),o3(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
252 |
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 |
253 |
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 |
254 |
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 |
255 |
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 |
256 |
DO_FIZHI |
. radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
257 |
DO_FIZHI |
. fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
258 |
DO_FIZHI |
. tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
259 |
DO_FIZHI |
. st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
260 |
DO_FIZHI |
. rainlsp,raincon,snowfall,iras(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
261 |
DO_FIZHI |
. nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz, |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
. nswcld(bi,bj),cldtot_sw,cldras_sw,cldlsp_sw,nswlz(bi,bj),swlz, |
|
./pkg/fizhi/do_fizhi.F |
263 |
DO_FIZHI |
. imstturbsw(bi,bj),imstturblw(bi,bj),qliqavesw,qliqavelw, |
|
./pkg/fizhi/do_fizhi.F |
264 |
DO_FIZHI |
. fccavesw,fccavelw,qq(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
269 |
DO_FIZHI |
cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
270 |
DO_FIZHI |
cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
271 |
DO_FIZHI |
cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
272 |
DO_FIZHI |
lwlzin(i,j,L,bi,bj) = lwlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
273 |
DO_FIZHI |
qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
274 |
DO_FIZHI |
fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
275 |
DO_FIZHI |
cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
276 |
DO_FIZHI |
cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
277 |
DO_FIZHI |
cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
278 |
DO_FIZHI |
swlzin(i,j,L,bi,bj) = swlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
279 |
DO_FIZHI |
qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
280 |
DO_FIZHI |
fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
287 |
DO_FIZHI |
rainconin(i,j,bi,bj) = raincon(i,j) |
|
./pkg/fizhi/do_fizhi.F |
288 |
DO_FIZHI |
rainlspin(i,j,bi,bj) = rainlsp(i,j) |
|
./pkg/fizhi/do_fizhi.F |
289 |
DO_FIZHI |
snowfallin(i,j,bi,bj) = snowfall(i,j) |
|
./pkg/fizhi/do_fizhi.F |
298 |
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 |
299 |
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 |
300 |
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 |
301 |
DO_FIZHI |
. lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/do_fizhi.F |
302 |
DO_FIZHI |
. dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/do_fizhi.F |
303 |
DO_FIZHI |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
304 |
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 |
305 |
DO_FIZHI |
. /p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
314 |
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, |
|
./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/fizhi/fizhi_driver.F |
162 |
FIZHI_DRIVER |
call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
185 |
FIZHI_DRIVER |
call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
200 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb,nltop, |
|
./pkg/fizhi/fizhi_driver.F |
218 |
FIZHI_DRIVER |
. turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_driver.F |
224 |
FIZHI_DRIVER |
. bi,bj,rfu,rfv,rft) |
|
./pkg/fizhi/fizhi_driver.F |
244 |
FIZHI_DRIVER |
. p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
|
./pkg/fizhi/fizhi_driver.F |
51 |
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 |
110 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
154 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
86 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
159 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(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 |
252 |
FIZHI_INIT_VARS |
imstturblw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
253 |
FIZHI_INIT_VARS |
imstturbsw(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
254 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
nlwcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
nlwlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
nswcld(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
nswlz(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_vars.F |
262 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
266 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
267 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
268 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
269 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
270 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
271 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
279 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
280 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
281 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_init_vars.F |
60 |
FIZHI_INIT_VARS |
integer i, j, L, bi, bj, Lbotij |
|
./pkg/fizhi/fizhi_init_vars.F |
97 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
biglobal=bi+(myXGlobalLo-1)/im |
|
./pkg/fizhi/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
147 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_veg.F |
151 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
152 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
153 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
156 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
157 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
158 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
166 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
176 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
177 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
178 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
184 |
FIZHI_INIT_VEG |
print *,'No of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
185 |
FIZHI_INIT_VEG |
print *,'No of Land Tiles for bi=',bi,': ',nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
72 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj,ierr1,kveg |
|
./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 |
84 |
FIZHI_INIT_VEGSURFTILES |
DO bi = myBxLo(myThid), myBxHi(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 |
90 |
FIZHI_INIT_VEGSURFTILES |
bislot = myXGlobalLo-1+(bi-1)*sNx |
|
./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 |
203 |
MOISTIO |
if(first .and. myid.eq.1 .and. bi.eq.1 ) then |
|
./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 |
75 |
FIZHI_READ_PICKUP |
do bi = 1,myBxLo(myThid), myBxHi(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 |
112 |
FIZHI_WRITE_VEGTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
115 |
FIZHI_WRITE_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
119 |
FIZHI_WRITE_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
|
./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 |
367 |
FIZHI_READ_VEGTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
370 |
FIZHI_READ_VEGTILES |
tn = W2_myTileList(bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
374 |
FIZHI_READ_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
|
./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 |
100 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
108 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
111 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
119 |
FIZHI_STEP_DIAG |
if(radswt(i,j,bi,bj).ne.0.) then |
|
./pkg/fizhi/fizhi_step_diag.F |
120 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = osr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
126 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
134 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = st4(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
135 |
FIZHI_STEP_DIAG |
. + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
138 |
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 |
146 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radlwg(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
147 |
FIZHI_STEP_DIAG |
. dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
150 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
158 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = lwgclr(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
159 |
FIZHI_STEP_DIAG |
. dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_step_diag.F |
162 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
173 |
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 |
176 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
184 |
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 |
187 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
196 |
FIZHI_STEP_DIAG |
. ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
197 |
FIZHI_STEP_DIAG |
. lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
198 |
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 |
199 |
FIZHI_STEP_DIAG |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
200 |
FIZHI_STEP_DIAG |
. * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
203 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
212 |
FIZHI_STEP_DIAG |
. ( turbq(i,j,L,1,bi,bj) + moistq(i,j,L,1,bi,bj) ) * |
|
./pkg/fizhi/fizhi_step_diag.F |
216 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
225 |
FIZHI_STEP_DIAG |
. ( lwdt(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
226 |
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 |
227 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
230 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
239 |
FIZHI_STEP_DIAG |
. ( lwdtclr(i,j,l,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
240 |
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 |
241 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
244 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
253 |
FIZHI_STEP_DIAG |
. + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
254 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
257 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
266 |
FIZHI_STEP_DIAG |
. + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
267 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
270 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
281 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'UWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
292 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
300 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
303 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TMPU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
311 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qq(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
314 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TKE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
325 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SPHU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
344 |
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 |
353 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
368 |
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 |
377 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
391 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
392 |
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 |
393 |
FIZHI_STEP_DIAG |
. *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
402 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
417 |
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 |
424 |
FIZHI_STEP_DIAG |
. radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
427 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
443 |
FIZHI_STEP_DIAG |
. sphy(i,j,L)*dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
452 |
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 |
61 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
67 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(radswt,'RADSWT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
75 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
78 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
86 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
89 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
97 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./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 |
107 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
126 |
FIZHI_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
127 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
181 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
203 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
204 |
FIZHI_TENDENCY_APPLY_T |
. *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
207 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
208 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
209 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
210 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
211 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
221 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
222 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
224 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
225 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
236 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
237 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
238 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
239 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
240 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
241 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
276 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
288 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
289 |
FIZHI_TENDENCY_APPLY_S |
. *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
296 |
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 |
300 |
FIZHI_TENDENCY_APPLY_S |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
51 |
FIZHI_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
52 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
65 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
72 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
75 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_turb.F |
100 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1025 |
TURBIO |
. .false., 'EVAP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1032 |
TURBIO |
. .false., 'EFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1039 |
TURBIO |
. .false., 'HFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1043 |
TURBIO |
. .false., 'TUFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1047 |
TURBIO |
. .false., 'TVFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1056 |
TURBIO |
. .false., 'TTFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1065 |
TURBIO |
. .false., 'TQFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1069 |
TURBIO |
. .false., 'RI ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1073 |
TURBIO |
. .false., 'KH ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1077 |
TURBIO |
. .false., 'KM ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1081 |
TURBIO |
. .false., 'CT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1085 |
TURBIO |
. .false., 'CU ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1089 |
TURBIO |
. .false., 'WINDS ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1093 |
TURBIO |
. nn,.false., 'UFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1097 |
TURBIO |
. nn,.false., 'VFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1101 |
TURBIO |
. .false., 'USTAR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1105 |
TURBIO |
. .false., 'Z0 ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1109 |
TURBIO |
. .false., 'FRQTRB ', 0, nlay-1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1113 |
TURBIO |
. .false., 'PBL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1117 |
TURBIO |
. .false., 'U2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1121 |
TURBIO |
. .false., 'V2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1125 |
TURBIO |
. .false., 'T2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1136 |
TURBIO |
. .false., 'Q2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1140 |
TURBIO |
. .false., 'U10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1144 |
TURBIO |
. .false., 'V10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1148 |
TURBIO |
. .false., 'T10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1159 |
TURBIO |
. .false., 'Q10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1168 |
TURBIO |
. .false., 'TDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1172 |
TURBIO |
. .false., 'QCANOPY ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1176 |
TURBIO |
. .false., 'SMSHAL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1180 |
TURBIO |
. .false., 'SMROOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1184 |
TURBIO |
. .false., 'SMDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1188 |
TURBIO |
. .false., 'CAPACITY', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
. .false., 'SNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1295 |
TURBIO |
CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1297 |
TURBIO |
& 'TRBQLIQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1317 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1320 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1331 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1335 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'DTG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1343 |
TURBIO |
& 'TURBV ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1345 |
TURBIO |
& 'TURBU ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1348 |
TURBIO |
& 'TURBQ ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1389 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
341 |
TURBIO |
if( myid.eq.1 .and. bi.eq.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
366 |
TURBIO |
& 'DTG ',0,1,-3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
590 |
TURBIO |
. .false., 'QG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
5 |
TURBIO |
subroutine TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj |
|
./pkg/fizhi/fizhi_turb.F |
640 |
TURBIO |
. .false., 'DTSRF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
730 |
TURBIO |
. .false., 'SNOWFALL', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
737 |
TURBIO |
. .false., 'RAINCON ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
744 |
TURBIO |
. .false., 'RAINLSP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
748 |
TURBIO |
. .false., 'GREEN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
752 |
TURBIO |
. .false., 'LAI ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
756 |
TURBIO |
. .false., 'PARDR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
760 |
TURBIO |
. .false., 'PARDF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
764 |
TURBIO |
. .false., 'DLWDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
768 |
TURBIO |
. .false., 'DHDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
772 |
TURBIO |
. .false., 'DEDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
776 |
TURBIO |
. .false., 'DHDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
780 |
TURBIO |
. .false., 'DEDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
784 |
TURBIO |
. .false., 'LWGDOWN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
821 |
TURBIO |
. .false., 'RUNOFF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
825 |
TURBIO |
. .false., 'FWSOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
829 |
TURBIO |
. .false., 'GDRAIN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
833 |
TURBIO |
. .false., 'SNOWMELT', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
837 |
TURBIO |
. .false., 'EVEG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
841 |
TURBIO |
. .false., 'ESNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
845 |
TURBIO |
. .false., 'ESOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
849 |
TURBIO |
. .false., 'ERESV ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
853 |
TURBIO |
. .false., 'EVPOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
857 |
TURBIO |
. .false., 'DTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
861 |
TURBIO |
. .false., 'DQC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
865 |
TURBIO |
. .false., 'TCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
869 |
TURBIO |
. .false., 'RADDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
873 |
TURBIO |
. .false., 'SENSDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
877 |
TURBIO |
. .false., 'LATDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
881 |
TURBIO |
. .false., 'TDDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
885 |
TURBIO |
. .false., 'QCDTC ', 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 |
114 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
135 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
157 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
210 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
228 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
262 |
FIZHI_WRAPPER |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
282 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
289 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
294 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
298 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
303 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
307 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
312 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
316 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
321 |
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 |
72 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
93 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(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 |
53 |
FIZHI_WRITE_PICKUP |
do bi = 1,myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_write_pickup.F |
92 |
FIZHI_WRITE_PICKUP |
do bi = myBxLo(myThid), myBxHi(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 |
134 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
189 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
214 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
259 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
279 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
342 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
424 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
470 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
474 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
476 |
STEP_FIZHI_CORR |
. gsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
489 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
497 |
STEP_FIZHI_CORR |
sphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
498 |
STEP_FIZHI_CORR |
. ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
499 |
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 |
76 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(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 |
44 |
STEP_FIZHI_FG |
do bi = myBxLo(myThid), myBxHi(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 |
52 |
STEP_FIZHI_FG |
print *,' In step fizhi fg, new fizhi fields ',bi,' dt= ',dt |
|
./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 |
91 |
STEP_FIZHI_FG |
print *,' In step fizhi fg after qcheck ',bi |
|
./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 |
50 |
UPDATE_CHEMISTRY_EXPORTS |
do bi = myBxLo(myThid), myBxHi(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 |
1003 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1018 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
103 |
UPDATE_EARTH_EXPORTS |
& nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/update_earth_exports.F |
113 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
1205 |
GET_LANDFRAC |
subroutine GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1214 |
GET_LANDFRAC |
integer im,jm,nSx,nSy,bi,bj,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
1231 |
GET_LANDFRAC |
& (tilefrac(i,j,k,bi,bj).gt.0.0))then |
|
./pkg/fizhi/update_earth_exports.F |
1232 |
GET_LANDFRAC |
frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
128 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
129 |
UPDATE_EARTH_EXPORTS |
tmpchp(i) = tcanopy(i,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
131 |
UPDATE_EARTH_EXPORTS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp, |
|
./pkg/fizhi/update_earth_exports.F |
132 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
135 |
UPDATE_EARTH_EXPORTS |
tgz(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
136 |
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 |
137 |
UPDATE_EARTH_EXPORTS |
& tgz(i,j,bi,bj) = sst(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
41 |
UPDATE_EARTH_EXPORTS |
integer i, j, n, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
62 |
UPDATE_EARTH_EXPORTS |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/update_earth_exports.F |
65 |
UPDATE_EARTH_EXPORTS |
lons(i,j) = xC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
66 |
UPDATE_EARTH_EXPORTS |
lats(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
697 |
GETLGR |
& nSx,nSy,bi,bj,ALAI,AGRN) |
|
./pkg/fizhi/update_earth_exports.F |
707 |
GETLGR |
integer sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
70 |
UPDATE_EARTH_EXPORTS |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac, |
|
./pkg/fizhi/update_earth_exports.F |
75 |
UPDATE_EARTH_EXPORTS |
if(sice(i,j,bi,bj).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
794 |
GETLGR |
IF(ALAT(I,bi,bj).GT.0.) THEN |
|
./pkg/fizhi/update_earth_exports.F |
802 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
803 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
804 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
805 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
813 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
854 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
881 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
882 |
GETALB |
ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
883 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
884 |
GETALB |
ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
894 |
GETALB |
call SIBALB(avisdr,anirdr,avisdf,anirdf,alai(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
895 |
GETALB |
& agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
89 |
UPDATE_EARTH_EXPORTS |
& nchp,nSx,nSy,bi,bj,alai,agrn ) |
|
./pkg/fizhi/update_earth_exports.F |
901 |
GETALB |
tmpij(i,j) = albvr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
909 |
GETALB |
albvr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
914 |
GETALB |
tmpij(i,j) = albvf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
917 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
921 |
GETALB |
albvf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
926 |
GETALB |
tmpij(i,j) = albnr(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
929 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
933 |
GETALB |
albnr(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
938 |
GETALB |
tmpij(i,j) = albnf(i,j,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
941 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
945 |
GETALB |
albnf(i,j,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
952 |
GETEMISS |
subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
983 |
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 |
85 |
UPDATE_OCEAN_EXPORTS |
bislot = myXGlobalLo-1+(bi-1)*sNx |
|
./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 |
105 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
108 |
EXCH2_RL_RECV_GET_VEC |
CALL MPI_RECV( array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_recv_get_vec.F |
117 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
59 |
EXCH2_RL_RECV_GET_VEC |
INTEGER bi, bj |
|
./pkg/flt/exch2_recv_get_vec.F |
81 |
EXCH2_RL_RECV_GET_VEC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch2_recv_get_vec.F |
83 |
EXCH2_RL_RECV_GET_VEC |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_recv_get_vec.F |
93 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
95 |
EXCH2_RL_RECV_GET_VEC |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
106 |
EXCH2_RL_SEND_PUT_VEC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch2_send_put_vec.F |
108 |
EXCH2_RL_SEND_PUT_VEC |
thisTile = W2_myTileList(bi,bj) |
|
./pkg/flt/exch2_send_put_vec.F |
118 |
EXCH2_RL_SEND_PUT_VEC |
IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
130 |
EXCH2_RL_SEND_PUT_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_send_put_vec.F |
133 |
EXCH2_RL_SEND_PUT_VEC |
CALL MPI_ISEND(array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_send_put_vec.F |
135 |
EXCH2_RL_SEND_PUT_VEC |
& theHandle(1,nN,bi,bj), mpiRc) |
|
./pkg/flt/exch2_send_put_vec.F |
141 |
EXCH2_RL_SEND_PUT_VEC |
ELSEIF ( W2_myCommFlag(nN,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/exch2_send_put_vec.F |
152 |
EXCH2_RL_SEND_PUT_VEC |
bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir) |
|
./pkg/flt/exch2_send_put_vec.F |
69 |
EXCH2_RL_SEND_PUT_VEC |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
101 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
104 |
EXCH_RL_RECV_GET_VEC_X |
CALL MPI_RECV( arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
122 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
129 |
EXCH_RL_RECV_GET_VEC_X |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
130 |
EXCH_RL_RECV_GET_VEC_X |
theTag = _tileTagRecvE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
137 |
EXCH_RL_RECV_GET_VEC_X |
CALL MPI_RECV( arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
146 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
162 |
EXCH_RL_RECV_GET_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
164 |
EXCH_RL_RECV_GET_VEC_X |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
165 |
EXCH_RL_RECV_GET_VEC_X |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
167 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
168 |
EXCH_RL_RECV_GET_VEC_X |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
174 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
175 |
EXCH_RL_RECV_GET_VEC_X |
& westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
180 |
EXCH_RL_RECV_GET_VEC_X |
IF ( westRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
181 |
EXCH_RL_RECV_GET_VEC_X |
IF ( eastRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
183 |
EXCH_RL_RECV_GET_VEC_X |
westRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
184 |
EXCH_RL_RECV_GET_VEC_X |
eastRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
186 |
EXCH_RL_RECV_GET_VEC_X |
IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
191 |
EXCH_RL_RECV_GET_VEC_X |
CALL MPI_WAITALL( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
199 |
EXCH_RL_RECV_GET_VEC_X |
exchNReqsX(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
254 |
EXCH_RL_RECV_GET_VEC_Y |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
278 |
EXCH_RL_RECV_GET_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
279 |
EXCH_RL_RECV_GET_VEC_Y |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
280 |
EXCH_RL_RECV_GET_VEC_Y |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
282 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
293 |
EXCH_RL_RECV_GET_VEC_Y |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
294 |
EXCH_RL_RECV_GET_VEC_Y |
theTag = _tileTagRecvS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
297 |
EXCH_RL_RECV_GET_VEC_Y |
CALL MPI_RECV( arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
306 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
313 |
EXCH_RL_RECV_GET_VEC_Y |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
314 |
EXCH_RL_RECV_GET_VEC_Y |
theTag = _tileTagRecvN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
317 |
EXCH_RL_RECV_GET_VEC_Y |
CALL MPI_RECV( arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_recv_get_vec.F |
326 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
342 |
EXCH_RL_RECV_GET_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
344 |
EXCH_RL_RECV_GET_VEC_Y |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
345 |
EXCH_RL_RECV_GET_VEC_Y |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
347 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
348 |
EXCH_RL_RECV_GET_VEC_Y |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
354 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
355 |
EXCH_RL_RECV_GET_VEC_Y |
& southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount |
|
./pkg/flt/exch_recv_get_vec.F |
360 |
EXCH_RL_RECV_GET_VEC_Y |
IF ( southRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
361 |
EXCH_RL_RECV_GET_VEC_Y |
IF ( northRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10 |
|
./pkg/flt/exch_recv_get_vec.F |
363 |
EXCH_RL_RECV_GET_VEC_Y |
southRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
364 |
EXCH_RL_RECV_GET_VEC_Y |
northRecvAck(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
366 |
EXCH_RL_RECV_GET_VEC_Y |
IF ( exchNReqsY(1,bi,bj) .GT. 0 ) THEN |
|
./pkg/flt/exch_recv_get_vec.F |
371 |
EXCH_RL_RECV_GET_VEC_Y |
CALL MPI_WAITALL( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj), |
|
./pkg/flt/exch_recv_get_vec.F |
379 |
EXCH_RL_RECV_GET_VEC_Y |
exchNReqsY(1,bi,bj) = 0 |
|
./pkg/flt/exch_recv_get_vec.F |
57 |
EXCH_RL_RECV_GET_VEC_X |
INTEGER bi, bj |
|
./pkg/flt/exch_recv_get_vec.F |
81 |
EXCH_RL_RECV_GET_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_recv_get_vec.F |
82 |
EXCH_RL_RECV_GET_VEC_X |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
83 |
EXCH_RL_RECV_GET_VEC_X |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
85 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
96 |
EXCH_RL_RECV_GET_VEC_X |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_recv_get_vec.F |
97 |
EXCH_RL_RECV_GET_VEC_X |
theTag = _tileTagRecvW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
105 |
EXCH_RL_SEND_PUT_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
107 |
EXCH_RL_SEND_PUT_VEC_X |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
108 |
EXCH_RL_SEND_PUT_VEC_X |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
109 |
EXCH_RL_SEND_PUT_VEC_X |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
110 |
EXCH_RL_SEND_PUT_VEC_X |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
111 |
EXCH_RL_SEND_PUT_VEC_X |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
112 |
EXCH_RL_SEND_PUT_VEC_X |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
121 |
EXCH_RL_SEND_PUT_VEC_X |
theProc = tilePidW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
122 |
EXCH_RL_SEND_PUT_VEC_X |
theTag = _tileTagSendW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
125 |
EXCH_RL_SEND_PUT_VEC_X |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
127 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
128 |
EXCH_RL_SEND_PUT_VEC_X |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
129 |
EXCH_RL_SEND_PUT_VEC_X |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
131 |
EXCH_RL_SEND_PUT_VEC_X |
CALL MPI_ISEND(arrayW(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
133 |
EXCH_RL_SEND_PUT_VEC_X |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc) |
|
./pkg/flt/exch_send_put_vec.F |
142 |
EXCH_RL_SEND_PUT_VEC_X |
bufRecE(I,biW,bjW) = arrayW(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
155 |
EXCH_RL_SEND_PUT_VEC_X |
theProc = tilePidE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
156 |
EXCH_RL_SEND_PUT_VEC_X |
theTag = _tileTagSendE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
159 |
EXCH_RL_SEND_PUT_VEC_X |
exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
164 |
EXCH_RL_SEND_PUT_VEC_X |
& theProc,theTag, exchNReqsX(1,bi,bj), |
|
./pkg/flt/exch_send_put_vec.F |
165 |
EXCH_RL_SEND_PUT_VEC_X |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize |
|
./pkg/flt/exch_send_put_vec.F |
169 |
EXCH_RL_SEND_PUT_VEC_X |
CALL MPI_ISEND(arrayE(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
171 |
EXCH_RL_SEND_PUT_VEC_X |
& exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), mpiRc) |
|
./pkg/flt/exch_send_put_vec.F |
180 |
EXCH_RL_SEND_PUT_VEC_X |
bufRecW(I,biE,bjE) = arrayE(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
199 |
EXCH_RL_SEND_PUT_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
200 |
EXCH_RL_SEND_PUT_VEC_X |
biE = _tileBiE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
201 |
EXCH_RL_SEND_PUT_VEC_X |
bjE = _tileBjE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
202 |
EXCH_RL_SEND_PUT_VEC_X |
biW = _tileBiW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
203 |
EXCH_RL_SEND_PUT_VEC_X |
bjW = _tileBjW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
204 |
EXCH_RL_SEND_PUT_VEC_X |
westCommMode = _tileCommModeW(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
205 |
EXCH_RL_SEND_PUT_VEC_X |
eastCommMode = _tileCommModeE(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
284 |
EXCH_RL_SEND_PUT_VEC_Y |
INTEGER bi, bj, biS, bjS, biN, bjN |
|
./pkg/flt/exch_send_put_vec.F |
323 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
325 |
EXCH_RL_SEND_PUT_VEC_Y |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
326 |
EXCH_RL_SEND_PUT_VEC_Y |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
327 |
EXCH_RL_SEND_PUT_VEC_Y |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
328 |
EXCH_RL_SEND_PUT_VEC_Y |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
329 |
EXCH_RL_SEND_PUT_VEC_Y |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
330 |
EXCH_RL_SEND_PUT_VEC_Y |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
339 |
EXCH_RL_SEND_PUT_VEC_Y |
theProc = tilePidS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
340 |
EXCH_RL_SEND_PUT_VEC_Y |
theTag = _tileTagSendS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
343 |
EXCH_RL_SEND_PUT_VEC_Y |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
344 |
EXCH_RL_SEND_PUT_VEC_Y |
CALL MPI_ISEND(arrayS(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
346 |
EXCH_RL_SEND_PUT_VEC_Y |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), mpiRc) |
|
./pkg/flt/exch_send_put_vec.F |
355 |
EXCH_RL_SEND_PUT_VEC_Y |
bufRecN(I,biS,bjS) = arrayS(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
368 |
EXCH_RL_SEND_PUT_VEC_Y |
theProc = tilePidN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
369 |
EXCH_RL_SEND_PUT_VEC_Y |
theTag = _tileTagSendN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
372 |
EXCH_RL_SEND_PUT_VEC_Y |
exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1 |
|
./pkg/flt/exch_send_put_vec.F |
373 |
EXCH_RL_SEND_PUT_VEC_Y |
CALL MPI_ISEND(arrayN(1,bi,bj), theSize, theType, |
|
./pkg/flt/exch_send_put_vec.F |
375 |
EXCH_RL_SEND_PUT_VEC_Y |
& exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj), mpiRc) |
|
./pkg/flt/exch_send_put_vec.F |
384 |
EXCH_RL_SEND_PUT_VEC_Y |
bufRecS(I,biN,bjN) = arrayN(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
403 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/exch_send_put_vec.F |
404 |
EXCH_RL_SEND_PUT_VEC_Y |
biN = _tileBiN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
405 |
EXCH_RL_SEND_PUT_VEC_Y |
bjN = _tileBjN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
406 |
EXCH_RL_SEND_PUT_VEC_Y |
biS = _tileBiS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
407 |
EXCH_RL_SEND_PUT_VEC_Y |
bjS = _tileBjS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
408 |
EXCH_RL_SEND_PUT_VEC_Y |
southCommMode = _tileCommModeS(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
409 |
EXCH_RL_SEND_PUT_VEC_Y |
northCommMode = _tileCommModeN(bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
63 |
EXCH_RL_SEND_PUT_VEC_X |
INTEGER bi, bj, biW, bjW, biE, bjE |
|
./pkg/flt/flt_down.F |
30 |
FLT_DOWN |
INTEGER bi, bj |
|
./pkg/flt/flt_down.F |
36 |
FLT_DOWN |
DO bi=myBxLo(myThid),myBxHi(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 |
106 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
109 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
110 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
112 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
113 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exch2.F |
118 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
119 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
120 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_EAST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
121 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = iNew |
|
./pkg/flt/flt_exch2.F |
122 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
123 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_EAST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
124 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
125 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
126 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_EAST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
127 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
132 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
138 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
139 |
FLT_EXCH2 |
& .AND. ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
141 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
142 |
FLT_EXCH2 |
ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exch2.F |
148 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
150 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = iNew |
|
./pkg/flt/flt_exch2.F |
151 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
152 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
155 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
161 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
169 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
176 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
187 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exch2.F |
189 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
190 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
194 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
195 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
196 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
197 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
198 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
199 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
200 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
201 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
202 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
205 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
219 |
FLT_EXCH2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
221 |
FLT_EXCH2 |
IF ( npart(ip,bi,bj).NE.0 ) THEN |
|
./pkg/flt/flt_exch2.F |
224 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
225 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
227 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
228 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exch2.F |
233 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
234 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
235 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_NORTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
236 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
237 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jNew |
|
./pkg/flt/flt_exch2.F |
238 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_NORTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
239 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
241 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_NORTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
247 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
258 |
FLT_EXCH2 |
& (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.) |
|
./pkg/flt/flt_exch2.F |
259 |
FLT_EXCH2 |
& .AND. jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
261 |
FLT_EXCH2 |
tend(ip,bi,bj) = flt_stopped |
|
./pkg/flt/flt_exch2.F |
262 |
FLT_EXCH2 |
ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exch2.F |
267 |
FLT_EXCH2 |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
268 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
269 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_SOUTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
270 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
271 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jNew |
|
./pkg/flt/flt_exch2.F |
272 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_SOUTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
273 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
274 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
275 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_SOUTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
276 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
281 |
FLT_EXCH2 |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exch2.F |
296 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
303 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
314 |
FLT_EXCH2 |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exch2.F |
316 |
FLT_EXCH2 |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
317 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
321 |
FLT_EXCH2 |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
322 |
FLT_EXCH2 |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
323 |
FLT_EXCH2 |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
324 |
FLT_EXCH2 |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
325 |
FLT_EXCH2 |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
326 |
FLT_EXCH2 |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
327 |
FLT_EXCH2 |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
328 |
FLT_EXCH2 |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exch2.F |
332 |
FLT_EXCH2 |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exch2.F |
361 |
FLT_EXCH2 |
DO bi=1,nSx |
|
./pkg/flt/flt_exch2.F |
362 |
FLT_EXCH2 |
nT=W2_myTileList(bi,bj) |
|
./pkg/flt/flt_exch2.F |
372 |
FLT_EXCH2 |
IF ( W2_myCommFlag(N,bi,bj) .EQ. 'M' ) THEN |
|
./pkg/flt/flt_exch2.F |
373 |
FLT_EXCH2 |
wHandle = e2_msgHandles(1,N,bi,bj) |
|
./pkg/flt/flt_exch2.F |
375 |
FLT_EXCH2 |
ELSEIF ( W2_myCommFlag(N,bi,bj) .EQ. 'P' ) THEN |
|
./pkg/flt/flt_exch2.F |
386 |
FLT_EXCH2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exch2.F |
391 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_EAST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
392 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
393 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
395 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
396 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
397 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
399 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
400 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
401 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
402 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
403 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
408 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
410 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
411 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
420 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
422 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
424 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
437 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
439 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
440 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
449 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_NORTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
44 |
FLT_EXCH2 |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exch2.F |
450 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
451 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
453 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
454 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
455 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
457 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
458 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
459 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
460 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
461 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
466 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
468 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
469 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
478 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_SOUTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
479 |
FLT_EXCH2 |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exch2.F |
480 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exch2.F |
482 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
483 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
484 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
486 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
487 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
488 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
489 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
490 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
495 |
FLT_EXCH2 |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exch2.F |
497 |
FLT_EXCH2 |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exch2.F |
498 |
FLT_EXCH2 |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exch2.F |
83 |
FLT_EXCH2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exch2.F |
84 |
FLT_EXCH2 |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_exch2.F |
90 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
91 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exchg.F |
103 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).LT.ilo ) THEN |
|
./pkg/flt/flt_exchg.F |
108 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
109 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
110 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
111 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
112 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
115 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
117 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
122 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
130 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
137 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
148 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountE+icountW) |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
151 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
155 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
156 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
157 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
158 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
159 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
160 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
161 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
162 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
163 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
166 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
195 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exchg.F |
200 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
201 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
202 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
203 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
204 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
205 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
206 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
207 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
208 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
209 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
210 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
211 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
212 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
217 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
219 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
220 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
229 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
230 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
231 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
232 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
233 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
234 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
235 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
236 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
237 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
238 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
239 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
240 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
241 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
248 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
288 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
290 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).GE.jhi ) THEN |
|
./pkg/flt/flt_exchg.F |
295 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) - DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
296 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
297 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
298 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
299 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
300 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
301 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
302 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
303 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
304 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
309 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
319 |
FLT_EXCHG |
IF ( jpart(ip,bi,bj).LT.jlo ) THEN |
|
./pkg/flt/flt_exchg.F |
324 |
FLT_EXCHG |
jNew = jpart(ip,bi,bj) + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
325 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
326 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
327 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
328 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
329 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
330 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
331 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
332 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
333 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
338 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
33 |
FLT_EXCHG |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
358 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
369 |
FLT_EXCHG |
npNew = npart_tile(bi,bj) - (icountN+icountS) |
|
./pkg/flt/flt_exchg.F |
371 |
FLT_EXCHG |
DO jp = npNew+1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
372 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
376 |
FLT_EXCHG |
npart (ip,bi,bj) = npart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
377 |
FLT_EXCHG |
tstart(ip,bi,bj) = tstart(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
378 |
FLT_EXCHG |
ipart (ip,bi,bj) = ipart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
379 |
FLT_EXCHG |
jpart (ip,bi,bj) = jpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
380 |
FLT_EXCHG |
kpart (ip,bi,bj) = kpart (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
381 |
FLT_EXCHG |
kfloat(ip,bi,bj) = kfloat(jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
382 |
FLT_EXCHG |
iup (ip,bi,bj) = iup (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
383 |
FLT_EXCHG |
itop (ip,bi,bj) = itop (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
384 |
FLT_EXCHG |
tend (ip,bi,bj) = tend (jp,bi,bj) |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
npart_tile(bi,bj) = npNew |
|
./pkg/flt/flt_exchg.F |
416 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exchg.F |
421 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
422 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
423 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
424 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
425 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
426 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
427 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
428 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
429 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
430 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
432 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
433 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
440 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
441 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
450 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
451 |
FLT_EXCHG |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_exchg.F |
452 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
453 |
FLT_EXCHG |
jp = npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
454 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
455 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
456 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
457 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
458 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
459 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
460 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
461 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
462 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
467 |
FLT_EXCHG |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_exchg.F |
469 |
FLT_EXCHG |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_exchg.F |
470 |
FLT_EXCHG |
& ' npart_tile=', npart_tile(bi,bj), |
|
./pkg/flt/flt_exchg.F |
60 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_exchg.F |
64 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
65 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
66 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
67 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
77 |
FLT_EXCHG |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_exchg.F |
79 |
FLT_EXCHG |
IF ( ipart(ip,bi,bj).GE.ihi ) THEN |
|
./pkg/flt/flt_exchg.F |
84 |
FLT_EXCHG |
iNew = ipart(ip,bi,bj) - DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
85 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
86 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
87 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
88 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
89 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
91 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
92 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
93 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
98 |
FLT_EXCHG |
npart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_init_fixed.F |
32 |
FLT_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/flt/flt_init_fixed.F |
44 |
FLT_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_init_fixed.F |
45 |
FLT_INIT_FIXED |
xLo = MAX( xLo, -xG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
46 |
FLT_INIT_FIXED |
xHi = MAX( xHi, xG(sNx+1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
47 |
FLT_INIT_FIXED |
yLo = MAX( yLo, -yG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
48 |
FLT_INIT_FIXED |
yHi = MAX( yHi, yG(1,sNy+1,bi,bj) ) |
|
./pkg/flt/flt_init_varia.F |
103 |
FLT_INIT_VARIA |
bi = 0 |
|
./pkg/flt/flt_init_varia.F |
109 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
115 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
124 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
126 |
FLT_INIT_VARIA |
DO bi = 1,nSx |
|
./pkg/flt/flt_init_varia.F |
129 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
130 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
134 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = npart_tile(bi,bj) + 1 |
|
./pkg/flt/flt_init_varia.F |
135 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
137 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
138 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
139 |
FLT_INIT_VARIA |
ipart( npart_tile(bi,bj),bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
140 |
FLT_INIT_VARIA |
jpart( npart_tile(bi,bj),bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
141 |
FLT_INIT_VARIA |
kpart( npart_tile(bi,bj),bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
142 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
143 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
144 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
145 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
DO bi = 1,nSx |
|
./pkg/flt/flt_init_varia.F |
171 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
173 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
177 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
179 |
FLT_INIT_VARIA |
npart_read = MIN( npart_tile(bi,bj), max_npart_tile ) |
|
./pkg/flt/flt_init_varia.F |
184 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
188 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
189 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
197 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
198 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
199 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = ix |
|
./pkg/flt/flt_init_varia.F |
200 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = jy |
|
./pkg/flt/flt_init_varia.F |
201 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = kz |
|
./pkg/flt/flt_init_varia.F |
202 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
204 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
205 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
216 |
FLT_INIT_VARIA |
DO bi = 1,nSx |
|
./pkg/flt/flt_init_varia.F |
217 |
FLT_INIT_VARIA |
npart_dist = npart_dist + DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_init_varia.F |
218 |
FLT_INIT_VARIA |
IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN |
|
./pkg/flt/flt_init_varia.F |
220 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, |
|
./pkg/flt/flt_init_varia.F |
221 |
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 |
80 |
FLT_INIT_VARIA |
DO bi = 1,nSx |
|
./pkg/flt/flt_init_varia.F |
81 |
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 |
133 |
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 |
134 |
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 |
144 |
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 |
145 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
146 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
147 |
FLT_MAP_IJLOCAL2XY |
& - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
148 |
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 |
149 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
150 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
151 |
FLT_MAP_IJLOCAL2XY |
& - yG(i,j+1,bi,bj) + yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
163 |
FLT_MAP_IJLOCAL2XY |
I rr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
16 |
FLT_MAP_XY2IJLOCAL |
I xx, yy, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
185 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
|
./pkg/flt/flt_mapping.F |
210 |
FLT_MAP_IJLOCAL2XY |
I kr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
232 |
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 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
107 |
FLT_RUNGA2 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
108 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
110 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
116 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
121 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
143 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
145 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
146 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
147 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
153 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
156 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga2.F |
162 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
173 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
185 |
FLT_RUNGA2 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
187 |
FLT_RUNGA2 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
190 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
191 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
197 |
FLT_RUNGA2 |
ic = MAX( 1-Olx, MIN( NINT(ipart(ip,bi,bj)), sNx+Olx ) ) |
|
./pkg/flt/flt_runga2.F |
198 |
FLT_RUNGA2 |
jc = MAX( 1-Oly, MIN( NINT(jpart(ip,bi,bj)), sNy+Oly ) ) |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga2.F |
204 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga2.F |
205 |
FLT_RUNGA2 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
207 |
FLT_RUNGA2 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga2.F |
217 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
218 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
221 |
FLT_RUNGA2 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga2.F |
41 |
FLT_RUNGA2 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga2.F |
74 |
FLT_RUNGA2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_runga2.F |
75 |
FLT_RUNGA2 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga2.F |
78 |
FLT_RUNGA2 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
80 |
FLT_RUNGA2 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga2.F |
83 |
FLT_RUNGA2 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
84 |
FLT_RUNGA2 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
85 |
FLT_RUNGA2 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga2.F |
88 |
FLT_RUNGA2 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
89 |
FLT_RUNGA2 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga2.F |
92 |
FLT_RUNGA2 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga2.F |
94 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
95 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
96 |
FLT_RUNGA2 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
109 |
FLT_RUNGA4 |
kz=kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
110 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
112 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
118 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
145 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
148 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
150 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
152 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
158 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
160 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
163 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
169 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
180 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
195 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
198 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
200 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
202 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
208 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
210 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
213 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
219 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
230 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
245 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
248 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
250 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
252 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
258 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
260 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
263 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).NE.-2.) THEN |
|
./pkg/flt/flt_runga4.F |
269 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
280 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
292 |
FLT_RUNGA4 |
ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
294 |
FLT_RUNGA4 |
jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
297 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
298 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6 |
|
./pkg/flt/flt_runga4.F |
304 |
FLT_RUNGA4 |
ic = MAX( 1-Olx, MIN( NINT(ipart(ip,bi,bj)), sNx+Olx ) ) |
|
./pkg/flt/flt_runga4.F |
305 |
FLT_RUNGA4 |
jc = MAX( 1-Oly, MIN( NINT(jpart(ip,bi,bj)), sNy+Oly ) ) |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
IF (iup(ip,bi,bj).EQ.-1.) THEN |
|
./pkg/flt/flt_runga4.F |
311 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo |
|
./pkg/flt/flt_runga4.F |
312 |
FLT_RUNGA4 |
& +kzlo-kpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
314 |
FLT_RUNGA4 |
IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi |
|
./pkg/flt/flt_runga4.F |
324 |
FLT_RUNGA4 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga4.F |
325 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
328 |
FLT_RUNGA4 |
tend(ip,bi,bj) = myTime - flt_deltaT |
|
./pkg/flt/flt_runga4.F |
41 |
FLT_RUNGA4 |
INTEGER bi, bj |
|
./pkg/flt/flt_runga4.F |
74 |
FLT_RUNGA4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_runga4.F |
75 |
FLT_RUNGA4 |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_runga4.F |
78 |
FLT_RUNGA4 |
IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
80 |
FLT_RUNGA4 |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_runga4.F |
83 |
FLT_RUNGA4 |
IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
84 |
FLT_RUNGA4 |
& .AND.( tend(ip,bi,bj).EQ.-1..OR.myTime.LE. tend(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
85 |
FLT_RUNGA4 |
& .AND.( iup(ip,bi,bj).NE.-3.) |
|
./pkg/flt/flt_runga4.F |
88 |
FLT_RUNGA4 |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
89 |
FLT_RUNGA4 |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_runga4.F |
92 |
FLT_RUNGA4 |
kc=NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_runga4.F |
94 |
FLT_RUNGA4 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
95 |
FLT_RUNGA4 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
96 |
FLT_RUNGA4 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_traj.F |
103 |
FLT_TRAJ |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
106 |
FLT_TRAJ |
nT = W2_myTileList(bi,bj) |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx ) |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_traj.F |
119 |
FLT_TRAJ |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
kp = NINT(kpart(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
IF ( ( myTime.GE.tstart(ip,bi,bj)) .AND. |
|
./pkg/flt/flt_traj.F |
131 |
FLT_TRAJ |
& ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
153 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
|
./pkg/flt/flt_traj.F |
170 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_traj.F |
173 |
FLT_TRAJ |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
41 |
FLT_TRAJ |
INTEGER bi, bj, imax |
|
./pkg/flt/flt_traj.F |
63 |
FLT_TRAJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_traj.F |
69 |
FLT_TRAJ |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_traj.F |
85 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
102 |
FLT_UP |
IF ( myTime.GE.tstart(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
103 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
105 |
FLT_UP |
& kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
106 |
FLT_UP |
& iup(ip,bi,bj).GT.0. |
|
./pkg/flt/flt_up.F |
109 |
FLT_UP |
IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.) |
|
./pkg/flt/flt_up.F |
110 |
FLT_UP |
& kpart(ip,bi,bj) = flt_surf |
|
./pkg/flt/flt_up.F |
115 |
FLT_UP |
IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
117 |
FLT_UP |
kpart(ip,bi,bj) = 0. |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
ix = ipart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
122 |
FLT_UP |
jy = jpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
124 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
|
./pkg/flt/flt_up.F |
125 |
FLT_UP |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
|
./pkg/flt/flt_up.F |
127 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
134 |
FLT_UP |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
IF ( myTime.GE.tstart(ip,bi,bj) .AND. |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
& (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj)) |
|
./pkg/flt/flt_up.F |
140 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
144 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
145 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
161 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
38 |
FLT_UP |
INTEGER bi, bj |
|
./pkg/flt/flt_up.F |
56 |
FLT_UP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_up.F |
62 |
FLT_UP |
& bi, bj, 1, myThid ) |
|
./pkg/flt/flt_up.F |
78 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
95 |
FLT_UP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
97 |
FLT_UP |
i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx ) |
|
./pkg/flt/flt_up.F |
99 |
FLT_UP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
100 |
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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/flt/flt_write_pickup.F |
63 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
76 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
78 |
FLT_WRITE_PICKUP |
DO ip=1,npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
80 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
81 |
FLT_WRITE_PICKUP |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
86 |
FLT_WRITE_PICKUP |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
88 |
FLT_WRITE_PICKUP |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
92 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_write_pickup.F |
95 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/gchem/gchem_add_tendency.F |
10 |
GCHEM_ADD_TENDENCY |
SUBROUTINE GCHEM_ADD_TENDENCY(bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/gchem/gchem_add_tendency.F |
43 |
GCHEM_ADD_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/gchem/gchem_add_tendency.F |
60 |
GCHEM_ADD_TENDENCY |
gPtr(I,J,K,bi,bj,iTracer) = gPtr(I,J,K,bi,bj,iTracer) |
|
./pkg/gchem/gchem_add_tendency.F |
61 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(I,J,K,bi,bj,iTracer) |
|
./pkg/gchem/gchem_calc_tendency.F |
105 |
GCHEM_CALC_TENDENCY |
CALL CFC11_FORCING( Ptracer (1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_calc_tendency.F |
106 |
GCHEM_CALC_TENDENCY |
& gchemTendency(1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_calc_tendency.F |
107 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
|
./pkg/gchem/gchem_calc_tendency.F |
109 |
GCHEM_CALC_TENDENCY |
CALL CFC12_FORCING( Ptracer (1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_calc_tendency.F |
110 |
GCHEM_CALC_TENDENCY |
& gchemTendency(1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_calc_tendency.F |
111 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
|
./pkg/gchem/gchem_calc_tendency.F |
52 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/gchem/gchem_calc_tendency.F |
63 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/gchem/gchem_calc_tendency.F |
67 |
GCHEM_CALC_TENDENCY |
gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/gchem/gchem_calc_tendency.F |
82 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
109 |
GCHEM_FORCING_SEP |
call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
110 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
111 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
112 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
113 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
114 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,6), |
|
./pkg/gchem/gchem_forcing_sep.F |
115 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
119 |
GCHEM_FORCING_SEP |
call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
120 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
121 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
122 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
123 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,5), |
|
./pkg/gchem/gchem_forcing_sep.F |
124 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
127 |
GCHEM_FORCING_SEP |
call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
128 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
129 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
130 |
GCHEM_FORCING_SEP |
& Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
131 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
142 |
GCHEM_FORCING_SEP |
call DARWIN_NUT_SUPPLY( Ptracer(1-Olx,1-Oly,1,bi,bj,1), |
|
./pkg/gchem/gchem_forcing_sep.F |
143 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
145 |
GCHEM_FORCING_SEP |
call DARWIN_NUT_SUPPLY( Ptracer(1-Olx,1-Oly,1,bi,bj,2), |
|
./pkg/gchem/gchem_forcing_sep.F |
146 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
148 |
GCHEM_FORCING_SEP |
call DARWIN_NUT_SUPPLY( Ptracer(1-Olx,1-Oly,1,bi,bj,3), |
|
./pkg/gchem/gchem_forcing_sep.F |
149 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
151 |
GCHEM_FORCING_SEP |
call DARWIN_NUT_SUPPLY( Ptracer(1-Olx,1-Oly,1,bi,bj,4), |
|
./pkg/gchem/gchem_forcing_sep.F |
152 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
160 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
52 |
GCHEM_FORCING_SEP |
INTEGER bi,bj,imin,imax,jmin,jmax |
|
./pkg/gchem/gchem_forcing_sep.F |
98 |
GCHEM_FORCING_SEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
164 |
GAD_ADVECTION |
act1 = bi - myBxLo(myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
17 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
227 |
GAD_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
234 |
GAD_ADVECTION |
nCFace = bi |
|
./pkg/generic_advdiff/gad_advection.F |
261 |
GAD_ADVECTION |
I k,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
268 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
274 |
GAD_ADVECTION |
localTij(i,j)=tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
275 |
GAD_ADVECTION |
maskLocW(i,j)=_maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
276 |
GAD_ADVECTION |
maskLocS(i,j)=_maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
353 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
365 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
369 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
373 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
377 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
382 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
393 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
416 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
419 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
420 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
430 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
432 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
433 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
448 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
449 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
451 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
452 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
467 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
469 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
472 |
GAD_ADVECTION |
CALL OBCS_APPLY_PTRACER( bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
515 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
534 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
538 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
542 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
546 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
551 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
562 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
585 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
586 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
588 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
589 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
598 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
599 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
601 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
602 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
617 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
618 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
620 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
621 |
GAD_ADVECTION |
& )*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
636 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
638 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
641 |
GAD_ADVECTION |
CALL OBCS_APPLY_PTRACER( bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
662 |
GAD_ADVECTION |
gTracer(i,j,k,bi,bj)= |
|
./pkg/generic_advdiff/gad_advection.F |
663 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
678 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
682 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
693 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
759 |
GAD_ADVECTION |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
760 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
762 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
772 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
785 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
789 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
78 |
GAD_ADVECTION |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_advection.F |
793 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
797 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
802 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
831 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
832 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
834 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
836 |
GAD_ADVECTION |
gTracer(i,j,k,bi,bj)= |
|
./pkg/generic_advdiff/gad_advection.F |
837 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
845 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid) |
|
./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_r.F |
65 |
GAD_C2_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0 |
|
./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 |
41 |
GAD_C2_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
63 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
69 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
72 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
75 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./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,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
78 |
GAD_C4_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rj =(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
80 |
GAD_C4_ADV_R |
Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
81 |
GAD_C4_ADV_R |
& *maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
86 |
GAD_C4_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./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 |
39 |
GAD_C4_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
64 |
GAD_C4_ADV_X |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
66 |
GAD_C4_ADV_X |
& *maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
68 |
GAD_C4_ADV_X |
& *maskW(i-1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
76 |
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 |
39 |
GAD_C4_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
64 |
GAD_C4_ADV_Y |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
66 |
GAD_C4_ADV_Y |
& *maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
68 |
GAD_C4_ADV_Y |
& *maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
76 |
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 |
178 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
179 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
185 |
GAD_CALC_RHS |
localT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
186 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
205 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
206 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
219 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
222 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
226 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
230 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
232 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
234 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
235 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
242 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
243 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
246 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
247 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
252 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
267 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
285 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
294 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
320 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
342 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
345 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
347 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
349 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
357 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
358 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
361 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
362 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
368 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
382 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
400 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
409 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
415 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
435 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
454 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k, vertAdvecScheme, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
455 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
459 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
462 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
464 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
466 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
474 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
475 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
478 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
479 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
484 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
485 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
519 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
521 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracAB, df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
531 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
537 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
557 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
582 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
602 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
605 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
623 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
624 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
631 |
GAD_CALC_RHS |
trac=TracerN(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
633 |
GAD_CALC_RHS |
trac=TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
660 |
GAD_CALC_RHS |
gTrFac = gTrFac/rStarExpC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
668 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
669 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
675 |
GAD_CALC_RHS |
gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
678 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
693 |
GAD_CALC_RHS |
gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
694 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
695 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
714 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
87 |
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 |
113 |
GAD_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(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 |
68 |
GAD_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(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_r.F |
66 |
GAD_DIFF_R |
& *(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))*rkSign |
|
./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) |
|
./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 |
44 |
GAD_DST2U1_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
78 |
GAD_DST2U1_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
79 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
88 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
91 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
94 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./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 |
40 |
GAD_DST3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
78 |
GAD_DST3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
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 |
41 |
GAD_DST3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
85 |
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 |
40 |
GAD_DST3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
84 |
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 |
69 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
73 |
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 |
58 |
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, |
|
./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 |
54 |
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 |
101 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
109 |
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 |
10 |
GAD_DST3FL_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
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 |
142 |
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 |
143 |
GAD_DST3FL_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
144 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
152 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
156 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
160 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
164 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
168 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
172 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
176 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
180 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
49 |
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 |
109 |
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 |
10 |
GAD_FLUXLIMIT_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
113 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
116 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
119 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
44 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
86 |
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 |
87 |
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 |
89 |
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_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_implicit_r.F |
116 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
124 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
138 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
139 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
148 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
149 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
195 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
196 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
204 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
211 |
GAD_IMPLICIT_R |
& + deltaTLev(1)*recip_rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
212 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
213 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
228 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
235 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
241 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
249 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
255 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
277 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
287 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
316 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj)) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
320 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
48 |
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 |
41 |
GAD_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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_som_adv_r.F |
11 |
GAD_SOM_ADV_R |
I bi,bj,k, kUp, kDw, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
228 |
GAD_SOM_ADV_R |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
54 |
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 |
50 |
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 |
50 |
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 |
222 |
GAD_SOM_ADVECT |
myTile = W2_myTileList(bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
229 |
GAD_SOM_ADVECT |
nCFace = bi |
|
./pkg/generic_advdiff/gad_som_advect.F |
253 |
GAD_SOM_ADVECT |
I k,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
260 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
266 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
269 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
272 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
321 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
328 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
334 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
335 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
336 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
337 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
338 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
339 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
340 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
341 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
342 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
392 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
398 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
399 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
400 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
401 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
402 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
403 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
404 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
405 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
406 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
445 |
GAD_SOM_ADVECT |
gTracer(i,j,k,bi,bj) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
446 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
447 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
448 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
458 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
462 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
473 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
484 |
GAD_SOM_ADVECT |
CALL GAD_SOM_LIM_R( bi,bj, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
487 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
488 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
489 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
490 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
491 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
492 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
493 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
494 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
495 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
559 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
560 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
562 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
572 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
573 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
575 |
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 |
587 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
594 |
GAD_SOM_ADVECT |
I bi,bj,k, kUp, kDown, |
|
./pkg/generic_advdiff/gad_som_advect.F |
598 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
599 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
59 |
GAD_SOM_ADVECT |
INTEGER bi,bj |
|
./pkg/generic_advdiff/gad_som_advect.F |
600 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
601 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
602 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
603 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
604 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
605 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
606 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,1,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
624 |
GAD_SOM_ADVECT |
gTracer(i,j,k,bi,bj) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
625 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
626 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
627 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
637 |
GAD_SOM_ADVECT |
& diagName, 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,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
72 |
GAD_U3_ADV_R |
& *maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
74 |
GAD_U3_ADV_R |
Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
75 |
GAD_U3_ADV_R |
& *maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
78 |
GAD_U3_ADV_R |
wT(i,j) = maskC(i,j,km1,bi,bj)*( |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
80 |
GAD_U3_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./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 |
38 |
GAD_U3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
62 |
GAD_U3_ADV_X |
Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
63 |
GAD_U3_ADV_X |
Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskW(i-1,j,k,bi,bj) |
|
./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 |
38 |
GAD_U3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
62 |
GAD_U3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i,j))*maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
63 |
GAD_U3_ADV_Y |
Rj =(tracer(i,j)-tracer(i,j-1))*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
64 |
GAD_U3_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
102 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./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 |
116 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
124 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
128 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
132 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
136 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
140 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
49 |
GAD_U3C4_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
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 |
94 |
GAD_U3C4_IMPL_R |
mskM = maskC(i,j,km2,bi,bj)*maskM2 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./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 |
71 |
SALT_FILL |
DO bi=myBxLo(myThid),myBxHi(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, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
149 |
GGL90_CALC |
totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
152 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
162 |
GGL90_CALC |
I theta(1-OLx,1-OLy,km1,bi,bj), salt(1-OLx,1-OLy,km1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
164 |
GGL90_CALC |
I km1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
168 |
GGL90_CALC |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
170 |
GGL90_CALC |
I k, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
& * ( rhoKm1(i,j) - rhoK(i,j) )*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
226 |
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 |
348 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
350 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
351 |
GGL90_CALC |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
360 |
GGL90_CALC |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
361 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
362 |
GGL90_CALC |
& *CosFacU(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
372 |
GGL90_CALC |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& *CosFacV(j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
383 |
GGL90_CALC |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
397 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj)+uVel(i+1,j,k ,bi,bj)) ) |
|
./pkg/ggl90/ggl90_calc.F |
399 |
GGL90_CALC |
tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj)+vVel(i,j+1,k ,bi,bj)) ) |
|
./pkg/ggl90/ggl90_calc.F |
413 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
416 |
GGL90_CALC |
KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
418 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
423 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
468 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
470 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
483 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
48 |
GGL90_CALC |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
502 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
514 |
GGL90_CALC |
& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
515 |
GGL90_CALC |
& + surfaceForcingU(i+1,j, bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
516 |
GGL90_CALC |
& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
517 |
GGL90_CALC |
& + surfaceForcingV(i, j+1,bi,bj) ) )**2 |
|
./pkg/ggl90/ggl90_calc.F |
520 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
522 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
526 |
GGL90_CALC |
kBottom = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_calc.F |
527 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
538 |
GGL90_CALC |
I bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
544 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
545 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
559 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
560 |
GGL90_CALC |
& +p8 *( GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
561 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
562 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
563 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& +p16*( GGL90visctmp(i+1,j+1,k) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& + GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
567 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
570 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
571 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
572 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
574 |
GGL90_CALC |
& +p16*( maskC(i+1,j+1,k,bi,bj) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
575 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
577 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
578 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
594 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
595 |
GGL90_CALC |
& +GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
596 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
597 |
GGL90_CALC |
& +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
598 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
599 |
GGL90_CALC |
& +GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
602 |
GGL90_CALC |
& +p8 *( maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
603 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
604 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
605 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
607 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
& *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
610 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
627 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
628 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
629 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
630 |
GGL90_CALC |
& +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
631 |
GGL90_CALC |
& +GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
632 |
GGL90_CALC |
& +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
638 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
641 |
GGL90_CALC |
& *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
658 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
660 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
662 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
666 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
668 |
GGL90_CALC |
& 0,Nr, 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_init_fixed.F |
31 |
GGL90_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/ggl90/ggl90_init_fixed.F |
48 |
GGL90_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ggl90/ggl90_init_fixed.F |
51 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
56 |
GGL90_INIT_FIXED |
& mskCor, bi,bj, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
24 |
GGL90_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/ggl90/ggl90_init_varia.F |
33 |
GGL90_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
40 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
41 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
42 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
44 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
69 |
GGL90_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
73 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
74 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_output.F |
109 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
110 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
111 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
112 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
113 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
114 |
GGL90_OUTPUT |
GGL90_timeAve(bi,bj) = 0. |
|
./pkg/ggl90/ggl90_output.F |
122 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
124 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
126 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, 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 |
GGL90_timeAve(bi,bj) = GGL90_timeAve(bi,bj)+DDTT |
|
./pkg/ggl90/ggl90_output.F |
144 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
146 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
148 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, 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 |
169 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ggl90/ggl90_output.F |
170 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
171 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
172 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
173 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
174 |
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 |
61 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
63 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
75 |
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 |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,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 |
80 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
104 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
106 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
116 |
GMREDI_CALC_PSI_B |
I bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
128 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
130 |
GMREDI_CALC_PSI_B |
& *( kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
135 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
137 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
139 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
145 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
147 |
GMREDI_CALC_PSI_B |
& *( kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
152 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
154 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
156 |
GMREDI_CALC_PSI_B |
& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
40 |
GMREDI_CALC_PSI_B |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
59 |
GMREDI_CALC_PSI_B |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
8 |
GMREDI_CALC_PSI_B |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
96 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
98 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
117 |
GMREDI_CALC_TENSOR |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
145 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
159 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
15 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
160 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
172 |
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 |
173 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
189 |
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 |
190 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
215 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = R_low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
225 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = hMixLayer(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
256 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
257 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
260 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
261 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
264 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
265 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
276 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
279 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
329 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
330 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
332 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
388 |
GMREDI_CALC_TENSOR |
I kLowC(1-Olx,1-Oly,bi,bj), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
389 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
394 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
395 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
411 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
412 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
413 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
443 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
465 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)= |
|
./pkg/gmredi/gmredi_calc_tensor.F |
466 |
GMREDI_CALC_TENSOR |
& MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ), |
|
./pkg/gmredi/gmredi_calc_tensor.F |
492 |
GMREDI_CALC_TENSOR |
Kgm_tmp = kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
497 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
502 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
504 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
505 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
507 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
509 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( GM_isopycK |
|
./pkg/gmredi/gmredi_calc_tensor.F |
512 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
514 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
521 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( hTransLay, 'GM_hTrsL', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
522 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( baseSlope, 'GM_baseS', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
523 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
536 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
537 |
GMREDI_CALC_TENSOR |
& + KPPhbl( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
546 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
& + hMixLayer( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
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 |
56 |
GMREDI_CALC_TENSOR |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
580 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
604 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
615 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
617 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
622 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
634 |
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 |
649 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
651 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
656 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
661 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
676 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
681 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
691 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
692 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
693 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
694 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
697 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
698 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
699 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
700 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
702 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
703 |
GMREDI_CALC_TENSOR |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
707 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
721 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
722 |
GMREDI_CALC_TENSOR |
& + KPPhbl(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
731 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
732 |
GMREDI_CALC_TENSOR |
& + hMixLayer(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
745 |
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 |
762 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
764 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
789 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
803 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
810 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
822 |
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 |
837 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
839 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
844 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
849 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
864 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
869 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
879 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
881 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
882 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
890 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
891 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
908 |
GMREDI_CALC_TENSOR |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
920 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
922 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
928 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
934 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
936 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
939 |
GMREDI_CALC_TENSOR |
GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock |
|
./pkg/gmredi/gmredi_calc_tensor.F |
946 |
GMREDI_CALC_TENSOR |
CALL GMREDI_DIAGNOSTICS_FILL(bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
960 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
979 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER bi, bj |
|
./pkg/gmredi/gmredi_calc_tensor.F |
992 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
994 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./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/gmredi/gmredi_calc_uvflow.F |
11 |
GMREDI_CALC_UVFLOW |
I k, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
34 |
GMREDI_CALC_UVFLOW |
INTEGER k, bi, bj, myThid |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
60 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
61 |
GMREDI_CALC_UVFLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
63 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
65 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
70 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
71 |
GMREDI_CALC_UVFLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
73 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
75 |
GMREDI_CALC_UVFLOW |
& + dxG(i,j,bi,bj)*delPsi*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
11 |
GMREDI_CALC_WFLOW |
I k, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
34 |
GMREDI_CALC_WFLOW |
INTEGER k, bi, bj, myThid |
|
./pkg/gmredi/gmredi_calc_wflow.F |
51 |
GMREDI_CALC_WFLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
52 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
53 |
GMREDI_CALC_WFLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
54 |
GMREDI_CALC_WFLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
55 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
56 |
GMREDI_CALC_WFLOW |
wFld(i,j) = wFld(i,j) + delPsi*recip_rA(i,j,bi,bj) |
|
./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_init_varia.F |
38 |
GMREDI_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/gmredi/gmredi_init_varia.F |
41 |
GMREDI_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
47 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
51 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
55 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
59 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
63 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
71 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
72 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
73 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
74 |
GMREDI_INIT_VARIA |
GM_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
76 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
79 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
80 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
114 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
118 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
120 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
124 |
GMREDI_OUTPUT |
& 1 , bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
129 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
131 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
190 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/gmredi/gmredi_output.F |
191 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
192 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
193 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
196 |
GMREDI_OUTPUT |
& CALL TIMEAVE_RESET( Visbeck_K_T, 1, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
201 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
204 |
GMREDI_OUTPUT |
GM_timeAve(bi,bj) = 0. |
|
./pkg/gmredi/gmredi_output.F |
53 |
GMREDI_OUTPUT |
INTEGER 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/gmredi/gmredi_rtransport.F |
100 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
101 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i-1,j,k-1,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
105 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
106 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
108 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
110 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k,bi,bj)-Tracer(i,j,k,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
111 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
112 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
113 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i,j-1,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
114 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
115 |
GMREDI_RTRANSPORT |
& *_recip_dyC(i,j+1,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
116 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
133 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
134 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
137 |
GMREDI_RTRANSPORT |
& - _rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
139 |
GMREDI_RTRANSPORT |
& *(LS_Kwx(i,j,k,bi,bj)*dTdx(i,j)+LS_Kwy(i,j,k,bi,bj)*dTdy(i,j)) |
|
./pkg/gmredi/gmredi_rtransport.F |
141 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
153 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
154 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
155 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
156 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
167 |
GMREDI_RTRANSPORT |
& *(Tracer(i,j,k,bi,bj)+Tracer(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
44 |
GMREDI_RTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_rtransport.F |
64 |
GMREDI_RTRANSPORT |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_rtransport.F |
7 |
GMREDI_RTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/gmredi/gmredi_rtransport.F |
90 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
91 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
92 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k,bi,bj)-Tracer(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
93 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
94 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
95 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
96 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
97 |
GMREDI_RTRANSPORT |
& *_recip_dxC(i+1,j,bi,bj)* |
|
./pkg/gmredi/gmredi_rtransport.F |
98 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
99 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_slope_limit.F |
129 |
GMREDI_SLOPE_LIMIT |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_slope_limit.F |
16 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
92 |
GMREDI_SLOPE_LIMIT |
INTEGER k, bi,bj |
|
./pkg/gmredi/gmredi_slope_psi.F |
12 |
GMREDI_SLOPE_PSI |
I bi,bj, myThid ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
51 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
|
./pkg/gmredi/gmredi_slope_psi.F |
74 |
GMREDI_SLOPE_PSI |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
109 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
112 |
GMREDI_XTRANSPORT |
& *(kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
117 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
121 |
GMREDI_XTRANSPORT |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
122 |
GMREDI_XTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
136 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
137 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
138 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
142 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
143 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
144 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
145 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
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 |
172 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
173 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
174 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
184 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
200 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
201 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
202 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
203 |
GMREDI_XTRANSPORT |
& *op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
206 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
39 |
GMREDI_XTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_xtransport.F |
71 |
GMREDI_XTRANSPORT |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
7 |
GMREDI_XTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/gmredi/gmredi_ytransport.F |
109 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
112 |
GMREDI_YTRANSPORT |
& *(kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
117 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
121 |
GMREDI_YTRANSPORT |
& *_recip_dyC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
122 |
GMREDI_YTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
137 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
139 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
140 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
143 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
144 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
145 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,kp1,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
146 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
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 |
172 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
173 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
174 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
184 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
199 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
200 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
201 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
202 |
GMREDI_YTRANSPORT |
& *op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
205 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
39 |
GMREDI_YTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_ytransport.F |
71 |
GMREDI_YTRANSPORT |
act1 = bi - myBxLo(myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
7 |
GMREDI_YTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
101 |
GRDCHK_GET_OBCS_MASK |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
104 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
105 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
124 |
GRDCHK_GET_OBCS_MASK |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
127 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
128 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
147 |
GRDCHK_GET_OBCS_MASK |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
150 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
151 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
38 |
GRDCHK_GET_OBCS_MASK |
integer bi,bj |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
78 |
GRDCHK_GET_OBCS_MASK |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
81 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
82 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
119 |
GRDCHK_GET_POSITION |
do bi = biwrk, ithi |
|
./pkg/grdchk/grdchk_get_position.F |
133 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
136 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
138 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
141 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
146 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
157 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
160 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
164 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
182 |
GRDCHK_GET_POSITION |
& bi .EQ. itile .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
219 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
49 |
GRDCHK_GET_POSITION |
integer bi,bj |
|
./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/grdchk/grdchk_init.F |
103 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
105 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
111 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
122 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
126 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
127 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
131 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
132 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
155 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
158 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
170 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
171 |
GRDCHK_INIT |
iwetsum(bi,bj,0) = 0 |
|
./pkg/grdchk/grdchk_init.F |
173 |
GRDCHK_INIT |
iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) + |
|
./pkg/grdchk/grdchk_init.F |
174 |
GRDCHK_INIT |
& nwettile(bi,bj,k,1) |
|
./pkg/grdchk/grdchk_init.F |
40 |
GRDCHK_INIT |
integer bi,bj |
|
./pkg/grdchk/grdchk_init.F |
66 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
69 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_init.F |
79 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
81 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetctile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
87 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
89 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetstile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
95 |
GRDCHK_INIT |
do bi = itlo,ithi |
|
./pkg/grdchk/grdchk_init.F |
97 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_loc.F |
161 |
GRDCHK_LOC |
do bi = biwrk, ithi |
|
./pkg/grdchk/grdchk_loc.F |
163 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
164 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
186 |
GRDCHK_LOC |
itile = bi |
|
./pkg/grdchk/grdchk_loc.F |
195 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
201 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
207 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
215 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
223 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
226 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
233 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
241 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
257 |
GRDCHK_LOC |
itest = iwetsum(bi,bj,k) |
|
./pkg/grdchk/grdchk_loc.F |
272 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
73 |
GRDCHK_LOC |
integer bi,bj |
|
./pkg/grdchk/grdchk_main.F |
172 |
GRDCHK_MAIN |
do bi = itlo, ithi |
|
./pkg/grdchk/grdchk_main.F |
176 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
177 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
178 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
98 |
GRDCHK_MAIN |
integer bi, itlo, ithi |
|
./pkg/grdchk/grdchk_readparms.F |
40 |
GRDCHK_READPARMS |
integer bi,bj |
|
./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 |
5 |
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 |
45 |
GRIDALT_INITIALISE |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./pkg/gridalt/gridalt_update.F |
30 |
GRIDALT_UPDATE |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/gridalt_update.F |
50 |
GRIDALT_UPDATE |
do bi = myBxLo(myThid), myBxHi(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 |
72 |
GRIDALT_UPDATE |
do bi = myBxLo(myThid), myBxHi(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 |
122 |
MAKE_PHYS_GRID |
Lbotij = Lbot(i,j,bi,bj) |
|
./pkg/gridalt/make_phys_grid.F |
129 |
MAKE_PHYS_GRID |
. (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
143 |
MAKE_PHYS_GRID |
if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge. |
|
./pkg/gridalt/make_phys_grid.F |
146 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
151 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
155 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
156 |
MAKE_PHYS_GRID |
. (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
159 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
160 |
MAKE_PHYS_GRID |
. (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
162 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
166 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
177 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
179 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
186 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
190 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
191 |
MAKE_PHYS_GRID |
. (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
195 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
196 |
MAKE_PHYS_GRID |
. (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
206 |
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 |
208 |
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 |
216 |
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 |
218 |
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 |
221 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
224 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
230 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
232 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
239 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs |
|
./pkg/gridalt/make_phys_grid.F |
241 |
MAKE_PHYS_GRID |
dpphys(i,j,Lnew,bi,bj) = thindp |
|
./pkg/gridalt/make_phys_grid.F |
243 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Nr,bi,bj) = numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
47 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
5 |
MAKE_PHYS_GRID |
. Nsx,Nsy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
97 |
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 |
5 |
PHYS2DYN |
. idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn) |
|
./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 |
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 |
29 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
47 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
50 |
ICEFRONT_INIT_FIXED |
R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj)) |
|
./pkg/icefront/icefront_init_fixed.F |
57 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
60 |
ICEFRONT_INIT_FIXED |
K_icefront(i,j,bi,bj) = 0 |
|
./pkg/icefront/icefront_init_fixed.F |
62 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_fixed.F |
63 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
73 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/icefront/icefront_init_fixed.F |
77 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_fixed.F |
79 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_init_varia.F |
34 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
38 |
ICEFRONT_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/icefront/icefront_init_varia.F |
42 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
43 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_sgrunoff_read.F |
36 |
SGRUNOFF_READ |
INTEGER bi,bj,I,J,K |
|
./pkg/icefront/icefront_sgrunoff_read.F |
45 |
SGRUNOFF_READ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/icefront/icefront_sgrunoff_read.F |
48 |
SGRUNOFF_READ |
K = kLowC(I,J,bi,bj) |
|
./pkg/icefront/icefront_sgrunoff_read.F |
49 |
SGRUNOFF_READ |
addmass(I,J,K,bi,bj) = |
|
./pkg/icefront/icefront_sgrunoff_read.F |
50 |
SGRUNOFF_READ |
& addmass(I,J,K,bi,bj) + SGrunoff(I,J,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
16 |
ICEFRONT_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
31 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj, myThid |
|
./pkg/icefront/icefront_tendency_apply.F |
41 |
ICEFRONT_TENDENCY_APPLY_T |
IF (k .LE. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
42 |
ICEFRONT_TENDENCY_APPLY_T |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
43 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
58 |
ICEFRONT_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
73 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj, myThid |
|
./pkg/icefront/icefront_tendency_apply.F |
83 |
ICEFRONT_TENDENCY_APPLY_S |
IF (k .LE. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
84 |
ICEFRONT_TENDENCY_APPLY_S |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
85 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
102 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
107 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
115 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
116 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
119 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
120 |
ICEFRONT_THERMODYNAMICS |
& / R_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
140 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
144 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
149 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
IF (k .LT. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
157 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
158 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
159 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
160 |
ICEFRONT_THERMODYNAMICS |
ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
163 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
164 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
165 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
167 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
168 |
ICEFRONT_THERMODYNAMICS |
& * ICEFRONTlength(i,j,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
186 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
188 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
61 |
ICEFRONT_THERMODYNAMICS |
INTEGER bi,bj |
|
./pkg/icefront/icefront_thermodynamics.F |
97 |
ICEFRONT_THERMODYNAMICS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_calc.F |
11 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
131 |
KPP_CALC |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
210 |
KPP_CALC |
act1 = bi - myBxLo(myThid) |
|
./pkg/kpp/kpp_calc.F |
264 |
KPP_CALC |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_calc.F |
282 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
292 |
KPP_CALC |
I 1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
297 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
301 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
305 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
309 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
322 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
324 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
325 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
326 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
327 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
328 |
KPP_CALC |
if(k.eq.nzmax(i,j,bi,bj)) then |
|
./pkg/kpp/kpp_calc.F |
407 |
KPP_CALC |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_calc.F |
432 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
433 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
436 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
437 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
438 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
439 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
442 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
443 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
444 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
446 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
447 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
448 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
450 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
451 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
452 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
453 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
455 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
I bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
O KPPdiffKzS(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
I bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
O KPPdiffKzT(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
U KPPdiffKzT(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
U KPPdiffKzS(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
I ikppkey,1-Olx,sNx+OLx,1-Oly,sNy+OLy,bi,bj,myThid) |
|
./pkg/kpp/kpp_calc.F |
501 |
KPP_CALC |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
502 |
KPP_CALC |
work2(i,j) = Fcori(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
507 |
KPP_CALC |
I , maskC(1-Olx,1-Oly,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
510 |
KPP_CALC |
I , boplume, SaltPlumeDepth(1-Olx,1-Oly,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
513 |
KPP_CALC |
I , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
514 |
KPP_CALC |
I , KPPdiffKzT(1-Olx,1-Oly,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
519 |
KPP_CALC |
I , bi, bj, mytime, myIter, mythid ) |
|
./pkg/kpp/kpp_calc.F |
529 |
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 |
530 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
531 |
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 |
532 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
533 |
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 |
534 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
& * maskC(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
540 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
551 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
552 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
563 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
567 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
568 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
582 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
591 |
KPP_CALC |
KPPfrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
601 |
KPP_CALC |
work2(i,j) = SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
602 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
611 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_calc.F |
652 |
KPP_CALC_DUMMY |
INTEGER bi, bj |
|
./pkg/kpp/kpp_calc.F |
664 |
KPP_CALC_DUMMY |
KPPhbl (i,j,bi,bj) = 1.0 |
|
./pkg/kpp/kpp_calc.F |
665 |
KPP_CALC_DUMMY |
KPPfrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
667 |
KPP_CALC_DUMMY |
KPPplumefrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
670 |
KPP_CALC_DUMMY |
KPPghat (i,j,k,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
671 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc.F |
677 |
KPP_CALC_DUMMY |
I bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
679 |
KPP_CALC_DUMMY |
O KPPdiffKzS(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
682 |
KPP_CALC_DUMMY |
I bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy, |
|
./pkg/kpp/kpp_calc.F |
684 |
KPP_CALC_DUMMY |
O KPPdiffKzT(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
40 |
KPP_CALC_DIFF_PTR |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
57 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
59 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
70 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
72 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = 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_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 |
28 |
KPP_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/kpp/kpp_calc_visc.F |
43 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
44 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
51 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
52 |
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 |
104 |
KPP_FORCING_SURF |
INTEGER bi, bj |
|
./pkg/kpp/kpp_forcing_surf.F |
175 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
176 |
KPP_FORCING_SURF |
& (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
177 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
178 |
KPP_FORCING_SURF |
& (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_forcing_surf.F |
204 |
KPP_FORCING_SURF |
& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_forcing_surf.F |
205 |
KPP_FORCING_SURF |
& surfForcTice(i,j,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
206 |
KPP_FORCING_SURF |
& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
208 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_forcing_surf.F |
221 |
KPP_FORCING_SURF |
& * saltPlumeFlux(i,j,bi,bj) |
|
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bo ,'KPPbo ',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
235 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bosol ,'KPPbosol',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
237 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
23 |
KPP_FORCING_SURF |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
|
./pkg/kpp/kpp_forcing_surf.F |
276 |
KPP_FORCING_SURF |
work1(i,j) = nzmax(i,j,bi,bj) |
|
./pkg/kpp/kpp_forcing_surf.F |
278 |
KPP_FORCING_SURF |
IF ( k .LT. nzmax(i,j,bi,bj) .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
286 |
KPP_FORCING_SURF |
IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
291 |
KPP_FORCING_SURF |
ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
302 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
303 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
304 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
305 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
306 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, 2,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
308 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
309 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,2,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
327 |
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 |
328 |
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 |
330 |
KPP_FORCING_SURF |
ustarX = ( surfForcU(i, j,bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
331 |
KPP_FORCING_SURF |
& surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
332 |
KPP_FORCING_SURF |
ustarY = ( surfForcV(i,j, bi,bj) + |
|
./pkg/kpp/kpp_forcing_surf.F |
333 |
KPP_FORCING_SURF |
& surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1) |
|
./pkg/kpp/kpp_forcing_surf.F |
359 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
360 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
362 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
363 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
364 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
365 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
369 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
371 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
373 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
374 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
375 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
376 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
377 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
378 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
380 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
381 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
382 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
383 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
384 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
413 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
414 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
415 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
416 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
417 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
418 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
419 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
421 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
422 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
423 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
424 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
425 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_init_varia.F |
32 |
KPP_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kpp/kpp_init_varia.F |
41 |
KPP_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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 |
196 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_output.F |
197 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
198 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
199 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
200 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
201 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
202 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
216 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_output.F |
218 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
220 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
222 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
226 |
KPP_OUTPUT |
KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
227 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
229 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
231 |
KPP_OUTPUT |
& )*KPPghat(i,j,k-1,bi,bj)*DDTT |
|
./pkg/kpp/kpp_output.F |
236 |
KPP_OUTPUT |
& KPPhbltave, KPPhbl, 1, DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
238 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = KPP_timeAve(bi,bj)+DDTT |
|
./pkg/kpp/kpp_output.F |
261 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_output.F |
263 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
265 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
267 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
269 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
271 |
KPP_OUTPUT |
& KPP_timeAve, 1 , bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
340 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_output.F |
341 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
342 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
343 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
344 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
345 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
346 |
KPP_OUTPUT |
KPP_timeAve(bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
370 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/kpp/kpp_output.F |
379 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
|
./pkg/kpp/kpp_output.F |
380 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
388 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
85 |
KPP_OUTPUT |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
1069 |
SMOOTH_HORIZ |
I k, bi, bj, |
|
./pkg/kpp/kpp_routines.F |
1085 |
SMOOTH_HORIZ |
integer k, bi, bj |
|
./pkg/kpp/kpp_routines.F |
1111 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1112 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1113 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1114 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1115 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1116 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1117 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1118 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1119 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1122 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1123 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1124 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1125 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1126 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1127 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1128 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1129 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1130 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
1473 |
STATEKPP |
I ikppkey, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1514 |
STATEKPP |
INTEGER bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1554 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1556 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1565 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1569 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/kpp/kpp_routines.F |
1596 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1598 |
STATEKPP |
I k, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1608 |
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 |
1610 |
STATEKPP |
I k-1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1620 |
STATEKPP |
I theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1622 |
STATEKPP |
I 1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1634 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1638 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1665 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1666 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1682 |
KPP_DOUBLEDIFF |
I ikppkey, imin, imax, jmin, jmax, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1719 |
KPP_DOUBLEDIFF |
INTEGER ikppkey, imin, imax, jmin, jmax, bi, bj, myThid |
|
./pkg/kpp/kpp_routines.F |
1769 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1771 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1829 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1830 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
197 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
276 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
326 |
BLDEPTH |
INTEGER bi, bj |
|
./pkg/kpp/kpp_routines.F |
35 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_routines.F |
515 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
516 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
85 |
KPPMIX |
INTEGER bi, bj |
|
./pkg/kpp/kpp_transport_ptr.F |
100 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
102 |
KPP_TRANSPORT_PTR |
& )*LS_KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
104 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
106 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
108 |
KPP_TRANSPORT_PTR |
& )*KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
10 |
KPP_TRANSPORT_PTR |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_ptr.F |
110 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity) |
|
./pkg/kpp/kpp_transport_ptr.F |
60 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_ptr.F |
81 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
82 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
83 |
KPP_TRANSPORT_PTR |
& *surfaceForcingPTr(i,j,bi,bj,tracerIdentity) |
|
./pkg/kpp/kpp_transport_ptr.F |
96 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
98 |
KPP_TRANSPORT_PTR |
& *( LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
103 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
104 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
105 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
106 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
108 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
109 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
10 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
50 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
87 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
88 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_s.F |
89 |
KPP_TRANSPORT_S |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
90 |
KPP_TRANSPORT_S |
& *( surfaceForcingS(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
92 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
93 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(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 |
77 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
78 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
79 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
80 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
81 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
82 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
83 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_t.F |
92 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
93 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
94 |
KPP_TRANSPORT_T |
& *KPPghat(i,j,km1,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
95 |
KPP_TRANSPORT_T |
& *( surfaceForcingT(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
96 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
97 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
98 |
KPP_TRANSPORT_T |
& *(1.-KPPfrac(i,j,bi,bj)) |
|
./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_diagnostics_state.F |
10 |
LAND_DIAGNOSTICS_STATE |
I myTime, myIter, bi,bj, myThid ) |
|
./pkg/land/land_diagnostics_state.F |
38 |
LAND_DIAGNOSTICS_STATE |
INTEGER myIter, bi, bj, myThid |
|
./pkg/land/land_diagnostics_state.F |
52 |
LAND_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,1,bi,bj,myThid) |
|
./pkg/land/land_diagnostics_state.F |
54 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
|
./pkg/land/land_diagnostics_state.F |
56 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
|
./pkg/land/land_diagnostics_state.F |
58 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
|
./pkg/land/land_diagnostics_state.F |
59 |
LAND_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,1,bi,bj,myThid) |
|
./pkg/land/land_diagnostics_state.F |
61 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
|
./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 |
150 |
LAND_IMPL_TEMP |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
127 |
LAND_INI_VARS |
DO bi=myBxLo(myThid),myBxHi(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 |
59 |
LAND_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(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 |
|
./pkg/land/land_output.F |
172 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/land/land_output.F |
173 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
174 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
175 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_output.F |
176 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
177 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
178 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
179 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
180 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
|
./pkg/land/land_output.F |
181 |
LAND_OUTPUT |
land_timeAve(bi,bj) = 0. |
|
./pkg/land/land_output.F |
192 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/land/land_output.F |
194 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
196 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
198 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
200 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
202 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
204 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
206 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
208 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
|
./pkg/land/land_output.F |
280 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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 |
163 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
184 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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 |
285 |
LAND_STEPFWD |
dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt |
|
./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) |
|
./pkg/layers/layers_calc.F |
118 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i-1,j,k,bi,bj)+theta(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
120 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i-1,j,k+1,bi,bj)+theta(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
123 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
125 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
161 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
162 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) + |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
170 |
LAYERS_CALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_calc.F |
171 |
LAYERS_CALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_calc.F |
172 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
173 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
174 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
180 |
LAYERS_CALC |
layers_HU(i,j,kgu(i,j),bi,bj) = layers_HU(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
181 |
LAYERS_CALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
190 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i,j-1,k,bi,bj)+theta(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
192 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i,j-1,k+1,bi,bj)+theta(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
195 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
197 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
232 |
LAYERS_CALC |
layers_VFlux(i,j,kgv(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
233 |
LAYERS_CALC |
& layers_VFlux(i,j,kgv(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
234 |
LAYERS_CALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
241 |
LAYERS_CALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_calc.F |
242 |
LAYERS_CALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_calc.F |
243 |
LAYERS_CALC |
layers_UFlux(i,j,kgu(i,j),bi,bj) = |
|
./pkg/layers/layers_calc.F |
244 |
LAYERS_CALC |
& layers_UFlux(i,j,kgu(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
245 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
246 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
251 |
LAYERS_CALC |
layers_HV(i,j,kgv(i,j),bi,bj) = layers_HV(i,j,kgv(i,j),bi,bj) |
|
./pkg/layers/layers_calc.F |
252 |
LAYERS_CALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
267 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
270 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
275 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
278 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
282 |
LAYERS_CALC |
layers_TimeAve(bi,bj)=layers_TimeAve(bi,bj)+deltaTclock |
|
./pkg/layers/layers_calc.F |
57 |
LAYERS_CALC |
INTEGER bi, bj |
|
./pkg/layers/layers_calc.F |
71 |
LAYERS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/layers/layers_calc.F |
89 |
LAYERS_CALC |
layers_UFlux(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
91 |
LAYERS_CALC |
layers_HU(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
95 |
LAYERS_CALC |
layers_VFlux(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
97 |
LAYERS_CALC |
layers_HV(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
28 |
LAYERS_INIT_VARIA |
INTEGER i,j,kg,bi,bj |
|
./pkg/layers/layers_init_varia.F |
31 |
LAYERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/layers/layers_init_varia.F |
39 |
LAYERS_INIT_VARIA |
layers_UFlux(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
41 |
LAYERS_INIT_VARIA |
layers_HU(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
46 |
LAYERS_INIT_VARIA |
layers_VFlux(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
48 |
LAYERS_INIT_VARIA |
layers_HV(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
58 |
LAYERS_INIT_VARIA |
layers_TimeAve(bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
61 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
63 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
70 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
104 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/layers/layers_output.F |
106 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
108 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
113 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
115 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
118 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
129 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/layers/layers_output.F |
133 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
136 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
142 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
145 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
178 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/layers/layers_output.F |
180 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
182 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
187 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
189 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
192 |
LAYERS_OUTPUT |
layers_TimeAve(bi,bj) = 0. |
|
./pkg/layers/layers_output.F |
49 |
LAYERS_OUTPUT |
INTEGER bi, bj |
|
./pkg/longstep/longstep_average_3d.F |
43 |
LONGSTEP_AVERAGE_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d.F |
48 |
LONGSTEP_AVERAGE_3D |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/longstep/longstep_average_3d.F |
49 |
LONGSTEP_AVERAGE_3D |
factor = FLOAT(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 |
50 |
LONGSTEP_AVERAGE_3D_FAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/longstep/longstep_average_3d_fac.F |
54 |
LONGSTEP_AVERAGE_3D_FAC |
factor = FLOAT(lsCnt(bi,bj))*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
56 |
LONGSTEP_AVERAGE_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./pkg/longstep/longstep_correction_step.F |
47 |
LONGSTEP_CORRECTION_STEP |
INTEGER bi,bj |
|
./pkg/longstep/longstep_correction_step.F |
57 |
LONGSTEP_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/longstep/longstep_correction_step.F |
62 |
LONGSTEP_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./pkg/longstep/longstep_fill_3d.F |
44 |
LONGSTEP_FILL_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d.F |
48 |
LONGSTEP_FILL_3D |
DO bi=myBxLo(myThid), myBxHi(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 |
49 |
LONGSTEP_FILL_3D_FAC |
DO bi=myBxLo(myThid), myBxHi(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 |
49 |
LONGSTEP_FILL_3D_RS |
DO bi=myBxLo(myThid), myBxHi(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 |
46 |
LONGSTEP_RESET_3D |
DO bi=myBxLo(myThid), myBxHi(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 |
117 |
LONGSTEP_THERMODYNAMICS |
INTEGER bi, bj |
|
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
161 |
LONGSTEP_THERMODYNAMICS |
act1 = bi - myBxLo(myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
215 |
LONGSTEP_THERMODYNAMICS |
gPTr(i,j,k,bi,bj,itracer) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
230 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/longstep/longstep_thermodynamics.F |
274 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
329 |
LONGSTEP_THERMODYNAMICS |
I k,bi,bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
346 |
LONGSTEP_THERMODYNAMICS |
wFld(i,j) = LS_wVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
347 |
LONGSTEP_THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
348 |
LONGSTEP_THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./pkg/longstep/longstep_thermodynamics.F |
359 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
363 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
415 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/longstep/longstep_thermodynamics.F |
424 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,k, |
|
./pkg/longstep/longstep_thermodynamics.F |
440 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
452 |
LONGSTEP_THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
465 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_init.F |
24 |
MATRIX_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/matrix/matrix_init.F |
32 |
MATRIX_INIT |
DO bi=myBxLo (myThid), myBxHi (myThid) |
|
./pkg/matrix/matrix_init.F |
36 |
MATRIX_INIT |
PTRACERS_initial(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_init.F |
37 |
MATRIX_INIT |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_init.F |
38 |
MATRIX_INIT |
MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0 |
|
./pkg/matrix/matrix_init.F |
39 |
MATRIX_INIT |
MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0 |
|
./pkg/matrix/matrix_store_tendency.F |
14 |
MATRIX_STORE_TENDENCY_EXP |
& bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
25 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_store_tendency.F |
39 |
MATRIX_STORE_TENDENCY_EXP |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_store_tendency.F |
40 |
MATRIX_STORE_TENDENCY_EXP |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_store_tendency.F |
41 |
MATRIX_STORE_TENDENCY_EXP |
& + (gPtr(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
42 |
MATRIX_STORE_TENDENCY_EXP |
& - PTRACERS_initial(i,j,k,bi,bj,iTracer)) |
|
./pkg/matrix/matrix_store_tendency.F |
43 |
MATRIX_STORE_TENDENCY_EXP |
gPtr(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
44 |
MATRIX_STORE_TENDENCY_EXP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
62 |
MATRIX_STORE_TENDENCY_IMP |
& bi, bj, myTime, myIter, myThid ) |
|
./pkg/matrix/matrix_store_tendency.F |
73 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER bi, bj |
|
./pkg/matrix/matrix_store_tendency.F |
87 |
MATRIX_STORE_TENDENCY_IMP |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_store_tendency.F |
88 |
MATRIX_STORE_TENDENCY_IMP |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_store_tendency.F |
89 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
90 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
91 |
MATRIX_STORE_TENDENCY_IMP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_write_tendency.F |
109 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
113 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
28 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
43 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
47 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_write_tendency.F |
48 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_write_tendency.F |
66 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
70 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
90 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_write_tendency.F |
91 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./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 |
1021 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
1036 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1038 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1051 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1053 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1067 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1136 |
MDSREADFIELD_2D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1140 |
MDSREADFIELD_2D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
1141 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1332 |
MDSWRITEFIELD_2D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1336 |
MDSWRITEFIELD_2D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
1337 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1414 |
MDSWRITEFIELD_2D_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl.F |
1416 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1435 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1442 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1444 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1457 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1459 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1492 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1497 |
MDSWRITEFIELD_2D_GL |
dimList(2,1)=((ip-1)*nSx+(bi-1))*sNx+1 |
|
./pkg/mdsio/mdsio_gl.F |
1498 |
MDSWRITEFIELD_2D_GL |
dimList(3,1)=((ip-1)*nSx+bi)*sNx |
|
./pkg/mdsio/mdsio_gl.F |
219 |
MDSREADFIELD_3D_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl.F |
222 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
260 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
275 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
277 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
290 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
292 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
306 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
375 |
MDSREADFIELD_3D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
379 |
MDSREADFIELD_3D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
380 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
569 |
MDSWRITEFIELD_3D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mdsio/mdsio_gl.F |
573 |
MDSWRITEFIELD_3D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
574 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
651 |
MDSWRITEFIELD_3D_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl.F |
653 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
672 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
679 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
681 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
696 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
729 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
734 |
MDSWRITEFIELD_3D_GL |
dimList(2,1)=((ip-1)*nSx+(bi-1))*sNx+1 |
|
./pkg/mdsio/mdsio_gl.F |
735 |
MDSWRITEFIELD_3D_GL |
dimList(3,1)=((ip-1)*nSx+bi)*sNx |
|
./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 |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
980 |
MDSREADFIELD_2D_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl.F |
983 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
133 |
MDSREADFIELD_XZ_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl_slice.F |
136 |
MDSREADFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
178 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
180 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
193 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
195 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
209 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
360 |
MDSREADFIELD_YZ_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl_slice.F |
363 |
MDSREADFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
405 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
407 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
420 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
422 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
436 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
584 |
MDSWRITEFIELD_XZ_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl_slice.F |
586 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
604 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
611 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
613 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
626 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
628 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
659 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
664 |
MDSWRITEFIELD_XZ_GL |
dimList(2,1)=((ip-1)*nSx+(bi-1))*sNx+1 |
|
./pkg/mdsio/mdsio_gl_slice.F |
665 |
MDSWRITEFIELD_XZ_GL |
dimList(3,1)=((ip-1)*nSx+bi)*sNx |
|
./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 |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
812 |
MDSWRITEFIELD_YZ_GL |
do bi=1,nSx |
|
./pkg/mdsio/mdsio_gl_slice.F |
814 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
832 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
839 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
841 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
854 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
856 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
887 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
892 |
MDSWRITEFIELD_YZ_GL |
dimList(2,1)=(ip-1)*nSx+bi |
|
./pkg/mdsio/mdsio_gl_slice.F |
893 |
MDSWRITEFIELD_YZ_GL |
dimList(3,1)=ip*nSx+bi |
|
./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 |
69 |
MDS_PASS_R4TORL |
DO bi = myBxLo(myThid), myBxHi(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 |
82 |
MDS_PASS_R4TORL |
DO bi = myBxLo(myThid), myBxHi(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 |
96 |
MDS_PASS_R4TORL |
bi = biArg |
|
./model/src/adams_bashforth2.F |
10 |
ADAMS_BASHFORTH2 |
I bi, bj, k, |
|
./model/src/adams_bashforth2.F |
36 |
ADAMS_BASHFORTH2 |
INTEGER bi,bj,k |
|
./model/src/adams_bashforth2.F |
65 |
ADAMS_BASHFORTH2 |
gTrtmp = ab15*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
66 |
ADAMS_BASHFORTH2 |
& + ab05*gTrNm1(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
67 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
68 |
ADAMS_BASHFORTH2 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./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 |
69 |
MDS_PASS_R4TORS |
DO bi = myBxLo(myThid), myBxHi(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 |
82 |
MDS_PASS_R4TORS |
DO bi = myBxLo(myThid), myBxHi(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 |
96 |
MDS_PASS_R4TORS |
bi = biArg |
|
./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 |
69 |
MDS_PASS_R8TORL |
DO bi = myBxLo(myThid), myBxHi(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 |
82 |
MDS_PASS_R8TORL |
DO bi = myBxLo(myThid), myBxHi(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 |
96 |
MDS_PASS_R8TORL |
bi = biArg |
|
./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 |
69 |
MDS_PASS_R8TORS |
DO bi = myBxLo(myThid), myBxHi(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 |
82 |
MDS_PASS_R8TORS |
DO bi = myBxLo(myThid), myBxHi(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 |
96 |
MDS_PASS_R8TORS |
bi = biArg |
|
./pkg/mdsio/mdsio_read_field.F |
110 |
MDS_READ_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_read_field.F |
377 |
MDS_READ_FIELD |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_read_field.F |
378 |
MDS_READ_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_read_field.F |
387 |
MDS_READ_FIELD |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_read_field.F |
393 |
MDS_READ_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_section.F |
166 |
MDS_READ_SEC_XZ |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_read_section.F |
169 |
MDS_READ_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_section.F |
203 |
MDS_READ_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
215 |
MDS_READ_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
|
./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 |
444 |
MDS_READ_SEC_YZ |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_read_section.F |
447 |
MDS_READ_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_section.F |
481 |
MDS_READ_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_read_section.F |
493 |
MDS_READ_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
|
./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 |
87 |
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 |
163 |
MDS_READVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./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/adams_bashforth3.F |
105 |
ADAMS_BASHFORTH3 |
gTrtmp = ab0*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
106 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
107 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
108 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
109 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./model/src/adams_bashforth3.F |
10 |
ADAMS_BASHFORTH3 |
I bi, bj, kArg, |
|
./model/src/adams_bashforth3.F |
118 |
ADAMS_BASHFORTH3 |
gTrtmp = ab0*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
119 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
120 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
121 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./model/src/adams_bashforth3.F |
61 |
ADAMS_BASHFORTH3 |
INTEGER bi,bj,kArg |
|
./pkg/mdsio/mdsio_readvector.F |
12 |
MDSREADVECTOR |
I bi, |
|
./pkg/mdsio/mdsio_readvector.F |
154 |
MDSREADVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_readvector.F |
186 |
MDSREADVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/mdsio/mdsio_readvector.F |
48 |
MDSREADVECTOR |
INTEGER bi,bj |
|
./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 |
155 |
MDS_WR_METAFILES |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
157 |
MDS_WR_METAFILES |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
164 |
MDS_WR_METAFILES |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
170 |
MDS_WR_METAFILES |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
94 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./model/src/calc_3d_diffusivity.F |
101 |
CALC_3D_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
104 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
117 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,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 |
131 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
148 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
171 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
176 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
181 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
205 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
214 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
223 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
232 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
55 |
CALC_3D_DIFFUSIVITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_3d_diffusivity.F |
91 |
CALC_3D_DIFFUSIVITY |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
94 |
CALC_3D_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./pkg/mdsio/mdsio_write_field.F |
127 |
MDS_WRITE_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_write_field.F |
416 |
MDS_WRITE_FIELD |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_write_field.F |
417 |
MDS_WRITE_FIELD |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_write_field.F |
422 |
MDS_WRITE_FIELD |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_write_field.F |
426 |
MDS_WRITE_FIELD |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_field.F |
471 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_field.F |
505 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_section.F |
152 |
MDS_WRITE_SEC_XZ |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_write_section.F |
155 |
MDS_WRITE_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_section.F |
174 |
MDS_WRITE_SEC_XZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
186 |
MDS_WRITE_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
|
./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 |
405 |
MDS_WRITE_SEC_YZ |
DO bi=1,nSx |
|
./pkg/mdsio/mdsio_write_section.F |
408 |
MDS_WRITE_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_section.F |
427 |
MDS_WRITE_SEC_YZ |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_write_section.F |
439 |
MDS_WRITE_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
|
./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 |
89 |
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 |
283 |
MDS_WRITELOCAL |
bi = biArg + myBxLo(ith) - 1 |
|
./pkg/mdsio/mdsio_writelocal.F |
286 |
MDS_WRITELOCAL |
bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx ) |
|
./pkg/mdsio/mdsio_writelocal.F |
299 |
MDS_WRITELOCAL |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
303 |
MDS_WRITELOCAL |
tN = W2_myTileList(bi,bj) |
|
./pkg/mdsio/mdsio_writelocal.F |
347 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
381 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./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 |
161 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./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 |
227 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./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 |
|
./pkg/mdsio/mdsio_writevector.F |
13 |
MDSWRITEVECTOR |
I bi, |
|
./pkg/mdsio/mdsio_writevector.F |
260 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
278 |
MDSWRITEVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/mdsio/mdsio_writevector.F |
312 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
317 |
MDSWRITEVECTOR |
dimList(2,1) = ((myXGlobalLo-1)/sNx + (bi-1))*narr + 1 |
|
./pkg/mdsio/mdsio_writevector.F |
318 |
MDSWRITEVECTOR |
dimList(3,1) = ((myXGlobalLo-1)/sNx + bi )*narr |
|
./pkg/mdsio/mdsio_writevector.F |
55 |
MDSWRITEVECTOR |
INTEGER bi,bj |
|
./model/src/calc_buoyancy.F |
28 |
CALC_BUOYANCY |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/calc_buoyancy.F |
41 |
CALC_BUOYANCY |
buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(k))/tRef(k) |
|
./model/src/calc_buoyancy.F |
7 |
CALC_BUOYANCY |
I bi, bj, iMin, iMax, jMin, jMax, k, rhoLoc, |
|
./pkg/mnc/mnc_cw_cvars.F |
101 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
137 |
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 |
173 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xC(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
211 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
247 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
283 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yC(1,i-OLy,bi,bj) |
|
./pkg/mnc/mnc_cw_cvars.F |
42 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_cw_cvars.F |
69 |
MNC_CW_WRITE_CVAR |
xtmin = exch2_tbasex(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
70 |
MNC_CW_WRITE_CVAR |
ytmin = exch2_tbasey(W2_myTileList(bi,bj)) |
|
./pkg/mnc/mnc_cw_cvars.F |
77 |
MNC_CW_WRITE_CVAR |
xtmin = sNx * ( bi+(myXGlobalLo-1)/sNx - 1 ) |
|
./pkg/mnc/mnc_cw_model_attr.F |
13 |
MNC_CW_SET_GATTR |
I bi, bj, tnum, |
|
./pkg/mnc/mnc_cw_model_attr.F |
38 |
MNC_CW_SET_GATTR |
integer myThid, bi,bj, tnum |
|
./pkg/mnc/mnc_cw_model_attr.F |
84 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid) |
|
./model/src/calc_common_factors.F |
12 |
CALC_COMMON_FACTORS |
I k,bi,bj, myThid ) |
|
./model/src/calc_common_factors.F |
56 |
CALC_COMMON_FACTORS |
INTEGER k,bi,bj |
|
./model/src/calc_common_factors.F |
80 |
CALC_COMMON_FACTORS |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_common_factors.F |
81 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
82 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_common_factors.F |
83 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
90 |
CALC_COMMON_FACTORS |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
91 |
CALC_COMMON_FACTORS |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./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 |
638 |
MNC_CW_GET_TILE_NUM |
iG = bi+(myXGlobalLo-1)/sNx |
|
./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 |
731 |
MNC_CW_GET_XYFO |
ixoff = myXGlobalLo + bi * sNx |
|
./pkg/mnc/mnc_dim.F |
152 |
MNC_DIM_INIT_ALL_CV |
IF (bi .GT. -1) THEN |
|
./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_diffusivity.F |
102 |
CALC_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./model/src/calc_diffusivity.F |
112 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
116 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
11 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/calc_diffusivity.F |
126 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
130 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
140 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
144 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
153 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
157 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
166 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
170 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
49 |
CALC_DIFFUSIVITY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_diffusivity.F |
76 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
79 |
CALC_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_diffusivity.F |
85 |
CALC_DIFFUSIVITY |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./model/src/calc_diffusivity.F |
93 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
96 |
CALC_DIFFUSIVITY |
& + diffKr(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) |
|
./pkg/mom_common/mom_calc_hdiv.F |
53 |
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 |
54 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyg( i , j ,bi,bj)*hFacW( i , j ,K,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
55 |
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 |
56 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxg( i , j ,bi,bj)*hFacS( i , j ,K,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& )*recip_rA(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
58 |
MOM_CALC_HDIV |
& *_recip_hFacC(i,j,k,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 |
116 |
MOM_CALC_HFACZ |
& smoothMin_R4(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
118 |
MOM_CALC_HFACZ |
& MIN(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
11 |
MOM_CALC_HFACZ |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_hfacz.F |
120 |
MOM_CALC_HFACZ |
& _hFacW(i ,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
124 |
MOM_CALC_HFACZ |
& smoothMin_R4(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
126 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
128 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
147 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
201 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
202 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
203 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
204 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
219 |
MOM_CALC_HFACZ |
& _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
220 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
221 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
222 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
230 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
231 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
232 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
233 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
244 |
MOM_CALC_HFACZ |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
255 |
MOM_CALC_HFACZ |
myFace = bi |
|
./pkg/mom_common/mom_calc_hfacz.F |
267 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./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 |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./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 |
276 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
279 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
280 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
281 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
292 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
293 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
301 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
306 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
309 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
310 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
311 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
322 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
331 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
336 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
339 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
340 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
341 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
351 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./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 |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
360 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
363 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
364 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
365 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
39 |
MOM_CALC_HFACZ |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_hfacz.F |
81 |
MOM_CALC_HFACZ |
act1 = bi - myBxLo(myThid) |
|
./pkg/mom_common/mom_calc_ke.F |
102 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
103 |
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 |
104 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
105 |
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 |
106 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
117 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
119 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,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 |
123 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
126 |
MOM_CALC_KE |
& ) )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
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 |
88 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
89 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
90 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
91 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
92 |
MOM_CALC_KE |
& )*recip_rA(i,j,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_relvort3.F |
96 |
MOM_CALC_RELVORT3 |
myFace = bi |
|
./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) )*recip_rAz(i,j,bi,bj) |
|
./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 ) )*recip_rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
146 |
MOM_CALC_VISC |
act1 = bi - myBxLo(myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
304 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
309 |
MOM_CALC_VISC |
divDx(i,j) = (hDiv(i,j)-hDiv(i-1,j))*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
318 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_common/mom_calc_visc.F |
323 |
MOM_CALC_VISC |
divDy(i,j) = (hDiv(i,j)-hDiv(i,j-1))*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
332 |
MOM_CALC_VISC |
& *recip_DXG(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
340 |
MOM_CALC_VISC |
& *recip_DYG(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
341 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
363 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
365 |
MOM_CALC_VISC |
L3 = L3_D(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
366 |
MOM_CALC_VISC |
L4rdt = L4rdt_D(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
447 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
458 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
472 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
473 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
476 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
477 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
480 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
481 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
485 |
MOM_CALC_VISC |
viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
486 |
MOM_CALC_VISC |
viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
489 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
490 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
497 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
499 |
MOM_CALC_VISC |
L3 = L3_Z(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
500 |
MOM_CALC_VISC |
L4rdt = L4rdt_Z(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
579 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
590 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
617 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
619 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
621 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
626 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
627 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
628 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
629 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
631 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
632 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
633 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
634 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
637 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
639 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
641 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
643 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
645 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
646 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
647 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
648 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
8 |
MOM_CALC_VISC |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_visc.F |
90 |
MOM_CALC_VISC |
INTEGER bi,bj,k |
|
./model/src/calc_div_ghat.F |
10 |
CALC_DIV_GHAT |
I bi,bj,k, |
|
./model/src/calc_div_ghat.F |
112 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
113 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
120 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
129 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
139 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
148 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
155 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
156 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
163 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
172 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
183 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/calc_div_ghat.F |
184 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom |
|
./model/src/calc_div_ghat.F |
191 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
192 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom |
|
./model/src/calc_div_ghat.F |
40 |
CALC_DIV_GHAT |
INTEGER bi,bj |
|
./model/src/calc_div_ghat.F |
64 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
65 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
66 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
67 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
80 |
CALC_DIV_GHAT |
pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom |
|
./model/src/calc_div_ghat.F |
89 |
CALC_DIV_GHAT |
& *xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom |
|
./pkg/mom_common/mom_hdissip.F |
28 |
MOM_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_hdissip.F |
53 |
MOM_HDISSIP |
& recip_dyg(i,j,bi,bj)*recip_dyg(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
54 |
MOM_HDISSIP |
& *recip_dxc(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
56 |
MOM_HDISSIP |
& dyf( i , j ,bi,bj)*dyf( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
58 |
MOM_HDISSIP |
& -dyf(i-1, j ,bi,bj)*dyf(i-1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
61 |
MOM_HDISSIP |
& +recip_dxc(i,j,bi,bj)*recip_dxc(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
62 |
MOM_HDISSIP |
& *recip_dyg(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
64 |
MOM_HDISSIP |
& dxv( i ,j+1,bi,bj)*dxv( i ,j+1,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
66 |
MOM_HDISSIP |
& -dxv( i , j ,bi,bj)*dxv( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
71 |
MOM_HDISSIP |
& recip_dyc(i,j,bi,bj)*recip_dyc(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
72 |
MOM_HDISSIP |
& *recip_dxg(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
74 |
MOM_HDISSIP |
& dyu(i+1, j ,bi,bj)*dyu(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
76 |
MOM_HDISSIP |
& -dyu( i , j ,bi,bj)*dyu( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
79 |
MOM_HDISSIP |
& -recip_dxg(i,j,bi,bj)*recip_dxg(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 |
& *recip_dyc(i,j,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
82 |
MOM_HDISSIP |
& dxf( i , j ,bi,bj)*dxf( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
84 |
MOM_HDISSIP |
& -dxf( i ,j-1,bi,bj)*dxf( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
100 |
MOM_INIT_FIXED |
& /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
107 |
MOM_INIT_FIXED |
L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
108 |
MOM_INIT_FIXED |
L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
109 |
MOM_INIT_FIXED |
& *L2_D(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
116 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
119 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
125 |
MOM_INIT_FIXED |
IF ( recip_dxV(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
126 |
MOM_INIT_FIXED |
& recip_dyU(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
127 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
128 |
MOM_INIT_FIXED |
& /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2)) |
|
./pkg/mom_common/mom_init_fixed.F |
135 |
MOM_INIT_FIXED |
L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5 |
|
./pkg/mom_common/mom_init_fixed.F |
136 |
MOM_INIT_FIXED |
L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
137 |
MOM_INIT_FIXED |
& *L2_Z(i,j,bi,bj)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
36 |
MOM_INIT_FIXED |
INTEGER i,j,bi,bj |
|
./pkg/mom_common/mom_init_fixed.F |
46 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
51 |
MOM_INIT_FIXED |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
52 |
MOM_INIT_FIXED |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
62 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
67 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
68 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
72 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
91 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
97 |
MOM_INIT_FIXED |
IF ( recip_dxF(i,j,bi,bj).NE.0. .OR. |
|
./pkg/mom_common/mom_init_fixed.F |
98 |
MOM_INIT_FIXED |
& recip_dyF(i,j,bi,bj).NE.0. ) THEN |
|
./pkg/mom_common/mom_init_fixed.F |
99 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = 2. _d 0 |
|
./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 |
66 |
MOM_QUASIHYDROSTATIC |
& fCoriCos(i,j,bi,bj)* |
|
./pkg/mom_common/mom_quasihydrostatic.F |
67 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
68 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
69 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
70 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
81 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
82 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
83 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
84 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
101 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
11 |
MOM_U_BOTTOMDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
39 |
MOM_U_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
78 |
MOM_U_BOTTOMDRAG |
maskDown=_maskW(i,j,kDown,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
81 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
85 |
MOM_U_BOTTOMDRAG |
& + bottomdragfld(i,j,bi,bj)*dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
92 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./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 |
100 |
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 |
125 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
126 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
127 |
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 |
128 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
143 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
147 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
156 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
164 |
MOM_U_IMPLICIT_R |
& *recip_rAw(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
168 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
170 |
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 |
172 |
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 |
190 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
216 |
MOM_U_IMPLICIT_R |
& -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
217 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
218 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
219 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
223 |
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 |
87 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_u_implicit_r.F |
89 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
98 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.1.) |
|
./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) |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
11 |
MOM_U_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_sidedrag.F |
120 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - _hFacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
126 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
127 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
128 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
130 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
132 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
134 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j )*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
140 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
142 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
144 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
146 |
MOM_U_SIDEDRAG |
& -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
161 |
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 |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
77 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
Ahtmp=min(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
81 |
MOM_U_SIDEDRAG |
A4tmp=min(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
83 |
MOM_U_SIDEDRAG |
A4tmp=min(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
84 |
MOM_U_SIDEDRAG |
A4tmp=max(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
86 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
87 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
88 |
MOM_U_SIDEDRAG |
& *( hFacZClosedS*_dxV(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
89 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
90 |
MOM_U_SIDEDRAG |
& +hFacZClosedN*_dxV(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
91 |
MOM_U_SIDEDRAG |
& *_recip_dyU(i,j+1,bi,bj) ) |
|
./pkg/mom_common/mom_u_sidedrag.F |
94 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
96 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
98 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
108 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
18 |
MOM_V_BOTTOMDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
46 |
MOM_V_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
85 |
MOM_V_BOTTOMDRAG |
maskDown=_maskS(i,j,kdown,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
88 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
92 |
MOM_V_BOTTOMDRAG |
& + bottomdragfld(i,j,bi,bj)*dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
99 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./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 |
& *(rStarFacC(i,j,bi,bj)**atm_kappa - 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 |
10 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./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 |
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 |
169 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
170 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
178 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
186 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
196 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
197 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
204 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
205 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
216 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
217 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
224 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
225 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
44 |
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)*rStarFacC(i,j,bi,bj)**atm_kappa |
|
./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/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 |
100 |
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 |
125 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
126 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
127 |
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 |
128 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
143 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
147 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
156 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
164 |
MOM_V_IMPLICIT_R |
& *recip_rAs(i,j,bi,bj)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
168 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
170 |
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 |
172 |
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 |
190 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
216 |
MOM_V_IMPLICIT_R |
& -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
217 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
218 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
219 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
223 |
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 |
87 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_v_implicit_r.F |
89 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
98 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.1.) |
|
./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 |
114 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
118 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - _hFacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
11 |
MOM_V_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_sidedrag.F |
123 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
125 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
128 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
130 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i ,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
132 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
133 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
135 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
137 |
MOM_V_SIDEDRAG |
& -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
148 |
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 |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
77 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
Ahtmp=min(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
A4tmp=min(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
86 |
MOM_V_SIDEDRAG |
A4tmp=max(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
88 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
89 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
90 |
MOM_V_SIDEDRAG |
& *( hFacZClosedW*_dyU( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
91 |
MOM_V_SIDEDRAG |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
92 |
MOM_V_SIDEDRAG |
& +hFacZClosedE*_dyU(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
93 |
MOM_V_SIDEDRAG |
& *_recip_dxV(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_v_sidedrag.F |
95 |
MOM_V_SIDEDRAG |
& Ahtmp*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
97 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
99 |
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)) |
|
./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) |
|
./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/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 |
170 |
MOM_FLUXFORM |
act1 = bi - myBxLo(myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
251 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
257 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
258 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
259 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
260 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
267 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
268 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
281 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
283 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
297 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
298 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
299 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
300 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
309 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
312 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
330 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
335 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
347 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k+1, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
354 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k+1, |
|
./pkg/mom_fluxform/mom_fluxform.F |
356 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
357 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
35 |
MOM_FLUXFORM |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./pkg/mom_fluxform/mom_fluxform.F |
364 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
379 |
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 |
381 |
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 |
384 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
389 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU(bi,bj,k,uTrans,uFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU(bi,bj,k,vTrans,uFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
405 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
407 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
408 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
410 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
411 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
422 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
425 |
MOM_FLUXFORM |
& 'ADVrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
435 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
436 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
437 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
456 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
471 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX(bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
475 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
480 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj, k, uVel,KappaRU,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
481 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,fVrDw,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
494 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
506 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
507 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
509 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
517 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
531 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
562 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
565 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
571 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
574 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
580 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
583 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
595 |
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 |
597 |
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 |
600 |
MOM_FLUXFORM |
I bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
605 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV(bi,bj,k,uTrans,vFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
609 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV(bi,bj,k,vTrans,vFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
614 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
621 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
623 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
624 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
626 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
638 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
639 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
641 |
MOM_FLUXFORM |
& 'ADVrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
651 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
652 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
653 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
660 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
683 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
686 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX(bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX(bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
695 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
696 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
705 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
706 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
708 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
709 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
721 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
732 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
746 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
756 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
76 |
MOM_FLUXFORM |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
780 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE(bi,bj,k,uFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
789 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
795 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
798 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS(bi,bj,k,vFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
814 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
819 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
821 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS(bi,bj,k,uFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
824 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
829 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
835 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
838 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
843 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
846 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
855 |
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 |
856 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
857 |
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 |
858 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
864 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gU(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
866 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
867 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gV(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
870 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(guDiss,'Um_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
871 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gvDiss,'Vm_Diss ',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)* |
|
./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 |
100 |
MOM_U_DEL2U |
& *( hFacZClosedS*dxV(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
101 |
MOM_U_DEL2U |
& *_recip_dyU(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
102 |
MOM_U_DEL2U |
& +hFacZClosedN*dxV(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
103 |
MOM_U_DEL2U |
& *_recip_dyU(i,j+1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
105 |
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 |
32 |
MOM_U_DEL2U |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_del2u.F |
52 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
53 |
MOM_U_DEL2U |
& *_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
54 |
MOM_U_DEL2U |
& *_recip_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
57 |
MOM_U_DEL2U |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
68 |
MOM_U_DEL2U |
& *_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
69 |
MOM_U_DEL2U |
& *_recip_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
72 |
MOM_U_DEL2U |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
83 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
84 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
87 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
96 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
98 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
99 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./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) |
|
./model/src/calc_gs.F |
114 |
CALC_GS |
act1 = bi - myBxLo(myThid) |
|
./model/src/calc_gs.F |
11 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
163 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
175 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
189 |
CALC_GS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gs.F |
195 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
200 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
209 |
CALC_GS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gs.F |
215 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
229 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
233 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
238 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
86 |
CALC_GS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./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) ) |
|
./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 |
100 |
MOM_V_DEL2V |
& *_recip_dxV( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
101 |
MOM_V_DEL2V |
& +hFacZClosedE*dyU(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
102 |
MOM_V_DEL2V |
& *_recip_dxV(i+1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
104 |
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 |
32 |
MOM_V_DEL2V |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_del2v.F |
52 |
MOM_V_DEL2V |
& *_dyU(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
53 |
MOM_V_DEL2V |
& *_recip_dxV(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
56 |
MOM_V_DEL2V |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
66 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
67 |
MOM_V_DEL2V |
& *_dxF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
68 |
MOM_V_DEL2V |
& *_recip_dyF(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
71 |
MOM_V_DEL2V |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
82 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
83 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
86 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
95 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
97 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
98 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
99 |
MOM_V_DEL2V |
& *( hFacZClosedW*dyU( 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) |
|
./model/src/calc_gt.F |
113 |
CALC_GT |
act1 = bi - myBxLo(myThid) |
|
./model/src/calc_gt.F |
11 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
162 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
174 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
188 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gt.F |
194 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
199 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
208 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gt.F |
214 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
228 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
232 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
237 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
85 |
CALC_GT |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./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 |
126 |
MOM_VECINV |
act1 = bi - myBxLo(myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
149 |
MOM_VECINV |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
217 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
222 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
223 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
231 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
233 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
244 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
246 |
MOM_VECINV |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
262 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
270 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
274 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
281 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
285 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strain, |
|
./pkg/mom_vecinv/mom_vecinv.F |
292 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
306 |
MOM_VECINV |
CALL MOM_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
314 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
346 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
347 |
MOM_VECINV |
& *recip_rAw(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
359 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
373 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
382 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
398 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
411 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
412 |
MOM_VECINV |
& *recip_rAs(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
424 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
438 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
447 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
460 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
464 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3, |
|
./pkg/mom_vecinv/mom_vecinv.F |
471 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
485 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
495 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
497 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
500 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
505 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
506 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
511 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
512 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
516 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
518 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
525 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
526 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
532 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
533 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
542 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
545 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
551 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
556 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
561 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
564 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
567 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
570 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
575 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
581 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
582 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
586 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
588 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
597 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
599 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
604 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
605 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
611 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
614 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
617 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
635 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
638 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,K,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
641 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
647 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
651 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf, |
|
./pkg/mom_vecinv/mom_vecinv.F |
65 |
MOM_VECINV |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/mom_vecinv/mom_vecinv.F |
664 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
667 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
672 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
675 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
686 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
692 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
700 |
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 |
701 |
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 |
711 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
717 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
718 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
719 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
720 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
721 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
722 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
726 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3, |
|
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
730 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
732 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension, |
|
./pkg/mom_vecinv/mom_vecinv.F |
734 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
736 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss, |
|
./pkg/mom_vecinv/mom_vecinv.F |
744 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
746 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
747 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
748 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(guDiss, 'Um_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
749 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gvDiss, 'Vm_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
751 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gU(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
752 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
753 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gV(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
754 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
7 |
MOM_VECINV |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./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 |
107 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
115 |
MOM_VI_DEL2UV |
& + ( hDiv(i,j) - hDiv(i,j-1) )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
116 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
118 |
MOM_VI_DEL2UV |
& *recip_DXG(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 |
86 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
94 |
MOM_VI_DEL2UV |
& + ( hDiv(i,j) - hDiv(i-1,j) )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
95 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
97 |
MOM_VI_DEL2UV |
& *recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
101 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
102 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
103 |
MOM_VI_HDISSIP |
& + viscAhD* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
105 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
129 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
130 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
131 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
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 |
134 |
MOM_VI_HDISSIP |
Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
135 |
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 |
158 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
159 |
MOM_VI_HDISSIP |
& ( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
160 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
162 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
165 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
166 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
169 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
176 |
MOM_VI_HDISSIP |
uD4 = recip_rAw(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
177 |
MOM_VI_HDISSIP |
& viscA4*( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
180 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
183 |
MOM_VI_HDISSIP |
vD4 = recip_rAs(i,j,bi,bj)*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
184 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
187 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
192 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
193 |
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 |
195 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
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 |
199 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
202 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
210 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
211 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
213 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
215 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
216 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
34 |
MOM_VI_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
74 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
75 |
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 |
77 |
MOM_VI_HDISSIP |
& *cosFacU(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 |
80 |
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 |
81 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
82 |
MOM_VI_HDISSIP |
& +( Dij-Dim )*recip_DYC(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
84 |
MOM_VI_HDISSIP |
& *cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
96 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
97 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
99 |
MOM_VI_HDISSIP |
& *cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
106 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
107 |
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 |
117 |
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 |
118 |
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 |
120 |
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 |
121 |
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 |
133 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
134 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
152 |
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 |
158 |
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 |
164 |
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 |
170 |
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 |
173 |
MOM_VI_U_CORIOLIS |
& *0.25 _d 0 *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
174 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
191 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
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 |
194 |
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 |
66 |
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 |
67 |
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 |
68 |
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 |
69 |
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 |
81 |
MOM_VI_U_CORIOLIS |
uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
82 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
92 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
93 |
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 |
94 |
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 |
95 |
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 |
129 |
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 |
130 |
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 |
131 |
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 |
132 |
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 |
150 |
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 |
151 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
165 |
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 |
166 |
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 |
168 |
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 |
169 |
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 |
184 |
MOM_VI_U_CORIOLIS_C4 |
uCoriolisTerm(i,j) = vort3u*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
185 |
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 |
77 |
MOM_VI_U_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
88 |
MOM_VI_U_CORIOLIS_C4 |
myFace = bi |
|
./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 |
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 |
|
./model/src/calc_gw.F |
126 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
12 |
CALC_GW |
I bi, bj, KappaRU, KappaRV, |
|
./model/src/calc_gw.F |
167 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
173 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
174 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
191 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
192 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
195 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
202 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
203 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
206 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
217 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
222 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
228 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
232 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
233 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
236 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
237 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
239 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
240 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
242 |
CALC_GW |
xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j) |
|
./model/src/calc_gw.F |
245 |
CALC_GW |
yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j) |
|
./model/src/calc_gw.F |
269 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
281 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
288 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
290 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
299 |
CALC_GW |
& wFld, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
308 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
311 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
323 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
335 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
336 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
337 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
338 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
339 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
341 |
CALC_GW |
& *_recip_dxC(i,j,bi,bj)*xA(i,j) |
|
./model/src/calc_gw.F |
343 |
CALC_GW |
& *sqCosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
345 |
CALC_GW |
& *cosFacU(j,bi,bj) |
|
./model/src/calc_gw.F |
353 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
355 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
357 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
359 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
361 |
CALC_GW |
& *_recip_dyC(i,j,bi,bj)*yA(i,j) |
|
./model/src/calc_gw.F |
364 |
CALC_GW |
& *sqCosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
366 |
CALC_GW |
& *cosFacV(j,bi,bj) |
|
./model/src/calc_gw.F |
381 |
CALC_GW |
& - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1 |
|
./model/src/calc_gw.F |
382 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
383 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
400 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
401 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
417 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
428 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
451 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
453 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
455 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
466 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
468 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
470 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
47 |
CALC_GW |
INTEGER bi,bj |
|
./model/src/calc_gw.F |
483 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
484 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 ) |
|
./model/src/calc_gw.F |
487 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
488 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
490 |
CALC_GW |
& )*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
499 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
501 |
CALC_GW |
& *rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
514 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
518 |
CALC_GW |
& )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j) |
|
./model/src/calc_gw.F |
546 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
552 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
558 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
574 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
581 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
590 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
599 |
CALC_GW |
I bi, bj, k, |
|
./model/src/calc_gw.F |
604 |
CALC_GW |
I bi, bj, k, |
|
./model/src/calc_gw.F |
613 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
623 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
|
./model/src/calc_gw.F |
624 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
106 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
107 |
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 |
117 |
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 |
118 |
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 |
120 |
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 |
121 |
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 |
133 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
134 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
152 |
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 |
158 |
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 |
164 |
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 |
170 |
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 |
173 |
MOM_VI_V_CORIOLIS |
& *0.25 _d 0 *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
174 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
191 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
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 |
194 |
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 |
66 |
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 |
67 |
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 |
68 |
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 |
69 |
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 |
81 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
82 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
92 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
93 |
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 |
94 |
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 |
95 |
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 |
129 |
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 |
130 |
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 |
131 |
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 |
132 |
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 |
150 |
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 |
151 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
165 |
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 |
166 |
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 |
168 |
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 |
169 |
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 |
184 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
185 |
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 |
77 |
MOM_VI_V_CORIOLIS_C4 |
myTile = W2_myTileList(bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
88 |
MOM_VI_V_CORIOLIS_C4 |
myFace = bi |
|
./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 |
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 |
|
./pkg/monitor/mon_advcfl.F |
33 |
MON_ADVCFL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcfl.F |
39 |
MON_ADVCFL |
DO bi=myBxLo(myThid),myBxHi(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 |
39 |
MON_ADVCFLW |
DO bi=myBxLo(myThid),myBxHi(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 |
41 |
MON_ADVCFLW2 |
DO bi=myBxLo(myThid),myBxHi(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_stats_rl.F |
101 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
102 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
104 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
136 |
MON_CALC_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rl.F |
62 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
63 |
MON_CALC_STATS_RL |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
64 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
65 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rl.F |
69 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
70 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
88 |
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 |
90 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
91 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
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 |
95 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
96 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./model/src/calc_ivdc.F |
35 |
CALC_IVDC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
55 |
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/monitor/mon_calc_stats_rs.F |
101 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
102 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = tileVol (bi,bj) + tmpVol |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
104 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
136 |
MON_CALC_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/monitor/mon_calc_stats_rs.F |
62 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
63 |
MON_CALC_STATS_RS |
tileVol (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
64 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
65 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = 0. |
|
./pkg/monitor/mon_calc_stats_rs.F |
69 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
70 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
88 |
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 |
90 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
91 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
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 |
95 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
96 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1 |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
112 |
MON_KE |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_ke.F |
122 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
123 |
MON_KE |
& *etaN(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
127 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
128 |
MON_KE |
tilePEav(bi,bj) = tilePEav(bi,bj) |
|
./pkg/monitor/mon_ke.F |
129 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
130 |
MON_KE |
& *maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
32 |
MON_KE |
INTEGER bi,bj,i,j,k,kp1 |
|
./pkg/monitor/mon_ke.F |
51 |
MON_KE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/monitor/mon_ke.F |
52 |
MON_KE |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
53 |
MON_KE |
tileMean(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
54 |
MON_KE |
tileVlAv(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
55 |
MON_KE |
tilePEav(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
66 |
MON_KE |
tileVol(bi,bj) = tileVol(bi,bj) |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
83 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
84 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
85 |
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 |
86 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
87 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
88 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
89 |
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 |
91 |
MON_KE |
tileVlAv(bi,bj) = tileVlAv(bi,bj) |
|
./pkg/monitor/mon_ke.F |
93 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./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 |
92 |
MON_STATS_LATBND_RL |
DO bi=myBxLo(myThid),myBxHi(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. |
|
./model/src/calc_oce_mxlayer.F |
104 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
111 |
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 |
113 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
117 |
CALC_OCE_MXLAYER |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./model/src/calc_oce_mxlayer.F |
125 |
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 |
144 |
CALC_OCE_MXLAYER |
IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
145 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = drF(1) |
|
./model/src/calc_oce_mxlayer.F |
148 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
157 |
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 |
159 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
163 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
177 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_oce_mxlayer.F |
194 |
CALC_OCE_MXLAYER |
rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
195 |
CALC_OCE_MXLAYER |
& tmpFac * ( hMixLayer(i-1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
196 |
CALC_OCE_MXLAYER |
& hMixLayer(i+1,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
197 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j-1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
198 |
CALC_OCE_MXLAYER |
& hMixLayer(i,j+1,bi,bj) ) |
|
./model/src/calc_oce_mxlayer.F |
201 |
CALC_OCE_MXLAYER |
& tmpFac * ( maskC(i-1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
202 |
CALC_OCE_MXLAYER |
& maskC(i+1,j,1,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
203 |
CALC_OCE_MXLAYER |
& maskC(i,j-1,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,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
210 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
218 |
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 |
96 |
CALC_OCE_MXLAYER |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1, |
|
./pkg/monitor/mon_stats_rl.F |
131 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(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 |
62 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(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 |
50 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(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 |
98 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/monitor/mon_stats_rs.F |
99 |
MON_STATS_RS |
tileSD(bi,bj)=0. |
|
./pkg/monitor/mon_surfcor.F |
101 |
MON_SURFCOR |
tile_wS(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
104 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
106 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
107 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
109 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
110 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
126 |
MON_SURFCOR |
tileTh2pe(bi,bj) = tileTh2pe(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
128 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_surfcor.F |
129 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
148 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
149 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
152 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
159 |
MON_SURFCOR |
tile_wT(bi,bj) = tile_wT(bi,bj) + vT_Mean |
|
./pkg/monitor/mon_surfcor.F |
160 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) + vS_Mean |
|
./pkg/monitor/mon_surfcor.F |
161 |
MON_SURFCOR |
tileWHeat(bi,bj) = tileWHeat(bi,bj) + vT_Heat |
|
./pkg/monitor/mon_surfcor.F |
53 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
|
./pkg/monitor/mon_surfcor.F |
74 |
MON_SURFCOR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/monitor/mon_surfcor.F |
75 |
MON_SURFCOR |
tileArea(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
76 |
MON_SURFCOR |
tile_wT(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
77 |
MON_SURFCOR |
tile_wS(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
78 |
MON_SURFCOR |
tileWHeat(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
79 |
MON_SURFCOR |
tileTh2pe(bi,bj) = 0. |
|
./pkg/monitor/mon_surfcor.F |
83 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
tileArea(bi,bj) = tileArea(bi,bj) + rA(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
87 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
tile_wT(bi,bj) = tile_wT(bi,bj) + tmpVal |
|
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
tile_wS(bi,bj) = tile_wS(bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
93 |
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 |
163 |
MON_VORT3 |
iG = bi+(myXGlobalLo-1)/sNx |
|
./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 |
72 |
MON_VORT3 |
DO bi=myBxLo(myThid),myBxHi(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)) |
|
./model/src/calc_phi_hyd.F |
106 |
CALC_PHI_HYD |
act1 = bi - myBxLo(myThid) |
|
./model/src/calc_phi_hyd.F |
11 |
CALC_PHI_HYD |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
153 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
154 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
156 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
160 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
180 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
189 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
197 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
271 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
273 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
281 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
290 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
307 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
308 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
310 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
346 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
347 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
429 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
430 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
432 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
473 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
474 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
476 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
505 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
512 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
65 |
CALC_PHI_HYD |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/my82/my82_calc.F |
11 |
MY82_CALC |
I bi, bj, myTime, myThid ) |
|
./pkg/my82/my82_calc.F |
147 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
149 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
158 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
160 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
161 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
163 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
168 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
170 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax) |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
44 |
MY82_CALC |
INTEGER bi, bj |
|
./pkg/my82/my82_calc.F |
94 |
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 |
49 |
MY82_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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) = diffKrNrT(k) |
|
./pkg/my82/my82_output.F |
135 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/my82/my82_output.F |
136 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
137 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
138 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
139 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = 0. |
|
./pkg/my82/my82_output.F |
147 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/my82/my82_output.F |
149 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
151 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
153 |
MY82_OUTPUT |
& 1 , DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
155 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = MY_timeAve(bi,bj)+DDTT |
|
./pkg/my82/my82_output.F |
167 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/my82/my82_output.F |
169 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
171 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
173 |
MY82_OUTPUT |
& MY_timeAve, 1 , bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
210 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/my82/my82_output.F |
211 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
212 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
213 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
214 |
MY82_OUTPUT |
MY_timeAve(bi,bj) = 0. |
|
./pkg/my82/my82_output.F |
72 |
MY82_OUTPUT |
INTEGER bi, bj |
|
./model/src/calc_r_star.F |
107 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
108 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
109 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
110 |
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 |
111 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
112 |
CALC_R_STAR |
& )*recip_rAw(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
115 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
123 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
124 |
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 |
125 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
126 |
CALC_R_STAR |
& )*recip_rAs(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
129 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
137 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
138 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
139 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
140 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
143 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
150 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
152 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
155 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
169 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
174 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
179 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
184 |
CALC_R_STAR |
IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_r_star.F |
194 |
CALC_R_STAR |
tmpfldW = rSurfW(iiw,jjw,bi,bj) - rLowW(iiw,jjw,bi,bj) |
|
./model/src/calc_r_star.F |
197 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
200 |
CALC_R_STAR |
& rStarFacW(iiw,jjw,bi,bj), tmpfldW, |
|
./model/src/calc_r_star.F |
201 |
CALC_R_STAR |
& etaFld(iiw-1,jjw,bi,bj), etaFld(iiw,jjw,bi,bj) |
|
./model/src/calc_r_star.F |
206 |
CALC_R_STAR |
tmpfldS = rSurfS(iis,jjs,bi,bj) - rLowS(iis,jjs,bi,bj) |
|
./model/src/calc_r_star.F |
209 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
212 |
CALC_R_STAR |
& rStarFacS(iis,jjs,bi,bj), tmpfldS, |
|
./model/src/calc_r_star.F |
213 |
CALC_R_STAR |
& etaFld(iis,jjs-1,bi,bj), etaFld(iis,jjs,bi,bj) |
|
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
223 |
CALC_R_STAR |
& rStarFacC(iic,jjc,bi,bj), |
|
./model/src/calc_r_star.F |
224 |
CALC_R_STAR |
& Ro_surf(iic,jjc,bi,bj)-R_low(iic,jjc,bi,bj), |
|
./model/src/calc_r_star.F |
225 |
CALC_R_STAR |
& etaFld(iic,jjc,bi,bj) |
|
./model/src/calc_r_star.F |
236 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
|
./model/src/calc_r_star.F |
239 |
CALC_R_STAR |
& rStarFacC(iic2,jjc2,bi,bj), |
|
./model/src/calc_r_star.F |
240 |
CALC_R_STAR |
& Ro_surf(iic2,jjc2,bi,bj)-R_low(iic2,jjc2,bi,bj), |
|
./model/src/calc_r_star.F |
241 |
CALC_R_STAR |
& etaFld(iic2,jjc2,bi,bj) |
|
./model/src/calc_r_star.F |
254 |
CALC_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/calc_r_star.F |
267 |
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 |
268 |
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 |
269 |
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 |
270 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
272 |
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 |
273 |
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 |
274 |
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 |
275 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
277 |
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 |
278 |
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 |
279 |
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 |
280 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
289 |
CALC_R_STAR |
rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
290 |
CALC_R_STAR |
& -rStarExpC(i,j,bi,bj))/deltaTfreesurf |
|
./model/src/calc_r_star.F |
291 |
CALC_R_STAR |
rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
292 |
CALC_R_STAR |
& -rStarExpW(i,j,bi,bj))/deltaTfreesurf |
|
./model/src/calc_r_star.F |
293 |
CALC_R_STAR |
rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
294 |
CALC_R_STAR |
& -rStarExpS(i,j,bi,bj))/deltaTfreesurf |
|
./model/src/calc_r_star.F |
295 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
296 |
CALC_R_STAR |
& / rStarExpC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
297 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
298 |
CALC_R_STAR |
& / rStarExpW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
299 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
300 |
CALC_R_STAR |
& / rStarExpS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
52 |
CALC_R_STAR |
INTEGER i,j,bi,bj |
|
./model/src/calc_r_star.F |
79 |
CALC_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/calc_r_star.F |
85 |
CALC_R_STAR |
rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
86 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
87 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
94 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
95 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
96 |
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 |
97 |
CALC_R_STAR |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
99 |
CALC_R_STAR |
rStarFacC(i,j,bi,bj) = 1. |
|
./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 ) |
|
./pkg/mypackage/mypackage_calc_rhs.F |
11 |
MYPACKAGE_CALC_RHS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_calc_rhs.F |
24 |
MYPACKAGE_CALC_RHS |
INTEGER bi, bj |
|
./pkg/mypackage/mypackage_init_varia.F |
33 |
MYPACKAGE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/mypackage/mypackage_init_varia.F |
36 |
MYPACKAGE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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 |
|
./model/src/calc_surf_dr.F |
106 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
108 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
113 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
115 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskC(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
119 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_surf_dr.F |
123 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
125 |
CALC_SURF_DR |
& 'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj), |
|
./model/src/calc_surf_dr.F |
126 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
139 |
CALC_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
142 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
144 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
145 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i-1,j,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
148 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
155 |
CALC_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
160 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
161 |
CALC_SURF_DR |
hFac_surfS(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
163 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i,j-1,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
164 |
CALC_SURF_DR |
& )*recip_drF(ks)*maskS(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
50 |
CALC_SURF_DR |
INTEGER i,j,bi,bj |
|
./model/src/calc_surf_dr.F |
66 |
CALC_SURF_DR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/calc_surf_dr.F |
73 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
74 |
CALC_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
76 |
CALC_SURF_DR |
IF (rSurftmp(i,j) .LT. Rmin_surf(i,j,bi,bj)) THEN |
|
./model/src/calc_surf_dr.F |
80 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
85 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
89 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
|
./model/src/calc_surf_dr.F |
93 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
101 |
MYPACKAGE_TENDENCY_APPLY_V |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
102 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
109 |
MYPACKAGE_TENDENCY_APPLY_V |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
110 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
111 |
MYPACKAGE_TENDENCY_APPLY_V |
& +myPa_TendVelV(i, j ,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
129 |
MYPACKAGE_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
144 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
155 |
MYPACKAGE_TENDENCY_APPLY_T |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
156 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
173 |
MYPACKAGE_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
188 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
199 |
MYPACKAGE_TENDENCY_APPLY_S |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
19 |
MYPACKAGE_TENDENCY_APPLY_U |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
200 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
35 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
46 |
MYPACKAGE_TENDENCY_APPLY_U |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
47 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
54 |
MYPACKAGE_TENDENCY_APPLY_U |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
55 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
56 |
MYPACKAGE_TENDENCY_APPLY_U |
& +myPa_TendVelU( i ,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
74 |
MYPACKAGE_TENDENCY_APPLY_V |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
90 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./model/src/calc_viscosity.F |
11 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./model/src/calc_viscosity.F |
39 |
CALC_VISCOSITY |
INTEGER bi,bj |
|
./model/src/calc_viscosity.F |
61 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
68 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
75 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
82 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./pkg/obcs/obcs_apply_eta.F |
22 |
OBCS_APPLY_ETA |
INTEGER bi,bj |
|
./pkg/obcs/obcs_apply_eta.F |
33 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
34 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
36 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
37 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
41 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
42 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
44 |
OBCS_APPLY_ETA |
i_obc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
45 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,j_obc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
60 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
62 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
63 |
OBCS_APPLY_ETA |
& etaFld(i,j_obc,bi,bj) = OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
6 |
OBCS_APPLY_ETA |
SUBROUTINE OBCS_APPLY_ETA( bi, bj, |
|
./pkg/obcs/obcs_apply_eta.F |
70 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
72 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
73 |
OBCS_APPLY_ETA |
& etaFld(i_obc,j,bi,bj) = OBEeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
i_obc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(i_obc,j,bi,bj) = OBWeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
108 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
10 |
OBCS_APPLY_PTRACER |
I bi, bj, kArg, iTracer, |
|
./pkg/obcs/obcs_apply_ptracer.F |
111 |
OBCS_APPLY_PTRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
115 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
117 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBEptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
126 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
129 |
OBCS_APPLY_PTRACER |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
133 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
135 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBWptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
42 |
OBCS_APPLY_PTRACER |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_ptracer.F |
71 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
74 |
OBCS_APPLY_PTRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
78 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
80 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBNptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
89 |
OBCS_APPLY_PTRACER |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ptracer.F |
92 |
OBCS_APPLY_PTRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
96 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
98 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBSptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_r_star.F |
22 |
OBCS_APPLY_R_STAR |
INTEGER bi,bj |
|
./pkg/obcs/obcs_apply_r_star.F |
41 |
OBCS_APPLY_R_STAR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
43 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
44 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
45 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
46 |
OBCS_APPLY_R_STAR |
& + OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
47 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i,j-1,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
51 |
OBCS_APPLY_R_STAR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
53 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j+1,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
54 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j+1,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
55 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j+1,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
56 |
OBCS_APPLY_R_STAR |
& + OBSeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
57 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i,j+1,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
65 |
OBCS_APPLY_R_STAR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
67 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
69 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
& + OBEeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
71 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i-1,j,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
75 |
OBCS_APPLY_R_STAR |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
77 |
OBCS_APPLY_R_STAR |
rStarFldW(i+1,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
78 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
79 |
OBCS_APPLY_R_STAR |
rStarFldW(i+1,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
7 |
OBCS_APPLY_R_STAR |
I bi, bj, |
|
./pkg/obcs/obcs_apply_r_star.F |
80 |
OBCS_APPLY_R_STAR |
& + OBWeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
81 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
101 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBEsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
110 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
113 |
OBCS_APPLY_SEAICE |
Iobc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
116 |
OBCS_APPLY_SEAICE |
HEFF(i,j,bi,bj) = OBWh (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
117 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBWa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
118 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBWsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
120 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBWsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
134 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
137 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
142 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
143 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
144 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
148 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
149 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
150 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
154 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
155 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
156 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
161 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
162 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
163 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
173 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
176 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
181 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
182 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
183 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
187 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
188 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
189 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
193 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
194 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
195 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
200 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
201 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
202 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
215 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
220 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
221 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
222 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
226 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
227 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
228 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
232 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
233 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
234 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
239 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
240 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
241 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
251 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
254 |
OBCS_APPLY_SEAICE |
Iobc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
259 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
260 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
261 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
265 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
266 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
267 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
271 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
272 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
273 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
278 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
279 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
280 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
41 |
OBCS_APPLY_SEAICE |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_seaice.F |
50 |
OBCS_APPLY_SEAICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_apply_seaice.F |
53 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
56 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
59 |
OBCS_APPLY_SEAICE |
HEFF(i,j,bi,bj) = OBNh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
60 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
61 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBNsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
72 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
75 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
78 |
OBCS_APPLY_SEAICE |
HEFF(i,j,bi,bj) = OBSh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
79 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBSsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
91 |
OBCS_APPLY_SEAICE |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
94 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
97 |
OBCS_APPLY_SEAICE |
HEFF(i,j,bi,bj) = OBEh (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
98 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBEa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
99 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBEsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
21 |
OBCS_APPLY_SLOC |
INTEGER bi,bj,K |
|
./pkg/obcs/obcs_apply_sloc.F |
35 |
OBCS_APPLY_SLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
37 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
39 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
45 |
OBCS_APPLY_SLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
47 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
49 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
59 |
OBCS_APPLY_SLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
61 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
63 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
69 |
OBCS_APPLY_SLOC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
6 |
OBCS_APPLY_SLOC |
SUBROUTINE OBCS_APPLY_SLOC( bi, bj, K, |
|
./pkg/obcs/obcs_apply_sloc.F |
71 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
73 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBWs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_surf_dr.F |
22 |
OBCS_APPLY_SURF_DR |
INTEGER bi,bj |
|
./pkg/obcs/obcs_apply_surf_dr.F |
42 |
OBCS_APPLY_SURF_DR |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
44 |
OBCS_APPLY_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
46 |
OBCS_APPLY_SURF_DR |
hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
47 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
51 |
OBCS_APPLY_SURF_DR |
j = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
53 |
OBCS_APPLY_SURF_DR |
ks = ksurfS(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
55 |
OBCS_APPLY_SURF_DR |
hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
56 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j+1,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
64 |
OBCS_APPLY_SURF_DR |
i = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
66 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
68 |
OBCS_APPLY_SURF_DR |
hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
69 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
73 |
OBCS_APPLY_SURF_DR |
i = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
75 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i+1,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
7 |
OBCS_APPLY_SURF_DR |
I bi, bj, |
|
./pkg/obcs/obcs_apply_tloc.F |
21 |
OBCS_APPLY_TLOC |
INTEGER bi,bj,K |
|
./pkg/obcs/obcs_apply_tloc.F |
35 |
OBCS_APPLY_TLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
37 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
39 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
45 |
OBCS_APPLY_TLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
47 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
49 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
59 |
OBCS_APPLY_TLOC |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
61 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
63 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
69 |
OBCS_APPLY_TLOC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
6 |
OBCS_APPLY_TLOC |
SUBROUTINE OBCS_APPLY_TLOC( bi, bj, K, |
|
./pkg/obcs/obcs_apply_tloc.F |
71 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
73 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBWt(J,K,bi,bj)*obc_mask |
|
./model/src/calc_wsurf_tr.F |
50 |
CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks |
|
./model/src/calc_wsurf_tr.F |
65 |
CALC_WSURF_TR |
DO bi=myBxLo(myThid), myBxHi(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/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
104 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBSt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
105 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBSs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
10 |
OBCS_APPLY_TS |
SUBROUTINE OBCS_APPLY_TS( bi, bj, kArg, |
|
./pkg/obcs/obcs_apply_ts.F |
115 |
OBCS_APPLY_TS |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
118 |
OBCS_APPLY_TS |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBEt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
124 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBEs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
133 |
OBCS_APPLY_TS |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
139 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
141 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBWt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
142 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBWs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
37 |
OBCS_APPLY_TS |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_ts.F |
78 |
OBCS_APPLY_TS |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
81 |
OBCS_APPLY_TS |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBNt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBNs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
96 |
OBCS_APPLY_TS |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
99 |
OBCS_APPLY_TS |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
100 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
102 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
103 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,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 |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
122 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
123 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
124 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
125 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
132 |
OBCS_APPLY_UV |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
Iobc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
138 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
139 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
140 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
141 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
142 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
143 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
36 |
OBCS_APPLY_UV |
INTEGER bi, bj |
|
./pkg/obcs/obcs_apply_uv.F |
76 |
OBCS_APPLY_UV |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
79 |
OBCS_APPLY_UV |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
83 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
84 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
85 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
86 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
94 |
OBCS_APPLY_UV |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_apply_uv.F |
97 |
OBCS_APPLY_UV |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
9 |
OBCS_APPLY_UV |
SUBROUTINE OBCS_APPLY_UV( bi, bj, kArg, |
|
./pkg/obcs/obcs_apply_uvice.F |
101 |
OBCS_APPLY_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
102 |
OBCS_APPLY_UVICE |
& * _maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
104 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
105 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
106 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
107 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
109 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
112 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
113 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
114 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
115 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
116 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
117 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
130 |
OBCS_APPLY_UVICE |
IF (OB_Ie(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
132 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
133 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
134 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
135 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
136 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
137 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
140 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
141 |
OBCS_APPLY_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
142 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
144 |
OBCS_APPLY_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
145 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
147 |
OBCS_APPLY_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
148 |
OBCS_APPLY_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
150 |
OBCS_APPLY_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
151 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
152 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
153 |
OBCS_APPLY_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
154 |
OBCS_APPLY_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
155 |
OBCS_APPLY_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
158 |
OBCS_APPLY_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
159 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
160 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
161 |
OBCS_APPLY_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
162 |
OBCS_APPLY_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
163 |
OBCS_APPLY_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
174 |
OBCS_APPLY_UVICE |
IF (OB_Iw(J,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
176 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
177 |
OBCS_APPLY_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
178 |
OBCS_APPLY_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
179 |
OBCS_APPLY_UVICE |
vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
180 |
OBCS_APPLY_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
181 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
184 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
185 |
OBCS_APPLY_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
186 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
188 |
OBCS_APPLY_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
189 |
OBCS_APPLY_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
191 |
OBCS_APPLY_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
192 |
OBCS_APPLY_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
194 |
OBCS_APPLY_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
195 |
OBCS_APPLY_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
196 |
OBCS_APPLY_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
197 |
OBCS_APPLY_UVICE |
& ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
198 |
OBCS_APPLY_UVICE |
& uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
199 |
OBCS_APPLY_UVICE |
& _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
202 |
OBCS_APPLY_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
203 |
OBCS_APPLY_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
204 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
205 |
OBCS_APPLY_UVICE |
& ( vFld(OB_Iw(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
206 |
OBCS_APPLY_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
207 |
OBCS_APPLY_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
29 |
OBCS_APPLY_UVICE |
INTEGER I,J,K,bi,bj |
|
./pkg/obcs/obcs_apply_uvice.F |
33 |
OBCS_APPLY_UVICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_apply_uvice.F |
40 |
OBCS_APPLY_UVICE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
42 |
OBCS_APPLY_UVICE |
uFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
43 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
44 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
45 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
46 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
47 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
50 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
51 |
OBCS_APPLY_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) * |
|
./pkg/obcs/obcs_apply_uvice.F |
52 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
54 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
55 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
57 |
OBCS_APPLY_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
58 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
60 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
61 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
62 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
63 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
64 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
65 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
68 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
69 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
70 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
71 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
72 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
73 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
86 |
OBCS_APPLY_UVICE |
uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
87 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
88 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
89 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
90 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
91 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
98 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
99 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
21 |
OBCS_APPLY_W |
INTEGER bi,bj,K |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
42 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
43 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
52 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
53 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
62 |
OBCS_APPLY_W |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
64 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
65 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
6 |
OBCS_APPLY_W |
SUBROUTINE OBCS_APPLY_W( bi, bj, K, |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
74 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
75 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
86 |
OBCS_APPLY_W |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
89 |
OBCS_APPLY_W |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
90 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
94 |
OBCS_APPLY_W |
I_obc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
97 |
OBCS_APPLY_W |
I_obc = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
98 |
OBCS_APPLY_W |
IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
100 |
OBCS_CALC |
OBEt(j,k,bi,bj)= T_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
101 |
OBCS_CALC |
OBEs(j,k,bi,bj)= S_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
103 |
OBCS_CALC |
OBEeta(j,bi,bj)= ETA_F1(j,1,2) |
|
./pkg/obcs/obcs_calc.F |
112 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
114 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
115 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
116 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
117 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
119 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
122 |
OBCS_CALC |
OBEeta(J,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
140 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
148 |
OBCS_CALC |
I_obc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
150 |
OBCS_CALC |
OBWu(j,k,bi,bj)= U_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
151 |
OBCS_CALC |
OBWv(j,k,bi,bj)= V_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
152 |
OBCS_CALC |
OBWt(j,k,bi,bj)= T_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
153 |
OBCS_CALC |
OBWs(j,k,bi,bj)= S_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
155 |
OBCS_CALC |
OBWeta(j,bi,bj)= ETA_F1(j,1,1) |
|
./pkg/obcs/obcs_calc.F |
164 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
166 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
167 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
168 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
169 |
OBCS_CALC |
OBWs(J,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
171 |
OBCS_CALC |
OBWw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
174 |
OBCS_CALC |
OBWeta(J,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
192 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
199 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
201 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
209 |
OBCS_CALC |
OBNeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
227 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
234 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
237 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
241 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
244 |
OBCS_CALC |
OBSeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
284 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
286 |
OBCS_CALC |
OBEptr(J,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
287 |
OBCS_CALC |
& pTracer(I_obc-1,J,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
288 |
OBCS_CALC |
& *_maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
316 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
318 |
OBCS_CALC |
OBWptr(J,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
319 |
OBCS_CALC |
& pTracer(I_obc+1,J,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
320 |
OBCS_CALC |
& *_maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
348 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
350 |
OBCS_CALC |
OBNptr(I,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
& pTracer(I,J_obc-1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& *_maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
380 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
382 |
OBCS_CALC |
OBSptr(I,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
& pTracer(I,J_obc+1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& *_maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
441 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
444 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
446 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
448 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
459 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
462 |
OBCS_CALC |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
464 |
OBCS_CALC |
OBEu(J,K,bi,bj) = OBEu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
478 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
481 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
483 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
485 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
496 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
499 |
OBCS_CALC |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
501 |
OBCS_CALC |
OBWu(J,K,bi,bj) = OBWu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
515 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
518 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
51 |
OBCS_CALC |
INTEGER bi, bj |
|
./pkg/obcs/obcs_calc.F |
520 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
522 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
533 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
536 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
539 |
OBCS_CALC |
OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
552 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
555 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
557 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
559 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
570 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
573 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
576 |
OBCS_CALC |
OBSv(I,K,bi,bj) = OBSv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
68 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc.F |
88 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./pkg/obcs/obcs_calc.F |
96 |
OBCS_CALC |
I_obc=OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
98 |
OBCS_CALC |
OBEu(j,k,bi,bj)= U_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
99 |
OBCS_CALC |
OBEv(j,k,bi,bj)= V_F1(j,k,2) |
|
./pkg/obcs/obcs_calc_stevens.F |
123 |
OBCS_CALC_STEVENS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
146 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
148 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
149 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
150 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
160 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
161 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I-1,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
162 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
172 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
174 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
175 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
176 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
188 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar(J) + uMerPri(J,K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
191 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
194 |
OBCS_CALC_STEVENS |
OBEw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
203 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I-1,J,K,bi,bj)-theta(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
209 |
OBCS_CALC_STEVENS |
cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
212 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
222 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
223 |
OBCS_CALC_STEVENS |
OBEt(J,K,bi,bj) = theta(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
224 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
227 |
OBCS_CALC_STEVENS |
& *(theta(I,J,K,bi,bj)-theta(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
228 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
229 |
OBCS_CALC_STEVENS |
& - gFac * gammat * (theta(I,J,K,bi,bj)-OBEt(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
236 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
238 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
247 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
255 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
256 |
OBCS_CALC_STEVENS |
OBEs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
257 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
259 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
260 |
OBCS_CALC_STEVENS |
& *(salt(I,J,K,bi,bj)-salt(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
261 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
262 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBEs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
293 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
295 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
296 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
297 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
307 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I+2,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
309 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
319 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
321 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
323 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
335 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
337 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar(J) + uMerPri(J,K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
338 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
341 |
OBCS_CALC_STEVENS |
OBWw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
350 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
352 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I+2,J,K,bi,bj)-theta(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
353 |
OBCS_CALC_STEVENS |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
356 |
OBCS_CALC_STEVENS |
cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
359 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
361 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
370 |
OBCS_CALC_STEVENS |
OBWt(J,K,bi,bj) = theta(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
373 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
374 |
OBCS_CALC_STEVENS |
& *(theta(I+1,J,K,bi,bj)-theta(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
375 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
376 |
OBCS_CALC_STEVENS |
& - gFac * gammat * (theta(I,J,K,bi,bj)-OBWt(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
383 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
385 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
386 |
OBCS_CALC_STEVENS |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
389 |
OBCS_CALC_STEVENS |
cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
392 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
394 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
402 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
403 |
OBCS_CALC_STEVENS |
OBWs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
404 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
406 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
407 |
OBCS_CALC_STEVENS |
& *(salt(I+1,J,K,bi,bj)-salt(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
408 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
409 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBWs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
434 |
OBCS_CALC_STEVENS |
J=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
436 |
OBCS_CALC_STEVENS |
OBNv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
OBNu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
438 |
OBCS_CALC_STEVENS |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
439 |
OBCS_CALC_STEVENS |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
441 |
OBCS_CALC_STEVENS |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
OBNeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
470 |
OBCS_CALC_STEVENS |
J=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
472 |
OBCS_CALC_STEVENS |
OBSu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
473 |
OBCS_CALC_STEVENS |
OBSv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
474 |
OBCS_CALC_STEVENS |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
OBSeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
598 |
OBCS_CALC_STEVENS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/obcs/obcs_calc_stevens.F |
607 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
608 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
609 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
610 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
611 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
612 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
614 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
616 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
88 |
OBCS_CALC_STEVENS |
INTEGER bi, bj |
|
./pkg/obcs/obcs_check.F |
102 |
OBCS_CHECK |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
107 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Eastern OB' |
|
./pkg/obcs/obcs_check.F |
113 |
OBCS_CHECK |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
118 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Western OB' |
|
./pkg/obcs/obcs_check.F |
37 |
OBCS_CHECK |
INTEGER bi,bj |
|
./pkg/obcs/obcs_check.F |
46 |
OBCS_CHECK |
DO bi = 1,nSx |
|
./pkg/obcs/obcs_check.F |
48 |
OBCS_CHECK |
& '======== Tile bi=', bi, ' , bj=', bj, ' ========' |
|
./pkg/obcs/obcs_check.F |
54 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Jn(1-Olx,bi,bj), 1-Olx, sNx+Olx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
59 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Js(1-Olx,bi,bj), 1-Olx, sNx+Olx, INDEX_I, |
|
./pkg/obcs/obcs_check.F |
64 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Ie(1-Oly,bi,bj), 1-Oly, sNy+Oly, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
69 |
OBCS_CHECK |
CALL PRINT_LIST_I( OB_Iw(1-Oly,bi,bj), 1-Oly, sNy+Oly, INDEX_J, |
|
./pkg/obcs/obcs_check.F |
78 |
OBCS_CHECK |
DO bi = 1,nSx |
|
./pkg/obcs/obcs_check.F |
80 |
OBCS_CHECK |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
85 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Northern OB' |
|
./pkg/obcs/obcs_check.F |
91 |
OBCS_CHECK |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_check.F |
96 |
OBCS_CHECK |
& 'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Southern OB' |
|
./pkg/obcs/obcs_check_depths.F |
31 |
OBCS_CHECK_DEPTHS |
INTEGER bi, bj, I, J, K, ichanged |
|
./pkg/obcs/obcs_check_depths.F |
39 |
OBCS_CHECK_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
& ( 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 |
59 |
OBCS_CHECK_DEPTHS |
J=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
61 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I,J+1,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
63 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
66 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
74 |
OBCS_CHECK_DEPTHS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
76 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I-1,J,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
78 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I-1,J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
81 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
90 |
OBCS_CHECK_DEPTHS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
92 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I+1,J,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
94 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
97 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_copy_tracer.F |
107 |
OBCS_COPY_TRACER |
IF ( tileHasOBW(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
110 |
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 |
45 |
OBCS_COPY_TRACER |
INTEGER bi, bj |
|
./pkg/obcs/obcs_copy_tracer.F |
58 |
OBCS_COPY_TRACER |
IF ( tileHasOBN(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
61 |
OBCS_COPY_TRACER |
Jobc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
74 |
OBCS_COPY_TRACER |
IF ( tileHasOBS(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
77 |
OBCS_COPY_TRACER |
Jobc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
91 |
OBCS_COPY_TRACER |
IF ( tileHasOBE(bi,bj) ) THEN |
|
./pkg/obcs/obcs_copy_tracer.F |
94 |
OBCS_COPY_TRACER |
Iobc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
501 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
503 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
504 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBEeta1(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
527 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
529 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
530 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBWeta1(j,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
553 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
555 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
556 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBNeta1(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
579 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
581 |
OBCS_EXTERNAL_FIELDS_LOAD |
OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
582 |
OBCS_EXTERNAL_FIELDS_LOAD |
& +aWght*OBSeta1(i,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
664 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
INTEGER bi,bj,i,k |
|
./pkg/obcs/obcs_external_fields_load.F |
667 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
670 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
671 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
714 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
INTEGER bi,bj,j,k |
|
./pkg/obcs/obcs_external_fields_load.F |
717 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
720 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
721 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
89 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER i,j,bi,bj |
|
./model/src/cg2d.F |
128 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
131 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
132 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
149 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
152 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
153 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
172 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
175 |
CG2D |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d.F |
178 |
CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
179 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
186 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
187 |
CG2D |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
188 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
189 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
190 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
191 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
202 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
204 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
205 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
206 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d.F |
250 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
251 |
CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
257 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
258 |
CG2D |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
259 |
CG2D |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
260 |
CG2D |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
261 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
262 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
267 |
CG2D |
localBuf(I,J,bi,bj) = |
|
./model/src/cg2d.F |
268 |
CG2D |
& cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
270 |
CG2D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d.F |
271 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
293 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
296 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
297 |
CG2D |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
310 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
311 |
CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
318 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
319 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
321 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
323 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
332 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
334 |
CG2D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d.F |
335 |
CG2D |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
357 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
358 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
361 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
362 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
364 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
366 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
367 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
402 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d.F |
405 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
91 |
CG2D |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_fixed.F |
100 |
OBCS_INIT_FIXED |
j = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
101 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
102 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
105 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
106 |
OBCS_INIT_FIXED |
j = OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
107 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
114 |
OBCS_INIT_FIXED |
OBEhFac0(j,bi,bj)=0. |
|
./pkg/obcs/obcs_init_fixed.F |
115 |
OBCS_INIT_FIXED |
OBWhFac0(j,bi,bj)=0. |
|
./pkg/obcs/obcs_init_fixed.F |
117 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
118 |
OBCS_INIT_FIXED |
i = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
119 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
120 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
123 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
124 |
OBCS_INIT_FIXED |
i = OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
125 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
126 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
30 |
OBCS_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_fixed.F |
37 |
OBCS_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_fixed.F |
38 |
OBCS_INIT_FIXED |
tileHasOBN(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
39 |
OBCS_INIT_FIXED |
tileHasOBS(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
40 |
OBCS_INIT_FIXED |
tileHasOBE(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
41 |
OBCS_INIT_FIXED |
tileHasOBW(bi,bj) = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
46 |
OBCS_INIT_FIXED |
IF ( OB_Ie(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
47 |
OBCS_INIT_FIXED |
tileHasOBE(bi,bj) = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
48 |
OBCS_INIT_FIXED |
DO i=OB_Ie(j,bi,bj),sNx+OLx |
|
./pkg/obcs/obcs_init_fixed.F |
49 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
50 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
51 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
52 |
OBCS_INIT_FIXED |
IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
56 |
OBCS_INIT_FIXED |
IF ( OB_Iw(j,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
57 |
OBCS_INIT_FIXED |
tileHasOBW(bi,bj) = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
58 |
OBCS_INIT_FIXED |
DO i=1-OLx,OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
59 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
60 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
61 |
OBCS_INIT_FIXED |
IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
63 |
OBCS_INIT_FIXED |
DO i=1-OLx,OB_Iw(j,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
64 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
70 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
71 |
OBCS_INIT_FIXED |
tileHasOBN(bi,bj) = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
72 |
OBCS_INIT_FIXED |
DO j=OB_Jn(i,bi,bj),sNy+OLy |
|
./pkg/obcs/obcs_init_fixed.F |
73 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
74 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
75 |
OBCS_INIT_FIXED |
IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
76 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
80 |
OBCS_INIT_FIXED |
IF ( OB_Js(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
81 |
OBCS_INIT_FIXED |
tileHasOBS(bi,bj) = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
82 |
OBCS_INIT_FIXED |
DO j=1-OLy,OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
83 |
OBCS_INIT_FIXED |
maskInC(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
84 |
OBCS_INIT_FIXED |
maskInW(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
85 |
OBCS_INIT_FIXED |
IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
87 |
OBCS_INIT_FIXED |
DO j=1-OLy,OB_Js(i,bi,bj)+1 |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
maskInS(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
96 |
OBCS_INIT_FIXED |
OBNhFac0(i,bi,bj)=0. |
|
./pkg/obcs/obcs_init_fixed.F |
97 |
OBCS_INIT_FIXED |
OBShFac0(i,bi,bj)=0. |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
IF ( OB_Jn(i,bi,bj).NE.0 ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
100 |
OBCS_INIT_VARIABLES |
OBEu0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
101 |
OBCS_INIT_VARIABLES |
OBEv0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
102 |
OBCS_INIT_VARIABLES |
OBEt0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
103 |
OBCS_INIT_VARIABLES |
OBEs0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
104 |
OBCS_INIT_VARIABLES |
OBEu1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
105 |
OBCS_INIT_VARIABLES |
OBEv1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
106 |
OBCS_INIT_VARIABLES |
OBEt1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
107 |
OBCS_INIT_VARIABLES |
OBEs1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
112 |
OBCS_INIT_VARIABLES |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
113 |
OBCS_INIT_VARIABLES |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
114 |
OBCS_INIT_VARIABLES |
OBWt(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
115 |
OBCS_INIT_VARIABLES |
OBWs(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
117 |
OBCS_INIT_VARIABLES |
OBWu0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
118 |
OBCS_INIT_VARIABLES |
OBWv0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
119 |
OBCS_INIT_VARIABLES |
OBWt0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
120 |
OBCS_INIT_VARIABLES |
OBWs0(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
121 |
OBCS_INIT_VARIABLES |
OBWu1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
122 |
OBCS_INIT_VARIABLES |
OBWv1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
123 |
OBCS_INIT_VARIABLES |
OBWt1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
124 |
OBCS_INIT_VARIABLES |
OBWs1(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
133 |
OBCS_INIT_VARIABLES |
OBNw (I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
134 |
OBCS_INIT_VARIABLES |
OBSw (I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
136 |
OBCS_INIT_VARIABLES |
OBNw0(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
137 |
OBCS_INIT_VARIABLES |
OBSw0(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
138 |
OBCS_INIT_VARIABLES |
OBNw1(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
139 |
OBCS_INIT_VARIABLES |
OBSw1(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
143 |
OBCS_INIT_VARIABLES |
OBEw (J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
144 |
OBCS_INIT_VARIABLES |
OBWw (J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
146 |
OBCS_INIT_VARIABLES |
OBEw0(J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
147 |
OBCS_INIT_VARIABLES |
OBWw0(J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
148 |
OBCS_INIT_VARIABLES |
OBEw1(J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
149 |
OBCS_INIT_VARIABLES |
OBWw1(J,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
157 |
OBCS_INIT_VARIABLES |
OBNeta (I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
158 |
OBCS_INIT_VARIABLES |
OBSeta (I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
160 |
OBCS_INIT_VARIABLES |
OBNeta0(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
161 |
OBCS_INIT_VARIABLES |
OBSeta0(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNeta1(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSeta1(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
167 |
OBCS_INIT_VARIABLES |
OBEeta (J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
168 |
OBCS_INIT_VARIABLES |
OBWeta (J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
170 |
OBCS_INIT_VARIABLES |
OBEeta0(J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
171 |
OBCS_INIT_VARIABLES |
OBWeta0(J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
172 |
OBCS_INIT_VARIABLES |
OBEeta1(J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
173 |
OBCS_INIT_VARIABLES |
OBWeta1(J,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
183 |
OBCS_INIT_VARIABLES |
OBNa (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
184 |
OBCS_INIT_VARIABLES |
OBNh (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
185 |
OBCS_INIT_VARIABLES |
OBNa0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNh0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
187 |
OBCS_INIT_VARIABLES |
OBNa1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
188 |
OBCS_INIT_VARIABLES |
OBNh1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
189 |
OBCS_INIT_VARIABLES |
OBNsl (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
190 |
OBCS_INIT_VARIABLES |
OBNsn (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
191 |
OBCS_INIT_VARIABLES |
OBNsl0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
192 |
OBCS_INIT_VARIABLES |
OBNsn0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
193 |
OBCS_INIT_VARIABLES |
OBNsl1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
194 |
OBCS_INIT_VARIABLES |
OBNsn1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
195 |
OBCS_INIT_VARIABLES |
OBNuice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
196 |
OBCS_INIT_VARIABLES |
OBNvice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
197 |
OBCS_INIT_VARIABLES |
OBNuice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
198 |
OBCS_INIT_VARIABLES |
OBNvice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
199 |
OBCS_INIT_VARIABLES |
OBNuice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
200 |
OBCS_INIT_VARIABLES |
OBNvice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
203 |
OBCS_INIT_VARIABLES |
OBSa (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
204 |
OBCS_INIT_VARIABLES |
OBSh (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
205 |
OBCS_INIT_VARIABLES |
OBSa0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
206 |
OBCS_INIT_VARIABLES |
OBSh0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
207 |
OBCS_INIT_VARIABLES |
OBSa1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
208 |
OBCS_INIT_VARIABLES |
OBSh1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
209 |
OBCS_INIT_VARIABLES |
OBSsl (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
210 |
OBCS_INIT_VARIABLES |
OBSsn (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
211 |
OBCS_INIT_VARIABLES |
OBSsl0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
212 |
OBCS_INIT_VARIABLES |
OBSsn0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
213 |
OBCS_INIT_VARIABLES |
OBSsl1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
214 |
OBCS_INIT_VARIABLES |
OBSsn1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
215 |
OBCS_INIT_VARIABLES |
OBSuice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
216 |
OBCS_INIT_VARIABLES |
OBSvice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
217 |
OBCS_INIT_VARIABLES |
OBSuice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
218 |
OBCS_INIT_VARIABLES |
OBSvice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
219 |
OBCS_INIT_VARIABLES |
OBSuice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
220 |
OBCS_INIT_VARIABLES |
OBSvice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
225 |
OBCS_INIT_VARIABLES |
OBEa (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
226 |
OBCS_INIT_VARIABLES |
OBEh (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
227 |
OBCS_INIT_VARIABLES |
OBEa0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
228 |
OBCS_INIT_VARIABLES |
OBEh0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
229 |
OBCS_INIT_VARIABLES |
OBEa1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
230 |
OBCS_INIT_VARIABLES |
OBEh1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
231 |
OBCS_INIT_VARIABLES |
OBEsl (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
232 |
OBCS_INIT_VARIABLES |
OBEsn (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
233 |
OBCS_INIT_VARIABLES |
OBEsl0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
234 |
OBCS_INIT_VARIABLES |
OBEsn0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
235 |
OBCS_INIT_VARIABLES |
OBEsl1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
236 |
OBCS_INIT_VARIABLES |
OBEsn1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
237 |
OBCS_INIT_VARIABLES |
OBEuice (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
238 |
OBCS_INIT_VARIABLES |
OBEvice (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
239 |
OBCS_INIT_VARIABLES |
OBEuice0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
240 |
OBCS_INIT_VARIABLES |
OBEvice0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
241 |
OBCS_INIT_VARIABLES |
OBEuice1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
242 |
OBCS_INIT_VARIABLES |
OBEvice1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
245 |
OBCS_INIT_VARIABLES |
OBWa (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
246 |
OBCS_INIT_VARIABLES |
OBWh (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
247 |
OBCS_INIT_VARIABLES |
OBWa0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
248 |
OBCS_INIT_VARIABLES |
OBWh0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
249 |
OBCS_INIT_VARIABLES |
OBWa1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
250 |
OBCS_INIT_VARIABLES |
OBWh1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
251 |
OBCS_INIT_VARIABLES |
OBWsl (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
252 |
OBCS_INIT_VARIABLES |
OBWsn (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
253 |
OBCS_INIT_VARIABLES |
OBWsl0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
254 |
OBCS_INIT_VARIABLES |
OBWsn0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
255 |
OBCS_INIT_VARIABLES |
OBWsl1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
256 |
OBCS_INIT_VARIABLES |
OBWsn1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
257 |
OBCS_INIT_VARIABLES |
OBWuice (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
258 |
OBCS_INIT_VARIABLES |
OBWvice (J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
259 |
OBCS_INIT_VARIABLES |
OBWuice0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
260 |
OBCS_INIT_VARIABLES |
OBWvice0(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
261 |
OBCS_INIT_VARIABLES |
OBWuice1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
262 |
OBCS_INIT_VARIABLES |
OBWvice1(J,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
275 |
OBCS_INIT_VARIABLES |
OBNptr (I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
277 |
OBCS_INIT_VARIABLES |
OBNptr0(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
278 |
OBCS_INIT_VARIABLES |
OBNptr1(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
283 |
OBCS_INIT_VARIABLES |
OBSptr (I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
285 |
OBCS_INIT_VARIABLES |
OBSptr0(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
286 |
OBCS_INIT_VARIABLES |
OBSptr1(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
293 |
OBCS_INIT_VARIABLES |
OBEptr (J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
295 |
OBCS_INIT_VARIABLES |
OBEptr0(J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
296 |
OBCS_INIT_VARIABLES |
OBEptr1(J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
301 |
OBCS_INIT_VARIABLES |
OBWptr (J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
303 |
OBCS_INIT_VARIABLES |
OBWptr0(J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
304 |
OBCS_INIT_VARIABLES |
OBWptr1(J,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
323 |
OBCS_INIT_VARIABLES |
CALL ORLANSKI_INIT(bi, bj, myThid) |
|
./pkg/obcs/obcs_init_variables.F |
352 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
353 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
354 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
381 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
382 |
OBCS_INIT_VARIABLES |
CALL OBCS_COPY_TRACER( theta(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/obcs/obcs_init_variables.F |
383 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
384 |
OBCS_INIT_VARIABLES |
CALL OBCS_COPY_TRACER( salt (1-Olx,1-Oly,1,bi,bj), |
|
./pkg/obcs/obcs_init_variables.F |
385 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
401 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
404 |
OBCS_INIT_VARIABLES |
I bi, bj, K, iTracer, |
|
./pkg/obcs/obcs_init_variables.F |
405 |
OBCS_INIT_VARIABLES |
U ptracer(1-Olx,1-Oly,K,bi,bj,iTracer), |
|
./pkg/obcs/obcs_init_variables.F |
426 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
427 |
OBCS_INIT_VARIABLES |
CALL OBCS_COPY_TRACER( pTracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/obcs/obcs_init_variables.F |
428 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
43 |
OBCS_INIT_VARIABLES |
INTEGER bi, bj |
|
./pkg/obcs/obcs_init_variables.F |
54 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_init_variables.F |
59 |
OBCS_INIT_VARIABLES |
OBNu(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
60 |
OBCS_INIT_VARIABLES |
OBNv(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
61 |
OBCS_INIT_VARIABLES |
OBNt(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
62 |
OBCS_INIT_VARIABLES |
OBNs(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
64 |
OBCS_INIT_VARIABLES |
OBNu0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
65 |
OBCS_INIT_VARIABLES |
OBNv0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
66 |
OBCS_INIT_VARIABLES |
OBNt0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
67 |
OBCS_INIT_VARIABLES |
OBNs0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBSu(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBSv(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBSt(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBSs(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
81 |
OBCS_INIT_VARIABLES |
OBSu0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
82 |
OBCS_INIT_VARIABLES |
OBSv0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBSt0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBSs0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBSu1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
86 |
OBCS_INIT_VARIABLES |
OBSv1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
87 |
OBCS_INIT_VARIABLES |
OBSt1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
88 |
OBCS_INIT_VARIABLES |
OBSs1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
95 |
OBCS_INIT_VARIABLES |
OBEu(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
96 |
OBCS_INIT_VARIABLES |
OBEv(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
97 |
OBCS_INIT_VARIABLES |
OBEt(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
98 |
OBCS_INIT_VARIABLES |
OBEs(J,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
362 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_readparms.F |
365 |
OBCS_READPARMS |
OB_Jn(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
366 |
OBCS_READPARMS |
OB_Js(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
370 |
OBCS_READPARMS |
OB_Ie(J,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
371 |
OBCS_READPARMS |
OB_Iw(J,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
376 |
OBCS_READPARMS |
tN = W2_myTileList(bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
385 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iG)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
386 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iG)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
397 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jG)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
398 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jG)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
413 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
416 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jGm)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
417 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jGm)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
424 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
427 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
428 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
440 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_readparms.F |
442 |
OBCS_READPARMS |
buf(sNx,J,bi,bj) = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
443 |
OBCS_READPARMS |
buf( 1,J,bi,bj) = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
449 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_readparms.F |
451 |
OBCS_READPARMS |
OB_Ie(J,bi,bj) = buf(sNx,J,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
452 |
OBCS_READPARMS |
OB_Iw(J,bi,bj) = buf( 1,J,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
458 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_readparms.F |
460 |
OBCS_READPARMS |
buf(I,sNy,bi,bj) = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
461 |
OBCS_READPARMS |
buf(I, 1,bi,bj) = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
467 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/obcs/obcs_readparms.F |
469 |
OBCS_READPARMS |
OB_Jn(I,bi,bj) = buf(I,sNy,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
470 |
OBCS_READPARMS |
OB_Js(I,bi,bj) = buf(I, 1,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
51 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_sponge.F |
113 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
114 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
115 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
126 |
OBCS_SPONGE_U |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
128 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
132 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
147 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
148 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
149 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
160 |
OBCS_SPONGE_U |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
162 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
166 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
181 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
182 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
183 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
18 |
OBCS_SPONGE_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
202 |
OBCS_SPONGE_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
226 |
OBCS_SPONGE_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
242 |
OBCS_SPONGE_V |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
244 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
248 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
249 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
264 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
265 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
276 |
OBCS_SPONGE_V |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
278 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
282 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
283 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
297 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
299 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
312 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
317 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
331 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
332 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
344 |
OBCS_SPONGE_V |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
346 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
352 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
366 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
367 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
387 |
OBCS_SPONGE_T |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
415 |
OBCS_SPONGE_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
429 |
OBCS_SPONGE_T |
act1 = bi - myBxLo(myThid) |
|
./pkg/obcs/obcs_sponge.F |
42 |
OBCS_SPONGE_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
450 |
OBCS_SPONGE_T |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
452 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
455 |
OBCS_SPONGE_T |
IF (OBNt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
457 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
458 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
471 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
472 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
473 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
490 |
OBCS_SPONGE_T |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
492 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
495 |
OBCS_SPONGE_T |
IF (OBSt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
498 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
512 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
514 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
531 |
OBCS_SPONGE_T |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
533 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
IF (OBEt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
538 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
539 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
553 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
554 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
572 |
OBCS_SPONGE_T |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
579 |
OBCS_SPONGE_T |
IF (OBWt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
581 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
582 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
58 |
OBCS_SPONGE_U |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
596 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
598 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
60 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
618 |
OBCS_SPONGE_S |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
646 |
OBCS_SPONGE_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
65 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
660 |
OBCS_SPONGE_S |
act1 = bi - myBxLo(myThid) |
|
./pkg/obcs/obcs_sponge.F |
681 |
OBCS_SPONGE_S |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
683 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
686 |
OBCS_SPONGE_S |
IF (OBNs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
688 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
689 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
703 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
722 |
OBCS_SPONGE_S |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
724 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
IF (OBSs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
730 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
744 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
746 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
IF (OBEs(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
770 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
771 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
785 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
79 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
804 |
OBCS_SPONGE_S |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
80 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
812 |
OBCS_SPONGE_S |
IF (OBWs(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
815 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
829 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
830 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
831 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
92 |
OBCS_SPONGE_U |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
94 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
98 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/orlanski_east.F |
106 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
109 |
ORLANSKI_EAST |
IF ((UE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
110 |
ORLANSKI_EAST |
& (UE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
113 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
114 |
ORLANSKI_EAST |
& (ab1*UE_STORE_2(J,K,bi,bj) + ab2*UE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
124 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
126 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_east.F |
127 |
ORLANSKI_EAST |
& )+f2*CVEL_UE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
130 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
131 |
ORLANSKI_EAST |
& CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
133 |
ORLANSKI_EAST |
& ab2*(UE_STORE_4(J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
135 |
ORLANSKI_EAST |
IF ((VE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
136 |
ORLANSKI_EAST |
& (VE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
139 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
140 |
ORLANSKI_EAST |
& (ab1*VE_STORE_2(J,K,bi,bj) + ab2*VE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
150 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
152 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
153 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_VE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
156 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
157 |
ORLANSKI_EAST |
& CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
159 |
ORLANSKI_EAST |
& ab2*(VE_STORE_4(J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
161 |
ORLANSKI_EAST |
IF ((TE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
162 |
ORLANSKI_EAST |
& (TE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
165 |
ORLANSKI_EAST |
CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
166 |
ORLANSKI_EAST |
& (ab1*TE_STORE_2(J,K,bi,bj) + ab2*TE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
176 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
178 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
179 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_TE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
182 |
ORLANSKI_EAST |
OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
183 |
ORLANSKI_EAST |
& CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
184 |
ORLANSKI_EAST |
& (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
185 |
ORLANSKI_EAST |
& ab2*(TE_STORE_4(J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
187 |
ORLANSKI_EAST |
IF ((SE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
188 |
ORLANSKI_EAST |
& (SE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
191 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
192 |
ORLANSKI_EAST |
& (ab1*SE_STORE_2(J,K,bi,bj) + ab2*SE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
202 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
204 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
205 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_SE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
208 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
209 |
ORLANSKI_EAST |
& CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
211 |
ORLANSKI_EAST |
& ab2*(SE_STORE_4(J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
215 |
ORLANSKI_EAST |
IF ((WE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
216 |
ORLANSKI_EAST |
& (WE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
219 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
220 |
ORLANSKI_EAST |
& (ab1*WE_STORE_2(J,K,bi,bj)+ab2*WE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
230 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
232 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_east.F |
233 |
ORLANSKI_EAST |
& + f2*CVEL_WE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
236 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
237 |
ORLANSKI_EAST |
& CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
239 |
ORLANSKI_EAST |
& ab2*(WE_STORE_4(J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
245 |
ORLANSKI_EAST |
UE_STORE_3(J,K,bi,bj)=UE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
247 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
248 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
253 |
ORLANSKI_EAST |
VE_STORE_3(J,K,bi,bj)=VE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
255 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
256 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
261 |
ORLANSKI_EAST |
TE_STORE_3(J,K,bi,bj)=TE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
263 |
ORLANSKI_EAST |
TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
264 |
ORLANSKI_EAST |
& theta(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
265 |
ORLANSKI_EAST |
TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
266 |
ORLANSKI_EAST |
TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
269 |
ORLANSKI_EAST |
SE_STORE_3(J,K,bi,bj)=SE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
272 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
279 |
ORLANSKI_EAST |
WE_STORE_3(J,K,bi,bj)=WE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
282 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
284 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
78 |
ORLANSKI_EAST |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_east.F |
7 |
ORLANSKI_EAST |
SUBROUTINE ORLANSKI_EAST( bi, bj, futureTime, |
|
./model/src/cg2d_nsa.F |
102 |
CG2D_NSA |
INTEGER bi, bj |
|
./model/src/cg2d_nsa.F |
156 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
159 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
160 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
193 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
196 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
223 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
226 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
231 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
232 |
CG2D_NSA |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
233 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
234 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
235 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
236 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
247 |
CG2D_NSA |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
249 |
CG2D_NSA |
& cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
cg2d_z(I,J,bi,bj) = |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
322 |
CG2D_NSA |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
323 |
CG2D_NSA |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
328 |
CG2D_NSA |
& +cg2d_z(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
354 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
357 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = cg2d_z(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
358 |
CG2D_NSA |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
379 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
382 |
CG2D_NSA |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d_nsa.F |
383 |
CG2D_NSA |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
384 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
386 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
387 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
395 |
CG2D_NSA |
alpha_aux = alpha_aux+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
419 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
422 |
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 |
423 |
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 |
424 |
CG2D_NSA |
err_sq = err_sq+cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
454 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_nsa.F |
457 |
CG2D_NSA |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./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. |
|
./pkg/obcs/orlanski_north.F |
100 |
ORLANSKI_NORTH |
IF ((UN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
101 |
ORLANSKI_NORTH |
& (UN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
104 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
105 |
ORLANSKI_NORTH |
& (ab1*UN_STORE_2(I,K,bi,bj) + ab2*UN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
112 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
113 |
ORLANSKI_NORTH |
& f2*CVEL_UN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
116 |
ORLANSKI_NORTH |
& CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
118 |
ORLANSKI_NORTH |
& ab2*(UN_STORE_4(I,K,bi,bj)-UN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
120 |
ORLANSKI_NORTH |
IF ((VN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
121 |
ORLANSKI_NORTH |
& (VN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
124 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
125 |
ORLANSKI_NORTH |
& (ab1*VN_STORE_2(I,K,bi,bj) + ab2*VN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
132 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
133 |
ORLANSKI_NORTH |
& f2*CVEL_VN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
136 |
ORLANSKI_NORTH |
& CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
138 |
ORLANSKI_NORTH |
& ab2*(VN_STORE_4(I,K,bi,bj)-VN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
140 |
ORLANSKI_NORTH |
IF ((TN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
141 |
ORLANSKI_NORTH |
& (TN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
144 |
ORLANSKI_NORTH |
CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
145 |
ORLANSKI_NORTH |
& (ab1*TN_STORE_2(I,K,bi,bj) + ab2*TN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
152 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
153 |
ORLANSKI_NORTH |
& f2*CVEL_TN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
155 |
ORLANSKI_NORTH |
OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
156 |
ORLANSKI_NORTH |
& CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
157 |
ORLANSKI_NORTH |
& (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
158 |
ORLANSKI_NORTH |
& ab2*(TN_STORE_4(I,K,bi,bj)-TN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
160 |
ORLANSKI_NORTH |
IF ((SN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
161 |
ORLANSKI_NORTH |
& (SN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
164 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
165 |
ORLANSKI_NORTH |
& (ab1*SN_STORE_2(I,K,bi,bj) + ab2*SN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
172 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
173 |
ORLANSKI_NORTH |
& f2*CVEL_SN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
176 |
ORLANSKI_NORTH |
& CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
178 |
ORLANSKI_NORTH |
& ab2*(SN_STORE_4(I,K,bi,bj)-SN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
182 |
ORLANSKI_NORTH |
IF ((WN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
183 |
ORLANSKI_NORTH |
& (WN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
186 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
187 |
ORLANSKI_NORTH |
& (ab1*WN_STORE_2(I,K,bi,bj)+ab2*WN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
194 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
195 |
ORLANSKI_NORTH |
& + f2*CVEL_WN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
198 |
ORLANSKI_NORTH |
& CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
200 |
ORLANSKI_NORTH |
& ab2*(WN_STORE_4(I,K,bi,bj)-WN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
206 |
ORLANSKI_NORTH |
UN_STORE_3(I,K,bi,bj)=UN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
208 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
209 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
214 |
ORLANSKI_NORTH |
VN_STORE_3(I,K,bi,bj)=VN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
216 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
217 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
222 |
ORLANSKI_NORTH |
TN_STORE_3(I,K,bi,bj)=TN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
224 |
ORLANSKI_NORTH |
TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
225 |
ORLANSKI_NORTH |
& theta(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
226 |
ORLANSKI_NORTH |
TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
227 |
ORLANSKI_NORTH |
TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
230 |
ORLANSKI_NORTH |
SN_STORE_3(I,K,bi,bj)=SN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
233 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
240 |
ORLANSKI_NORTH |
WN_STORE_3(I,K,bi,bj)=WN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
243 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
245 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
69 |
ORLANSKI_NORTH |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_north.F |
6 |
ORLANSKI_NORTH |
SUBROUTINE ORLANSKI_NORTH( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
100 |
ORLANSKI_SOUTH |
IF ((US_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
101 |
ORLANSKI_SOUTH |
& (US_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
104 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
105 |
ORLANSKI_SOUTH |
& (ab1*US_STORE_2(I,K,bi,bj) + ab2*US_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
112 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
113 |
ORLANSKI_SOUTH |
& f2*CVEL_US(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
116 |
ORLANSKI_SOUTH |
& CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
118 |
ORLANSKI_SOUTH |
& ab2*(US_STORE_1(I,K,bi,bj)-US_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
120 |
ORLANSKI_SOUTH |
IF ((VS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
121 |
ORLANSKI_SOUTH |
& (VS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
124 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
125 |
ORLANSKI_SOUTH |
& (ab1*VS_STORE_2(I,K,bi,bj) + ab2*VS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
132 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
133 |
ORLANSKI_SOUTH |
& f2*CVEL_VS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
136 |
ORLANSKI_SOUTH |
& CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
138 |
ORLANSKI_SOUTH |
& ab2*(VS_STORE_1(I,K,bi,bj)-VS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
140 |
ORLANSKI_SOUTH |
IF ((TS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
141 |
ORLANSKI_SOUTH |
& (TS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
144 |
ORLANSKI_SOUTH |
CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
145 |
ORLANSKI_SOUTH |
& (ab1*TS_STORE_2(I,K,bi,bj) + ab2*TS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
152 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
153 |
ORLANSKI_SOUTH |
& f2*CVEL_TS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
155 |
ORLANSKI_SOUTH |
OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
156 |
ORLANSKI_SOUTH |
& CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
157 |
ORLANSKI_SOUTH |
& (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
158 |
ORLANSKI_SOUTH |
& ab2*(TS_STORE_1(I,K,bi,bj)-TS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
160 |
ORLANSKI_SOUTH |
IF ((SS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
161 |
ORLANSKI_SOUTH |
& (SS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
164 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
165 |
ORLANSKI_SOUTH |
& (ab1*SS_STORE_2(I,K,bi,bj) + ab2*SS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
172 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
173 |
ORLANSKI_SOUTH |
& f2*CVEL_SS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
176 |
ORLANSKI_SOUTH |
& CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
178 |
ORLANSKI_SOUTH |
& ab2*(SS_STORE_1(I,K,bi,bj)-SS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
182 |
ORLANSKI_SOUTH |
IF ((WS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
183 |
ORLANSKI_SOUTH |
& (WS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
186 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
187 |
ORLANSKI_SOUTH |
& (ab1*WS_STORE_2(I,K,bi,bj)+ab2*WS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
194 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
195 |
ORLANSKI_SOUTH |
& + f2*CVEL_WS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
198 |
ORLANSKI_SOUTH |
& CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
200 |
ORLANSKI_SOUTH |
& ab2*(WS_STORE_1(I,K,bi,bj)-WS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
206 |
ORLANSKI_SOUTH |
US_STORE_3(I,K,bi,bj)=US_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
208 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
209 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
214 |
ORLANSKI_SOUTH |
VS_STORE_3(I,K,bi,bj)=VS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
216 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
217 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
222 |
ORLANSKI_SOUTH |
TS_STORE_3(I,K,bi,bj)=TS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
224 |
ORLANSKI_SOUTH |
TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
225 |
ORLANSKI_SOUTH |
& theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
226 |
ORLANSKI_SOUTH |
TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
227 |
ORLANSKI_SOUTH |
TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
230 |
ORLANSKI_SOUTH |
SS_STORE_3(I,K,bi,bj)=SS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
233 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
240 |
ORLANSKI_SOUTH |
WS_STORE_3(I,K,bi,bj)=WS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
243 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
245 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
69 |
ORLANSKI_SOUTH |
INTEGER bi, bj |
|
./pkg/obcs/orlanski_south.F |
6 |
ORLANSKI_SOUTH |
SUBROUTINE ORLANSKI_SOUTH( bi, bj, futureTime, |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
108 |
ORLANSKI_WEST |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
111 |
ORLANSKI_WEST |
IF ((UW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
112 |
ORLANSKI_WEST |
& (UW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
115 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
116 |
ORLANSKI_WEST |
& (ab1*UW_STORE_2(J,K,bi,bj) + ab2*UW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
126 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
128 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
129 |
ORLANSKI_WEST |
& )+f2*CVEL_UW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
132 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
133 |
ORLANSKI_WEST |
& CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
135 |
ORLANSKI_WEST |
& ab2*(UW_STORE_1(J,K,bi,bj)-UW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
137 |
ORLANSKI_WEST |
IF ((VW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
138 |
ORLANSKI_WEST |
& (VW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
141 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
142 |
ORLANSKI_WEST |
& (ab1*VW_STORE_2(J,K,bi,bj) + ab2*VW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
152 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
154 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
155 |
ORLANSKI_WEST |
& )+f2*CVEL_VW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
158 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
159 |
ORLANSKI_WEST |
& CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
161 |
ORLANSKI_WEST |
& ab2*(VW_STORE_1(J,K,bi,bj)-VW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
163 |
ORLANSKI_WEST |
IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
164 |
ORLANSKI_WEST |
& (TW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
167 |
ORLANSKI_WEST |
CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
168 |
ORLANSKI_WEST |
& (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
178 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
180 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
181 |
ORLANSKI_WEST |
& )+f2*CVEL_TW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
184 |
ORLANSKI_WEST |
OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
185 |
ORLANSKI_WEST |
& CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
186 |
ORLANSKI_WEST |
& (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
187 |
ORLANSKI_WEST |
& ab2*(TW_STORE_1(J,K,bi,bj)-TW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
189 |
ORLANSKI_WEST |
IF ((SW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
190 |
ORLANSKI_WEST |
& (SW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
193 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
194 |
ORLANSKI_WEST |
& (ab1*SW_STORE_2(J,K,bi,bj) + ab2*SW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
204 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
206 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
207 |
ORLANSKI_WEST |
& )+f2*CVEL_SW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
210 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
211 |
ORLANSKI_WEST |
& CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
213 |
ORLANSKI_WEST |
& ab2*(SW_STORE_1(J,K,bi,bj)-SW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
217 |
ORLANSKI_WEST |
IF ((WW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
218 |
ORLANSKI_WEST |
& (WW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
221 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
222 |
ORLANSKI_WEST |
& (ab1*WW_STORE_2(J,K,bi,bj)+ab2*WW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
232 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
234 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_west.F |
235 |
ORLANSKI_WEST |
& + f2*CVEL_WW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
238 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
239 |
ORLANSKI_WEST |
& CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
241 |
ORLANSKI_WEST |
& ab2*(WW_STORE_1(J,K,bi,bj)-WW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
247 |
ORLANSKI_WEST |
UW_STORE_3(J,K,bi,bj)=UW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
249 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
250 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
255 |
ORLANSKI_WEST |
VW_STORE_3(J,K,bi,bj)=VW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
257 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
258 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
263 |
ORLANSKI_WEST |
TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
265 |
ORLANSKI_WEST |
TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
266 |
ORLANSKI_WEST |
& theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
267 |
ORLANSKI_WEST |
TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
268 |
ORLANSKI_WEST |
TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
271 |
ORLANSKI_WEST |
SW_STORE_3(J,K,bi,bj)=SW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
274 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
281 |
ORLANSKI_WEST |
WW_STORE_3(J,K,bi,bj)=WW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
284 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
286 |
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 |
80 |
ORLANSKI_WEST |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
49 |
CPL_EXCH_CONFIGS |
INTEGER I,J,K,bi,bj |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
82 |
CPL_EXCH_CONFIGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
85 |
CPL_EXCH_CONFIGS |
IF ( R_low(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
86 |
CPL_EXCH_CONFIGS |
& Hatm(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
89 |
CPL_EXCH_CONFIGS |
biDiff = bi |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
96 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Hatm(I,J,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
99 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',R_low(I,J,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
42 |
CPL_EXPORT_MY_DATA |
INTEGER bi,bj |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
45 |
CPL_EXPORT_MY_DATA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_export_my_data.F |
47 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
|
./model/src/cg2d_sr.F |
119 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
122 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
123 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
135 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
139 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
154 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
157 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
160 |
CG2D_SR |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
161 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
167 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_sr.F |
168 |
CG2D_SR |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
171 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
172 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
174 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
175 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
206 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
207 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
213 |
CG2D_SR |
cg2d_y(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
214 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
215 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
216 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
217 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
218 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
219 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
220 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
221 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
236 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
237 |
CG2D_SR |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
243 |
CG2D_SR |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
244 |
CG2D_SR |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
245 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
246 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
248 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
249 |
CG2D_SR |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
250 |
CG2D_SR |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
263 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
264 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
267 |
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 |
268 |
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 |
283 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
289 |
CG2D_SR |
cg2d_y(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
290 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
291 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
292 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
293 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
294 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
310 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
311 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
312 |
CG2D_SR |
deltaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
313 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
319 |
CG2D_SR |
cg2d_v(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
320 |
CG2D_SR |
& aW2d(I ,J ,bi,bj)*cg2d_y(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
321 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_y(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_y(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_y(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
324 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_y(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
325 |
CG2D_SR |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
326 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
327 |
CG2D_SR |
deltaTile(bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
328 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_v(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
329 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
340 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
341 |
CG2D_SR |
sumPhi(1,bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg2d_sr.F |
342 |
CG2D_SR |
sumPhi(2,bi,bj) = deltaTile(bi,bj) |
|
./model/src/cg2d_sr.F |
343 |
CG2D_SR |
sumPhi(3,bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
376 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
379 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
380 |
CG2D_SR |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
381 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
382 |
CG2D_SR |
& + sigma*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
383 |
CG2D_SR |
cg2d_q(I,J,bi,bj) = cg2d_v(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
384 |
CG2D_SR |
& + cgBeta*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
385 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
386 |
CG2D_SR |
& - sigma*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
400 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg2d_sr.F |
403 |
CG2D_SR |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
97 |
CG2D_SR |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
100 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
101 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
102 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
103 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
104 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
105 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
106 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
107 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( aCO2tave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
108 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( sWSpdtave,1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
109 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( iceftave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
110 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( fCO2tave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
112 |
CPL_INI_VARS |
CPL_timeAve(bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
46 |
CPL_INI_VARS |
INTEGER I,J,bi,bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
49 |
CPL_INI_VARS |
DO bi=myBxLo(myThid),myByLo(myThid) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
ocMxlD2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
SSTocn2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
SSSocn2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
56 |
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 |
59 |
CPL_INI_VARS |
atmSLPr (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
HeatFlux (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
tauX (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
tauY (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
FWflux (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
70 |
CPL_INI_VARS |
iceSaltFlx(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
71 |
CPL_INI_VARS |
seaIceMass(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
airCO2 (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
surfWSpeed(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
fracIce (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
89 |
CPL_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
90 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
92 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
98 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
165 |
CPL_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
166 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
167 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
168 |
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 |
184 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( aCO2tave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
185 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( sWSpdtave, 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
186 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( iceftave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
187 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( fCO2tave , 1, bi, bj, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
189 |
CPL_OUTPUT |
CPL_timeAve(bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_output.F |
53 |
CPL_OUTPUT |
INTEGER bi,bj |
|
./pkg/ocn_compon_interf/cpl_output.F |
66 |
CPL_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
67 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SLPtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
68 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(HFtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
69 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(QSWtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
75 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TXtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
76 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TYtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
77 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(FWtave ,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
78 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SFxtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
79 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SICtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
80 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(MXLtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
81 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSTtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
82 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSStave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
83 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(vSqtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
85 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(aCO2tave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
86 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(sWSpdtave,CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
87 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(iceftave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
88 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(fCO2tave, CPL_timeAve,1,bi,bj,myThid) |
|
./pkg/ocn_compon_interf/cpl_register.F |
43 |
CPL_REGISTER |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/cpl_register.F |
50 |
CPL_REGISTER |
DO bi=1,nSx |
|
./pkg/ocn_compon_interf/cpl_register.F |
52 |
CPL_REGISTER |
iG0 = myXGlobalLo+(bi-1)*sNx |
|
./pkg/ocn_compon_interf/cpl_register.F |
53 |
CPL_REGISTER |
iReg(1,bi,bj) = sNx |
|
./pkg/ocn_compon_interf/cpl_register.F |
54 |
CPL_REGISTER |
iReg(2,bi,bj) = sNy |
|
./pkg/ocn_compon_interf/cpl_register.F |
55 |
CPL_REGISTER |
iReg(3,bi,bj) = iG0 |
|
./pkg/ocn_compon_interf/cpl_register.F |
56 |
CPL_REGISTER |
iReg(4,bi,bj) = jG0 |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
105 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
111 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
122 |
OCN_APPLY_IMPORT |
fice(i,j,bi,bj)= fracIce(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
129 |
OCN_APPLY_IMPORT |
AtmospCO2(i,j,bi,bj)= airCO2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
136 |
OCN_APPLY_IMPORT |
wind(i,j,bi,bj)= surfWSpeed(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
148 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
149 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
155 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
156 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
162 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
170 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
51 |
OCN_APPLY_IMPORT |
INTEGER bi,bj,i,j |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
56 |
OCN_APPLY_IMPORT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
65 |
OCN_APPLY_IMPORT |
fu(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
66 |
OCN_APPLY_IMPORT |
fv(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
73 |
OCN_APPLY_IMPORT |
pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
80 |
OCN_APPLY_IMPORT |
sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
89 |
OCN_APPLY_IMPORT |
EmPmR(i,j,bi,bj) = FWFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
96 |
OCN_APPLY_IMPORT |
saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
100 |
OCN_CPL_DIAGS |
iceftave(i,j,bi,bj) = iceftave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
101 |
OCN_CPL_DIAGS |
& + DDTT * fracIce(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
102 |
OCN_CPL_DIAGS |
fCO2tave(i,j,bi,bj) = fCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
103 |
OCN_CPL_DIAGS |
& + DDTT * fluxCO2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
109 |
OCN_CPL_DIAGS |
CPL_timeAve(bi,bj) = CPL_timeAve(bi,bj)+DDTT |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
45 |
OCN_CPL_DIAGS |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
56 |
OCN_CPL_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
61 |
OCN_CPL_DIAGS |
SLPtave(i,j,bi,bj) = SLPtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
62 |
OCN_CPL_DIAGS |
& + DDTT * atmSLPr(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
63 |
OCN_CPL_DIAGS |
HFtave(i,j,bi,bj) = HFtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
64 |
OCN_CPL_DIAGS |
& + DDTT * HeatFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
65 |
OCN_CPL_DIAGS |
QSWtave(i,j,bi,bj) = QSWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
66 |
OCN_CPL_DIAGS |
& + DDTT * qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
77 |
OCN_CPL_DIAGS |
TXtave(i,j,bi,bj) = TXtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
78 |
OCN_CPL_DIAGS |
& + DDTT * tauX(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
79 |
OCN_CPL_DIAGS |
TYtave(i,j,bi,bj) = TYtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
80 |
OCN_CPL_DIAGS |
& + DDTT * tauY(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
81 |
OCN_CPL_DIAGS |
FWtave(i,j,bi,bj) = FWtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
82 |
OCN_CPL_DIAGS |
& + DDTT * FWFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
83 |
OCN_CPL_DIAGS |
SFxtave(i,j,bi,bj) = SFxtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
84 |
OCN_CPL_DIAGS |
& + DDTT * iceSaltFlx(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
85 |
OCN_CPL_DIAGS |
SICtave(i,j,bi,bj) = SICtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
86 |
OCN_CPL_DIAGS |
& + DDTT * seaIceMass(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
87 |
OCN_CPL_DIAGS |
MXLtave(i,j,bi,bj) = MXLtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
88 |
OCN_CPL_DIAGS |
& + DDTT * ocMxlD2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
89 |
OCN_CPL_DIAGS |
SSTtave(i,j,bi,bj) = SSTtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
90 |
OCN_CPL_DIAGS |
& + DDTT * SSTocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
91 |
OCN_CPL_DIAGS |
SSStave(i,j,bi,bj) = SSStave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
92 |
OCN_CPL_DIAGS |
& + DDTT * SSSocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
93 |
OCN_CPL_DIAGS |
vSqtave(i,j,bi,bj) = vSqtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
94 |
OCN_CPL_DIAGS |
& + DDTT * vSqocn2cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
96 |
OCN_CPL_DIAGS |
aCO2tave(i,j,bi,bj) = aCO2tave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
97 |
OCN_CPL_DIAGS |
& + DDTT * airCO2(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
98 |
OCN_CPL_DIAGS |
sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
99 |
OCN_CPL_DIAGS |
& + DDTT * surfWSpeed(i,j,bi,bj) |
|
./model/src/cg3d.F |
136 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
140 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
141 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
142 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
152 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
156 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
157 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
172 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(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 |
276 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
277 |
CG3D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
284 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
285 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
295 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
296 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
297 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
308 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
309 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
319 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
320 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
328 |
CG3D |
eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj) |
|
./model/src/cg3d.F |
329 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
347 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
351 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
352 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
363 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
364 |
CG3D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
376 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
382 |
CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
384 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
385 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
386 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
398 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
399 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
400 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
402 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
403 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
404 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
406 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
408 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
409 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
419 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
420 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
422 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
423 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
424 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
426 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
428 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
429 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
439 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
440 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
441 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
442 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
444 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
445 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
446 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
448 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
450 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
451 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
463 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
464 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
466 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
467 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
468 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
470 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
472 |
CG3D |
alphaTile(bi,bj) = alphaTile(bi,bj) |
|
./model/src/cg3d.F |
473 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
493 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
500 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
501 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
502 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
503 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
504 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
505 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
540 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/cg3d.F |
544 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
97 |
CG3D |
INTEGER bi, bj |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
38 |
OCN_EXPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
41 |
OCN_EXPORT_OCNCONFIG |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
44 |
OCN_EXPORT_OCNCONFIG |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
40 |
OCN_STORE_MY_DATA |
INTEGER bi,bj |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
53 |
OCN_STORE_MY_DATA |
SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
54 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
60 |
OCN_STORE_MY_DATA |
SSTocn2cpl(i,j,bi,bj) = gT(i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
61 |
OCN_STORE_MY_DATA |
SSSocn2cpl(i,j,bi,bj) = gS(i,j,1,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
71 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
72 |
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 |
78 |
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 |
88 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
8 |
OCN_STORE_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
95 |
OCN_STORE_MY_DATA |
vSqocn2cpl(i,j,bi,bj) = |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
96 |
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 |
97 |
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 |
98 |
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 |
99 |
OCN_STORE_MY_DATA |
& + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
336 |
OFFLINE_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
340 |
OFFLINE_FIELDS_LOAD |
Uvel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
341 |
OFFLINE_FIELDS_LOAD |
& +aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
Vvel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
343 |
OFFLINE_FIELDS_LOAD |
& +aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
344 |
OFFLINE_FIELDS_LOAD |
Wvel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
345 |
OFFLINE_FIELDS_LOAD |
& +aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
346 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj) = bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
347 |
OFFLINE_FIELDS_LOAD |
& +aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
348 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
349 |
OFFLINE_FIELDS_LOAD |
& +aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
350 |
OFFLINE_FIELDS_LOAD |
ConvectCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
351 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
352 |
OFFLINE_FIELDS_LOAD |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
353 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
356 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
357 |
OFFLINE_FIELDS_LOAD |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
358 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
359 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
363 |
OFFLINE_FIELDS_LOAD |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
364 |
OFFLINE_FIELDS_LOAD |
& +aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
367 |
OFFLINE_FIELDS_LOAD |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
368 |
OFFLINE_FIELDS_LOAD |
& +aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
375 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
376 |
OFFLINE_FIELDS_LOAD |
& +aWght*hflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
377 |
OFFLINE_FIELDS_LOAD |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
379 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
380 |
OFFLINE_FIELDS_LOAD |
& +aWght*sflx1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
381 |
OFFLINE_FIELDS_LOAD |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
384 |
OFFLINE_FIELDS_LOAD |
ICEM(i,j,bi,bj) = bWght*icem0(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
385 |
OFFLINE_FIELDS_LOAD |
& +aWght*icem1(i,j,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
433 |
LEF_ZERO3 |
INTEGER i,j,bi,bj,k |
|
./pkg/offline/offline_fields_load.F |
437 |
LEF_ZERO3 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
441 |
LEF_ZERO3 |
arr(i,j,k,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
469 |
LEF_ZERO2 |
INTEGER i,j,bi,bj |
|
./pkg/offline/offline_fields_load.F |
472 |
LEF_ZERO2 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/offline/offline_fields_load.F |
475 |
LEF_ZERO2 |
arr(i,j,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
66 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |
|
./pkg/offline/offline_init_varia.F |
28 |
OFFLINE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/offline/offline_init_varia.F |
31 |
OFFLINE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/offline/offline_init_varia.F |
35 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
36 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,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 |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
59 |
OFFLINE_INIT_VARIA |
hflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
60 |
OFFLINE_INIT_VARIA |
sflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
61 |
OFFLINE_INIT_VARIA |
hflx1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
62 |
OFFLINE_INIT_VARIA |
sflx1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
135 |
OPPS_CALC |
Dd(k)=state1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
14 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
175 |
OPPS_CALC |
D1=state1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
& i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
232 |
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 |
424 |
OPPS_CALC |
OPPSconvectCount(I,J,K,bi,bj) = |
|
./pkg/opps/opps_calc.F |
425 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_calc.F |
442 |
OPPS_CALC |
_RL FUNCTION STATE1(sLoc,tLoc,I,J,KREF,bi,bj,mythid) |
|
./pkg/opps/opps_calc.F |
465 |
OPPS_CALC |
INTEGER I,J,kRef,bi,bj,myThid |
|
./pkg/opps/opps_calc.F |
492 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
& )*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
79 |
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 |
38 |
OPPS_INIT |
do bi = myBxLo(myThid), myBxHi(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 |
103 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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 |
113 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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 |
129 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/opps/opps_output.F |
131 |
OPPS_OUTPUT |
& OPPS_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
142 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/opps/opps_output.F |
143 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
144 |
OPPS_OUTPUT |
OPPS_timeAve(bi,bj) = 0. |
|
./pkg/opps/opps_output.F |
69 |
OPPS_OUTPUT |
INTEGER bi, bj |
|
./pkg/pp81/pp81_calc.F |
107 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
108 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
109 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, myTime, myThid ) |
|
./pkg/pp81/pp81_calc.F |
47 |
PP81_CALC |
INTEGER bi, bj |
|
./pkg/pp81/pp81_calc.F |
69 |
PP81_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_calc.F |
82 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
83 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_calc.F |
98 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
99 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc_diff.F |
37 |
PP81_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize |
|
./pkg/pp81/pp81_calc_diff.F |
54 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
69 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,kArg,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
71 |
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, |
|
./pkg/pp81/pp81_init_varia.F |
31 |
PP81_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/pp81/pp81_init_varia.F |
38 |
PP81_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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) = diffKrNrT(k) |
|
./pkg/pp81/pp81_output.F |
103 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/pp81/pp81_output.F |
104 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
105 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
106 |
PP81_OUTPUT |
PP_timeAve(bi,bj) = 0. |
|
./pkg/pp81/pp81_output.F |
114 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/pp81/pp81_output.F |
116 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
118 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
120 |
PP81_OUTPUT |
PP_timeAve(bi,bj) = PP_timeAve(bi,bj)+DDTT |
|
./pkg/pp81/pp81_output.F |
132 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/pp81/pp81_output.F |
134 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
136 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
149 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/pp81/pp81_output.F |
150 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
151 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
152 |
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 |
100 |
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 |
106 |
ACTIVE_READ_PROFILE_RL |
prof_mask1D_cur(ivar,bi,bj)=vec_tmp(ivar) |
|
./pkg/profiles/active_file_control_profiles.F |
156 |
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 |
157 |
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 |
178 |
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 |
179 |
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 |
214 |
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 |
215 |
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 |
249 |
ACTIVE_WRITE_PROFILE_RL |
I bi, |
|
./pkg/profiles/active_file_control_profiles.F |
25 |
ACTIVE_READ_PROFILE_RL |
I bi, |
|
./pkg/profiles/active_file_control_profiles.F |
278 |
ACTIVE_WRITE_PROFILE_RL |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_control_profiles.F |
314 |
ACTIVE_WRITE_PROFILE_RL |
& prof_mask1D_cur(1,bi,bj)) |
|
./pkg/profiles/active_file_control_profiles.F |
330 |
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 |
331 |
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 |
334 |
ACTIVE_WRITE_PROFILE_RL |
vec_tmp(ivar)=prof_mask1D_cur(ivar,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
340 |
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 |
341 |
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 |
387 |
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 |
388 |
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 |
410 |
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 |
411 |
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 |
450 |
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 |
451 |
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 |
56 |
ACTIVE_READ_PROFILE_RL |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_control_profiles.F |
86 |
ACTIVE_READ_PROFILE_RL |
& prof_mask1D_cur(1,bi,bj)) |
|
./pkg/profiles/active_file_control_profiles.F |
90 |
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 |
91 |
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 |
99 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_profiles.F |
131 |
ACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles.F |
136 |
ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
139 |
ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
140 |
ACTIVE_WRITE_PROFILE |
& FORWARD_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles.F |
32 |
ACTIVE_READ_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles.F |
66 |
ACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles.F |
72 |
ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
75 |
ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
76 |
ACTIVE_READ_PROFILE |
& FORWARD_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles.F |
96 |
ACTIVE_WRITE_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles_ad.F |
128 |
ADACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_ad.F |
136 |
ADACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidadjoint(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_ad.F |
139 |
ADACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
140 |
ADACTIVE_WRITE_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
29 |
ADACTIVE_READ_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles_ad.F |
64 |
ADACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_ad.F |
69 |
ADACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidadjoint(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_ad.F |
72 |
ADACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
73 |
ADACTIVE_READ_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
91 |
ADACTIVE_WRITE_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles_g.F |
103 |
G_ACTIVE_WRITE_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles_g.F |
139 |
G_ACTIVE_WRITE_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_g.F |
145 |
G_ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_g.F |
148 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
149 |
G_ACTIVE_WRITE_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
151 |
G_ACTIVE_WRITE_PROFILE |
call ACTIVE_WRITE_PROFILE_RL( fidtangent(active_num_file,bi,bj) , |
|
./pkg/profiles/active_file_profiles_g.F |
154 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
155 |
G_ACTIVE_WRITE_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
29 |
G_ACTIVE_READ_PROFILE |
I bi, |
|
./pkg/profiles/active_file_profiles_g.F |
68 |
G_ACTIVE_READ_PROFILE |
integer bi,bj,mythid |
|
./pkg/profiles/active_file_profiles_g.F |
74 |
G_ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
77 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
78 |
G_ACTIVE_READ_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_g.F |
80 |
G_ACTIVE_READ_PROFILE |
call ACTIVE_READ_PROFILE_RL( fidtangent(active_num_file,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
83 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
84 |
G_ACTIVE_READ_PROFILE |
& TANGENT_SIMULATION, myOptimIter,bi,bj, mythid) |
|
./pkg/profiles/cost_profiles.F |
100 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
107 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/cost_profiles.F |
108 |
COST_PROFILES |
& prof_num,.false.,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/cost_profiles.F |
109 |
COST_PROFILES |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
112 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
113 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
116 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
117 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
118 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
120 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
121 |
COST_PROFILES |
objf_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
122 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
123 |
COST_PROFILES |
& +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
127 |
COST_PROFILES |
num_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
128 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
129 |
COST_PROFILES |
& +prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
138 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
140 |
COST_PROFILES |
write(msgbuf,'(a,4I9)') 'bi,bj,prof_num,num_var ',bi,bj, |
|
./pkg/profiles/cost_profiles.F |
141 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/cost_profiles.F |
145 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
146 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
44 |
COST_PROFILES |
integer bi,bj,iG,jG,err,fid |
|
./pkg/profiles/cost_profiles.F |
58 |
COST_PROFILES |
DO bi=1,nSx |
|
./pkg/profiles/cost_profiles.F |
61 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
63 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
67 |
COST_PROFILES |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
68 |
COST_PROFILES |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
69 |
COST_PROFILES |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
78 |
COST_PROFILES |
prof_mask1D_cur(k,bi,bj)=0. |
|
./pkg/profiles/cost_profiles.F |
83 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
89 |
COST_PROFILES |
& prof_lon(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
90 |
COST_PROFILES |
& prof_lat(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
91 |
COST_PROFILES |
& num_var,num_file,mytime,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
95 |
COST_PROFILES |
& num_var,num_file,mytime,bi,bj,myThid) |
|
./model/src/convective_adjustment.F |
11 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment.F |
145 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
146 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
148 |
CONVECTIVE_ADJUSTMENT |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
159 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
160 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
162 |
CONVECTIVE_ADJUSTMENT |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
178 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment.F |
184 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
190 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
198 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment.F |
208 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTclock, bi, bj, myThid) |
|
./model/src/convective_adjustment.F |
215 |
CONVECTIVE_ADJUSTMENT |
I 0, Nr, 2, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
43 |
CONVECTIVE_ADJUSTMENT |
INTEGER bi,bj |
|
./model/src/convective_adjustment.F |
95 |
CONVECTIVE_ADJUSTMENT |
act1 = bi - myBxLo(myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
117 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
120 |
PROFILES_INIT_FIXED |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
122 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
127 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
130 |
PROFILES_INIT_FIXED |
& fid, num_file, ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
131 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
149 |
PROFILES_INIT_FIXED |
do k=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
151 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
186 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
187 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
189 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
192 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
194 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
196 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
197 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
199 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
206 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
210 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
217 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
221 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
256 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
278 |
PROFILES_INIT_FIXED |
if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
279 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
285 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
292 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
301 |
PROFILES_INIT_FIXED |
elseif (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
302 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
304 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
308 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
309 |
PROFILES_INIT_FIXED |
prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
310 |
PROFILES_INIT_FIXED |
prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
311 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
325 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
326 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
327 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 ) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
32 |
PROFILES_INIT_FIXED |
integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
331 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
332 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,length_for_tile,bi,bj)=tmp_xC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
333 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,length_for_tile,bi,bj)=tmp_yC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
334 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,length_for_tile,bi,bj)=tmp_xCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
335 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,length_for_tile,bi,bj)=tmp_yCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
338 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,length_for_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
340 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,length_for_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
342 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,length_for_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
385 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
404 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
408 |
PROFILES_INIT_FIXED |
& num_file, ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
416 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
418 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
422 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,1,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
423 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
424 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
425 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,1,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
426 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
428 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,1,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
432 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,2,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
433 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
434 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
435 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,2,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
436 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
438 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,2,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
443 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,3,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
444 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
445 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
446 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,3,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
447 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
449 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,3,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
453 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,4,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
454 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
455 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
456 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,4,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
457 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
459 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,4,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
464 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,5,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
465 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
466 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
467 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,5,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
468 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
470 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,5,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
474 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,6,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
475 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
476 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
477 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,6,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
478 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
480 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,6,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
488 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
489 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
502 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
503 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
504 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
505 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
506 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
507 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
508 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj),bi,bj, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
510 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
511 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
523 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
524 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
525 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
526 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
527 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
528 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
529 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj),bi,bj, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
531 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidforward(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
532 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
534 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
535 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidadjoint(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
536 |
PROFILES_INIT_FIXED |
open( fidadjoint(num_file,bi,bj),file=adfnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
538 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
548 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
550 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
551 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
553 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
555 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
556 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
557 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
558 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
561 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
562 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
563 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
565 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
566 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
567 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
568 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
584 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
598 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
74 |
PROFILES_INIT_FIXED |
DO bi=1,nSx |
|
./pkg/profiles/profiles_init_fixed.F |
76 |
PROFILES_INIT_FIXED |
profiles_curfile_buff(bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
81 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
82 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_ncfile.F |
14 |
PROFILES_INIT_NCFILE |
& Zlength,bi,bj,myThid) |
|
./pkg/profiles/profiles_init_ncfile.F |
29 |
PROFILES_INIT_NCFILE |
integer myThid,bi,bj,err,vecid(2), length, Zlength |
|
./pkg/profiles/profiles_init_ncfile.F |
83 |
PROFILES_INIT_NCFILE |
do num_var=prof_num_var_tot(num_file,bi,bj),1,-1 |
|
./pkg/profiles/profiles_init_ncfile.F |
84 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
86 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_varia.F |
42 |
PROFILES_INIT_VARIA |
integer bi,bj |
|
./pkg/profiles/profiles_init_varia.F |
60 |
PROFILES_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/profiles/profiles_init_varia.F |
63 |
PROFILES_INIT_VARIA |
objf_profiles(num_file,num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
64 |
PROFILES_INIT_VARIA |
num_profiles(num_file,num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
65 |
PROFILES_INIT_VARIA |
profiles_dummy(num_file,num_var,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_inloop.F |
42 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
61 |
PROFILES_INLOOP |
DO bi=1,nSx |
|
./pkg/profiles/profiles_inloop.F |
65 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_inloop.F |
66 |
PROFILES_INLOOP |
if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND. |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
& (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock))) |
|
./pkg/profiles/profiles_inloop.F |
72 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
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 |
86 |
PROFILES_INLOOP |
& prof_lon(num_file,prof_num,bi,bj), |
|
./pkg/profiles/profiles_inloop.F |
87 |
PROFILES_INLOOP |
& prof_lat(num_file,prof_num,bi,bj), |
|
./pkg/profiles/profiles_inloop.F |
88 |
PROFILES_INLOOP |
& num_var,num_file,mytime,bi,bj,myThid) |
|
./pkg/profiles/profiles_inloop.F |
92 |
PROFILES_INLOOP |
& num_var,num_file,mytime,bi,bj,myThid) |
|
./pkg/profiles/profiles_inloop.F |
95 |
PROFILES_INLOOP |
&ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/profiles_inloop.F |
96 |
PROFILES_INLOOP |
&prof_num,optimcycle,bi,bj,mythid, |
|
./pkg/profiles/profiles_inloop.F |
97 |
PROFILES_INLOOP |
&profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/profiles_interp.F |
101 |
PROFILES_INTERP |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
102 |
PROFILES_INTERP |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
104 |
PROFILES_INTERP |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
106 |
PROFILES_INTERP |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
107 |
PROFILES_INTERP |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
109 |
PROFILES_INTERP |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
112 |
PROFILES_INTERP |
if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
113 |
PROFILES_INTERP |
lon_tmp2=xG(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
115 |
PROFILES_INTERP |
lon_tmp2=xG(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
117 |
PROFILES_INTERP |
if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
118 |
PROFILES_INTERP |
lon_tmp1=xG(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
120 |
PROFILES_INTERP |
lon_tmp1=xG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
150 |
PROFILES_INTERP |
tab_coeffs1(1,1)=theta(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
151 |
PROFILES_INTERP |
tab_coeffs1(1,2)=theta(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
152 |
PROFILES_INTERP |
tab_coeffs1(2,1)=theta(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
153 |
PROFILES_INTERP |
tab_coeffs1(2,2)=theta(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
154 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
155 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
156 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
157 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
159 |
PROFILES_INTERP |
tab_coeffs1(1,1)=salt(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tab_coeffs1(1,2)=salt(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
161 |
PROFILES_INTERP |
tab_coeffs1(2,1)=salt(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
162 |
PROFILES_INTERP |
tab_coeffs1(2,2)=salt(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
163 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
164 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
165 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
166 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
168 |
PROFILES_INTERP |
tab_coeffs1(1,1)=uVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
169 |
PROFILES_INTERP |
tab_coeffs1(1,2)=uVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
170 |
PROFILES_INTERP |
tab_coeffs1(2,1)=uVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
171 |
PROFILES_INTERP |
tab_coeffs1(2,2)=uVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
172 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskW(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
173 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskW(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
174 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskW(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
175 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskW(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
177 |
PROFILES_INTERP |
tab_coeffs1(1,1)=vVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
178 |
PROFILES_INTERP |
tab_coeffs1(1,2)=vVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
179 |
PROFILES_INTERP |
tab_coeffs1(2,1)=vVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
180 |
PROFILES_INTERP |
tab_coeffs1(2,2)=vVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
181 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskS(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
182 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskS(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
183 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskS(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
184 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskS(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
189 |
PROFILES_INTERP |
tab_coeffs1(1,1)=pTracer(prof_i,prof_j,k,bi,bj,1) !SO |
|
./pkg/profiles/profiles_interp.F |
190 |
PROFILES_INTERP |
tab_coeffs1(1,2)=pTracer(prof_i+1,prof_j,k,bi,bj,1) !SE |
|
./pkg/profiles/profiles_interp.F |
191 |
PROFILES_INTERP |
tab_coeffs1(2,1)=pTracer(prof_i,prof_j+1,k,bi,bj,1) !NO |
|
./pkg/profiles/profiles_interp.F |
192 |
PROFILES_INTERP |
tab_coeffs1(2,2)=pTracer(prof_i+1,prof_j+1,k,bi,bj,1) !NZ |
|
./pkg/profiles/profiles_interp.F |
199 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
200 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
201 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
202 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
204 |
PROFILES_INTERP |
tab_coeffs1(1,1)=etan(prof_i,prof_j,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
205 |
PROFILES_INTERP |
tab_coeffs1(1,2)=etan(prof_i+1,prof_j,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
206 |
PROFILES_INTERP |
tab_coeffs1(2,1)=etan(prof_i,prof_j+1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
207 |
PROFILES_INTERP |
tab_coeffs1(2,2)=etan(prof_i+1,prof_j+1,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
208 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
209 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
20 |
PROFILES_INTERP |
I bi, |
|
./pkg/profiles/profiles_interp.F |
210 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
211 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
254 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp.F |
256 |
PROFILES_INTERP |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
258 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
260 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp.F |
262 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
263 |
PROFILES_INTERP |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp.F |
266 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp.F |
272 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
273 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
284 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
288 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp.F |
294 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp.F |
297 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
58 |
PROFILES_INTERP |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp.F |
76 |
PROFILES_INTERP |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp.F |
77 |
PROFILES_INTERP |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp.F |
79 |
PROFILES_INTERP |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
80 |
PROFILES_INTERP |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
87 |
PROFILES_INTERP |
if ((yG(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
& (yG(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp.F |
90 |
PROFILES_INTERP |
lat_1=yG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
lat_2=yG(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
122 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
124 |
PROFILES_INTERP_GG |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
126 |
PROFILES_INTERP_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
128 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_gg.F |
130 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_gg.F |
131 |
PROFILES_INTERP_GG |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_gg.F |
134 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_gg.F |
140 |
PROFILES_INTERP_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_gg.F |
141 |
PROFILES_INTERP_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_gg.F |
152 |
PROFILES_INTERP_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_gg.F |
156 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_gg.F |
162 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
165 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
21 |
PROFILES_INTERP_GG |
I bi, |
|
./pkg/profiles/profiles_interp_gg.F |
63 |
PROFILES_INTERP_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_gg.F |
74 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=theta(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
75 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
77 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
78 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
80 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=uVel(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
81 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskW(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
83 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=vVel(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
84 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskS(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
89 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj,1) |
|
./pkg/profiles/profiles_interp_gg.F |
93 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
95 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=etan(i_cur(q),j_cur(q),bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
96 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
101 |
PROFILES_INTERP_MEAN |
if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
102 |
PROFILES_INTERP_MEAN |
lon_tmp2=xC(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
104 |
PROFILES_INTERP_MEAN |
lon_tmp2=xC(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
106 |
PROFILES_INTERP_MEAN |
if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
107 |
PROFILES_INTERP_MEAN |
lon_tmp1=xC(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
109 |
PROFILES_INTERP_MEAN |
lon_tmp1=xC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
112 |
PROFILES_INTERP_MEAN |
if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
113 |
PROFILES_INTERP_MEAN |
lon_tmp2=xG(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
115 |
PROFILES_INTERP_MEAN |
lon_tmp2=xG(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
117 |
PROFILES_INTERP_MEAN |
if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
118 |
PROFILES_INTERP_MEAN |
lon_tmp1=xG(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
120 |
PROFILES_INTERP_MEAN |
lon_tmp1=xG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
150 |
PROFILES_INTERP_MEAN |
tab_coeffs1(1,1)=prof_etan_mean(prof_i,prof_j,bi,bj) !SO |
|
./pkg/profiles/profiles_interp_mean.F |
151 |
PROFILES_INTERP_MEAN |
tab_coeffs1(1,2)=prof_etan_mean(prof_i+1,prof_j,bi,bj) !SE |
|
./pkg/profiles/profiles_interp_mean.F |
152 |
PROFILES_INTERP_MEAN |
tab_coeffs1(2,1)=prof_etan_mean(prof_i,prof_j+1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp_mean.F |
153 |
PROFILES_INTERP_MEAN |
tab_coeffs1(2,2)=prof_etan_mean(prof_i+1,prof_j+1,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_mean.F |
154 |
PROFILES_INTERP_MEAN |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO |
|
./pkg/profiles/profiles_interp_mean.F |
155 |
PROFILES_INTERP_MEAN |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE |
|
./pkg/profiles/profiles_interp_mean.F |
156 |
PROFILES_INTERP_MEAN |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO |
|
./pkg/profiles/profiles_interp_mean.F |
157 |
PROFILES_INTERP_MEAN |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp_mean.F |
200 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
202 |
PROFILES_INTERP_MEAN |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
204 |
PROFILES_INTERP_MEAN |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
206 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_mean.F |
208 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean.F |
209 |
PROFILES_INTERP_MEAN |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_mean.F |
20 |
PROFILES_INTERP_MEAN |
I bi, |
|
./pkg/profiles/profiles_interp_mean.F |
212 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_mean.F |
218 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
219 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
230 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
234 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_mean.F |
240 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
243 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
58 |
PROFILES_INTERP_MEAN |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean.F |
76 |
PROFILES_INTERP_MEAN |
if ((yC(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
77 |
PROFILES_INTERP_MEAN |
& (yC(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp_mean.F |
79 |
PROFILES_INTERP_MEAN |
lat_1=yC(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
80 |
PROFILES_INTERP_MEAN |
lat_2=yC(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
87 |
PROFILES_INTERP_MEAN |
if ((yG(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
88 |
PROFILES_INTERP_MEAN |
& (yG(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp_mean.F |
90 |
PROFILES_INTERP_MEAN |
lat_1=yG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
91 |
PROFILES_INTERP_MEAN |
lat_2=yG(i,j+1,bi,bj) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
101 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
103 |
PROFILES_INTERP_MEAN_GG |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
105 |
PROFILES_INTERP_MEAN_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
107 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
109 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
110 |
PROFILES_INTERP_MEAN_GG |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
113 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
119 |
PROFILES_INTERP_MEAN_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
120 |
PROFILES_INTERP_MEAN_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
131 |
PROFILES_INTERP_MEAN_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean_gg.F |
135 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
141 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
144 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
21 |
PROFILES_INTERP_MEAN_GG |
I bi, |
|
./pkg/profiles/profiles_interp_mean_gg.F |
63 |
PROFILES_INTERP_MEAN_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
74 |
PROFILES_INTERP_MEAN_GG |
tab_coeffs1(q)=prof_etan_mean(i_cur(q),j_cur(q),bi,bj) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
75 |
PROFILES_INTERP_MEAN_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,bi,bj) |
|
./model/src/convective_adjustment_ini.F |
11 |
CONVECTIVE_ADJUSTMENT_INI |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/convective_adjustment_ini.F |
145 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
146 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
148 |
CONVECTIVE_ADJUSTMENT_INI |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
159 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
160 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
162 |
CONVECTIVE_ADJUSTMENT_INI |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
176 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment_ini.F |
182 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
188 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
196 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment_ini.F |
47 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER bi,bj |
|
./model/src/convective_adjustment_ini.F |
95 |
CONVECTIVE_ADJUSTMENT_INI |
act1 = bi - myBxLo(myThid) |
|
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
112 |
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 |
27 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
40 |
PROFILES_READVECTOR |
if ( (irec.LT.profiles_minind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
41 |
PROFILES_READVECTOR |
& (irec.GT.profiles_maxind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
42 |
PROFILES_READVECTOR |
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then |
|
./pkg/profiles/profiles_readvector.F |
43 |
PROFILES_READVECTOR |
err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1) |
|
./pkg/profiles/profiles_readvector.F |
44 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
|
./pkg/profiles/profiles_readvector.F |
46 |
PROFILES_READVECTOR |
if (profiles_curfile_buff(bi,bj).NE.fNb) then |
|
./pkg/profiles/profiles_readvector.F |
48 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-500+1) |
|
./pkg/profiles/profiles_readvector.F |
49 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500) |
|
./pkg/profiles/profiles_readvector.F |
50 |
PROFILES_READVECTOR |
elseif (irec.LT.profiles_minind_buff(bi,bj)) then |
|
./pkg/profiles/profiles_readvector.F |
52 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-999) |
|
./pkg/profiles/profiles_readvector.F |
53 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
56 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
57 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999) |
|
./pkg/profiles/profiles_readvector.F |
62 |
PROFILES_READVECTOR |
& profiles_minind_buff(bi,bj), profiles_maxind_buff(bi,bj), |
|
./pkg/profiles/profiles_readvector.F |
63 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
68 |
PROFILES_READVECTOR |
vec_start(2)=profiles_minind_buff(bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
71 |
PROFILES_READVECTOR |
& profiles_maxind_buff(bi,bj)-profiles_minind_buff(bi,bj)+1 |
|
./pkg/profiles/profiles_readvector.F |
74 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_readvector.F |
75 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(kkk), |
|
./pkg/profiles/profiles_readvector.F |
77 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
79 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(kkk) |
|
./pkg/profiles/profiles_readvector.F |
81 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
91 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
92 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
99 |
PROFILES_READVECTOR |
profiles_curfile_buff(bi,bj)=fNb |
|
./model/src/convective_weights.F |
10 |
CONVECTIVE_WEIGHTS |
I bi,bj,k,rhoKm1,rhoK, |
|
./model/src/convective_weights.F |
40 |
CONVECTIVE_WEIGHTS |
INTEGER bi,bj,k |
|
./model/src/convective_weights.F |
59 |
CONVECTIVE_WEIGHTS |
IF ( _hFacC(i,j,k-1,bi,bj) |
|
./model/src/convective_weights.F |
60 |
CONVECTIVE_WEIGHTS |
& *_hFacC(i,j,k,bi,bj) .GT. 0. |
|
./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/ptracers/ptracers_advection.F |
105 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_advection.F |
11 |
PTRACERS_ADVECTION |
SUBROUTINE PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_advection.F |
123 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_advection.F |
42 |
PTRACERS_ADVECTION |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_advection.F |
67 |
PTRACERS_ADVECTION |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_calc_diff.F |
104 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
10 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_calc_diff.F |
113 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
122 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
131 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
140 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
50 |
PTRACERS_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/ptracers/ptracers_calc_diff.F |
82 |
PTRACERS_CALC_DIFF |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/ptracers/ptracers_calc_diff.F |
84 |
PTRACERS_CALC_DIFF |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/ptracers/ptracers_calc_diff.F |
88 |
PTRACERS_CALC_DIFF |
& + diffKr(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_calc_diff.F |
94 |
PTRACERS_CALC_DIFF |
& + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj) |
|
./pkg/ptracers/ptracers_convect.F |
10 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
28 |
PTRACERS_CONVECT |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_convect.F |
47 |
PTRACERS_CONVECT |
I bi,bj,k,weightA,weightB, |
|
./pkg/ptracers/ptracers_cycle.F |
10 |
PTRACERS_CYCLE |
SUBROUTINE PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_cycle.F |
28 |
PTRACERS_CYCLE |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_cycle.F |
48 |
PTRACERS_CYCLE |
I bi,bj, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
110 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(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 |
143 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(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 |
77 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(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_dwnslp_apply.F |
12 |
PTRACERS_DWNSLP_APPLY |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
34 |
PTRACERS_DWNSLP_APPLY |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
56 |
PTRACERS_DWNSLP_APPLY |
I GAD_TR1+iTr-1, bi, bj, kSurfC, |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
64 |
PTRACERS_DWNSLP_APPLY |
I GAD_TR1+iTr-1, bi, bj, kLowC, |
|
./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/ptracers/ptracers_fields_blocking_exchanges.F |
40 |
PTRACERS_FIELDS_BLOCKING_EXCH |
INTEGER bi, bj |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
60 |
PTRACERS_FIELDS_BLOCKING_EXCH |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
61 |
PTRACERS_FIELDS_BLOCKING_EXCH |
CALL OBCS_COPY_TRACER( pTracer(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
62 |
PTRACERS_FIELDS_BLOCKING_EXCH |
I Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_forcing.F |
11 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_forcing.F |
35 |
PTRACERS_FORCING |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer |
|
./pkg/ptracers/ptracers_forcing.F |
67 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_forcing.F |
75 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
76 |
PTRACERS_FORCING |
& + surfPtracer(i,j,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
77 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
85 |
PTRACERS_FORCING |
I bi,bj,k,iTracer+2, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
128 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
12 |
PTRACERS_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
130 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
158 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
179 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
40 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./pkg/ptracers/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./pkg/ptracers/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/ptracers/ptracers_implicit.F |
121 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
129 |
PTRACERS_IMPLICIT |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ptracers/ptracers_implicit.F |
12 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
139 |
PTRACERS_IMPLICIT |
I bi, bj, 0, iTracer, |
|
./pkg/ptracers/ptracers_implicit.F |
140 |
PTRACERS_IMPLICIT |
U gPtr(1-Olx,1-Oly,1,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_implicit.F |
47 |
PTRACERS_IMPLICIT |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_implicit.F |
76 |
PTRACERS_IMPLICIT |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_implicit.F |
93 |
PTRACERS_IMPLICIT |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/ptracers/ptracers_init_varia.F |
102 |
PTRACERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
106 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
107 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
37 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
48 |
PTRACERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ptracers/ptracers_init_varia.F |
54 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
55 |
PTRACERS_INIT_VARIA |
gPtr(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
56 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
62 |
PTRACERS_INIT_VARIA |
surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
73 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
109 |
PTRACERS_INTEGRATE |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
11 |
PTRACERS_INTEGRATE |
I bi,bj,k, |
|
./pkg/ptracers/ptracers_integrate.F |
138 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,km1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
160 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
182 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_integrate.F |
194 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
203 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_integrate.F |
208 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_integrate.F |
216 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_integrate.F |
57 |
PTRACERS_INTEGRATE |
INTEGER bi,bj,k |
|
./model/src/correction_step.F |
42 |
CORRECTION_STEP |
INTEGER bi,bj |
|
./model/src/correction_step.F |
69 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
72 |
CORRECTION_STEP |
& -deltaTmom*nhFac*_recip_dxC(i,j,bi,bj) |
|
./model/src/correction_step.F |
73 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
75 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
82 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
85 |
CORRECTION_STEP |
& -deltaTmom*nhFac*_recip_dyC(i,j,bi,bj) |
|
./model/src/correction_step.F |
86 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/correction_step.F |
88 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
9 |
CORRECTION_STEP |
SUBROUTINE CORRECTION_STEP( bi, bj, iMin, iMax, jMin, jMax, |
|
./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/cycle_tracer.F |
10 |
CYCLE_TRACER |
I bi, bj, |
|
./model/src/cycle_tracer.F |
33 |
CYCLE_TRACER |
INTEGER bi,bj |
|
./model/src/cycle_tracer.F |
52 |
CYCLE_TRACER |
tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_write_timeave.F |
158 |
PTRACERS_WRITE_TIMEAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
165 |
PTRACERS_WRITE_TIMEAVE |
CALL PTRACERS_TIMEAVE( myTime, nIter0, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
45 |
PTRACERS_WRITE_TIMEAVE |
INTEGER bi, bj, iTr |
|
./pkg/ptracers/ptracers_write_timeave.F |
64 |
PTRACERS_WRITE_TIMEAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
69 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_full, 1, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
72 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half, Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
43 |
PTRACERS_ZONAL_FILT_APPLY |
INTEGER bi,bj |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
47 |
PTRACERS_ZONAL_FILT_APPLY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
50 |
PTRACERS_ZONAL_FILT_APPLY |
U pTracer(1-Olx,1-Oly,1,bi,bj,iTr), |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
51 |
PTRACERS_ZONAL_FILT_APPLY |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
52 |
PTRACERS_ZONAL_FILT_APPLY |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
11 |
RBCS_ADD_TENDENCY |
I bi, bj, k, tracerNum, |
|
./pkg/rbcs/rbcs_add_tendency.F |
37 |
RBCS_ADD_TENDENCY |
INTEGER bi, bj, k |
|
./pkg/rbcs/rbcs_add_tendency.F |
57 |
RBCS_ADD_TENDENCY |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
58 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
59 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,1)/tauRelaxT |
|
./pkg/rbcs/rbcs_add_tendency.F |
60 |
RBCS_ADD_TENDENCY |
& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
68 |
RBCS_ADD_TENDENCY |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
69 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
70 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,2)/tauRelaxS |
|
./pkg/rbcs/rbcs_add_tendency.F |
71 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
83 |
RBCS_ADD_TENDENCY |
gPtr(i,j,k,bi,bj,iTracer) = gPtr(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
86 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
87 |
RBCS_ADD_TENDENCY |
& - RBC_ptracers(i,j,k,bi,bj,iTracer) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
237 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
242 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
243 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
244 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
256 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
260 |
RBCS_FIELDS_LOAD |
RBC_ptracers(i,j,k,bi,bj,iTracer) = |
|
./pkg/rbcs/rbcs_fields_load.F |
261 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
262 |
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,intime0,intime1 |
|
./pkg/rbcs/rbcs_fields_load.F |
76 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
80 |
RBCS_FIELDS_LOAD |
rbct0(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
81 |
RBCS_FIELDS_LOAD |
rbcs0(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
82 |
RBCS_FIELDS_LOAD |
rbct1(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
83 |
RBCS_FIELDS_LOAD |
rbcs1(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
92 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_fields_load.F |
96 |
RBCS_FIELDS_LOAD |
rbcptr0(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
97 |
RBCS_FIELDS_LOAD |
rbcptr1(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
113 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
116 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
118 |
DIAGS_OCEANIC_SURF_FLUX |
& -Qsw(i,j,bi,bj)+ |
|
./model/src/diags_oceanic_surf_flux.F |
120 |
DIAGS_OCEANIC_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj)) |
|
./model/src/diags_oceanic_surf_flux.F |
129 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
130 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp |
|
./model/src/diags_oceanic_surf_flux.F |
143 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/diags_oceanic_surf_flux.F |
146 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = |
|
./model/src/diags_oceanic_surf_flux.F |
147 |
DIAGS_OCEANIC_SURF_FLUX |
& surfaceForcingS(i,j,bi,bj)*rUnit2mass |
|
./model/src/diags_oceanic_surf_flux.F |
156 |
DIAGS_OCEANIC_SURF_FLUX |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
157 |
DIAGS_OCEANIC_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
47 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER i,j,bi,bj |
|
./pkg/rbcs/rbcs_init_fixed.F |
32 |
RBCS_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_fixed.F |
40 |
RBCS_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
46 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
32 |
RBCS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
38 |
RBCS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_init_varia.F |
42 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
43 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
44 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
45 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/rbcs/rbcs_init_varia.F |
62 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
63 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
64 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/regrid/regrid_init_varia.F |
101 |
REGRID_INIT_VARIA |
iG = bi + (myXGlobalLo-1)/sNx |
|
./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 |
87 |
REGRID_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/regrid/regrid_init_varia.F |
91 |
REGRID_INIT_VARIA |
uniq_tnum = W2_myTileList(bi,bj) |
|
./model/src/diags_phi_hyd.F |
10 |
DIAGS_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_hyd.F |
43 |
DIAGS_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_hyd.F |
57 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_hyd.F |
58 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
59 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
105 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
106 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
107 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_rlow.F |
10 |
DIAGS_PHI_RLOW |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_rlow.F |
129 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydF(i,j) |
|
./model/src/diags_phi_rlow.F |
139 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
140 |
DIAGS_PHI_RLOW |
& *rStarFacC(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
148 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
149 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
150 |
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 |
77 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_phi_rlow.F |
87 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = phiHydC(i,j) |
|
./pkg/rw/read_glvec_rl.F |
41 |
READ_GLVEC_RL |
INTEGER ioUnit, bi, bj |
|
./pkg/rw/read_glvec_rl.F |
61 |
READ_GLVEC_RL |
bi = 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 |
61 |
READ_GLVEC_RS |
bi = 0 |
|
./pkg/rw/read_glvec_rs.F |
67 |
READ_GLVEC_RS |
I bi, bj, iRec, myThid ) |
|
./model/src/diags_rho.F |
132 |
DIAGS_RHO_G |
INTEGER k, bi,bj |
|
./model/src/diags_rho.F |
148 |
DIAGS_RHO_G |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/diags_rho.F |
152 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
153 |
DIAGS_RHO_G |
& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
157 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
165 |
DIAGS_RHO_G |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
170 |
DIAGS_RHO_G |
& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
17 |
DIAGS_RHO_L |
I k, bi, bj, |
|
./model/src/diags_rho.F |
47 |
DIAGS_RHO_L |
INTEGER k, bi, bj |
|
./model/src/diags_rho.F |
68 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rhoK(i,j) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,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 |
88 |
WRITE_FLD_S3D_RL |
DO bi=myBxLo(myThid),myBxHi(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 |
88 |
WRITE_FLD_S3D_RS |
DO bi=myBxLo(myThid),myBxHi(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 |
59 |
WRITE_GLVEC_RL |
bi = 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 |
59 |
WRITE_GLVEC_RS |
bi = 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 ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
109 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
115 |
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 |
11 |
SALT_PLUME_CALC_DEPTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
128 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
129 |
SALT_PLUME_CALC_DEPTH |
& min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
137 |
SALT_PLUME_CALC_DEPTH |
& CALL SALT_PLUME_DIAGNOSTICS_FILL(bi,bj,myThid) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
41 |
SALT_PLUME_CALC_DEPTH |
INTEGER bi, bj |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
61 |
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 |
79 |
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 |
81 |
SALT_PLUME_CALC_DEPTH |
I K, bi, bj, myThid ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
85 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
93 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/do_fields_blocking_exchanges.F |
49 |
DO_FIELDS_BLOCKING_EXCHANGES |
INTEGER bi, bj |
|
./model/src/do_fields_blocking_exchanges.F |
69 |
DO_FIELDS_BLOCKING_EXCHANGES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/do_fields_blocking_exchanges.F |
70 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL OBCS_COPY_TRACER( theta(1-Olx,1-Oly,1,bi,bj), |
|
./model/src/do_fields_blocking_exchanges.F |
71 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
|
./model/src/do_fields_blocking_exchanges.F |
72 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL OBCS_COPY_TRACER( salt (1-Olx,1-Oly,1,bi,bj), |
|
./model/src/do_fields_blocking_exchanges.F |
73 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
|
./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 |
|
./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 |
59 |
SALT_PLUME_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
60 |
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 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
31 |
SALT_PLUME_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/salt_plume/salt_plume_init_varia.F |
37 |
SALT_PLUME_INIT_VARIA |
SaltPlumeDepth (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
38 |
SALT_PLUME_INIT_VARIA |
saltPlumeFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
11 |
SALT_PLUME_TENDENCY_APPLY_S |
& bi,bj,kLev,myTime,myThid) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
30 |
SALT_PLUME_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
49 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(1)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
50 |
SALT_PLUME_TENDENCY_APPLY_S |
SPdepth(2)=SaltPlumeDepth(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
60 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. -rF(kLev) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
61 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
62 |
SALT_PLUME_TENDENCY_APPLY_S |
& -plumekb(2)*maskC(i,j,kp1, bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
63 |
SALT_PLUME_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
64 |
SALT_PLUME_TENDENCY_APPLY_S |
& +saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)*mass2rUnit |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
65 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
73 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumefrac,'PLUMEKB ',kLev,1,2,bi,bj,myThid ) |
|
./pkg/sbo/sbo_calc.F |
160 |
SBO_CALC |
integer bi, bj, i, j, k, kn0 |
|
./pkg/sbo/sbo_calc.F |
186 |
SBO_CALC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
189 |
SBO_CALC |
obp(i,j,bi,bj) = 0.0 |
|
./pkg/sbo/sbo_calc.F |
198 |
SBO_CALC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_calc.F |
204 |
SBO_CALC |
I theta(1-OLx,1-OLy,kn0,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
205 |
SBO_CALC |
I salt(1-OLx,1-OLy,kn0,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
207 |
SBO_CALC |
I kn0, bi, bj, myThid ) |
|
./pkg/sbo/sbo_calc.F |
212 |
SBO_CALC |
IF ( maskC(i,j,kn0,bi,bj) .NE. 0. ) THEN |
|
./pkg/sbo/sbo_calc.F |
215 |
SBO_CALC |
lat_deg = yC(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
216 |
SBO_CALC |
lat = yC(i,j,bi,bj) * pi / 180.0 |
|
./pkg/sbo/sbo_calc.F |
218 |
SBO_CALC |
lon = xC(i,j,bi,bj) * pi / 180.0 |
|
./pkg/sbo/sbo_calc.F |
221 |
SBO_CALC |
darea = dyF(i,j,bi,bj) * dxF(i,j,bi,bj) / ae / ae |
|
./pkg/sbo/sbo_calc.F |
222 |
SBO_CALC |
& * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
226 |
SBO_CALC |
sboempmrwet = sboempmrwet + empmr(i,j,bi,bj)*darea |
|
./pkg/sbo/sbo_calc.F |
227 |
SBO_CALC |
sboqnetwet = sboqnetwet + qnet(i,j,bi,bj) *darea |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
dradius = etaN(i,j,bi,bj) * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
237 |
SBO_CALC |
dradius = drF(k) * maskC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
244 |
SBO_CALC |
u =(uvel(i,j,kn0,bi,bj)+uvel(i+1,j,kn0,bi,bj))*0.5 _d 0 |
|
./pkg/sbo/sbo_calc.F |
245 |
SBO_CALC |
v =(vvel(i,j,kn0,bi,bj)+vvel(i,j+1,kn0,bi,bj))*0.5 _d 0 |
|
./pkg/sbo/sbo_calc.F |
286 |
SBO_CALC |
obp(i,j,bi,bj) = obp(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
301 |
SBO_CALC |
sbobp = sbobp + obp(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/sbo/sbo_output.F |
105 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_output.F |
106 |
SBO_OUTPUT |
CALL TIMEAVE_RESET( OBPtave, 1, bi, bj, myThid ) |
|
./pkg/sbo/sbo_output.F |
107 |
SBO_OUTPUT |
sbo_timeAve(bi,bj) = 0. |
|
./pkg/sbo/sbo_output.F |
121 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_output.F |
122 |
SBO_OUTPUT |
CALL TIMEAVE_CUMULATE( OBPtave, obp, 1, DDTT, bi,bj,myThid ) |
|
./pkg/sbo/sbo_output.F |
124 |
SBO_OUTPUT |
sbo_timeAve(bi,bj) = sbo_timeAve(bi,bj)+DDTT |
|
./pkg/sbo/sbo_output.F |
135 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_output.F |
136 |
SBO_OUTPUT |
CALL TIMEAVE_NORMALIZE(OBPtave,sbo_timeAve,1,bi,bj,myThid) |
|
./pkg/sbo/sbo_output.F |
146 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_output.F |
147 |
SBO_OUTPUT |
CALL TIMEAVE_RESET( OBPtave, 1, bi, bj, myThid ) |
|
./pkg/sbo/sbo_output.F |
148 |
SBO_OUTPUT |
sbo_timeAve(bi,bj) = 0. |
|
./pkg/sbo/sbo_output.F |
155 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/sbo/sbo_output.F |
156 |
SBO_OUTPUT |
CALL TIMEAVE_CUMULATE( OBPtave, obp, 1, DDTT,bi,bj,myThid ) |
|
./pkg/sbo/sbo_output.F |
158 |
SBO_OUTPUT |
sbo_timeAve(bi,bj) = sbo_timeAve(bi,bj)+DDTT |
|
./pkg/sbo/sbo_output.F |
44 |
SBO_OUTPUT |
INTEGER bi, bj |
|
./model/src/do_oceanic_phys.F |
105 |
DO_OCEANIC_PHYS |
INTEGER bi, bj |
|
./model/src/do_oceanic_phys.F |
138 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/do_oceanic_phys.F |
142 |
DO_OCEANIC_PHYS |
addmass(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
165 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/do_oceanic_phys.F |
168 |
DO_OCEANIC_PHYS |
saltPlumeDepth(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
169 |
DO_OCEANIC_PHYS |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
342 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/do_oceanic_phys.F |
345 |
DO_OCEANIC_PHYS |
act1 = bi - myBxLo(myThid) |
|
./model/src/do_oceanic_phys.F |
387 |
DO_OCEANIC_PHYS |
IVDConvCount(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
389 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
390 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
391 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
393 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
394 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
397 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
398 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
401 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
402 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
405 |
DO_OCEANIC_PHYS |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
409 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
410 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
413 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
414 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
415 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
474 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
475 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
480 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
481 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
482 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
483 |
DO_OCEANIC_PHYS |
I k, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
492 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
513 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
514 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
516 |
DO_OCEANIC_PHYS |
I k-1, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
524 |
DO_OCEANIC_PHYS |
rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
528 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
529 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
550 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
551 |
DO_OCEANIC_PHYS |
I rhoKm1, rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
557 |
DO_OCEANIC_PHYS |
CALL DIAGS_RHO_L( k, bi, bj, |
|
./model/src/do_oceanic_phys.F |
558 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
576 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
|
./model/src/do_oceanic_phys.F |
577 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
583 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
|
./model/src/do_oceanic_phys.F |
584 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
591 |
DO_OCEANIC_PHYS |
& 2, bi, bj, myThid) |
|
./model/src/do_oceanic_phys.F |
619 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/do_oceanic_phys.F |
657 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
675 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myThid ) |
|
./model/src/do_oceanic_phys.F |
686 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myThid ) |
|
./model/src/do_oceanic_phys.F |
702 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
709 |
DO_OCEANIC_PHYS |
CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid) |
|
./model/src/do_oceanic_phys.F |
713 |
DO_OCEANIC_PHYS |
I Nr, deltaTclock, bi, bj, myThid) |
|
./model/src/do_oceanic_phys.F |
741 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
747 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
757 |
DO_OCEANIC_PHYS |
I bi, bj, kSurfC, rhoInSitu, |
|
./model/src/do_oceanic_phys.F |
761 |
DO_OCEANIC_PHYS |
I bi, bj, kLowC, rhoInSitu, |
|
./model/src/do_oceanic_phys.F |
770 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/advect.F |
101 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
106 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
108 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I+1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
109 |
ADVECT |
& * UI(I+1,J, bi,bj) - |
|
./pkg/seaice/advect.F |
110 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I-1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
111 |
ADVECT |
& * UI(I ,J, bi,bj) )*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
114 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
115 |
ADVECT |
& * VI(I ,J+1, bi,bj) |
|
./pkg/seaice/advect.F |
116 |
ADVECT |
& * _dxG(I ,J+1,bi,bj) - |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
118 |
ADVECT |
& * VI(I ,J , bi,bj) |
|
./pkg/seaice/advect.F |
119 |
ADVECT |
& * _dxG(I,J,bi,bj))*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
120 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
128 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
132 |
ADVECT |
afx(I,J) = _dyG(I,J,bi,bj) * UI(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I-1,J,bi,bj)) |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
afy(I,J) = _dxG(I,J,bi,bj) * VI(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
144 |
ADVECT |
& )*recip_rA(I,J,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
158 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
161 |
ADVECT |
tmpFld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
174 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
177 |
ADVECT |
DIFFA(I,J,bi,bj)= |
|
./pkg/seaice/advect.F |
178 |
ADVECT |
& DIFF1*MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
186 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
189 |
ADVECT |
DIFFA(I,J,bi,bj)= |
|
./pkg/seaice/advect.F |
190 |
ADVECT |
& -(MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/advect.F |
199 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
fld(I,J,bi,bj)=(fld(I,J,bi,bj)+tmpFld(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
203 |
ADVECT |
& *iceMsk(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
39 |
ADVECT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/advect.F |
50 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
53 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
74 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
79 |
ADVECT |
& +fldNm1(i,j,bi,bj)) |
|
./pkg/seaice/cost_ice_test.F |
100 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
101 |
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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
113 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
114 |
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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
147 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
148 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
151 |
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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
163 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
164 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
165 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
175 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
178 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
179 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
180 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
182 |
COST_ICE_TEST |
& (TICE(i,j,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
185 |
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 bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/cost_ice_test.F |
200 |
COST_ICE_TEST |
objf_ice(bi,bj) = objf_ice(bi,bj) + |
|
./pkg/seaice/cost_ice_test.F |
201 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./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 |
74 |
COST_ICE_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/seaice/cost_ice_test.F |
97 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/diffus.F |
101 |
DIFFUS |
& ) * recip_rA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
112 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
fld(I,J,bi,bj)=iceFld(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
34 |
DIFFUS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/diffus.F |
43 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/diffus.F |
47 |
DIFFUS |
iceFld(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/diffus.F |
55 |
DIFFUS |
DELTXX1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
56 |
DIFFUS |
DELTYY1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
57 |
DIFFUS |
DELTXX=DELTXX1 * _recip_dxF(I,J,bi,bj)* _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
DELTYY=DELTYY1 * _recip_dyF(I,J,bi,bj)* _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
59 |
DIFFUS |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
iceFld(I,J,bi,bj)=DELTXX*( |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
& (fld(I+1,J,bi,bj)-fld(I, J,bi,bj)) |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
& *iceMsk(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
63 |
DIFFUS |
& -(fld(I, J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
64 |
DIFFUS |
& *iceMsk(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
66 |
DIFFUS |
& (fld(I,J+1,bi,bj)-fld(I,J, bi,bj)) |
|
./pkg/seaice/diffus.F |
67 |
DIFFUS |
& * _dxG(I+1,J+1,bi,bj)*iceMsk(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
& -(fld(I,J, bi,bj)-fld(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * _dxG(I+1,J, bi,bj)*iceMsk(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
83 |
DIFFUS |
dfx(I,J) = _dyG(I,J,bi,bj) * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
85 |
DIFFUS |
& * cosFacU(J,bi,bj) |
|
./pkg/seaice/diffus.F |
86 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I-1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
87 |
DIFFUS |
dfy(I,J) = _dxG(I,J,bi,bj) * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
88 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
90 |
DIFFUS |
& * cosFacV(J,bi,bj) |
|
./pkg/seaice/diffus.F |
92 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I,J-1,bi,bj) |
|
./pkg/seaice/diffus.F |
97 |
DIFFUS |
iceFld(I,J,bi,bj)= |
|
./pkg/seaice/diffus.F |
98 |
DIFFUS |
& DELTT*DIFFA(I,J,bi,bj) * ( |
|
./pkg/seaice/dynsolver.F |
100 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
101 |
DYNSOLVER |
& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj) |
|
./pkg/seaice/dynsolver.F |
102 |
DYNSOLVER |
& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) ) |
|
./pkg/seaice/dynsolver.F |
103 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
114 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
& +UWIND(I ,J-1,bi,bj)+UWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
119 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
120 |
DYNSOLVER |
& +VWIND(I ,J-1,bi,bj)+VWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
128 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
|
./pkg/seaice/dynsolver.F |
130 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
131 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
132 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
142 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
157 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
163 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
172 |
DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
173 |
DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/dynsolver.F |
181 |
DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
189 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
190 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
191 |
DYNSOLVER |
& *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
192 |
DYNSOLVER |
& +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
193 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
195 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
196 |
DYNSOLVER |
& *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
& +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
210 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
211 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
212 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
214 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
215 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
223 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=SEAICE_zetaMin |
|
./pkg/seaice/dynsolver.F |
224 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
247 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
250 |
DYNSOLVER |
UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
264 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF* _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
265 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
266 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
268 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
269 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
270 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
271 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF* _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
272 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
273 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
274 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
275 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
276 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
277 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
285 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
286 |
DYNSOLVER |
& +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
287 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
293 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
312 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
317 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
318 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
320 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
326 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
332 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
334 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
335 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
337 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
338 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
339 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
340 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
344 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
347 |
DYNSOLVER |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
348 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
349 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
350 |
DYNSOLVER |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/dynsolver.F |
351 |
DYNSOLVER |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
366 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
369 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
370 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
371 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
372 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
379 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
383 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
384 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
385 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
387 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
388 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
389 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
390 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
391 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
392 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
393 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
394 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
395 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
396 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
397 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
398 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
400 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
401 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
402 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
404 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
405 |
DYNSOLVER |
& +4. _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
406 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
412 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
414 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
415 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
417 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
418 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
419 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
431 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
435 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
436 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
437 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
439 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
441 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
445 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
447 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
451 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
453 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
454 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
456 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
457 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
458 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
459 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
460 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
461 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
463 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
464 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
465 |
DYNSOLVER |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
466 |
DYNSOLVER |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
467 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
468 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
469 |
DYNSOLVER |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/dynsolver.F |
470 |
DYNSOLVER |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
506 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
517 |
DYNSOLVER |
UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
518 |
DYNSOLVER |
VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
528 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
52 |
DYNSOLVER |
INTEGER i, j, bi, bj, kii |
|
./pkg/seaice/dynsolver.F |
531 |
DYNSOLVER |
UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
532 |
DYNSOLVER |
VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
76 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/dynsolver.F |
79 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
80 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
97 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
114 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
117 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
118 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICENM1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
119 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
120 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICENM1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
121 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
122 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
123 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
124 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
129 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
130 |
LSR |
& ETA(I,J-1,bi,bj) + ETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
131 |
LSR |
& +ETA(I,J ,bi,bj) + ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
132 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./pkg/seaice/lsr.F |
133 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
134 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
141 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
145 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
146 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
147 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
148 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
149 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
150 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
151 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
152 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
153 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
154 |
LSR |
& * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
155 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
156 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
157 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
158 |
LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/lsr.F |
159 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
160 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
161 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
163 |
LSR |
& + AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
164 |
LSR |
& + DRAGS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
165 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
170 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
171 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
172 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
179 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
180 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
181 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
182 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
184 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
185 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
186 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
& * _recip_dxG(I,J, bi,bj) ) |
|
./pkg/seaice/lsr.F |
194 |
LSR |
& vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
196 |
LSR |
& vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
202 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
203 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
206 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
207 |
LSR |
& *(vz(i,j)-vz(i,j-1)) * _recip_dyC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
209 |
LSR |
& (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
210 |
LSR |
& *(vz(i-1,j)-vz(i-1,j-1)) * _recip_dyC(i-1,j,bi,bj) |
|
./pkg/seaice/lsr.F |
211 |
LSR |
& ) * _recip_dxV(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dVdy(I ,J ) |
|
./pkg/seaice/lsr.F |
214 |
LSR |
& + zetaMinusEta(I ,J-1,bi,bj) * dVdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
215 |
LSR |
& - zetaMinusEta(I-1,J ,bi,bj) * dVdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dVdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
217 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
220 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dVdx(I ,J ) |
|
./pkg/seaice/lsr.F |
221 |
LSR |
& + ETA (I-1,J ,bi,bj) * dVdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
222 |
LSR |
& - ETA (I ,J-1,bi,bj) * dVdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
223 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dVdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
224 |
LSR |
& ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
226 |
LSR |
& -(etaPlusZeta(I ,J ,bi,bj)+etaPlusZeta(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
227 |
LSR |
& -etaPlusZeta(I-1,J-1,bi,bj)-etaPlusZeta(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
228 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
229 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
230 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
232 |
LSR |
& -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
233 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
234 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
235 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
238 |
LSR |
& -ETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
240 |
LSR |
& *TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
241 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
244 |
LSR |
UVRT1(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
245 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& - ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
248 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
251 |
LSR |
UVRT2(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
252 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
253 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
254 |
LSR |
& + ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
255 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
256 |
LSR |
& - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
278 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
282 |
LSR |
UTMP(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
289 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
290 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
291 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
294 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
295 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
296 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
297 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
301 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
302 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
304 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
308 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
310 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
313 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
314 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
315 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
323 |
LSR |
UICE(I,J,bi,bj)=UTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
324 |
LSR |
& +WFAU*(URT(I)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
335 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
338 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
339 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
340 |
LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
|
./pkg/seaice/lsr.F |
368 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
372 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
373 |
LSR |
& * (etaPlusZeta(I-1,J ,bi,bj) + etaPlusZeta(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
374 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
375 |
LSR |
& * (etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
376 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
377 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
378 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
379 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
380 |
LSR |
& *_recip_dxV(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
381 |
LSR |
AA5=(zetaMinusEta(I-1,J ,bi,bj) + zetaMinusEta(I,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
382 |
LSR |
& -zetaMinusEta(I-1,J-1,bi,bj) - zetaMinusEta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
383 |
LSR |
& )* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
384 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
386 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
387 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
389 |
LSR |
AV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
391 |
LSR |
& - (ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
392 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
393 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
394 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
395 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
396 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
397 |
LSR |
CV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
399 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
400 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
401 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
402 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
403 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
404 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
407 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
413 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
414 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
415 |
LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
422 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
424 |
LSR |
& +(UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
425 |
LSR |
& * _recip_dxG(I,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
427 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
428 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
429 |
LSR |
& +(UICEC(I ,J+1,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
437 |
LSR |
& uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) ) |
|
./pkg/seaice/lsr.F |
439 |
LSR |
& uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
445 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
446 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
450 |
LSR |
& (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj)) |
|
./pkg/seaice/lsr.F |
451 |
LSR |
& *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
453 |
LSR |
& (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
454 |
LSR |
& *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj) |
|
./pkg/seaice/lsr.F |
455 |
LSR |
& ) * _recip_dyU(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dUdx(I ,J ) |
|
./pkg/seaice/lsr.F |
458 |
LSR |
& + zetaMinusEta(I-1,J ,bi,bj) * dUdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
459 |
LSR |
& - zetaMinusEta(I ,J-1,bi,bj) * dUdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
460 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dUdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
461 |
LSR |
& )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
464 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dUdy(I ,J ) |
|
./pkg/seaice/lsr.F |
465 |
LSR |
& + ETA (I ,J-1,bi,bj) * dUdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
466 |
LSR |
& - ETA (I-1,J ,bi,bj) * dUdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
467 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dUdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
468 |
LSR |
& )*0.5 _d 0* _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
470 |
LSR |
& +(ETA(I ,J ,bi,bj) + ETA(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
471 |
LSR |
& -ETA(I-1,J-1,bi,bj) - ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
472 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
473 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
474 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
475 |
LSR |
& +ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
476 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
477 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
479 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
480 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
481 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
483 |
LSR |
UVRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
484 |
LSR |
& ETA(I-1,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
485 |
LSR |
& +ETA(I-1,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
486 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
487 |
LSR |
UVRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
488 |
LSR |
& ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
489 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
48 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/lsr.F |
490 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
513 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
517 |
LSR |
VTMP(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
524 |
LSR |
AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
526 |
LSR |
& etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
529 |
LSR |
& +( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
530 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
531 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
532 |
LSR |
& + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
533 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
534 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
536 |
LSR |
AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
538 |
LSR |
& etaPlusZeta(I-1,J,bi,bj) + etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
541 |
LSR |
& -( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
544 |
LSR |
& - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
545 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
546 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
551 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
552 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
553 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
557 |
LSR |
CVV(J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
559 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
562 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
563 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
564 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
572 |
LSR |
VICE(I,J,bi,bj)=VTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
573 |
LSR |
& +WFAV*(VRT(J)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
583 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
586 |
LSR |
UERR(I,J,bi,bj)=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
587 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
588 |
LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
|
./pkg/seaice/lsr.F |
618 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/lsr.F |
621 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
622 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
33 |
OSTRES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/ostres.F |
52 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(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 |
69 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(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+1,J,bi,bj)-GWATY(I+1,J,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,J+1,bi,bj)-GWATX(I,J+1,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 |
|
./pkg/seaice/seaice_advdiff.F |
102 |
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 |
103 |
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 |
150 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
165 |
SEAICE_ADVDIFF |
HEFFNM1(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
166 |
SEAICE_ADVDIFF |
AREANM1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
174 |
SEAICE_ADVDIFF |
xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
175 |
SEAICE_ADVDIFF |
yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
181 |
SEAICE_ADVDIFF |
uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
182 |
SEAICE_ADVDIFF |
vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
190 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
191 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HEFF(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
193 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
200 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
205 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
206 |
SEAICE_ADVDIFF |
& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
216 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
217 |
SEAICE_ADVDIFF |
I uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
219 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
224 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
226 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
231 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
232 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
242 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
243 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSNOW(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
245 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
250 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
252 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
257 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
258 |
SEAICE_ADVDIFF |
& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
269 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
270 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
272 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
277 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
279 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
285 |
SEAICE_ADVDIFF |
& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
297 |
SEAICE_ADVDIFF |
I uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
298 |
SEAICE_ADVDIFF |
I uTrans, vTrans, IceAge(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
300 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
305 |
SEAICE_ADVDIFF |
I IceAge(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
307 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
312 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
313 |
SEAICE_ADVDIFF |
& IceAge(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
365 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
370 |
SEAICE_ADVDIFF |
IceAge(I,J,bi,bj) = IceAge(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
371 |
SEAICE_ADVDIFF |
& / MAX(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
373 |
SEAICE_ADVDIFF |
AREA(I,J,bi,bj) = MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
382 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
385 |
SEAICE_ADVDIFF |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
386 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) + |
|
./pkg/seaice/seaice_advdiff.F |
387 |
SEAICE_ADVDIFF |
& AREA(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_advdiff.F |
389 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_advdiff.F |
63 |
SEAICE_ADVDIFF |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_advdiff.F |
90 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_advdiff.F |
94 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
95 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
146 |
SEAICE_ADVECTION |
act1 = bi - myBxLo(myThid) |
|
./pkg/seaice/seaice_advection.F |
197 |
SEAICE_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/seaice/seaice_advection.F |
19 |
SEAICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/seaice/seaice_advection.F |
204 |
SEAICE_ADVECTION |
nCFace = bi |
|
./pkg/seaice/seaice_advection.F |
212 |
SEAICE_ADVECTION |
nCFace = bi |
|
./pkg/seaice/seaice_advection.F |
239 |
SEAICE_ADVECTION |
maskLocW(i,j)=maskW(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
240 |
SEAICE_ADVECTION |
maskLocS(i,j)=maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
295 |
SEAICE_ADVECTION |
IF (dBug.AND.bi.EQ.3 ) WRITE(6,*) 'ICE_adv:',tracerIdentity, |
|
./pkg/seaice/seaice_advection.F |
329 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
342 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
345 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
352 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
356 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
360 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
365 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
381 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
400 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
401 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
410 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
411 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
422 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
423 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
432 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
433 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
466 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
467 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
476 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
477 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
528 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
541 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
544 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
551 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
555 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
559 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
564 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
580 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
|
./pkg/seaice/seaice_advection.F |
599 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
600 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
609 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
610 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
621 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
622 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./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)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
665 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
666 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
675 |
SEAICE_ADVECTION |
& -SEAICE_deltaTtherm*maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
676 |
SEAICE_ADVECTION |
& *recip_rA(i,j,bi,bj)*r_hFld(i,j) |
|
./pkg/seaice/seaice_advection.F |
705 |
SEAICE_ADVECTION |
IF ( dBug .AND. bi.EQ.3 ) THEN |
|
./pkg/seaice/seaice_advection.F |
708 |
SEAICE_ADVECTION |
tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
717 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
719 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
730 |
SEAICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/seaice/seaice_advection.F |
86 |
SEAICE_ADVECTION |
INTEGER bi,bj |
|
./pkg/seaice/seaice_budget_ice_if.F |
11 |
SEAICE_BUDGET_ICE_IF |
I bi, bj ) |
|
./pkg/seaice/seaice_budget_ice_if.F |
152 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
154 |
SEAICE_BUDGET_ICE_IF |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
155 |
SEAICE_BUDGET_ICE_IF |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
168 |
SEAICE_BUDGET_ICE_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
209 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
213 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
249 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
280 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
294 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
319 |
SEAICE_BUDGET_ICE_IF |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
323 |
SEAICE_BUDGET_ICE_IF |
& SWDOWN(I,J,bi,bj), AbsorbedSWFlux(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
332 |
SEAICE_BUDGET_ICE_IF |
& AQH(I,J,bi,bj),qhice_mm(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
54 |
SEAICE_BUDGET_ICE_IF |
INTEGER bi, bj |
|
./pkg/seaice/seaice_budget_ocean.F |
102 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
103 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
116 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(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 |
48 |
SEAICE_BUDGET_OCEAN |
INTEGER bi, bj, myIter, myThid |
|
./pkg/seaice/seaice_budget_ocean.F |
85 |
SEAICE_BUDGET_OCEAN |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
91 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
100 |
SEAICE_BUDGET_OCEAN_IF |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
101 |
SEAICE_BUDGET_OCEAN_IF |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
111 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
114 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
11 |
SEAICE_BUDGET_OCEAN_IF |
I bi, bj, myThid ) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
SEAICE_BUDGET_OCEAN_IF |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
140 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
49 |
SEAICE_BUDGET_OCEAN_IF |
INTEGER bi, bj, myThid |
|
./pkg/seaice/seaice_budget_ocean_if.F |
98 |
SEAICE_BUDGET_OCEAN_IF |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
100 |
SEAICE_CALC_STRAINRATES |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
101 |
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 |
106 |
SEAICE_CALC_STRAINRATES |
dvdx(I,J) = ( vFld(I,J,bi,bj) - vFld(I-1,J ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
107 |
SEAICE_CALC_STRAINRATES |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
108 |
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 |
114 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
115 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
116 |
SEAICE_CALC_STRAINRATES |
e12Loc(I,J,bi,bj) = 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
118 |
SEAICE_CALC_STRAINRATES |
& - k1AtZ(I,J,bi,bj) * vave(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
119 |
SEAICE_CALC_STRAINRATES |
& - k2AtZ(I,J,bi,bj) * uave(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
121 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
122 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
124 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(I,J) * _recip_dxV(I,J,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
53 |
SEAICE_CALC_STRAINRATES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_strainrates.F |
71 |
SEAICE_CALC_STRAINRATES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_calc_strainrates.F |
76 |
SEAICE_CALC_STRAINRATES |
dudx(I,J) = _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
77 |
SEAICE_CALC_STRAINRATES |
& (uFld(I+1,J,bi,bj)-uFld(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
78 |
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 |
83 |
SEAICE_CALC_STRAINRATES |
dvdy(I,J) = _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
84 |
SEAICE_CALC_STRAINRATES |
& (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
85 |
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 |
91 |
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 |
92 |
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 |
99 |
SEAICE_CALC_STRAINRATES |
dudy(I,J) = ( uFld(I,J,bi,bj) - uFld(I ,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
100 |
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 |
102 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
103 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_calc_viscosities.F |
111 |
SEAICE_CALC_VISCOSITIES |
etaDen = (e11(I,J,bi,bj)-e22(I,J,bi,bj))**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
114 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
115 |
SEAICE_CALC_VISCOSITIES |
& *( e11(I,J,bi,bj)+e22(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
63 |
SEAICE_CALC_VISCOSITIES |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_calc_viscosities.F |
75 |
SEAICE_CALC_VISCOSITIES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_calc_viscosities.F |
80 |
SEAICE_CALC_VISCOSITIES |
e12C(i,j) = 0.25 * ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
81 |
SEAICE_CALC_VISCOSITIES |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
86 |
SEAICE_CALC_VISCOSITIES |
deltaC = (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
88 |
SEAICE_CALC_VISCOSITIES |
& + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
97 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
99 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./model/src/do_statevars_diags.F |
108 |
DO_STATEVARS_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/do_statevars_diags.F |
109 |
DO_STATEVARS_DIAGS |
CALL LAND_DIAGNOSTICS_STATE( myTime,myIter, bi,bj, myThid ) |
|
./model/src/do_statevars_diags.F |
57 |
DO_STATEVARS_DIAGS |
INTEGER bi, bj |
|
./model/src/do_statevars_diags.F |
98 |
DO_STATEVARS_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/do_statevars_diags.F |
99 |
DO_STATEVARS_DIAGS |
CALL THSICE_DIAGNOSTICS_STATE( myTime,myIter,bi,bj,myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
59 |
SEAICE_CHECK_PICKUP |
INTEGER i,j,k,bi,bj |
|
./pkg/seaice/seaice_check_pickup.F |
91 |
SEAICE_CHECK_PICKUP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_check_pickup.F |
95 |
SEAICE_CHECK_PICKUP |
TICES(i,j,k,bi,bj) = TICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
35 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER bi, bj |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
51 |
SEAICE_COST_ACCUMULATE_MEAN |
DO bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
54 |
SEAICE_COST_ACCUMULATE_MEAN |
uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
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 |
56 |
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 |
57 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
58 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dyG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
59 |
SEAICE_COST_ACCUMULATE_MEAN |
vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
60 |
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 |
61 |
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 |
62 |
SEAICE_COST_ACCUMULATE_MEAN |
& )*VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
63 |
SEAICE_COST_ACCUMULATE_MEAN |
& *_dxG(i,j,bi,bj)/lastinterval*deltaTClock |
|
./pkg/seaice/seaice_cost_concentration.F |
132 |
SEAICE_COST_CONCENTRATION |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_concentration.F |
133 |
SEAICE_COST_CONCENTRATION |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
134 |
SEAICE_COST_CONCENTRATION |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
240 |
SEAICE_COST_CONCENTRATION |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_concentration.F |
244 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
254 |
SEAICE_COST_CONCENTRATION |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_concentration.F |
259 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
260 |
SEAICE_COST_CONCENTRATION |
& localweight(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
263 |
SEAICE_COST_CONCENTRATION |
if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
266 |
SEAICE_COST_CONCENTRATION |
areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj)) |
|
./pkg/seaice/seaice_cost_concentration.F |
269 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
271 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
272 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
275 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
281 |
SEAICE_COST_CONCENTRATION |
localModWeight(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_concentration.F |
296 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
297 |
SEAICE_COST_CONCENTRATION |
& localModWeight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
313 |
SEAICE_COST_CONCENTRATION |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_concentration.F |
317 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
318 |
SEAICE_COST_CONCENTRATION |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
328 |
SEAICE_COST_CONCENTRATION |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_concentration.F |
336 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
337 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
338 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
339 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
349 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
355 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
356 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
365 |
SEAICE_COST_CONCENTRATION |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
377 |
SEAICE_COST_CONCENTRATION |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
382 |
SEAICE_COST_CONCENTRATION |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_concentration.F |
72 |
SEAICE_COST_CONCENTRATION |
integer bi,bj |
|
./pkg/seaice/seaice_cost_export.F |
33 |
SEAICE_COST_EXPORT |
integer bi, bj |
|
./pkg/seaice/seaice_cost_export.F |
45 |
SEAICE_COST_EXPORT |
do bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_cost_export.F |
47 |
SEAICE_COST_EXPORT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/seaice/seaice_cost_export.F |
53 |
SEAICE_COST_EXPORT |
objf_ice_export(bi,bj) = objf_ice_export(bi,bj) |
|
./pkg/seaice/seaice_cost_export.F |
54 |
SEAICE_COST_EXPORT |
& - uHeffExportCell(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
101 |
SEAICE_COST_FINAL |
no_ice = no_ice + num_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
102 |
SEAICE_COST_FINAL |
no_smrarea = no_smrarea + num_smrarea(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
103 |
SEAICE_COST_FINAL |
no_smrsst = no_smrsst + num_smrsst(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
104 |
SEAICE_COST_FINAL |
no_smrsss = no_smrsss + num_smrsss(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
41 |
SEAICE_COST_FINAL |
integer bi,bj |
|
./pkg/seaice/seaice_cost_final.F |
87 |
SEAICE_COST_FINAL |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_final.F |
90 |
SEAICE_COST_FINAL |
& + mult_ice_export * objf_ice_export(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
91 |
SEAICE_COST_FINAL |
& + mult_ice * objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
92 |
SEAICE_COST_FINAL |
& + mult_smrarea * objf_smrarea(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
93 |
SEAICE_COST_FINAL |
& + mult_smrsst * objf_smrsst(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
94 |
SEAICE_COST_FINAL |
& + mult_smrsss * objf_smrsss(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
96 |
SEAICE_COST_FINAL |
f_ice = f_ice + objf_ice(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
97 |
SEAICE_COST_FINAL |
f_smrarea = f_smrarea + objf_smrarea(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
98 |
SEAICE_COST_FINAL |
f_smrsst = f_smrsst + objf_smrsst(bi,bj) |
|
./pkg/seaice/seaice_cost_final.F |
99 |
SEAICE_COST_FINAL |
f_smrsss = f_smrsss + objf_smrsss(bi,bj) |
|
./pkg/seaice/seaice_cost_init_varia.F |
39 |
SEAICE_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/seaice/seaice_cost_init_varia.F |
62 |
SEAICE_COST_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_init_varia.F |
63 |
SEAICE_COST_INIT_VARIA |
objf_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
64 |
SEAICE_COST_INIT_VARIA |
objf_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
65 |
SEAICE_COST_INIT_VARIA |
objf_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
66 |
SEAICE_COST_INIT_VARIA |
objf_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
67 |
SEAICE_COST_INIT_VARIA |
objf_ice_export(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
69 |
SEAICE_COST_INIT_VARIA |
num_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
70 |
SEAICE_COST_INIT_VARIA |
num_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
71 |
SEAICE_COST_INIT_VARIA |
num_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
72 |
SEAICE_COST_INIT_VARIA |
num_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
78 |
SEAICE_COST_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_init_varia.F |
82 |
SEAICE_COST_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
83 |
SEAICE_COST_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_statevars_tave.F |
47 |
DO_STATEVARS_TAVE |
INTEGER bi,bj |
|
./model/src/do_statevars_tave.F |
52 |
DO_STATEVARS_TAVE |
DO bi=myBxLo(myThid),myBxHi(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/seaice/seaice_cost_sss.F |
133 |
SEAICE_COST_SSS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sss.F |
134 |
SEAICE_COST_SSS |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
135 |
SEAICE_COST_SSS |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
258 |
SEAICE_COST_SSS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sss.F |
262 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
273 |
SEAICE_COST_SSS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sss.F |
277 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
278 |
SEAICE_COST_SSS |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
288 |
SEAICE_COST_SSS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sss.F |
296 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
297 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
298 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
299 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
312 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
313 |
SEAICE_COST_SSS |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sss.F |
318 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
334 |
SEAICE_COST_SSS |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
335 |
SEAICE_COST_SSS |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
336 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
347 |
SEAICE_COST_SSS |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
352 |
SEAICE_COST_SSS |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_sss.F |
73 |
SEAICE_COST_SSS |
integer bi,bj |
|
./pkg/seaice/seaice_cost_sst.F |
131 |
SEAICE_COST_SST |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sst.F |
132 |
SEAICE_COST_SST |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
133 |
SEAICE_COST_SST |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
253 |
SEAICE_COST_SST |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sst.F |
257 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
268 |
SEAICE_COST_SST |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sst.F |
272 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
print *,'obs rec date: ', -localobs(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
283 |
SEAICE_COST_SST |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_sst.F |
291 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
292 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
293 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
294 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
304 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
308 |
SEAICE_COST_SST |
& areabar(i,j,1,bi,bj) .LE. 0.0) then |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
325 |
SEAICE_COST_SST |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
327 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
338 |
SEAICE_COST_SST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
343 |
SEAICE_COST_SST |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/seaice/seaice_cost_sst.F |
71 |
SEAICE_COST_SST |
integer bi,bj |
|
./pkg/seaice/seaice_cost_weights.F |
107 |
SEAICE_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_weights.F |
110 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
111 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
118 |
SEAICE_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_weights.F |
121 |
SEAICE_COST_WEIGHTS |
wsmrarea(i,j,bi,bj) = wsmrarea0 |
|
./pkg/seaice/seaice_cost_weights.F |
122 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
130 |
SEAICE_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_weights.F |
133 |
SEAICE_COST_WEIGHTS |
if (wsmrarea(i,j,bi,bj) .ne. 0.) |
|
./pkg/seaice/seaice_cost_weights.F |
134 |
SEAICE_COST_WEIGHTS |
& wsmrarea(i,j,bi,bj) = |
|
./pkg/seaice/seaice_cost_weights.F |
135 |
SEAICE_COST_WEIGHTS |
& 1./wsmrarea(i,j,bi,bj)/wsmrarea(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
41 |
SEAICE_COST_WEIGHTS |
integer bi,bj |
|
./pkg/seaice/seaice_cost_weights.F |
87 |
SEAICE_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_cost_weights.F |
90 |
SEAICE_COST_WEIGHTS |
wsmrarea (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
101 |
SEAICE_CTRL_MAP_INI |
area(i,j,bi,bj) = area(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
102 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
118 |
SEAICE_CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
121 |
SEAICE_CTRL_MAP_INI |
heff(i,j,bi,bj) = heff(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
122 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
138 |
SEAICE_CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
141 |
SEAICE_CTRL_MAP_INI |
hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) + |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
142 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
45 |
SEAICE_CTRL_MAP_INI |
integer bi,bj |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
98 |
SEAICE_CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/seaice/seaice_diagnostics_state.F |
115 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
118 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
119 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
121 |
SEAICE_DIAGNOSTICS_STATE |
& ( seaice_sigma12(I, J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
122 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
123 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J+1,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
124 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
127 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
128 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
133 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigI ,'SIsigI ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
134 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
152 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = 2.*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
153 |
SEAICE_DIAGNOSTICS_STATE |
& * (e11(I,J,bi,bj) + e22(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
154 |
SEAICE_DIAGNOSTICS_STATE |
& - press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
155 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = 2.* eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
156 |
SEAICE_DIAGNOSTICS_STATE |
& * (e11(I,J,bi,bj) - e22(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
157 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
158 |
SEAICE_DIAGNOSTICS_STATE |
& ( e12(I ,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
159 |
SEAICE_DIAGNOSTICS_STATE |
& + e12(I ,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
162 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
163 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
168 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigI ,'SIsigI ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
169 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
180 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
183 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
185 |
SEAICE_DIAGNOSTICS_STATE |
& UICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
188 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
190 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
199 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
202 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
204 |
SEAICE_DIAGNOSTICS_STATE |
& VICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
207 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
209 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
47 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER bi,bj |
|
./pkg/seaice/seaice_diagnostics_state.F |
68 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
73 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
81 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
82 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*recip_multdim |
|
./pkg/seaice/seaice_diffusion.F |
106 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
108 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
13 |
SEAICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_diffusion.F |
48 |
SEAICE_DIFFUSION |
INTEGER bi,bj |
|
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diff1,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
95 |
SEAICE_DIFFUSION |
& - iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_diffusion.F |
98 |
SEAICE_DIFFUSION |
& *MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
101 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
102 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
103 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
104 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
105 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
114 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
119 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
121 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
123 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
125 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
126 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
127 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
129 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
131 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
144 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
147 |
SEAICE_DYNSOLVER |
TAUX (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
148 |
SEAICE_DYNSOLVER |
TAUY (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
152 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
171 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
176 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
185 |
SEAICE_DYNSOLVER |
& + ( pload(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
186 |
SEAICE_DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./pkg/seaice/seaice_dynsolver.F |
194 |
SEAICE_DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
202 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
203 |
SEAICE_DYNSOLVER |
& -seaiceMassU(I,J,bi,bj)*_recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
205 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
206 |
SEAICE_DYNSOLVER |
& -seaiceMassV(I,J,bi,bj)* _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
214 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
215 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
216 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
217 |
SEAICE_DYNSOLVER |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_dynsolver.F |
218 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
251 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
254 |
SEAICE_DYNSOLVER |
uice(i,j,bi,bj)=uice_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
255 |
SEAICE_DYNSOLVER |
vice(i,j,bi,bj)=vice_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
256 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
257 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
321 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
324 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
325 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
326 |
SEAICE_DYNSOLVER |
vIce(i,j,bi,bj)= |
|
./pkg/seaice/seaice_dynsolver.F |
327 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
47 |
SEAICE_DYNSOLVER |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_dynsolver.F |
61 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_dynsolver.F |
64 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
65 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
66 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
67 |
SEAICE_DYNSOLVER |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_dynsolver.F |
68 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
69 |
SEAICE_DYNSOLVER |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
70 |
SEAICE_DYNSOLVER |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
98 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
123 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
127 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
128 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
130 |
SEAICE_EVP |
e11 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
131 |
SEAICE_EVP |
e22 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
132 |
SEAICE_EVP |
e12 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
143 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
146 |
SEAICE_EVP |
zMax (I,J,bi,bj) = _rA(I,J,bi,bj) * fac |
|
./pkg/seaice/seaice_evp.F |
187 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
202 |
SEAICE_EVP |
ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
203 |
SEAICE_EVP |
em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
220 |
SEAICE_EVP |
& ( e12(I, J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
221 |
SEAICE_EVP |
& + e12(I+1,J,bi,bj)**2 + e12(I, J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
& + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
242 |
SEAICE_EVP |
zetaC(I,J) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_evp.F |
244 |
SEAICE_EVP |
& * ( PRESS0(I,J ,bi,bj) + PRESS0(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
245 |
SEAICE_EVP |
& + PRESS0(I,J-1,bi,bj) + PRESS0(I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
257 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
264 |
SEAICE_EVP |
& MAX(zMax(I, J,bi,bj),zMax(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
265 |
SEAICE_EVP |
& MAX(zMax(I-1,J,bi,bj),zMax(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
267 |
SEAICE_EVP |
& MAX(zMin(I, J,bi,bj),zMin(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
268 |
SEAICE_EVP |
& MAX(zMin(I-1,J,bi,bj),zMin(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
284 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
285 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
286 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
309 |
SEAICE_EVP |
& ( e12(I, J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
310 |
SEAICE_EVP |
& + e12(I+1,J,bi,bj)**2 + e12(I, J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
316 |
SEAICE_EVP |
& + 4. _d 0*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
324 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
328 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
330 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
332 |
SEAICE_EVP |
& * 2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
343 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
345 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
347 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
seaice_sigma1 (I,J,bi,bj) = ( seaice_sigma1 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
361 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
362 |
SEAICE_EVP |
seaice_sigma2 (I,J,bi,bj) = ( seaice_sigma2 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
366 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)+seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)-seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
378 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = ( seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
389 |
SEAICE_EVP |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
391 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
392 |
SEAICE_EVP |
& + seaice_sigma12(I,J+1,bi,bj) * _dxV(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
393 |
SEAICE_EVP |
& - seaice_sigma12(I,J ,bi,bj) * _dxV(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
394 |
SEAICE_EVP |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
395 |
SEAICE_EVP |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
396 |
SEAICE_EVP |
& ( sig22(I,J ) * _dxF(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
397 |
SEAICE_EVP |
& - sig22(I,J-1) * _dxF(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
& + seaice_sigma12(I+1,J,bi,bj) * _dyU(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
& - seaice_sigma12(I ,J,bi,bj) * _dyU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
400 |
SEAICE_EVP |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
431 |
SEAICE_EVP |
& ( uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
432 |
SEAICE_EVP |
& + uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
433 |
SEAICE_EVP |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
434 |
SEAICE_EVP |
& + vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_evp.F |
435 |
SEAICE_EVP |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
443 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
445 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_evp.F |
458 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
459 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
460 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
461 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
462 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
463 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
464 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
465 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
466 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
467 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
469 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
470 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
471 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
472 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
473 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
474 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
475 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
476 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
478 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
481 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
482 |
SEAICE_EVP |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
483 |
SEAICE_EVP |
& * 0.5 _d 0*( vIceC(I ,J,bi,bj)+vIceC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
484 |
SEAICE_EVP |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
485 |
SEAICE_EVP |
& * 0.5 _d 0*( vIceC(I-1,J,bi,bj)+vIceC(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
487 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
488 |
SEAICE_EVP |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J ,bi,bj)+uIceC(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
490 |
SEAICE_EVP |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J-1,bi,bj)+uIceC(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
& ( seaiceMassU(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
& * uIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
503 |
SEAICE_EVP |
& + FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
504 |
SEAICE_EVP |
& + stressDivergenceX(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
505 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
506 |
SEAICE_EVP |
& + seaiceMassU(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
507 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
508 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
509 |
SEAICE_EVP |
& ( seaiceMassV(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
510 |
SEAICE_EVP |
& * vIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
511 |
SEAICE_EVP |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
512 |
SEAICE_EVP |
& + stressDivergenceY(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
513 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
514 |
SEAICE_EVP |
& + seaiceMassV(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
515 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
534 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
uIce(I,J,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
538 |
SEAICE_EVP |
vIce(I,J,bi,bj)=vIceC(I,J,bi,bj)* _maskS(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
62 |
SEAICE_EVP |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
111 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
129 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
147 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*cos(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
148 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*sin(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
162 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
165 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
166 |
SEAICE_FREEDRIFT |
& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
167 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
168 |
SEAICE_FREEDRIFT |
& (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
178 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
181 |
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 |
182 |
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 |
40 |
SEAICE_FREEDRIFT |
INTEGER i, j, kSrf, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
57 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
60 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
61 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
62 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
63 |
SEAICE_FREEDRIFT |
Vice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
73 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_freedrift.F |
80 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
87 |
SEAICE_FREEDRIFT |
& tmpscal1*HALF*(TAUX(i,j,bi,bj)+TAUX(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
& tmpscal1*HALF*(TAUY(i,j,bi,bj)+TAUY(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
93 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
94 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
101 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
108 |
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 |
109 |
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 |
118 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
119 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
120 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uice(i,j,bi,bj)+uice(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
122 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
123 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vice(i,j,bi,bj)+vice(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
140 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
141 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
162 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
163 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
164 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
165 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
166 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
167 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
168 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
170 |
SEAICE_GET_DYNFORCING |
& (uWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
171 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
172 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i-1,j,bi,bj)+uice(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
173 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
174 |
SEAICE_GET_DYNFORCING |
& (vWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
175 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
176 |
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 |
178 |
SEAICE_GET_DYNFORCING |
tauy(I,J,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
179 |
SEAICE_GET_DYNFORCING |
& (CDAIR(I,J)*(SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
180 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
181 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
182 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
184 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
185 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
186 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
187 |
SEAICE_GET_DYNFORCING |
& +CDAIR(I,J-1)*(SIGN(SINWIN, _fCori(I,J-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
188 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
190 |
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 |
192 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
194 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vice(i,j-1,bi,bj)+vice(i,j,bi,bj))))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
203 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(I ,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
206 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
207 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
210 |
SEAICE_GET_DYNFORCING |
tauy(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J ,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
213 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(I,J ,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
216 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
227 |
SEAICE_GET_DYNFORCING |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
231 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
236 |
SEAICE_GET_DYNFORCING |
taux (I,J,bi,bj) = CDAIR(I,J)*FU(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
237 |
SEAICE_GET_DYNFORCING |
tauy (I,J,bi,bj) = CDAIR(I,J)*FV(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
55 |
SEAICE_GET_DYNFORCING |
INTEGER bi, bj, i, j |
|
./pkg/seaice/seaice_get_dynforcing.F |
81 |
SEAICE_GET_DYNFORCING |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
88 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
89 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
99 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/seaice_growth.F |
1015 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1064 |
SEAICE_GROWTH |
IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR. |
|
./pkg/seaice/seaice_growth.F |
1065 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1066 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=max(0. _d 0 , min( 1. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1067 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)+d_AREAbyATM(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
1069 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1081 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1082 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1093 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIfice ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1120 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * SIsal0 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1122 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1124 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1126 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1142 |
SEAICE_GROWTH |
IF ( HSALT(I,J,bi,bj) .LT. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1143 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
1144 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1145 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1160 |
SEAICE_GROWTH |
tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1165 |
SEAICE_GROWTH |
& *SEAICE_salinity*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1169 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
1170 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1171 |
SEAICE_GROWTH |
& *(1-SEAICE_salinity)*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1175 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
1176 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1182 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1183 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1184 |
SEAICE_GROWTH |
& *HSALT(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1187 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1191 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
1192 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1193 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1194 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J) |
|
./pkg/seaice/seaice_growth.F |
1197 |
SEAICE_GROWTH |
IF ( HEFF(I,J,bi,bj) .EQ. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1198 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = saltFlux(I,J,bi,bj) - |
|
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj) * HSALT(I,J,bi,bj) / |
|
./pkg/seaice/seaice_growth.F |
1201 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1203 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1235 |
SEAICE_GROWTH |
& ,HEFF(I,J,bi,bj)/.0001 _d 0) |
|
./pkg/seaice/seaice_growth.F |
1246 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = MAX(ZERO,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1259 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1260 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1261 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
tmpscal0 = -MAX(HEFF(I,J,bi,bj)-MAX_HEFF,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1266 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
1268 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1277 |
SEAICE_GROWTH |
tmparr1(I,J) = (HEFF(I,J,bi,bj)-HEFFpreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1281 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIthdgrh',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1293 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1294 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./pkg/seaice/seaice_growth.F |
1295 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1297 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1298 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIsnwice',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1331 |
SEAICE_GROWTH |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1332 |
SEAICE_GROWTH |
IF ( AREA(i,j,bi,bj) .LT. AREApreTH(i,j) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1334 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
& *AREA(i,j,bi,bj)/AREApreTH(i,j) |
|
./pkg/seaice/seaice_growth.F |
1338 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1339 |
SEAICE_GROWTH |
& + AREA(i,j,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1341 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
1353 |
SEAICE_GROWTH |
tmpscal1=IceAge(i,j,bi,bj)/AREApreTH(i,j) |
|
./pkg/seaice/seaice_growth.F |
1357 |
SEAICE_GROWTH |
IF ( (HEFFpreTH(i,j).LT.HEFF(i,j,bi,bj)).AND. |
|
./pkg/seaice/seaice_growth.F |
1358 |
SEAICE_GROWTH |
& (AREA(i,j,bi,bj).GT.0.15) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1360 |
SEAICE_GROWTH |
& HEFF(i,j,bi,bj)+SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1361 |
SEAICE_GROWTH |
ELSEIF (AREA(i,j,bi,bj).LE.0.15) THEN |
|
./pkg/seaice/seaice_growth.F |
1367 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = tmpscal2*AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1384 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1389 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1390 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = a_QSWbyATM_cover(I,J) + a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1402 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIqneto ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1410 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIqneti ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1420 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNET(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1421 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = QSW(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1443 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
1446 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1456 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1457 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1458 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1460 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1485 |
SEAICE_GROWTH |
tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
1486 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1489 |
SEAICE_GROWTH |
tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
1490 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1492 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
236 |
SEAICE_GROWTH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_growth.F |
239 |
SEAICE_GROWTH |
act1 = bi - myBxLo(myThid) |
|
./pkg/seaice/seaice_growth.F |
302 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
316 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFNM1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
317 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
318 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREANM1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
342 |
SEAICE_GROWTH |
d_HEFFbyNEG(I,J)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
343 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
344 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
345 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
346 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
357 |
SEAICE_GROWTH |
if (HEFF(I,J,bi,bj).LE.heffTooThin) then |
|
./pkg/seaice/seaice_growth.F |
358 |
SEAICE_GROWTH |
tmpscal2=-HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
359 |
SEAICE_GROWTH |
tmpscal3=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
360 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_growth.F |
365 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
367 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
380 |
SEAICE_GROWTH |
IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
381 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
392 |
SEAICE_GROWTH |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) |
|
./pkg/seaice/seaice_growth.F |
393 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),areaMin) |
|
./pkg/seaice/seaice_growth.F |
404 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),areaMax) |
|
./pkg/seaice/seaice_growth.F |
417 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
418 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
419 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
431 |
SEAICE_GROWTH |
IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR. |
|
./pkg/seaice/seaice_growth.F |
432 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj) .EQ. 0.0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
433 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
434 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
435 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
502 |
SEAICE_GROWTH |
TMIX(I,J,bi,bj)=theta(I,J,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
509 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
524 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
535 |
SEAICE_GROWTH |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
538 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
539 |
SEAICE_GROWTH |
& +(vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
540 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
541 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
542 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
586 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
605 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
621 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * ( |
|
./pkg/seaice/seaice_growth.F |
626 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIatmQnt',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
631 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
635 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIfwSubl',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
640 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
641 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
642 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
645 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
653 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIatmFW ',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
708 |
SEAICE_GROWTH |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_growth.F |
710 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. TBC ) THEN |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
713 |
SEAICE_GROWTH |
& * hFacC(i,j,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
717 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
718 |
SEAICE_GROWTH |
& * hFacC(i,j,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
749 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
751 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
760 |
SEAICE_GROWTH |
& 'SIyneg ',0,1,1,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
782 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
786 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
789 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
802 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J)*ICE2SNOW,-HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
809 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
828 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
831 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
849 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)) |
|
./pkg/seaice/seaice_growth.F |
852 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
874 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
878 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
87 |
SEAICE_GROWTH |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_growth.F |
881 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
892 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
896 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIsnPrcp',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
914 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
923 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
943 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj).GT.0. _d 0) ) then |
|
./pkg/seaice/seaice_growth.F |
960 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
979 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
980 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./pkg/seaice/seaice_growth.F |
981 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
983 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
984 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth_if.F |
1000 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1020 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1021 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1035 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj)= HICE_ACTUAL(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
1036 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1038 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW_ACTUAL(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
1039 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1042 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1043 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1081 |
SEAICE_GROWTH_IF |
sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
1082 |
SEAICE_GROWTH_IF |
& SEAICE_rhoIce + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth_if.F |
1120 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1121 |
SEAICE_GROWTH_IF |
& AREA(i,j,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1122 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1123 |
SEAICE_GROWTH_IF |
& HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1128 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1129 |
SEAICE_GROWTH_IF |
& TMIX(i,j,bi,bj)- TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1134 |
SEAICE_GROWTH_IF |
& TICE(i,j,bi,bj) - TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1135 |
SEAICE_GROWTH_IF |
& ATEMP(i,j,bi,bj) -TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
1136 |
SEAICE_GROWTH_IF |
& LWDOWN(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1155 |
SEAICE_GROWTH_IF |
& QNET(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1159 |
SEAICE_GROWTH_IF |
& QSW(i,j,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1189 |
SEAICE_GROWTH_IF |
& EmPmR(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1190 |
SEAICE_GROWTH_IF |
& EVAP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1191 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1192 |
SEAICE_GROWTH_IF |
& RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
215 |
SEAICE_GROWTH_IF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_growth_if.F |
218 |
SEAICE_GROWTH_IF |
act1 = bi - myBxLo(myThid) |
|
./pkg/seaice/seaice_growth_if.F |
304 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
305 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
328 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = MAX(0. _d 0,HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
329 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0,HSNOW(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
330 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = MAX(0. _d 0,AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
334 |
SEAICE_GROWTH_IF |
IF (PRECIP(I,J,bi,bj) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
335 |
SEAICE_GROWTH_IF |
PRECIP(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
353 |
SEAICE_GROWTH_IF |
IF (HEFFNm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
354 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
355 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
358 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
359 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
360 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
365 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
367 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj)/AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
369 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = HSNOW(I,J,bi,bj)/ |
|
./pkg/seaice/seaice_growth_if.F |
370 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
377 |
SEAICE_GROWTH_IF |
IF (TICE(I,J,bi,bj) .LT. TMELT) THEN |
|
./pkg/seaice/seaice_growth_if.F |
380 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj)*RHOFW/RHOSN |
|
./pkg/seaice/seaice_growth_if.F |
394 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
400 |
SEAICE_GROWTH_IF |
& *SEAICE_deltaTtherm*AreaNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
403 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
406 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
408 |
SEAICE_GROWTH_IF |
HSNOW_ORIG(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
416 |
SEAICE_GROWTH_IF |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
438 |
SEAICE_GROWTH_IF |
TMIX(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth_if.F |
439 |
SEAICE_GROWTH_IF |
& theta(I,J,kSurface,bi,bj) + TMELT |
|
./pkg/seaice/seaice_growth_if.F |
449 |
SEAICE_GROWTH_IF |
I bi, bj) |
|
./pkg/seaice/seaice_growth_if.F |
484 |
SEAICE_GROWTH_IF |
IF (AreaNm1(I,J,bi,bj)*HEFFNm1(I,J,bi,bj).LE.0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
48 |
SEAICE_GROWTH_IF |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_growth_if.F |
561 |
SEAICE_GROWTH_IF |
I bi, bj, myThid ) |
|
./pkg/seaice/seaice_growth_if.F |
610 |
SEAICE_GROWTH_IF |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
622 |
SEAICE_GROWTH_IF |
surf_theta = max(theta(I,J,kSurface,bi,bj), TBC) |
|
./pkg/seaice/seaice_growth_if.F |
639 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_growth_if.F |
640 |
SEAICE_GROWTH_IF |
& (1. -AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
647 |
SEAICE_GROWTH_IF |
S_hsnow(I,J) = AREANm1(I,J,bi,bj)* ( |
|
./pkg/seaice/seaice_growth_if.F |
678 |
SEAICE_GROWTH_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
679 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
682 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
686 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
697 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
698 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
701 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
703 |
SEAICE_GROWTH_IF |
& (1-AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
710 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
711 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
714 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
723 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
724 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
727 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
728 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREANm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
762 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFFNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
764 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
781 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MIN(1. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
782 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MAX(0. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
783 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = MAX(0. _d 0, HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
784 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0, HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
799 |
SEAICE_GROWTH_IF |
IF (AREA(I,J,bi,bj) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
801 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
803 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
821 |
SEAICE_GROWTH_IF |
IF (HEFF(I,J,bi,bj) .LE. 0.0 .OR. |
|
./pkg/seaice/seaice_growth_if.F |
822 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) .LE. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
824 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
825 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
827 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
852 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
853 |
SEAICE_GROWTH_IF |
& QSWI(I,J) * ( AREANm1(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_growth_if.F |
854 |
SEAICE_GROWTH_IF |
& QSWO(I,J) * (1. - AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
856 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
860 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj) - HEFFNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
873 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
892 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth_if.F |
894 |
SEAICE_GROWTH_IF |
& + (1.0 - AREANm1(I,J,bi,bj)) * |
|
./pkg/seaice/seaice_growth_if.F |
910 |
SEAICE_GROWTH_IF |
QNET(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
931 |
SEAICE_GROWTH_IF |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth_if.F |
932 |
SEAICE_GROWTH_IF |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
933 |
SEAICE_GROWTH_IF |
& * ( ONE - AREANm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
935 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
937 |
SEAICE_GROWTH_IF |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
948 |
SEAICE_GROWTH_IF |
QSW_absorb_in_ML(I,J) = QSW(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
957 |
SEAICE_GROWTH_IF |
& QSW(I,J,bi,bj) - QSW_absorb_in_ML(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
963 |
SEAICE_GROWTH_IF |
& -(QNET(I,J,bi,bj)-QSWO(I,J))*(1. -AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
967 |
SEAICE_GROWTH_IF |
& -F_io_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
970 |
SEAICE_GROWTH_IF |
& -F_ia_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
998 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
999 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
108 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_fixed.F |
111 |
SEAICE_INIT_FIXED |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
112 |
SEAICE_INIT_FIXED |
k1AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
113 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
114 |
SEAICE_INIT_FIXED |
k2AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
125 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_fixed.F |
126 |
SEAICE_INIT_FIXED |
k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_fixed.F |
133 |
SEAICE_INIT_FIXED |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
134 |
SEAICE_INIT_FIXED |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
135 |
SEAICE_INIT_FIXED |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
140 |
SEAICE_INIT_FIXED |
k1AtZ(I,J,bi,bj) = _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
141 |
SEAICE_INIT_FIXED |
& * ( _dyC(I,J,bi,bj) - _dyC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
142 |
SEAICE_INIT_FIXED |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
147 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
148 |
SEAICE_INIT_FIXED |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
149 |
SEAICE_INIT_FIXED |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
154 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
155 |
SEAICE_INIT_FIXED |
& * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
156 |
SEAICE_INIT_FIXED |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
167 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_fixed.F |
170 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 0 |
|
./pkg/seaice/seaice_init_fixed.F |
176 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_fixed.F |
178 |
SEAICE_INIT_FIXED |
IF (klowc(i,j,bi,bj) .LT. 2) THEN |
|
./pkg/seaice/seaice_init_fixed.F |
179 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 1 |
|
./pkg/seaice/seaice_init_fixed.F |
181 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = 2 |
|
./pkg/seaice/seaice_init_fixed.F |
182 |
SEAICE_INIT_FIXED |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_fixed.F |
183 |
SEAICE_INIT_FIXED |
& KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) ) |
|
./pkg/seaice/seaice_init_fixed.F |
184 |
SEAICE_INIT_FIXED |
KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1 |
|
./pkg/seaice/seaice_init_fixed.F |
33 |
SEAICE_INIT_FIXED |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_fixed.F |
79 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_fixed.F |
82 |
SEAICE_INIT_FIXED |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
87 |
SEAICE_INIT_FIXED |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
88 |
SEAICE_INIT_FIXED |
IF (_hFacC(i,j,kSurface,bi,bj).eq.0.) |
|
./pkg/seaice/seaice_init_fixed.F |
89 |
SEAICE_INIT_FIXED |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
95 |
SEAICE_INIT_FIXED |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
96 |
SEAICE_INIT_FIXED |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
97 |
SEAICE_INIT_FIXED |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
98 |
SEAICE_INIT_FIXED |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
100 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
101 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
102 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
103 |
SEAICE_INIT_VARIA |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
104 |
SEAICE_INIT_VARIA |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
106 |
SEAICE_INIT_VARIA |
seaice_sigma1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
107 |
SEAICE_INIT_VARIA |
seaice_sigma2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
108 |
SEAICE_INIT_VARIA |
seaice_sigma12(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
111 |
SEAICE_INIT_VARIA |
AMASS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
112 |
SEAICE_INIT_VARIA |
DAIRN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
113 |
SEAICE_INIT_VARIA |
WINDX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
114 |
SEAICE_INIT_VARIA |
WINDY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
115 |
SEAICE_INIT_VARIA |
GWATX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
116 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
118 |
SEAICE_INIT_VARIA |
DWATN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
119 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
120 |
SEAICE_INIT_VARIA |
FORCEX0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
121 |
SEAICE_INIT_VARIA |
FORCEY0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
122 |
SEAICE_INIT_VARIA |
ZMAX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
123 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
124 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
126 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
129 |
SEAICE_INIT_VARIA |
ICEAGE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
131 |
SEAICE_INIT_VARIA |
YNEG (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
132 |
SEAICE_INIT_VARIA |
RIVER(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
133 |
SEAICE_INIT_VARIA |
TMIX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
134 |
SEAICE_INIT_VARIA |
TICE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
135 |
SEAICE_INIT_VARIA |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
136 |
SEAICE_INIT_VARIA |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
138 |
SEAICE_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
139 |
SEAICE_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
141 |
SEAICE_INIT_VARIA |
saltWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
142 |
SEAICE_INIT_VARIA |
frWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
144 |
SEAICE_INIT_VARIA |
frWtrAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
154 |
SEAICE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
155 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
156 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
157 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
158 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
159 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
160 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
161 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
162 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
163 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
164 |
SEAICE_INIT_VARIA |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
173 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
177 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
178 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
179 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
180 |
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 |
181 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
182 |
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 |
184 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
192 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
199 |
SEAICE_INIT_VARIA |
J_obc = OB_Js(i,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
202 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
203 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
205 |
SEAICE_INIT_VARIA |
UVM(i,J_obc,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
213 |
SEAICE_INIT_VARIA |
I_obc=OB_Iw(j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
216 |
SEAICE_INIT_VARIA |
seaiceMaskU(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
217 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
219 |
SEAICE_INIT_VARIA |
UVM(I_obc,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
232 |
SEAICE_INIT_VARIA |
myTile = W2_myTileList(bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
239 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
245 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
250 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
259 |
SEAICE_INIT_VARIA |
TICE(i,j,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
266 |
SEAICE_INIT_VARIA |
AMASS (i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
268 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
269 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
270 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
310 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
313 |
SEAICE_INIT_VARIA |
TMIX(i,j,bi,bj)=TICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
314 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
315 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
327 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
330 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
352 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
355 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
356 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
357 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
358 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
366 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
369 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
380 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
392 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
395 |
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 |
423 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
424 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( HEFF(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
426 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( AREA(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
427 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
428 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( HSNOW(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
429 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
42 |
SEAICE_INIT_VARIA |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_init_varia.F |
431 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( HSALT(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
432 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
435 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( ICEAGE(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
436 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
446 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
449 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
450 |
SEAICE_INIT_VARIA |
ETA(i,j,bi,bj) = ZETA(i,j,bi,bj)/SEAICE_eccen**2 |
|
./pkg/seaice/seaice_init_varia.F |
451 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
452 |
SEAICE_INIT_VARIA |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_init_varia.F |
453 |
SEAICE_INIT_VARIA |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
454 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_init_varia.F |
455 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
461 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_init_varia.F |
462 |
SEAICE_INIT_VARIA |
& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_init_varia.F |
66 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_init_varia.F |
69 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
70 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
71 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
74 |
SEAICE_INIT_VARIA |
uIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
75 |
SEAICE_INIT_VARIA |
vIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
76 |
SEAICE_INIT_VARIA |
areaNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
77 |
SEAICE_INIT_VARIA |
hEffNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
84 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
91 |
SEAICE_INIT_VARIA |
ETA (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
92 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
93 |
SEAICE_INIT_VARIA |
DRAGS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
94 |
SEAICE_INIT_VARIA |
DRAGA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
95 |
SEAICE_INIT_VARIA |
FORCEX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
96 |
SEAICE_INIT_VARIA |
FORCEY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
97 |
SEAICE_INIT_VARIA |
UICEC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
98 |
SEAICE_INIT_VARIA |
VICEC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
149 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
152 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
153 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
154 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
155 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
169 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
172 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
173 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
175 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
216 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
221 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
223 |
SEAICE_LSR |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
224 |
SEAICE_LSR |
& +vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_lsr.F |
225 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
229 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
233 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
235 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
248 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
249 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
250 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
251 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
253 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
254 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
255 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
256 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
257 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
259 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
260 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
261 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
262 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
263 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
264 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
266 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
275 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
276 |
SEAICE_LSR |
& +seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
277 |
SEAICE_LSR |
& *uIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
278 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
279 |
SEAICE_LSR |
& +seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
280 |
SEAICE_LSR |
& *vIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
281 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
282 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
295 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
300 |
SEAICE_LSR |
etaMeanZ (I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
301 |
SEAICE_LSR |
& ( ETA (I,J ,bi,bj) + ETA (I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
302 |
SEAICE_LSR |
& + ETA (I,J-1,bi,bj) + ETA (I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
303 |
SEAICE_LSR |
& / MAX(1.D0,maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
304 |
SEAICE_LSR |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
313 |
SEAICE_LSR |
etaMeanZ (I,J,bi,bj) = etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
314 |
SEAICE_LSR |
& *maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
315 |
SEAICE_LSR |
& *maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
323 |
SEAICE_LSR |
UXX(I,J,bi,bj) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
324 |
SEAICE_LSR |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
326 |
SEAICE_LSR |
UXM(I,J,bi,bj) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
327 |
SEAICE_LSR |
& * k1AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
333 |
SEAICE_LSR |
UYY(I,J,bi,bj) = _dxV(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
334 |
SEAICE_LSR |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
336 |
SEAICE_LSR |
UYM(I,J,bi,bj) = _dxV(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
337 |
SEAICE_LSR |
& * k2AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
343 |
SEAICE_LSR |
VXX(I,J,bi,bj) = _dyU(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
344 |
SEAICE_LSR |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
346 |
SEAICE_LSR |
VXM(I,J,bi,bj) = _dyU(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
347 |
SEAICE_LSR |
& * k1AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
353 |
SEAICE_LSR |
VYY(I,J,bi,bj) = _dxF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
354 |
SEAICE_LSR |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
VYM(I,J,bi,bj) = _dxF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
357 |
SEAICE_LSR |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
365 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
372 |
SEAICE_LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J,bi,bj) + UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
373 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
375 |
SEAICE_LSR |
CU(I,J,bi,bj)= ( - UXX(I ,J,bi,bj) - UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
376 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
378 |
SEAICE_LSR |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
379 |
SEAICE_LSR |
& ( UXX(I-1,J ,bi,bj) + UXX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
380 |
SEAICE_LSR |
& + UYY(I ,J+1,bi,bj) + UYY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& + UXM(I-1,J ,bi,bj) - UXM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& + UYM(I ,J+1,bi,bj) - UYM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= UYY(I,J ,bi,bj) + UYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
387 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= UYY(I,J+1,bi,bj) - UYM(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
403 |
SEAICE_LSR |
& * ( UYY(I ,J ,bi,bj) + UYM(I ,J ,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
405 |
SEAICE_LSR |
& * ( UYY(I ,J+1,bi,bj) - UYM(I ,J+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
407 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
415 |
SEAICE_LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
419 |
SEAICE_LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
420 |
SEAICE_LSR |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
421 |
SEAICE_LSR |
& ( seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
423 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
430 |
SEAICE_LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
431 |
SEAICE_LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
438 |
SEAICE_LSR |
sig11(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
439 |
SEAICE_LSR |
& * ( vIceC(I,J+1,bi,bj) - vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
440 |
SEAICE_LSR |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
441 |
SEAICE_LSR |
& + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
442 |
SEAICE_LSR |
& * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
443 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
449 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
451 |
SEAICE_LSR |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
452 |
SEAICE_LSR |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
453 |
SEAICE_LSR |
& - k1AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
454 |
SEAICE_LSR |
& * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
457 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
458 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
462 |
SEAICE_LSR |
& + etaMeanZ(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
463 |
SEAICE_LSR |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
471 |
SEAICE_LSR |
FXY(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
472 |
SEAICE_LSR |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
473 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
474 |
SEAICE_LSR |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
475 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
476 |
SEAICE_LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
478 |
SEAICE_LSR |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
479 |
SEAICE_LSR |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
480 |
SEAICE_LSR |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |
|
./pkg/seaice/seaice_lsr.F |
481 |
SEAICE_LSR |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
482 |
SEAICE_LSR |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
509 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
521 |
SEAICE_LSR |
AA3=( UXX(I-1,J,bi,bj) - UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
522 |
SEAICE_LSR |
& * uIce(I-1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
524 |
SEAICE_LSR |
AA3=( UXX(I ,J,bi,bj) + UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
525 |
SEAICE_LSR |
& * uIce(I+1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
529 |
SEAICE_LSR |
URT(I,J)=FXY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
530 |
SEAICE_LSR |
& + AA3 * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
532 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
533 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
535 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
536 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
538 |
SEAICE_LSR |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
542 |
SEAICE_LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
544 |
SEAICE_LSR |
URT(1,J)=URT(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
557 |
SEAICE_LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
570 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
571 |
SEAICE_LSR |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
57 |
SEAICE_LSR |
INTEGER i, j, k, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/seaice_lsr.F |
581 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
585 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
623 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
630 |
SEAICE_LSR |
AV(I,J,bi,bj)=( - VYY(I,J-1,bi,bj) + VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
631 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
633 |
SEAICE_LSR |
CV(I,J,bi,bj)=( - VYY(I,J ,bi,bj) - VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
634 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
636 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
637 |
SEAICE_LSR |
& ( VXX(I,J,bi,bj) + VXX(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
638 |
SEAICE_LSR |
& + VYY(I,J,bi,bj) + VYY(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
639 |
SEAICE_LSR |
& - VXM(I,J,bi,bj) + VXM(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
640 |
SEAICE_LSR |
& - VYM(I,J,bi,bj) + VYM(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
641 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
643 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = VXX(I ,J,bi,bj) + VXM(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
645 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = VXX(I+1,J,bi,bj) - VXM(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
654 |
SEAICE_LSR |
hFacM = seaiceMaskV(i-1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
655 |
SEAICE_LSR |
hFacP = seaiceMaskV(i+1,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
659 |
SEAICE_LSR |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
661 |
SEAICE_LSR |
& * ( VXX(I ,J,bi,bj) + VXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
& * ( VXX(I+1,J,bi,bj) - VXM(I+1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
665 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
666 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
673 |
SEAICE_LSR |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
674 |
SEAICE_LSR |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
677 |
SEAICE_LSR |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
678 |
SEAICE_LSR |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
679 |
SEAICE_LSR |
& ( seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
680 |
SEAICE_LSR |
& + 0.5 _d 0 * ( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
681 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
682 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
687 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
688 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
689 |
SEAICE_LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
696 |
SEAICE_LSR |
sig22(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
697 |
SEAICE_LSR |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
698 |
SEAICE_LSR |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
699 |
SEAICE_LSR |
& + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
700 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
701 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
707 |
SEAICE_LSR |
hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
708 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
709 |
SEAICE_LSR |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
710 |
SEAICE_LSR |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
711 |
SEAICE_LSR |
& - k2AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
720 |
SEAICE_LSR |
& + etaMeanZ(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
721 |
SEAICE_LSR |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
729 |
SEAICE_LSR |
FXY(I,J,bi,bj)= - 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
730 |
SEAICE_LSR |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
731 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
732 |
SEAICE_LSR |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
733 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
734 |
SEAICE_LSR |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
736 |
SEAICE_LSR |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
739 |
SEAICE_LSR |
& + _dxF(I ,J ,bi,bj) * sig22(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
740 |
SEAICE_LSR |
& - _dxF(I ,J-1,bi,bj) * sig22(I ,J-1) ) |
|
./pkg/seaice/seaice_lsr.F |
768 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
773 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
780 |
SEAICE_LSR |
AA3=( VYY(I,J-1,bi,bj) - VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
781 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
783 |
SEAICE_LSR |
AA3=( VYY(I,J ,bi,bj) + VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
784 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
789 |
SEAICE_LSR |
VRT(I,J)=FXY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
790 |
SEAICE_LSR |
& + AA3 * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
792 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
793 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
795 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
798 |
SEAICE_LSR |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
802 |
SEAICE_LSR |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
804 |
SEAICE_LSR |
VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
807 |
SEAICE_LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
808 |
SEAICE_LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
809 |
SEAICE_LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
817 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
818 |
SEAICE_LSR |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
828 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
831 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
868 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
871 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
889 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
900 |
SEAICE_LSR |
eplus = e11(I,J,bi,bj) + e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
901 |
SEAICE_LSR |
eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
903 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
904 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
905 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
911 |
SEAICE_LSR |
sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
917 |
SEAICE_LSR |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
918 |
SEAICE_LSR |
& ( sig11(I ,J ) * _dyF(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
919 |
SEAICE_LSR |
& - sig11(I-1,J ) * _dyF(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
920 |
SEAICE_LSR |
& + sig12(I ,J+1) * _dxV(I ,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
921 |
SEAICE_LSR |
& - sig12(I ,J ) * _dxV(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
922 |
SEAICE_LSR |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
923 |
SEAICE_LSR |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
924 |
SEAICE_LSR |
& ( sig22(I ,J ) * _dxF(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
925 |
SEAICE_LSR |
& - sig22(I ,J-1) * _dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
& + sig12(I+1,J ) * _dyU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
927 |
SEAICE_LSR |
& - sig12(I ,J ) * _dyU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
928 |
SEAICE_LSR |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
942 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_lsr.F |
947 |
SEAICE_LSR |
& ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
& - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
949 |
SEAICE_LSR |
& + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
950 |
SEAICE_LSR |
& - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_lsr.F |
951 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
952 |
SEAICE_LSR |
EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
953 |
SEAICE_LSR |
& ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2 |
|
./pkg/seaice/seaice_lsr.F |
954 |
SEAICE_LSR |
& + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 ) |
|
./pkg/seaice/seaice_map_thsice.F |
41 |
SEAICE_MAP_THSICE |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_map_thsice.F |
44 |
SEAICE_MAP_THSICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_map_thsice.F |
47 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_map_thsice.F |
48 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
101 |
SEAICE_MODEL |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
113 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_model.F |
116 |
SEAICE_MODEL |
HEFFNM1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
117 |
SEAICE_MODEL |
AREANM1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
118 |
SEAICE_MODEL |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
119 |
SEAICE_MODEL |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
260 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_model.F |
261 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( HEFF(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
262 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_model.F |
263 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( AREA(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
264 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_model.F |
265 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( HSNOW(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
266 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_model.F |
268 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( HSALT(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
269 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_model.F |
272 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( IceAge(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
273 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_model.F |
60 |
SEAICE_MODEL |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_model.F |
90 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_model.F |
93 |
SEAICE_MODEL |
IF ( (heff(i,j,bi,bj).EQ.0.) |
|
./pkg/seaice/seaice_model.F |
94 |
SEAICE_MODEL |
& .OR.(area(i,j,bi,bj).EQ.0.) |
|
./pkg/seaice/seaice_model.F |
96 |
SEAICE_MODEL |
HEFF(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
97 |
SEAICE_MODEL |
AREA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
98 |
SEAICE_MODEL |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
99 |
SEAICE_MODEL |
TICE(i,j,bi,bj) = celsius2K |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& + DWATN(I-1,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
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 |
103 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
105 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I,J ,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& + DWATN(I,J-1,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
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 |
114 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
116 |
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 |
118 |
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 |
120 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
40 |
SEAICE_OCEAN_STRESS |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_ocean_stress.F |
59 |
SEAICE_OCEAN_STRESS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
64 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
66 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
74 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
76 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
91 |
SEAICE_OCEAN_STRESS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I ,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_output.F |
154 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_output.F |
158 |
SEAICE_OUTPUT |
FUtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
159 |
SEAICE_OUTPUT |
& FUtave(i,j,bi,bj) +FU(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_output.F |
160 |
SEAICE_OUTPUT |
FVtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
161 |
SEAICE_OUTPUT |
& FVtave(i,j,bi,bj) +FV(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_output.F |
162 |
SEAICE_OUTPUT |
EmPmRtave(i,j,bi,bj)= |
|
./pkg/seaice/seaice_output.F |
163 |
SEAICE_OUTPUT |
& EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_output.F |
164 |
SEAICE_OUTPUT |
QNETtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
165 |
SEAICE_OUTPUT |
& QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_output.F |
166 |
SEAICE_OUTPUT |
QSWtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
167 |
SEAICE_OUTPUT |
& QSWtave(i,j,bi,bj) +QSW(i,j,bi,bj) *deltaTclock |
|
./pkg/seaice/seaice_output.F |
168 |
SEAICE_OUTPUT |
UICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
169 |
SEAICE_OUTPUT |
& UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_output.F |
170 |
SEAICE_OUTPUT |
VICEtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
171 |
SEAICE_OUTPUT |
& VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_output.F |
172 |
SEAICE_OUTPUT |
HEFFtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
173 |
SEAICE_OUTPUT |
& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_output.F |
174 |
SEAICE_OUTPUT |
AREAtave(i,j,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
175 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_output.F |
178 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = SEAICE_timeAve(bi,bj)+deltaTclock |
|
./pkg/seaice/seaice_output.F |
199 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_output.F |
201 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
203 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
205 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
207 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
209 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
211 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
215 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
217 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
270 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/seaice/seaice_output.F |
271 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
272 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
273 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
274 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
275 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
276 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
277 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
278 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
279 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
|
./pkg/seaice/seaice_output.F |
280 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_output.F |
56 |
SEAICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./pkg/seaice/seaice_solve4temp.F |
17 |
SEAICE_SOLVE4TEMP |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_solve4temp.F |
226 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = MIN(273.16 _d 0 + MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
227 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(273.16 _d 0 + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
239 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
240 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
247 |
SEAICE_SOLVE4TEMP |
TB(I,J) = -0.0575 _d 0*salt(I,J,kSrf,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
312 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
344 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
350 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
380 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
538 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj)=MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
547 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
572 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
586 |
SEAICE_SOLVE4TEMP |
CALL ZERO_ADJ_1D( 1, TSURF(I,J,bi,bj), myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
587 |
SEAICE_SOLVE4TEMP |
t1 = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
593 |
SEAICE_SOLVE4TEMP |
A1(I,J)=0.3 _d 0 *SWDOWN(I,J,bi,bj)+lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
594 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
624 |
SEAICE_SOLVE4TEMP |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
631 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSWFlux(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
635 |
SEAICE_SOLVE4TEMP |
& AQH(I,J,bi,bj),qhice(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
75 |
SEAICE_SOLVE4TEMP |
INTEGER bi, bj |
|
./model/src/dynamics.F |
194 |
DYNAMICS |
INTEGER bi, bj |
|
./model/src/dynamics.F |
282 |
DYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/dynamics.F |
285 |
DYNAMICS |
act1 = bi - myBxLo(myThid) |
|
./model/src/dynamics.F |
312 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
313 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
335 |
DYNAMICS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
338 |
DYNAMICS |
dWtransC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
339 |
DYNAMICS |
dWtransU(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
340 |
DYNAMICS |
dWtransV(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
362 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
380 |
DYNAMICS |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
484 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
491 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
501 |
DYNAMICS |
& 'Um_dPHdx', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
503 |
DYNAMICS |
& 'Vm_dPHdy', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
526 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./model/src/dynamics.F |
545 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./model/src/dynamics.F |
554 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
576 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
578 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/dynamics.F |
588 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
597 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
610 |
DYNAMICS |
CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid ) |
|
./model/src/dynamics.F |
620 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
628 |
DYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/dynamics.F |
646 |
DYNAMICS |
I bi,bj, KappaRU, KappaRV, |
|
./model/src/dynamics.F |
650 |
DYNAMICS |
& CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid ) |
|
./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 |
70 |
SHAP_FILT_APPLY_TS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
73 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
75 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
133 |
SHAP_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
139 |
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 |
140 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
141 |
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 |
142 |
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 |
145 |
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 |
146 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j ,k,bi,bj)*rAs(i,j ,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
147 |
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 |
148 |
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 |
149 |
SHAP_FILT_APPLY_UV |
& ) ) * recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& k,1,2,bi,bj,myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
54 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
60 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k, i, j |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
73 |
SHAP_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
75 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
76 |
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) |
|
./pkg/shap_filt/shap_filt_computvort.F |
95 |
SHAP_FILT_COMPUTVORT |
myFace = bi |
|
./pkg/shap_filt/shap_filt_relvort3.F |
103 |
SHAP_FILT_RELVORT3 |
myFace = bi |
|
./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 |
107 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
133 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
160 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
57 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
80 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(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) |
|
./model/src/external_fields_load.F |
136 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/external_fields_load.F |
139 |
EXTERNAL_FIELDS_LOAD |
EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
140 |
EXTERNAL_FIELDS_LOAD |
EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
174 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/external_fields_load.F |
177 |
EXTERNAL_FIELDS_LOAD |
Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
178 |
EXTERNAL_FIELDS_LOAD |
Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
221 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/external_fields_load.F |
225 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
226 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SST1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
233 |
EXTERNAL_FIELDS_LOAD |
SSS(i,j,bi,bj) = bWght*SSS0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
234 |
EXTERNAL_FIELDS_LOAD |
& + aWght*SSS1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
241 |
EXTERNAL_FIELDS_LOAD |
fu(i,j,bi,bj) = bWght*taux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
242 |
EXTERNAL_FIELDS_LOAD |
& + aWght*taux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
249 |
EXTERNAL_FIELDS_LOAD |
fv(i,j,bi,bj) = bWght*tauy0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
250 |
EXTERNAL_FIELDS_LOAD |
& + aWght*tauy1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
258 |
EXTERNAL_FIELDS_LOAD |
Qnet(i,j,bi,bj) = bWght*Qnet0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
259 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qnet1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
266 |
EXTERNAL_FIELDS_LOAD |
EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
267 |
EXTERNAL_FIELDS_LOAD |
& + aWght*EmPmR1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
274 |
EXTERNAL_FIELDS_LOAD |
saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
275 |
EXTERNAL_FIELDS_LOAD |
& + aWght*saltFlux1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
283 |
EXTERNAL_FIELDS_LOAD |
Qsw(i,j,bi,bj) = bWght*Qsw0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
284 |
EXTERNAL_FIELDS_LOAD |
& + aWght*Qsw1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
293 |
EXTERNAL_FIELDS_LOAD |
pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
294 |
EXTERNAL_FIELDS_LOAD |
& + aWght*pLoad1(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
60 |
EXTERNAL_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
107 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
118 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
119 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
127 |
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 |
128 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
136 |
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 |
137 |
SHAP_FILT_TRACER_S2 |
& *_hFacW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
138 |
SHAP_FILT_TRACER_S2 |
& *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
149 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
150 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
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 |
159 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
167 |
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 |
168 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
169 |
SHAP_FILT_TRACER_S2 |
& *dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
186 |
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 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
194 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
201 |
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 |
217 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
223 |
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 |
79 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(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 |
106 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
131 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
158 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
56 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
79 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
135 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
169 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
264 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
66 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
92 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(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 |
111 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(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 |
246 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(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 |
86 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(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 |
196 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(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 |
65 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(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 |
94 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(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 |
134 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
166 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
266 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
65 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(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 |
91 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(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) |
|
./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/external_forcing.F |
103 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
115 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
184 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
185 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing.F |
186 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
193 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
200 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
207 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
219 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
250 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
280 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
286 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
296 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
297 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
& *( temp_addMass - theta(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
299 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
300 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
307 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
308 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
310 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
311 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
324 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing.F |
325 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
333 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
334 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
344 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& bi,bj, kLev, myTime, myThid ) |
|
./model/src/external_forcing.F |
370 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
372 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
382 |
EXTERNAL_FORCING_T |
CALL RBCS_ADD_TENDENCY(bi,bj,klev, 1, |
|
./model/src/external_forcing.F |
390 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
397 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
409 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
441 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
480 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
481 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
482 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
483 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
491 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
492 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
494 |
EXTERNAL_FORCING_S |
& *recip_rA(i,j,bi,bj) |
|
./model/src/external_forcing.F |
495 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
507 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
508 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing.F |
509 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
517 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
518 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
519 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
528 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
535 |
EXTERNAL_FORCING_S |
& bi,bj, kLev, myTime, myThid ) |
|
./model/src/external_forcing.F |
541 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_S |
CALL RBCS_ADD_TENDENCY(bi,bj,klev, 2, |
|
./model/src/external_forcing.F |
555 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
562 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
89 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
103 |
SHELFICE_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
12 |
SHELFICE_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
135 |
SHELFICE_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
158 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
159 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
160 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
161 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
162 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
163 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
165 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
167 |
SHELFICE_FORCING_S |
gSloc = shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
173 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
178 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
179 |
SHELFICE_FORCING_S |
& +shelficeForcingS(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
43 |
SHELFICE_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
66 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
67 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
68 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
69 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
70 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
71 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
73 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
75 |
SHELFICE_FORCING_T |
gTloc = shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
81 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
86 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
87 |
SHELFICE_FORCING_T |
& +shelficeForcingT(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
29 |
SHELFICE_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/shelfice/shelfice_init_fixed.F |
54 |
SHELFICE_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_init_fixed.F |
57 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
59 |
SHELFICE_INIT_FIXED |
IF ( maskC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
60 |
SHELFICE_INIT_FIXED |
& kTopC(I,J,bi,bj) = K |
|
./pkg/shelfice/shelfice_init_varia.F |
32 |
SHELFICE_INIT_VARIA |
INTEGER I, J, bi, bj |
|
./pkg/shelfice/shelfice_init_varia.F |
36 |
SHELFICE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_init_varia.F |
39 |
SHELFICE_INIT_VARIA |
shelficeLoadAnomaly (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
40 |
SHELFICE_INIT_VARIA |
shelficeForcingT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
41 |
SHELFICE_INIT_VARIA |
shelficeForcingS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
42 |
SHELFICE_INIT_VARIA |
shelficeHeatFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
43 |
SHELFICE_INIT_VARIA |
shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
101 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
102 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
103 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
104 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
111 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
114 |
SHELFICE_OUTPUT |
shelfice_FrshFluxtave(i,j,1,bi,bj)= |
|
./pkg/shelfice/shelfice_output.F |
115 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
116 |
SHELFICE_OUTPUT |
& + shelficeFreshWaterFlux(i,j,bi,bj) *deltaTclock |
|
./pkg/shelfice/shelfice_output.F |
117 |
SHELFICE_OUTPUT |
shelfice_heatFluxtave(i,j,1,bi,bj) = |
|
./pkg/shelfice/shelfice_output.F |
118 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave(i,j,1,bi,bj) |
|
./pkg/shelfice/shelfice_output.F |
119 |
SHELFICE_OUTPUT |
& + shelficeHeatFlux(i,j,bi,bj) *deltaTclock |
|
./pkg/shelfice/shelfice_output.F |
122 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = SHELFICE_timeAve(bi,bj)+deltaTclock |
|
./pkg/shelfice/shelfice_output.F |
144 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
146 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
148 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
183 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_output.F |
184 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
185 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
186 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
46 |
SHELFICE_OUTPUT |
INTEGER i, j, bi, bj |
|
./pkg/shelfice/shelfice_thermodynamics.F |
107 |
SHELFICE_THERMODYNAMICS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
110 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
111 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
112 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
113 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
120 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
121 |
SHELFICE_THERMODYNAMICS |
pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
122 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
123 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
130 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
134 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
136 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
138 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
139 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
140 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
142 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
143 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), 0. _d 0) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
162 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
169 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
175 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
176 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
179 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
180 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
182 |
SHELFICE_THERMODYNAMICS |
& - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
184 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
185 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
190 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
191 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
192 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
193 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
213 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
272 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
277 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = freshWaterFlux |
|
./pkg/shelfice/shelfice_thermodynamics.F |
279 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
283 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
288 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
289 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
290 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
291 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
61 |
SHELFICE_THERMODYNAMICS |
INTEGER bi,bj |
|
./model/src/external_forcing_surf.F |
101 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
102 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
103 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
104 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
106 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
107 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
109 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
11 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
125 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
126 |
EXTERNAL_FORCING_SURF |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
127 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
128 |
EXTERNAL_FORCING_SURF |
& * rStarExpC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
136 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
137 |
EXTERNAL_FORCING_SURF |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/external_forcing_surf.F |
139 |
EXTERNAL_FORCING_SURF |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
141 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
142 |
EXTERNAL_FORCING_SURF |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
& *recip_hFacC(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
152 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing_surf.F |
153 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
154 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
155 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
156 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
& surfaceForcingT(1-OLx,1-OLy,bi,bj),tmpFac,1, |
|
./model/src/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
& 'TRELAX ',0, 1,2,bi,bj,myThid) |
|
./model/src/external_forcing_surf.F |
176 |
EXTERNAL_FORCING_SURF |
& surfaceForcingS(1-OLx,1-OLy,bi,bj),tmpFac,1, |
|
./model/src/external_forcing_surf.F |
177 |
EXTERNAL_FORCING_SURF |
& 'SRELAX ',0, 1,2,bi,bj,myThid) |
|
./model/src/external_forcing_surf.F |
187 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
188 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
200 |
EXTERNAL_FORCING_SURF |
relaxForcingS(i,j) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
215 |
EXTERNAL_FORCING_SURF |
& fu(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
217 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
218 |
EXTERNAL_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
220 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
221 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
223 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
227 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
228 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
239 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
252 |
EXTERNAL_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
263 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
278 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
279 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
280 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
289 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
290 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
291 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./model/src/external_forcing_surf.F |
313 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
314 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
315 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
324 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./model/src/external_forcing_surf.F |
339 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
340 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
350 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
351 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
369 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
389 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
390 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./model/src/external_forcing_surf.F |
397 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
418 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
419 |
EXTERNAL_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
432 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/external_forcing_surf.F |
46 |
EXTERNAL_FORCING_SURF |
INTEGER bi,bj |
|
./model/src/external_forcing_surf.F |
85 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
87 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
88 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/external_forcing_surf.F |
90 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./model/src/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
93 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
12 |
SHELFICE_U_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_u_drag.F |
39 |
SHELFICE_U_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_u_drag.F |
74 |
SHELFICE_U_DRAG |
maskUp=_maskW(i,j,kUp,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
84 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
93 |
SHELFICE_U_DRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USHIDrag',k,1,2,bi,bj, |
|
./pkg/shelfice/shelfice_update_masks.F |
101 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./pkg/shelfice/shelfice_update_masks.F |
104 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./pkg/shelfice/shelfice_update_masks.F |
47 |
SHELFICE_UPDATE_MASKS |
INTEGER bi, bj |
|
./pkg/shelfice/shelfice_update_masks.F |
55 |
SHELFICE_UPDATE_MASKS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_update_masks.F |
58 |
SHELFICE_UPDATE_MASKS |
R_shelfIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_update_masks.F |
83 |
SHELFICE_UPDATE_MASKS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./pkg/shelfice/shelfice_update_masks.F |
93 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./pkg/shelfice/shelfice_update_masks.F |
99 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=0. |
|
./pkg/shelfice/shelfice_v_drag.F |
12 |
SHELFICE_V_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_v_drag.F |
39 |
SHELFICE_V_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_v_drag.F |
74 |
SHELFICE_V_DRAG |
maskUp=_maskS(i,j,kUp,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
84 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
93 |
SHELFICE_V_DRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSHIDrag',k,1,2,bi,bj,myThid) |
|
./eesupp/src/bar_check.F |
40 |
BAR_CHECK |
INTEGER bi,bj |
|
./eesupp/src/bar_check.F |
50 |
BAR_CHECK |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./eesupp/src/bar_check.F |
51 |
BAR_CHECK |
barStatus(bi,bj) = barrierId |
|
./eesupp/src/bar_check.F |
59 |
BAR_CHECK |
DO bi = 1,nSx |
|
./eesupp/src/bar_check.F |
60 |
BAR_CHECK |
flag = flag .OR. (barStatus(bi,bj).NE.barrierId) |
|
./model/src/find_alpha.F |
115 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
11 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
121 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
127 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
135 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
139 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
219 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
225 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
231 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
237 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
239 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
279 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
309 |
FIND_BETA |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/find_alpha.F |
350 |
FIND_BETA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
351 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
375 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
381 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
387 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
395 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
399 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
465 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_alpha.F |
46 |
FIND_ALPHA |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/find_alpha.F |
471 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
477 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
483 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
485 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
88 |
FIND_ALPHA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
89 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./pkg/smooth/smooth_basic2d.F |
28 |
SMOOTH_BASIC2D |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_basic2d.F |
42 |
SMOOTH_BASIC2D |
DO bi=myBxLo(myThid),myBxHi(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 |
53 |
SMOOTH_BASIC2D |
DO bi=myBxLo(myThid),myBxHi(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 |
59 |
SMOOTH_CORREL2D |
DO bi = itlo,ithi |
|
./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 |
76 |
SMOOTH_CORREL2D |
do bi = itlo,ithi |
|
./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 |
31 |
SMOOTH_CORREL2DW |
integer i,j,bi,bj |
|
./pkg/smooth/smooth_correl2dw.F |
44 |
SMOOTH_CORREL2DW |
DO bi = itlo,ithi |
|
./pkg/smooth/smooth_correl2dw.F |
48 |
SMOOTH_CORREL2DW |
tmpW=whflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
50 |
SMOOTH_CORREL2DW |
tmpW=wsflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
52 |
SMOOTH_CORREL2DW |
tmpW=wtauu(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
54 |
SMOOTH_CORREL2DW |
tmpW=wtauv(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
57 |
SMOOTH_CORREL2DW |
tmpW=watemp(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
59 |
SMOOTH_CORREL2DW |
tmpW=waqh(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
61 |
SMOOTH_CORREL2DW |
tmpW=wprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
63 |
SMOOTH_CORREL2DW |
tmpW=wsnowprecip(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
66 |
SMOOTH_CORREL2DW |
tmpW=wswflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
68 |
SMOOTH_CORREL2DW |
tmpW=wswdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
70 |
SMOOTH_CORREL2DW |
tmpW=wlwflux(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
72 |
SMOOTH_CORREL2DW |
tmpW=wlwdown(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
75 |
SMOOTH_CORREL2DW |
tmpW=wevap(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
77 |
SMOOTH_CORREL2DW |
tmpW=wapressure(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
79 |
SMOOTH_CORREL2DW |
tmpW=wuwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
81 |
SMOOTH_CORREL2DW |
tmpW=wvwind(i,j,bi,bj) |
|
./pkg/smooth/smooth_correl2dw.F |
90 |
SMOOTH_CORREL2DW |
if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then |
|
./pkg/smooth/smooth_correl2dw.F |
91 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW) |
|
./pkg/smooth/smooth_correl2dw.F |
93 |
SMOOTH_CORREL2DW |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0. |
|
./pkg/smooth/smooth_correl3d.F |
102 |
SMOOTH_CORREL3D |
do bi = itlo,ithi |
|
./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 |
83 |
SMOOTH_CORREL3D |
DO bi=itlo,ithi |
|
./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 |
125 |
SMOOTH_DIFF2D |
DO bi = itlo,ithi |
|
./pkg/smooth/smooth_diff2d.F |
129 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_diff2d.F |
131 |
SMOOTH_DIFF2D |
if (smooth2Dmask(i,j,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff2d.F |
133 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
134 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i,j,bi,bj)*dyG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
135 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i-1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
136 |
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 |
138 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
139 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
140 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
141 |
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 |
143 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
144 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j,bi,bj)*dxG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
145 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j-1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
146 |
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 |
148 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+ |
|
./pkg/smooth/smooth_diff2d.F |
149 |
SMOOTH_DIFF2D |
& smooth2D_Kvy(i,j+1,bi,bj)*dxG(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
150 |
SMOOTH_DIFF2D |
& smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
151 |
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 |
161 |
SMOOTH_DIFF2D |
do bi = itlo,ithi |
|
./pkg/smooth/smooth_diff2d.F |
163 |
SMOOTH_DIFF2D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff2d.F |
164 |
SMOOTH_DIFF2D |
IF ( myIter(bi,bj).EQ.0 ) THEN |
|
./pkg/smooth/smooth_diff2d.F |
174 |
SMOOTH_DIFF2D |
gt_tmp = ab15*gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
175 |
SMOOTH_DIFF2D |
& + ab05*gtm1_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
176 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = gt_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
177 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = gt_tmp |
|
./pkg/smooth/smooth_diff2d.F |
179 |
SMOOTH_DIFF2D |
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
180 |
SMOOTH_DIFF2D |
& -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime |
|
./pkg/smooth/smooth_diff2d.F |
181 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj)=0 |
|
./pkg/smooth/smooth_diff2d.F |
25 |
SMOOTH_DIFF2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_diff2d.F |
59 |
SMOOTH_DIFF2D |
DO bi = itlo,ithi |
|
./pkg/smooth/smooth_diff2d.F |
62 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
63 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
64 |
SMOOTH_DIFF2D |
smooth2Dmask(i,j,bi,bj) = mask_in(i,j,1,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
120 |
SMOOTH_DIFF3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_diff3d.F |
124 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
137 |
SMOOTH_DIFF3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_diff3d.F |
139 |
SMOOTH_DIFF3D |
myIter(bi,bj)=iloop-1 |
|
./pkg/smooth/smooth_diff3d.F |
142 |
SMOOTH_DIFF3D |
& bi, bj, k, |
|
./pkg/smooth/smooth_diff3d.F |
144 |
SMOOTH_DIFF3D |
& myIter(bi,bj) , myThid ) |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff3d.F |
151 |
SMOOTH_DIFF3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
152 |
SMOOTH_DIFF3D |
& +smooth3DdelTime*gT_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
153 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj)=0 |
|
./pkg/smooth/smooth_diff3d.F |
166 |
SMOOTH_DIFF3D |
I bi, bj, 1, sNx, 1, sNy , |
|
./pkg/smooth/smooth_diff3d.F |
167 |
SMOOTH_DIFF3D |
I smooth3DdelTime, smooth3D_kappaR(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/smooth/smooth_diff3d.F |
29 |
SMOOTH_DIFF3D |
integer i,j,k, bi,bj, iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_diff3d.F |
57 |
SMOOTH_DIFF3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
62 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
115 |
SMOOTH_FILTERVAR2D |
DO bi = itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
119 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
120 |
SMOOTH_FILTERVAR2D |
& *recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
135 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
138 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
139 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
140 |
SMOOTH_FILTERVAR2D |
& 1/sqrt(smoothTmpFld(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
156 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
159 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
160 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
176 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
179 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
180 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
181 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar2d.F |
184 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
185 |
SMOOTH_FILTERVAR2D |
& *sqrt(recip_rA(i,j,bi,bj)) |
|
./pkg/smooth/smooth_filtervar2d.F |
198 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
201 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
202 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
203 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
204 |
SMOOTH_FILTERVAR2D |
& +smoothTmpFld(i,j,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
214 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
217 |
SMOOTH_FILTERVAR2D |
if (maskC(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
218 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)= |
|
./pkg/smooth/smooth_filtervar2d.F |
219 |
SMOOTH_FILTERVAR2D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) - |
|
./pkg/smooth/smooth_filtervar2d.F |
220 |
SMOOTH_FILTERVAR2D |
& smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj) |
|
./pkg/smooth/smooth_filtervar2d.F |
26 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
62 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar2d.F |
65 |
SMOOTH_FILTERVAR2D |
smooth2Dnorm(i,j,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar2d.F |
88 |
SMOOTH_FILTERVAR2D |
DO bi=itlo,ithi |
|
./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 |
117 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
121 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar3d.F |
129 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
148 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./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 |
170 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./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 |
193 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
198 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
215 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
219 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
221 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar3d.F |
224 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
225 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
239 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
243 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
244 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
245 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
246 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
257 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
262 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
263 |
SMOOTH_FILTERVAR3D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) - |
|
./pkg/smooth/smooth_filtervar3d.F |
264 |
SMOOTH_FILTERVAR3D |
& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
27 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
87 |
SMOOTH_FILTERVAR3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_filtervar3d.F |
91 |
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 |
45 |
SMOOTH_HETERO2D |
DO bi=myBxLo(myThid),myBxHi(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 |
56 |
SMOOTH_HETERO2D |
DO bi=myBxLo(myThid),myBxHi(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 |
|
./model/src/find_rho.F |
148 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
183 |
FIND_RHO_2D |
I bi, bj, iMin, iMax, jMin, jMax, kRef, |
|
./model/src/find_rho.F |
25 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
56 |
FIND_RHO_2D |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
783 |
LOOK_FOR_NEG_SALINITY |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
808 |
LOOK_FOR_NEG_SALINITY |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
830 |
LOOK_FOR_NEG_SALINITY |
& ' from level k =', k, ' ; bi,bj =', bi, bj |
|
./model/src/find_rho.F |
85 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./pkg/smooth/smooth_impldiff.F |
161 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
167 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
168 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
179 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
180 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
188 |
SMOOTH_IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
43 |
SMOOTH_IMPLDIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_impldiff.F |
67 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
7 |
SMOOTH_IMPLDIFF |
SUBROUTINE SMOOTH_IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
85 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
98 |
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 |
50 |
SMOOTH_INIT2D |
DO bi=myBxLo(myThid),myBxHi(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 |
62 |
SMOOTH_INIT2D |
DO bi=myBxLo(myThid),myBxHi(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 |
101 |
SMOOTH_INIT3D |
if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then |
|
./pkg/smooth/smooth_init3d.F |
102 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax |
|
./pkg/smooth/smooth_init3d.F |
127 |
SMOOTH_INIT3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_init3d.F |
131 |
SMOOTH_INIT3D |
smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
132 |
SMOOTH_INIT3D |
smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
141 |
SMOOTH_INIT3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_init3d.F |
145 |
SMOOTH_INIT3D |
smooth3D_Kuy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
146 |
SMOOTH_INIT3D |
smooth3D_Kvx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
147 |
SMOOTH_INIT3D |
smooth3D_Kwx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
148 |
SMOOTH_INIT3D |
smooth3D_Kwy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
149 |
SMOOTH_INIT3D |
smooth3D_Kwz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
150 |
SMOOTH_INIT3D |
smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
151 |
SMOOTH_INIT3D |
& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
152 |
SMOOTH_INIT3D |
smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
153 |
SMOOTH_INIT3D |
& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
154 |
SMOOTH_INIT3D |
smooth3D_Kuz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
155 |
SMOOTH_INIT3D |
smooth3D_Kvz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
33 |
SMOOTH_INIT3D |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init3d.F |
66 |
SMOOTH_INIT3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_init3d.F |
70 |
SMOOTH_INIT3D |
smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
79 |
SMOOTH_INIT3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_init3d.F |
83 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
84 |
SMOOTH_INIT3D |
& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
94 |
SMOOTH_INIT3D |
DO bi=itlo,ithi |
|
./pkg/smooth/smooth_rhs.F |
100 |
SMOOTH_RHS |
xA(i,j,bi,bj) = _dyG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
101 |
SMOOTH_RHS |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
102 |
SMOOTH_RHS |
yA(i,j,bi,bj) = _dxG(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
103 |
SMOOTH_RHS |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
105 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
107 |
SMOOTH_RHS |
maskUp(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
108 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
118 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
119 |
SMOOTH_RHS |
& -xA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
120 |
SMOOTH_RHS |
& *smooth3D_Kux(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
121 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
122 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
128 |
SMOOTH_RHS |
dTdz(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
131 |
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 |
132 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
133 |
SMOOTH_RHS |
& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
137 |
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 |
138 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
139 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
141 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
142 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
148 |
SMOOTH_RHS |
dTdy(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
149 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
150 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
151 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
152 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
153 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
154 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
155 |
SMOOTH_RHS |
& +0.5*(maskS(i-1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
156 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
157 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
158 |
SMOOTH_RHS |
& +maskS(i-1,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
159 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
160 |
SMOOTH_RHS |
& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
162 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
163 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
172 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
178 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
186 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
187 |
SMOOTH_RHS |
& -yA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
188 |
SMOOTH_RHS |
& *smooth3D_Kvy(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
189 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
190 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
196 |
SMOOTH_RHS |
dTdz(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
199 |
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 |
200 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
201 |
SMOOTH_RHS |
& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
205 |
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 |
206 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
207 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
209 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
210 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
216 |
SMOOTH_RHS |
dTdx(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
218 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
219 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
221 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
222 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
224 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
225 |
SMOOTH_RHS |
& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
227 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
228 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
230 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
231 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
239 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
245 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
256 |
SMOOTH_RHS |
df(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
257 |
SMOOTH_RHS |
& -_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
258 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/smooth/smooth_rhs.F |
259 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
260 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
272 |
SMOOTH_RHS |
dTdx(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
274 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
275 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
277 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
278 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
280 |
SMOOTH_RHS |
& *recip_dxC(i+1,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
281 |
SMOOTH_RHS |
& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
282 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
283 |
SMOOTH_RHS |
& *recip_dxC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
284 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
287 |
SMOOTH_RHS |
dTdy(bi,bj) = 0.5*( |
|
./pkg/smooth/smooth_rhs.F |
288 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
289 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
290 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
291 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
292 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
293 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
294 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
295 |
SMOOTH_RHS |
& *recip_dyC(i,j,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
296 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
297 |
SMOOTH_RHS |
& +maskS(i,j+1,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
298 |
SMOOTH_RHS |
& *recip_dyC(i,j+1,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
299 |
SMOOTH_RHS |
& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
302 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
303 |
SMOOTH_RHS |
& - rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
304 |
SMOOTH_RHS |
& *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
305 |
SMOOTH_RHS |
& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
318 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
319 |
SMOOTH_RHS |
& df(i,j,bi,bj)*maskUp(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
326 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
340 |
SMOOTH_RHS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/smooth/smooth_rhs.F |
346 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
347 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
348 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
349 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
350 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
357 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
358 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
359 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
360 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
361 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
55 |
SMOOTH_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_rhs.F |
73 |
SMOOTH_RHS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
81 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
82 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
83 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
99 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. _d 0 |
|
./pkg/sphere/exch_all_2d_rl.F |
53 |
EXCH_ALLGATHER_2D_RL |
integer bi, bj |
|
./pkg/sphere/exch_all_2d_rl.F |
86 |
EXCH_ALLGATHER_2D_RL |
do bi = 1, nSx |
|
./pkg/sphere/exch_all_2d_rl.F |
89 |
EXCH_ALLGATHER_2D_RL |
full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc) |
|
./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 ) |
|
./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 |
47 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
48 |
FREESURF_RESCALE_G |
& /rStarExpC(i,j,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
56 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,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 |
68 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
112 |
THSICE_ADVDIFF |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_advdiff.F |
157 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_advdiff.F |
15 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
163 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
164 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
165 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
179 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
187 |
THSICE_ADVDIFF |
uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
193 |
THSICE_ADVDIFF |
vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
201 |
THSICE_ADVDIFF |
iceFrc(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
214 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
219 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
225 |
THSICE_ADVDIFF |
U iceVol, snowHeight(1-Olx,1-Oly,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
236 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
237 |
THSICE_ADVDIFF |
oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
243 |
THSICE_ADVDIFF |
U iceVol, iceHeight(1-Olx,1-Oly,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
245 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
260 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
267 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
269 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
272 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
274 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
279 |
THSICE_ADVDIFF |
& 'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j), |
|
./pkg/thsice/thsice_advdiff.F |
280 |
THSICE_ADVDIFF |
& ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
281 |
THSICE_ADVDIFF |
& iceHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
287 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
296 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrans, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
298 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrans, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
302 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
304 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
308 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrIce, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
310 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrIce, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
323 |
THSICE_ADVDIFF |
U iceVol, Qice1(1-Olx,1-Oly,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
325 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
330 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
345 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
347 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
360 |
THSICE_ADVDIFF |
U iceVol, Qice2(1-Olx,1-Oly,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
362 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
371 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
378 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
|
./pkg/thsice/thsice_advdiff.F |
380 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
383 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
394 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
|
./pkg/thsice/thsice_advdiff.F |
402 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
404 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
423 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
424 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) *iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
425 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
428 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
429 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
431 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
434 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
441 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
442 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
445 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
446 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
447 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
448 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
456 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
458 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = rhoi*iceHeight(i,j,bi,bj)*saltIce |
|
./pkg/thsice/thsice_advdiff.F |
460 |
THSICE_ADVDIFF |
& *iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
461 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
& +rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
463 |
THSICE_ADVDIFF |
& *( Qice1(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
464 |
THSICE_ADVDIFF |
& +Qice2(i,j,bi,bj) )*0.5 _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
465 |
THSICE_ADVDIFF |
& )*iceMask(i,j,bi,bj)/thSIce_deltaT |
|
./pkg/thsice/thsice_advdiff.F |
470 |
THSICE_ADVDIFF |
iceMask (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
471 |
THSICE_ADVDIFF |
iceHeight (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
472 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
473 |
THSICE_ADVDIFF |
Qice1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
474 |
THSICE_ADVDIFF |
Qice2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
475 |
THSICE_ADVDIFF |
snowAge (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
485 |
THSICE_ADVDIFF |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
511 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
516 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
519 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
525 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
529 |
THSICE_ADVDIFF |
I Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
531 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_advdiff.F |
533 |
THSICE_ADVDIFF |
I Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
535 |
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 |
148 |
THSICE_ADVECTION |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_advection.F |
180 |
THSICE_ADVECTION |
myTile = W2_myTileList(bi,bj) |
|
./pkg/thsice/thsice_advection.F |
187 |
THSICE_ADVECTION |
nCFace = bi |
|
./pkg/thsice/thsice_advection.F |
195 |
THSICE_ADVECTION |
nCFace = bi |
|
./pkg/thsice/thsice_advection.F |
21 |
THSICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/thsice/thsice_advection.F |
229 |
THSICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
274 |
THSICE_ADVECTION |
IF (dBugFlag.AND.bi.EQ.biDb ) WRITE(6,'(A,3I4,2I5,4L5)') |
|
./pkg/thsice/thsice_advection.F |
275 |
THSICE_ADVECTION |
& 'ICE_adv:', tracerIdentity, ipass, bi, idb, jdb, |
|
./pkg/thsice/thsice_advection.F |
304 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
307 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
316 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
317 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
334 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
337 |
THSICE_ADVECTION |
IF (dBugFlag.AND.bi.EQ.biDb ) WRITE(6,'(A,1P4E14.6)') |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
345 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
349 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
361 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
364 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
391 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
415 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
461 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
519 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
522 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
531 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
532 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
549 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
552 |
THSICE_ADVECTION |
IF (dBugFlag.AND.bi.EQ.biDb ) WRITE(6,'(A,1P4E14.6)') |
|
./pkg/thsice/thsice_advection.F |
556 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
560 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
564 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
575 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
578 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
|
./pkg/thsice/thsice_advection.F |
605 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
629 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
675 |
THSICE_ADVECTION |
& *recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
714 |
THSICE_ADVECTION |
IF ( i.EQ.idb .AND. j.EQ.jdb .AND. bi.EQ.biDb ) THEN |
|
./pkg/thsice/thsice_advection.F |
715 |
THSICE_ADVECTION |
tmpFac= deltaTadvect*recip_rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
731 |
THSICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/thsice/thsice_advection.F |
88 |
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 |
175 |
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 |
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 |
106 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_ave.F |
113 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
115 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
118 |
THSICE_AVE |
ice_timeAve(bi,bj) = ice_timeAve(bi,bj)+thSIce_deltaT |
|
./pkg/thsice/thsice_ave.F |
140 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFlxAtm,'SIflxAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
141 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFrwAtm,'SIfrwAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
146 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
147 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
148 |
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 |
71 |
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 |
93 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_ave.F |
95 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
|
./pkg/thsice/thsice_calc_thickn.F |
1000 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1025 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
107 |
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 |
1105 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
1121 |
THSICE_CALC_THICKN |
CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0, |
|
./pkg/thsice/thsice_calc_thickn.F |
225 |
THSICE_CALC_THICKN |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_calc_thickn.F |
398 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
470 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
663 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
681 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
847 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
937 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_calc_thickn.F |
973 |
THSICE_CALC_THICKN |
IF (dBug(i,j,bi,bj) ) WRITE(6,1020) |
|
./pkg/thsice/thsice_check_conserv.F |
104 |
THSICE_CHECK_CONSERV |
& hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos |
|
./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_diagnostics_state.F |
10 |
THSICE_DIAGNOSTICS_STATE |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/thsice/thsice_diagnostics_state.F |
37 |
THSICE_DIAGNOSTICS_STATE |
INTEGER bi,bj |
|
./pkg/thsice/thsice_diagnostics_state.F |
51 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(iceMask,'SI_Fract',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
52 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(snowAge,'SIsnwAge',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
58 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
61 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
64 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
67 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
70 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
77 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
81 |
THSICE_DIAGNOSTICS_STATE |
I Qice1(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_diagnostics_state.F |
83 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
85 |
THSICE_DIAGNOSTICS_STATE |
I Qice2(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_diagnostics_state.F |
87 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
94 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(tOceMxL,'SItOcMxL',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_diagnostics_state.F |
95 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sOceMxL,'SIsOcMxL',0,1,1,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 |
|
./model/src/freeze.F |
30 |
FREEZE |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./model/src/freeze.F |
46 |
FREEZE |
IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze.F |
47 |
FREEZE |
gT(i,j,k,bi,bj)=Tfreezing |
|
./model/src/freeze.F |
9 |
FREEZE |
SUBROUTINE FREEZE( bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_do_advect.F |
10 |
THSICE_DO_ADVECT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
33 |
THSICE_DO_ADVECT |
INTEGER bi,bj |
|
./pkg/thsice/thsice_do_advect.F |
48 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_do_advect.F |
51 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_extend.F |
10 |
THSICE_EXTEND |
I bi, bj, |
|
./pkg/thsice/thsice_extend.F |
124 |
THSICE_EXTEND |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_extend.F |
219 |
THSICE_EXTEND |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_extend.F |
227 |
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, |
|
./pkg/thsice/thsice_get_exf.F |
218 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. iceFlag(i,j) ) WRITE(stdUnit, |
|
./pkg/thsice/thsice_get_exf.F |
220 |
THSICE_GET_EXF |
& i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
224 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
237 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
243 |
THSICE_GET_EXF |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/thsice/thsice_get_exf.F |
244 |
THSICE_GET_EXF |
delq(i,j) = aqh(i,j,bi,bj) - ssq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
255 |
THSICE_GET_EXF |
flwNet_dwn = emiss*lwdown(i,j,bi,bj) - flwup |
|
./pkg/thsice/thsice_get_exf.F |
273 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
280 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
281 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
284 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
305 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
322 |
THSICE_GET_EXF |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/thsice/thsice_get_exf.F |
323 |
THSICE_GET_EXF |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
325 |
THSICE_GET_EXF |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/thsice/thsice_get_exf.F |
366 |
THSICE_GET_EXF |
usn = wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
370 |
THSICE_GET_EXF |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/thsice/thsice_get_exf.F |
391 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
402 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
403 |
THSICE_GET_EXF |
tau = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
429 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
430 |
THSICE_GET_EXF |
wsm = sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
436 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
450 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)') |
|
./pkg/thsice/thsice_get_exf.F |
462 |
THSICE_GET_EXF |
IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
59 |
THSICE_GET_EXF |
INTEGER bi, bj |
|
./pkg/thsice/thsice_get_precip.F |
15 |
THSICE_GET_PRECIP |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_get_precip.F |
53 |
THSICE_GET_PRECIP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_get_precip.F |
67 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/thsice/thsice_get_precip.F |
68 |
THSICE_GET_PRECIP |
flxSW (i,j) = solar(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
69 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
70 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN |
|
./pkg/thsice/thsice_get_precip.F |
71 |
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 |
101 |
THSICE_INI_VARS |
IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 ) |
|
./pkg/thsice/thsice_ini_vars.F |
102 |
THSICE_INI_VARS |
& hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_ini_vars.F |
146 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
149 |
THSICE_INI_VARS |
IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
150 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
|
./pkg/thsice/thsice_ini_vars.F |
152 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
|
./pkg/thsice/thsice_ini_vars.F |
174 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
177 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_ini_vars.F |
178 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_ini_vars.F |
179 |
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 |
54 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
58 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
59 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
62 |
THSICE_INI_VARS |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
63 |
THSICE_INI_VARS |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
64 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
65 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
66 |
THSICE_INI_VARS |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
72 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
73 |
THSICE_INI_VARS |
flxCndBt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
75 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
76 |
THSICE_INI_VARS |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
77 |
THSICE_INI_VARS |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
78 |
THSICE_INI_VARS |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
80 |
THSICE_INI_VARS |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
81 |
THSICE_INI_VARS |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
82 |
THSICE_INI_VARS |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
89 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
90 |
THSICE_INI_VARS |
tOceMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
91 |
THSICE_INI_VARS |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/thsice/thsice_ini_vars.F |
92 |
THSICE_INI_VARS |
v2ocMxL(i,j,bi,bj) = v2Loc |
|
./pkg/thsice/thsice_main.F |
123 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*h0FacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
124 |
THSICE_MAIN |
& *rStarFacC(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
130 |
THSICE_MAIN |
IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./pkg/thsice/thsice_main.F |
131 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
133 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
144 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
156 |
THSICE_MAIN |
tOceMxL(i,j,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
157 |
THSICE_MAIN |
sOceMxL(i,j,bi,bj) = salt (i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
158 |
THSICE_MAIN |
v2ocMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_main.F |
159 |
THSICE_MAIN |
& ( uvel(i,j,1,bi,bj)*uvel(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
160 |
THSICE_MAIN |
& + uvel(i+1,j,1,bi,bj)*uvel(i+1,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
161 |
THSICE_MAIN |
& + vvel(i,j+1,1,bi,bj)*vvel(i,j+1,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
162 |
THSICE_MAIN |
& + vvel(i,j,1,bi,bj)*vvel(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
165 |
THSICE_MAIN |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
166 |
THSICE_MAIN |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
167 |
THSICE_MAIN |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
168 |
THSICE_MAIN |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
169 |
THSICE_MAIN |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
193 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
199 |
THSICE_MAIN |
O prcAtm, snowPrc(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
200 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
201 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_main.F |
208 |
THSICE_MAIN |
O prcAtm, snowPrc(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
209 |
THSICE_MAIN |
O icFlxSW(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
210 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_main.F |
220 |
THSICE_MAIN |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_main.F |
237 |
THSICE_MAIN |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_main.F |
242 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_main.F |
267 |
THSICE_MAIN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/thsice/thsice_main.F |
278 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
279 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
285 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
286 |
THSICE_MAIN |
fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
52 |
THSICE_MAIN |
INTEGER bi,bj |
|
./pkg/thsice/thsice_main.F |
93 |
THSICE_MAIN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/thsice/thsice_main.F |
96 |
THSICE_MAIN |
act1 = bi - myBxLo(myThid) |
|
./model/src/freeze_surface.F |
41 |
FREEZE_SURFACE |
INTEGER bi,bj,i,j,k |
|
./model/src/freeze_surface.F |
55 |
FREEZE_SURFACE |
DO bi=myBxLo(myThid),myBxHi(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/thsice/thsice_map_exf.F |
15 |
THSICE_MAP_EXF |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
|
./pkg/thsice/thsice_map_exf.F |
54 |
THSICE_MAP_EXF |
INTEGER bi,bj |
|
./pkg/thsice/thsice_map_exf.F |
68 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
71 |
THSICE_MAP_EXF |
totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
76 |
THSICE_MAP_EXF |
flxSW (i,j) = swdown(i,j,bi,bj) |
|
./pkg/thsice/thsice_map_exf.F |
87 |
THSICE_MAP_EXF |
snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
95 |
THSICE_MAP_EXF |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_map_exf.F |
96 |
THSICE_MAP_EXF |
& .AND. atemp(i,j,bi,bj).LE.cen2kel ) THEN |
|
./pkg/thsice/thsice_map_exf.F |
98 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_monitor.F |
116 |
THSICE_MONITOR |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_monitor.F |
119 |
THSICE_MONITOR |
locMask(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
192 |
THSICE_MONITOR |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_monitor.F |
195 |
THSICE_MONITOR |
locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
58 |
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 |
105 |
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 |
272 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/thsice/thsice_output.F |
273 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_fract_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
274 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_iceH_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
275 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowH_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
276 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tsrf_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
277 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice1_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
278 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice2_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
279 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowPr_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
280 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
281 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
282 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_salFx_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
283 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flxAtm_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
284 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frwAtm_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
285 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi,bj, myThid) |
|
./pkg/thsice/thsice_output.F |
286 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_tMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
287 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_sMxL_Ave, 1, bi, bj, myThid) |
|
./pkg/thsice/thsice_output.F |
288 |
THSICE_OUTPUT |
ice_timeAve(bi,bj) = 0. |
|
./pkg/thsice/thsice_output.F |
52 |
THSICE_OUTPUT |
INTEGER bi, bj, kl |
|
./pkg/thsice/thsice_output.F |
65 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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 |
72 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowPr_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 |
92 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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_slab_ocean.F |
110 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
111 |
THSICE_SLAB_OCEAN |
oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
112 |
THSICE_SLAB_OCEAN |
locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
113 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
116 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
117 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |
|
./pkg/thsice/thsice_slab_ocean.F |
124 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
125 |
THSICE_SLAB_OCEAN |
locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
126 |
THSICE_SLAB_OCEAN |
& + aim_sWght1*aim_qfx1(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
128 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
129 |
THSICE_SLAB_OCEAN |
& + heatFac*locQflux / hOceMxL(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 |
138 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
139 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
54 |
THSICE_SLAB_OCEAN |
INTEGER bi,bj |
|
./pkg/thsice/thsice_slab_ocean.F |
78 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
80 |
THSICE_SLAB_OCEAN |
tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
82 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
96 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
97 |
THSICE_SLAB_OCEAN |
sOceMxL(i,j,bi,bj) = |
|
./pkg/thsice/thsice_slab_ocean.F |
98 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |
|
./pkg/thsice/thsice_solve4temp.F |
10 |
THSICE_SOLVE4TEMP |
I bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
183 |
THSICE_SOLVE4TEMP |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_solve4temp.F |
239 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)') |
|
./pkg/thsice/thsice_solve4temp.F |
240 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
297 |
THSICE_SOLVE4TEMP |
& ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
299 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
355 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
363 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_BULKF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
404 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
412 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_BULKF( bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
446 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
461 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
& 'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj, |
|
./pkg/thsice/thsice_solve4temp.F |
530 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010) |
|
./pkg/thsice/thsice_solve4temp.F |
556 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020) |
|
./pkg/thsice/thsice_solve4temp.F |
571 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
& ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
89 |
THSICE_SOLVE4TEMP |
INTEGER bi,bj |
|
./pkg/thsice/thsice_step_fwd.F |
112 |
THSICE_STEP_FWD |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
132 |
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 |
153 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
155 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = thSIce_deltaT |
|
./pkg/thsice/thsice_step_fwd.F |
156 |
THSICE_STEP_FWD |
& + snowAge(i,j,bi,bj)*ageFac |
|
./pkg/thsice/thsice_step_fwd.F |
157 |
THSICE_STEP_FWD |
IF ( snowPrc(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
158 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
159 |
THSICE_STEP_FWD |
& * EXP( - snowFac*snowPrc(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
165 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
166 |
THSICE_STEP_FWD |
& - Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
175 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
178 |
THSICE_STEP_FWD |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
181 |
THSICE_STEP_FWD |
I 0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
186 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
198 |
THSICE_STEP_FWD |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
199 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
200 |
THSICE_STEP_FWD |
frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
202 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
203 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
206 |
THSICE_STEP_FWD |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
& tOceMxL(i,j,bi,bj), tFrzOce(i,j), |
|
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
& frzmltMxL(i,j), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
218 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
230 |
THSICE_STEP_FWD |
I bi, bj, |
|
./pkg/thsice/thsice_step_fwd.F |
232 |
THSICE_STEP_FWD |
I iceMask(siLo,sjLo,bi,bj), tFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
233 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
234 |
THSICE_STEP_FWD |
I snowPrc(siLo,sjLo,bi,bj), prcAtm, |
|
./pkg/thsice/thsice_step_fwd.F |
235 |
THSICE_STEP_FWD |
I sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
236 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
237 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
238 |
THSICE_STEP_FWD |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
239 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
263 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
271 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
278 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
279 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
280 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
282 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
283 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
284 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
289 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
291 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
292 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
296 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
297 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
299 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
300 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
310 |
THSICE_STEP_FWD |
I bi, bj, |
|
./pkg/thsice/thsice_step_fwd.F |
313 |
THSICE_STEP_FWD |
I tOceMxL(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
315 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
316 |
THSICE_STEP_FWD |
U Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
317 |
THSICE_STEP_FWD |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
334 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
335 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
336 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
340 |
THSICE_STEP_FWD |
IF (dBug(i,j,bi,bj)) WRITE(6,1010) |
|
./pkg/thsice/thsice_step_fwd.F |
342 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
343 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
347 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
348 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
351 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
352 |
THSICE_STEP_FWD |
IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
353 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
355 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
356 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
357 |
THSICE_STEP_FWD |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
358 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
359 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
360 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
361 |
THSICE_STEP_FWD |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
362 |
THSICE_STEP_FWD |
Qice1(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
363 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = Lfresh |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_step_fwd.F |
377 |
THSICE_STEP_FWD |
& )*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
385 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
386 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
387 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
388 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
397 |
THSICE_STEP_FWD |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_step_fwd.F |
66 |
THSICE_STEP_FWD |
INTEGER bi,bj |
|
./model/src/grad_sigma.F |
10 |
GRAD_SIGMA |
I bi, bj, iMin, iMax, jMin, jMax, K, |
|
./model/src/grad_sigma.F |
35 |
GRAD_SIGMA |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/grad_sigma.F |
62 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
67 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
68 |
GRAD_SIGMA |
& *_recip_dxC(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
77 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
82 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
83 |
GRAD_SIGMA |
& *_recip_dyC(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
97 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
105 |
THSICE_STEP_TEMP |
icFlxAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
106 |
THSICE_STEP_TEMP |
icFrwAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
10 |
THSICE_STEP_TEMP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/thsice/thsice_step_temp.F |
115 |
THSICE_STEP_TEMP |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/thsice/thsice_step_temp.F |
117 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
118 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
119 |
THSICE_STEP_TEMP |
I snowAge(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
120 |
THSICE_STEP_TEMP |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
135 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
136 |
THSICE_STEP_TEMP |
IF ( dBug(i,j,bi,bj) ) THEN |
|
./pkg/thsice/thsice_step_temp.F |
137 |
THSICE_STEP_TEMP |
WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj |
|
./pkg/thsice/thsice_step_temp.F |
139 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
140 |
THSICE_STEP_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
148 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
150 |
THSICE_STEP_TEMP |
icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
151 |
THSICE_STEP_TEMP |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_temp.F |
152 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
167 |
THSICE_STEP_TEMP |
I bi, bj, |
|
./pkg/thsice/thsice_step_temp.F |
170 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
171 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, tmpFlx, |
|
./pkg/thsice/thsice_step_temp.F |
172 |
THSICE_STEP_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
173 |
THSICE_STEP_TEMP |
U Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
174 |
THSICE_STEP_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsrf, |
|
./pkg/thsice/thsice_step_temp.F |
175 |
THSICE_STEP_TEMP |
O sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
176 |
THSICE_STEP_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
182 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
183 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
186 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
187 |
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 |
act1 = bi - myBxLo(myThid) |
|
./pkg/thsice/thsice_test_addfluid.h |
15 |
NO PROCEDURE |
DO bi=myBxLo(myThid),myBxHi(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 ) |
|
./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 ) |
|
./model/src/impldiff.F |
10 |
IMPLDIFF |
SUBROUTINE IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/impldiff.F |
114 |
IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/impldiff.F |
138 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
156 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
160 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
253 |
IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./model/src/impldiff.F |
264 |
IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./model/src/impldiff.F |
265 |
IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./model/src/impldiff.F |
281 |
IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
282 |
IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./model/src/impldiff.F |
295 |
IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
336 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
350 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
352 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
353 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
366 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
368 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
369 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
370 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
374 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
52 |
IMPLDIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./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 |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i-1,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 |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i,j-1,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 |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k,bi,bj) - fld1(i,j,k-1,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_normaliz.F |
10 |
TIMEAVE_NORMALIZ |
I cumulTime, kSize, bi, bj, myThid ) |
|
./pkg/timeave/timeave_normaliz.F |
35 |
TIMEAVE_NORMALIZ |
INTEGER bi, bj |
|
./pkg/timeave/timeave_normaliz.F |
46 |
TIMEAVE_NORMALIZ |
IF ( cumulTime(k,bi,bj) .NE. 0. ) THEN |
|
./pkg/timeave/timeave_normaliz.F |
49 |
TIMEAVE_NORMALIZ |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normaliz.F |
50 |
TIMEAVE_NORMALIZ |
& / cumulTime(k,bi,bj) |
|
./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(UUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
101 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
102 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
106 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
107 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
114 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
116 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
117 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
120 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
122 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
124 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
294 |
TIMEAVE_STATV_WRITE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/timeave/timeave_statv_write.F |
301 |
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 |
77 |
TIMEAVE_STATV_WRITE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/timeave/timeave_statv_write.F |
80 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
81 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
82 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(tFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
83 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(sFluxtave,timeAve_full,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
84 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(etatave, timeAve_half,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
85 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
86 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
87 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
88 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
89 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
91 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
92 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
93 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
94 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
95 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
96 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
97 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
98 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(Eta2tave, timeAve_half,1 ,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
99 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TTtave, 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 |
|
./model/src/ini_cartesian_grid.F |
123 |
INI_CARTESIAN_GRID |
xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) ) |
|
./model/src/ini_cartesian_grid.F |
137 |
INI_CARTESIAN_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
138 |
INI_CARTESIAN_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cartesian_grid.F |
146 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
148 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
156 |
INI_CARTESIAN_GRID |
dxF(i,j,bi,bj) = delX( iGl(i,bi) ) |
|
./model/src/ini_cartesian_grid.F |
157 |
INI_CARTESIAN_GRID |
dyF(i,j,bi,bj) = delY( jGl(j,bj) ) |
|
./model/src/ini_cartesian_grid.F |
164 |
INI_CARTESIAN_GRID |
dxG(i,j,bi,bj) = delX( iGl(i,bi) ) |
|
./model/src/ini_cartesian_grid.F |
165 |
INI_CARTESIAN_GRID |
dyG(i,j,bi,bj) = delY( jGl(j,bj) ) |
|
./model/src/ini_cartesian_grid.F |
174 |
INI_CARTESIAN_GRID |
dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
175 |
INI_CARTESIAN_GRID |
dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
176 |
INI_CARTESIAN_GRID |
dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
177 |
INI_CARTESIAN_GRID |
dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
178 |
INI_CARTESIAN_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
179 |
INI_CARTESIAN_GRID |
rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
186 |
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 |
193 |
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 |
201 |
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 |
202 |
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 |
212 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
213 |
INI_CARTESIAN_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
214 |
INI_CARTESIAN_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
215 |
INI_CARTESIAN_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
217 |
INI_CARTESIAN_GRID |
tanPhiAtU(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
218 |
INI_CARTESIAN_GRID |
tanPhiAtV(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
219 |
INI_CARTESIAN_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_cartesian_grid.F |
220 |
INI_CARTESIAN_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
226 |
INI_CARTESIAN_GRID |
cosFacU(j,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
227 |
INI_CARTESIAN_GRID |
cosFacV(j,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
228 |
INI_CARTESIAN_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
229 |
INI_CARTESIAN_GRID |
sqcosFacV(j,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
66 |
INI_CARTESIAN_GRID |
INTEGER iG, jG, bi, bj, i, j |
|
./model/src/ini_cartesian_grid.F |
75 |
INI_CARTESIAN_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
|
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_cartesian_grid.F |
88 |
INI_CARTESIAN_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./pkg/timeave/timeave_surf_flux.F |
103 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/timeave/timeave_surf_flux.F |
104 |
TIMEAVE_SURF_FLUX |
& *salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
110 |
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)*rhoConstFresh |
|
./pkg/timeave/timeave_surf_flux.F |
82 |
TIMEAVE_SURF_FLUX |
& *theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./pkg/timeave/timeave_surf_flux.F |
88 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
94 |
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 |
41 |
ZONAL_FILT_APPLY_TS |
DO bi=myBxLo(myThid),myBxHi(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 |
43 |
ZONAL_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(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 |
ampFactor(Nx,j,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
101 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_init.F |
58 |
ZONAL_FILT_INIT |
INTEGER i, j, bi, bj |
|
./pkg/zonal_filt/zonal_filt_init.F |
82 |
ZONAL_FILT_INIT |
DO bi=1,nSx |
|
./pkg/zonal_filt/zonal_filt_init.F |
84 |
ZONAL_FILT_INIT |
ampFactor(1,j,bi,bj) = oneRL |
|
./pkg/zonal_filt/zonal_filt_init.F |
85 |
ZONAL_FILT_INIT |
ampFactorV(1,j,bi,bj) = oneRL |
|
./pkg/zonal_filt/zonal_filt_init.F |
87 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
89 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
90 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
92 |
ZONAL_FILT_INIT |
ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
97 |
ZONAL_FILT_INIT |
ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
98 |
ZONAL_FILT_INIT |
ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i ) |
|
./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 |
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 |
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_cg2d.F |
102 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
104 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
106 |
INI_CG2D |
& *faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
107 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
109 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
111 |
INI_CG2D |
& *faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
118 |
INI_CG2D |
IF (OB_Jn(i,bi,bj).NE.0) aS2d(i, OB_Jn(i,bi,bj), bi,bj)=0. |
|
./model/src/ini_cg2d.F |
119 |
INI_CG2D |
IF (OB_Jn(i,bi,bj).NE.0) aS2d(i,OB_Jn(i,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
120 |
INI_CG2D |
IF (OB_Js(i,bi,bj).NE.0) aS2d(i,OB_Js(i,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
121 |
INI_CG2D |
IF (OB_Js(i,bi,bj).NE.0) aS2d(i, OB_Js(i,bi,bj), bi,bj)=0. |
|
./model/src/ini_cg2d.F |
124 |
INI_CG2D |
IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj), j, bi,bj)=0. |
|
./model/src/ini_cg2d.F |
125 |
INI_CG2D |
IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj)+1,j,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
126 |
INI_CG2D |
IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj)+1,j,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
127 |
INI_CG2D |
IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj), j, bi,bj)=0. |
|
./model/src/ini_cg2d.F |
133 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
134 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
146 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg2d.F |
149 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
150 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg2d.F |
216 |
INI_CG2D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
217 |
INI_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
220 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg2d.F |
221 |
INI_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
227 |
INI_CG2D |
aC = aC2d( i, j, bi,bj) |
|
./model/src/ini_cg2d.F |
228 |
INI_CG2D |
aCs = aC2d( i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
229 |
INI_CG2D |
aCw = aC2d(i-1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
231 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg2d.F |
233 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
pW(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
238 |
INI_CG2D |
pW(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
239 |
INI_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
242 |
INI_CG2D |
pS(i,j,bi,bj) = 0. |
|
./model/src/ini_cg2d.F |
244 |
INI_CG2D |
pS(i,j,bi,bj) = |
|
./model/src/ini_cg2d.F |
245 |
INI_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
48 |
INI_CG2D |
INTEGER bi, bj |
|
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg2d.F |
61 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
62 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
63 |
INI_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
64 |
INI_CG2D |
pW(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
65 |
INI_CG2D |
pS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
66 |
INI_CG2D |
pC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
71 |
INI_CG2D |
cg2d_q(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
72 |
INI_CG2D |
cg2d_r(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
73 |
INI_CG2D |
cg2d_s(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
75 |
INI_CG2D |
cg2d_z(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
78 |
INI_CG2D |
cg2d_y(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
79 |
INI_CG2D |
cg2d_v(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
91 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg2d.F |
94 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./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 |
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) |
|
./model/src/ini_cg3d.F |
110 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg3d.F |
114 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
115 |
INI_CG3D |
& *_hFacW(i,j,k,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 |
126 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
128 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
135 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
146 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./model/src/ini_cg3d.F |
154 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
156 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
164 |
INI_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
165 |
INI_CG3D |
aS3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
166 |
INI_CG3D |
aS3d( i,OB_Jn(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
167 |
INI_CG3D |
aW3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
168 |
INI_CG3D |
aW3d(i+1,OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
169 |
INI_CG3D |
aV3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
171 |
INI_CG3D |
IF (OB_Js(i,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
172 |
INI_CG3D |
aS3d( i,OB_Js(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
173 |
INI_CG3D |
aS3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
174 |
INI_CG3D |
aW3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
175 |
INI_CG3D |
aW3d(i+1,OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
176 |
INI_CG3D |
aV3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
180 |
INI_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
181 |
INI_CG3D |
aW3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
182 |
INI_CG3D |
aW3d(OB_Ie(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
183 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
184 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
185 |
INI_CG3D |
aV3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
187 |
INI_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) THEN |
|
./model/src/ini_cg3d.F |
188 |
INI_CG3D |
aW3d(OB_Iw(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
189 |
INI_CG3D |
aW3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
190 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
191 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
192 |
INI_CG3D |
aV3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
220 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg3d.F |
225 |
INI_CG3D |
aW = aW3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
226 |
INI_CG3D |
aE = aW3d(i+1,j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
227 |
INI_CG3D |
aN = aS3d( i,j+1,k, bi,bj) |
|
./model/src/ini_cg3d.F |
228 |
INI_CG3D |
aS = aS3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
229 |
INI_CG3D |
aU = aV3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
231 |
INI_CG3D |
aL = aV3d(i, j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
235 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
246 |
INI_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/ini_cg3d.F |
250 |
INI_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
252 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
253 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
254 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg3d.F |
264 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
265 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
266 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
267 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
289 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
294 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
295 |
INI_CG3D |
zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
297 |
INI_CG3D |
zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
299 |
INI_CG3D |
zMU(i,j,k,bi,bj)= 0. |
|
./model/src/ini_cg3d.F |
307 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
308 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
309 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
317 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
318 |
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 |
324 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
325 |
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 |
326 |
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 |
333 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
334 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_cg3d.F |
335 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
336 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
49 |
INI_CG3D |
INTEGER bi, bj |
|
./model/src/ini_cg3d.F |
65 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_cg3d.F |
70 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
71 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
74 |
INI_CG3D |
zMC (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
75 |
INI_CG3D |
zML (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
76 |
INI_CG3D |
zMU (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
82 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
83 |
INI_CG3D |
cg3d_r(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
84 |
INI_CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
90 |
INI_CG3D |
cg3d_b(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 |
63 |
COST_TEST |
do bi = itlo,ithi |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
67 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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_cori.F |
110 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(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 |
133 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_cori.F |
136 |
INI_CORI |
IF (bi.LE.3 .OR. bi.GE.5) THEN |
|
./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 |
141 |
INI_CORI |
IF (bi.GE.3) THEN |
|
./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 |
153 |
INI_CORI |
DO bi = 1,nSx |
|
./model/src/ini_cori.F |
154 |
INI_CORI |
iG = bi+(myXGlobalLo-1)/sNx |
|
./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 |
61 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(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 |
77 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(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 |
91 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(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) |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
40 |
COST_DEPENDENT_INIT |
integer bi,bj |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
58 |
COST_DEPENDENT_INIT |
do bi = itlo,ithi |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
61 |
COST_DEPENDENT_INIT |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
62 |
COST_DEPENDENT_INIT |
adobjf_vector(i,bi,bj) = 1. _d 0 |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
69 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
71 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = gTracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
122 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = tracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
136 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
137 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
13 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
146 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
147 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
193 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
194 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)v*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
202 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
209 |
GAD_IMPLICIT_R |
& + dTtracerLev(1)*recip_rA(i,j,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
211 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
226 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
233 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
239 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
247 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
253 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
275 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
285 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
312 |
GAD_IMPLICIT_R |
& rA(i,j,bi,bj)v |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj)) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
46 |
GAD_IMPLICIT_R |
INTEGER bi, bj |
|
./model/src/ini_curvilinear_grid.F |
133 |
INI_CURVILINEAR_GRID |
bi=3 |
|
./model/src/ini_curvilinear_grid.F |
135 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
137 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
139 |
INI_CURVILINEAR_GRID |
yG(1,sNy+1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
140 |
INI_CURVILINEAR_GRID |
bi=6 |
|
./model/src/ini_curvilinear_grid.F |
142 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
144 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
146 |
INI_CURVILINEAR_GRID |
yG(sNx+1,1,bj,1)=yG(1,1,bi,1) |
|
./model/src/ini_curvilinear_grid.F |
166 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
167 |
INI_CURVILINEAR_GRID |
dxV(sNx+1,1,bi,bj)=dxV(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
168 |
INI_CURVILINEAR_GRID |
dxV(1,sNy+1,bi,bj)=dxV(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
169 |
INI_CURVILINEAR_GRID |
dyU(sNx+1,1,bi,bj)=dyU(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
170 |
INI_CURVILINEAR_GRID |
dyU(1,sNy+1,bi,bj)=dyU(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
187 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
188 |
INI_CURVILINEAR_GRID |
rAz(sNx+1,1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
189 |
INI_CURVILINEAR_GRID |
rAz(1,sNy+1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
282 |
INI_CURVILINEAR_GRID |
DO bi = 1,nSx |
|
./model/src/ini_curvilinear_grid.F |
285 |
INI_CURVILINEAR_GRID |
jG = W2_myTileList(bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
290 |
INI_CURVILINEAR_GRID |
iG = bi+(myXGlobalLo-1)/sNx |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
339 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
348 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
351 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
354 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
357 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
363 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
366 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
48 |
INI_CURVILINEAR_GRID |
INTEGER bi,bj |
|
./model/src/ini_curvilinear_grid.F |
66 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_curvilinear_grid.F |
70 |
INI_CURVILINEAR_GRID |
xC(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
71 |
INI_CURVILINEAR_GRID |
yC(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
72 |
INI_CURVILINEAR_GRID |
xG(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
73 |
INI_CURVILINEAR_GRID |
yG(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
74 |
INI_CURVILINEAR_GRID |
dxC(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
75 |
INI_CURVILINEAR_GRID |
dyC(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
76 |
INI_CURVILINEAR_GRID |
dxG(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
77 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
78 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
79 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
80 |
INI_CURVILINEAR_GRID |
dxV(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
81 |
INI_CURVILINEAR_GRID |
dyU(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
82 |
INI_CURVILINEAR_GRID |
rA(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
83 |
INI_CURVILINEAR_GRID |
rAz(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
84 |
INI_CURVILINEAR_GRID |
rAw(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
85 |
INI_CURVILINEAR_GRID |
rAs(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
86 |
INI_CURVILINEAR_GRID |
tanPhiAtU(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
87 |
INI_CURVILINEAR_GRID |
tanPhiAtV(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
88 |
INI_CURVILINEAR_GRID |
angleCosC(i,j,bi,bj)=1. |
|
./model/src/ini_curvilinear_grid.F |
89 |
INI_CURVILINEAR_GRID |
angleSinC(i,j,bi,bj)=0. |
|
./model/src/ini_curvilinear_grid.F |
90 |
INI_CURVILINEAR_GRID |
cosFacU(j,bi,bj)=1. |
|
./model/src/ini_curvilinear_grid.F |
91 |
INI_CURVILINEAR_GRID |
cosFacV(j,bi,bj)=1. |
|
./model/src/ini_curvilinear_grid.F |
92 |
INI_CURVILINEAR_GRID |
sqCosFacU(j,bi,bj)=1. |
|
./model/src/ini_curvilinear_grid.F |
93 |
INI_CURVILINEAR_GRID |
sqCosFacV(j,bi,bj)=1. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
171 |
GRDCHK_MAIN |
do bi = itlo, ithi |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
175 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
176 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
177 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
98 |
GRDCHK_MAIN |
integer bi, itlo, ithi |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
100 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
107 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
110 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
111 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
I tRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
I sRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
125 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
139 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
142 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
146 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
179 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
phi0surf(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
47 |
INI_LINEAR_PHISURF |
INTEGER bi, bj |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
55 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
58 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
82 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
85 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
94 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
99 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_cylinder_grid.F |
130 |
INI_CYLINDER_GRID |
xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) ) |
|
./model/src/ini_cylinder_grid.F |
143 |
INI_CYLINDER_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
144 |
INI_CYLINDER_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_cylinder_grid.F |
152 |
INI_CYLINDER_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
154 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
162 |
INI_CYLINDER_GRID |
thisRad = yC(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
163 |
INI_CYLINDER_GRID |
dtheta = delX( iGl(i,bi) ) |
|
./model/src/ini_cylinder_grid.F |
164 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
165 |
INI_CYLINDER_GRID |
dyF(i,j,bi,bj) = delY( jGl(j,bj) ) |
|
./model/src/ini_cylinder_grid.F |
173 |
INI_CYLINDER_GRID |
dtheta = delX( iGl(i,bi) ) |
|
./model/src/ini_cylinder_grid.F |
174 |
INI_CYLINDER_GRID |
dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
175 |
INI_CYLINDER_GRID |
dyG(i,j,bi,bj) = delY( jGl(j,bj) ) |
|
./model/src/ini_cylinder_grid.F |
184 |
INI_CYLINDER_GRID |
dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
185 |
INI_CYLINDER_GRID |
dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
186 |
INI_CYLINDER_GRID |
dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
187 |
INI_CYLINDER_GRID |
dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
188 |
INI_CYLINDER_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
189 |
INI_CYLINDER_GRID |
rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
197 |
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 |
205 |
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 |
213 |
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 |
214 |
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 |
222 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
223 |
INI_CYLINDER_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
224 |
INI_CYLINDER_GRID |
rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
225 |
INI_CYLINDER_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
227 |
INI_CYLINDER_GRID |
tanPhiAtU(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
228 |
INI_CYLINDER_GRID |
tanPhiAtV(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
229 |
INI_CYLINDER_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_cylinder_grid.F |
230 |
INI_CYLINDER_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
236 |
INI_CYLINDER_GRID |
cosFacU(j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
237 |
INI_CYLINDER_GRID |
cosFacV(j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
238 |
INI_CYLINDER_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
239 |
INI_CYLINDER_GRID |
sqcosFacV(j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
54 |
INI_CYLINDER_GRID |
INTEGER bi, bj |
|
./model/src/ini_cylinder_grid.F |
83 |
INI_CYLINDER_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
|
./model/src/ini_cylinder_grid.F |
92 |
INI_CYLINDER_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_cylinder_grid.F |
96 |
INI_CYLINDER_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
163 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
205 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
229 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
251 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
76 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
98 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./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 |
53 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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 |
82 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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) |
|
./verification/advect_xy/code/ini_salt.F |
46 |
INI_SALT |
INTEGER bi, bj |
|
./verification/advect_xy/code/ini_salt.F |
54 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(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 |
85 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/advect_xy/code/ini_salt.F |
90 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
97 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_salt.F |
98 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./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 |
135 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
55 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
89 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
47 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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 |
72 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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_dynvars.F |
38 |
INI_DYNVARS |
INTEGER bi, bj |
|
./model/src/ini_dynvars.F |
44 |
INI_DYNVARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_dynvars.F |
51 |
INI_DYNVARS |
uVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
52 |
INI_DYNVARS |
vVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
53 |
INI_DYNVARS |
wVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
theta(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
salt(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
gU(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
gV(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
59 |
INI_DYNVARS |
gT(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gS(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
62 |
INI_DYNVARS |
guNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gvNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gtNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
65 |
INI_DYNVARS |
gsNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
66 |
INI_DYNVARS |
guNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
gvNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gtNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gsNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
totPhiHyd(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
rhoInSitu(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
80 |
INI_DYNVARS |
addMass(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
89 |
INI_DYNVARS |
etaN(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
90 |
INI_DYNVARS |
etaH(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
91 |
INI_DYNVARS |
phiHydLow(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
92 |
INI_DYNVARS |
hMixLayer(I,J,bi,bj)=0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
114 |
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 |
154 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
155 |
AIM_SURF_BC |
& + aim_sWght1*aim_sst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
156 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
157 |
AIM_SURF_BC |
& + aim_sWght1*aim_lst1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
172 |
AIM_SURF_BC |
soilw_0 = ( aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
173 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
174 |
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 |
176 |
AIM_SURF_BC |
soilw_1 = ( aim_sw11(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
177 |
AIM_SURF_BC |
& +aim_veget(i,j,bi,bj)* |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
178 |
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 |
190 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
191 |
AIM_SURF_BC |
& + aim_sWght1*aim_snw1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
192 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
193 |
AIM_SURF_BC |
& + aim_sWght1*aim_oic1(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
231 |
AIM_SURF_BC |
alb_land = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
232 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
239 |
AIM_SURF_BC |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
291 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
292 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
293 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
311 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
312 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
313 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
325 |
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 |
326 |
AIM_SURF_BC |
& -((yC(i,j,bi,bj)-yBump)/dyBump)**2 ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
336 |
AIM_SURF_BC |
& 1, bi, bj, 1, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
346 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
378 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
393 |
AIM_SURF_BC |
& 'aim_pCO2', 1, 1, 3, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
404 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
415 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
68 |
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 |
163 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
205 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
229 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
251 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
76 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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 |
98 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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, |
|
./model/src/ini_eos.F |
304 |
EOS_CHECK |
INTEGER bi, bj |
|
./model/src/ini_eos.F |
372 |
EOS_CHECK |
bi = 1 |
|
./model/src/ini_eos.F |
391 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
393 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
394 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
415 |
EOS_CHECK |
I k, bi, bj, myThid ) |
|
./model/src/ini_eos.F |
466 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./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 |
29 |
COST_TEST |
integer bi, bj |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
51 |
COST_TEST |
DO bi=itlo,ithi |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
57 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+I |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
71 |
COST_TEST |
objf_test(bi,bj) = vol_trans*1.0e-06 |
|
./model/src/ini_forcing.F |
102 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
103 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./model/src/ini_forcing.F |
105 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
132 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_forcing.F |
135 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./model/src/ini_forcing.F |
165 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_forcing.F |
168 |
INI_FORCING |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
209 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_forcing.F |
212 |
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 |
44 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_forcing.F |
47 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
48 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
49 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
50 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
51 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
52 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
53 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
54 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
55 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
56 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
57 |
INI_FORCING |
surfaceForcingU (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
58 |
INI_FORCING |
surfaceForcingV (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingT (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
63 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
64 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
65 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
66 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
67 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
68 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
69 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
70 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
71 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
72 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
73 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
74 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
75 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
76 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
78 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
79 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
82 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
83 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
92 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_forcing.F |
96 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./model/src/ini_forcing.F |
97 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./model/src/ini_forcing.F |
99 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
33 |
INI_HFAC |
INTEGER bi, bj |
|
./model/src/ini_hfac.F |
39 |
INI_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_hfac.F |
43 |
INI_HFAC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
44 |
INI_HFAC |
hFacS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
45 |
INI_HFAC |
hFacW(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
46 |
INI_HFAC |
maskC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
47 |
INI_HFAC |
maskS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
48 |
INI_HFAC |
maskW(I,J,K,bi,bj) = 0. _d 0 |
|
./verification/dome/code/obcs_calc.F |
106 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
107 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
114 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
116 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
125 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
131 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
132 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
135 |
OBCS_CALC |
OBWw(J,K,bi,bj)=0.0 |
|
./verification/dome/code/obcs_calc.F |
144 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
151 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
174 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
182 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
184 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
186 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
194 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
196 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
205 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
211 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
212 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
213 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
214 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
216 |
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 |
88 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/dome/code/obcs_calc.F |
93 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/dome/code/obcs_calc.F |
99 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./model/src/ini_linear_phisurf.F |
108 |
INI_LINEAR_PHISURF |
DO bi = 1,nSx |
|
./model/src/ini_linear_phisurf.F |
109 |
INI_LINEAR_PHISURF |
IF ( tileArea(bi,bj).EQ.0. _d 0 ) THEN |
|
./model/src/ini_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
& 'Empty tile: #', W2_myTileList(bi,bj), ' (bi,bj=',bi,bj,' )' |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
WRITE(msgBuf,'(A,I6,I6)') 'Empty tile bi,bj=', bi, bj |
|
./model/src/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
148 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
156 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
162 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
k = ksurfC(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
175 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
180 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
184 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
186 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
187 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
197 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
200 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
201 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
203 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
204 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./model/src/ini_linear_phisurf.F |
205 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
207 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
208 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
238 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
241 |
INI_LINEAR_PHISURF |
phi0surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
57 |
INI_LINEAR_PHISURF |
INTEGER bi, bj |
|
./model/src/ini_linear_phisurf.F |
66 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
69 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
70 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
84 |
INI_LINEAR_PHISURF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
tileArea(bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
89 |
INI_LINEAR_PHISURF |
tileArea(bi,bj) = tileArea(bi,bj) |
|
./model/src/ini_linear_phisurf.F |
90 |
INI_LINEAR_PHISURF |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
122 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
73 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
89 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(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 |
105 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
109 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
114 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
116 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
117 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
120 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
print *,'Number of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
print *,'Number of Land Tiles for bi=',bi,': ',nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
66 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
73 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
74 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
75 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
76 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
82 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
83 |
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 |
41 |
FIZHI_INIT_VEGSURFTILES |
DO bi = myBxLo(myThid), myBxHi(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 |
103 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(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 |
124 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(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 |
72 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(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 |
85 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(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 |
85 |
UPDATE_OCEAN_EXPORTS |
bislot = myXGlobalLo-1+(bi-1)*sNx |
|
./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) |
|
./model/src/ini_masks_etc.F |
104 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
106 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
109 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
118 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
120 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
121 |
INI_MASKS_ETC |
& - drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
132 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
148 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
151 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
174 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
177 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
178 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
180 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
185 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
187 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
190 |
INI_MASKS_ETC |
kLowC(i,j,bi,bj) = 0 |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0) THEN |
|
./model/src/ini_masks_etc.F |
193 |
INI_MASKS_ETC |
kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
196 |
INI_MASKS_ETC |
maskInC(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
197 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
215 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
220 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
222 |
INI_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
223 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
225 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
237 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
240 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
244 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
248 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
249 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
256 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
257 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
261 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
262 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
266 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
267 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
268 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
269 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
274 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
275 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
276 |
INI_MASKS_ETC |
rLowS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
277 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
291 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
295 |
INI_MASKS_ETC |
IF (dyG(i,j,bi,bj).EQ.0.) hFacW(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
IF (dxG(i,j,bi,bj).EQ.0.) hFacS(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
305 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
308 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
311 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
312 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
314 |
INI_MASKS_ETC |
maskInW(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
315 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
316 |
INI_MASKS_ETC |
maskInS(i,j,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
317 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
347 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
352 |
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 |
353 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
355 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
356 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
358 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
359 |
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 |
360 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
362 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
363 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
366 |
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 |
367 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
369 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
370 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
44 |
INI_MASKS_ETC |
INTEGER bi, bj |
|
./model/src/ini_masks_etc.F |
52 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
55 |
INI_MASKS_ETC |
IF ( dxG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
56 |
INI_MASKS_ETC |
& recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
57 |
INI_MASKS_ETC |
IF ( dyG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
58 |
INI_MASKS_ETC |
& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
59 |
INI_MASKS_ETC |
IF ( dxC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
60 |
INI_MASKS_ETC |
& recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
61 |
INI_MASKS_ETC |
IF ( dyC(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
62 |
INI_MASKS_ETC |
& recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
63 |
INI_MASKS_ETC |
IF ( dxF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
64 |
INI_MASKS_ETC |
& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
65 |
INI_MASKS_ETC |
IF ( dyF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
66 |
INI_MASKS_ETC |
& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
67 |
INI_MASKS_ETC |
IF ( dxV(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
68 |
INI_MASKS_ETC |
& recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
69 |
INI_MASKS_ETC |
IF ( dyU(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
70 |
INI_MASKS_ETC |
& recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
71 |
INI_MASKS_ETC |
IF ( rA (i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
72 |
INI_MASKS_ETC |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
IF ( rAs(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
& recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
75 |
INI_MASKS_ETC |
IF ( rAw(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
76 |
INI_MASKS_ETC |
& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
77 |
INI_MASKS_ETC |
IF ( rAz(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
92 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
172 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
174 |
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 |
177 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
DO_FIZHI |
dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
182 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
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 |
185 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
192 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
194 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
196 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=0. |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
201 |
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 |
116 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
119 |
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 |
67 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
70 |
FIZHI_INIT_FIXED |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
71 |
FIZHI_INIT_FIXED |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
83 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
84 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,Nsx,Nsy,bi,bj,maxtyp, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
88 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
89 |
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 |
90 |
FIZHI_INIT_FIXED |
. landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
91 |
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 |
139 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(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 |
232 |
FIZHI_INIT_VARS |
tcanopy(i,bi,bj) = 283. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
233 |
FIZHI_INIT_VARS |
tdeep(i,bi,bj) = 282.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
234 |
FIZHI_INIT_VARS |
ecanopy(i,bi,bj) = 2.e-2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
235 |
FIZHI_INIT_VARS |
swetshal(i,bi,bj) = 0.6 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
236 |
FIZHI_INIT_VARS |
swetroot(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
237 |
FIZHI_INIT_VARS |
swetdeep(i,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
238 |
FIZHI_INIT_VARS |
capac(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
239 |
FIZHI_INIT_VARS |
snodep(i,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
244 |
FIZHI_INIT_VARS |
imstturblw(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
245 |
FIZHI_INIT_VARS |
imstturbsw(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
246 |
FIZHI_INIT_VARS |
iras(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
247 |
FIZHI_INIT_VARS |
nlwcld(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
248 |
FIZHI_INIT_VARS |
nlwlz(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
249 |
FIZHI_INIT_VARS |
nswcld(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
250 |
FIZHI_INIT_VARS |
nswlz(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
254 |
FIZHI_INIT_VARS |
swlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
255 |
FIZHI_INIT_VARS |
lwlz(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
256 |
FIZHI_INIT_VARS |
qliqavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
257 |
FIZHI_INIT_VARS |
qliqavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
258 |
FIZHI_INIT_VARS |
fccavesw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
259 |
FIZHI_INIT_VARS |
fccavelw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
260 |
FIZHI_INIT_VARS |
cldtot_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
261 |
FIZHI_INIT_VARS |
cldras_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
262 |
FIZHI_INIT_VARS |
cldlsp_sw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
263 |
FIZHI_INIT_VARS |
cldtot_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
264 |
FIZHI_INIT_VARS |
cldras_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
265 |
FIZHI_INIT_VARS |
cldlsp_lw(i,j,L,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
271 |
FIZHI_INIT_VARS |
rainlsp(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
272 |
FIZHI_INIT_VARS |
raincon(i,j,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
273 |
FIZHI_INIT_VARS |
snowfall(i,j,bi,bj) = 0. |
|
./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 |
77 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(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 |
117 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
141 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
142 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
143 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
144 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
145 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
146 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
147 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
148 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
print *,'Number of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
print *,'Number of Land Tiles for bi=',bi,': ',nchpland(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
66 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
78 |
FIZHI_INIT_VEG |
if(aim_landfr(i,j,bi,bj).gt.0.1) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
79 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
80 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
81 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
82 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
84 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
94 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
95 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
113 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
120 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
121 |
FIZHI_TENDENCY_APPLY_T |
. *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
153 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
160 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
161 |
FIZHI_TENDENCY_APPLY_S |
. *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
39 |
FIZHI_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
40 |
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 |
47 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
88 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
|
./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 |
46 |
UPDATE_OCEAN_EXPORTS |
biglobal=bi+(myXGlobalLo-1)/im2 |
|
./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/ini_mixing.F |
43 |
INI_MIXING |
INTEGER bi, bj |
|
./model/src/ini_mixing.F |
48 |
INI_MIXING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_mixing.F |
53 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
56 |
INI_MIXING |
KapGM(i,j,k,bi,bj) = GM_background_K |
|
./model/src/ini_mixing.F |
59 |
INI_MIXING |
kapredi(i,j,k,bi,bj) = GM_isopycK |
|
./model/src/ini_mixing.F |
69 |
INI_MIXING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_mixing.F |
72 |
INI_MIXING |
BL79LatArray(i,j,bi,bj) = 0.0 _d 0 |
|
./model/src/ini_mixing.F |
73 |
INI_MIXING |
IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
74 |
INI_MIXING |
& BL79LatArray(i,j,bi,bj) = |
|
./model/src/ini_mixing.F |
75 |
INI_MIXING |
& ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1002 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1005 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1006 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1007 |
ECCO_COST_WEIGHTS |
& 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1009 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1011 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1012 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1013 |
ECCO_COST_WEIGHTS |
& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1015 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1017 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1018 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1019 |
ECCO_COST_WEIGHTS |
& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1021 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1023 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1024 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1025 |
ECCO_COST_WEIGHTS |
& 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1027 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1029 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1030 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1031 |
ECCO_COST_WEIGHTS |
& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1033 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1035 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1037 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1039 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1041 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1042 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1043 |
ECCO_COST_WEIGHTS |
& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1045 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1047 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1048 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1049 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1051 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1053 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1054 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1055 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1057 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1059 |
ECCO_COST_WEIGHTS |
if (wsfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1060 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1061 |
ECCO_COST_WEIGHTS |
& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1067 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1068 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1070 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1073 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1074 |
ECCO_COST_WEIGHTS |
& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1076 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1078 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1079 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
107 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1080 |
ECCO_COST_WEIGHTS |
& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1082 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1084 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1085 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1086 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1088 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1091 |
ECCO_COST_WEIGHTS |
if (wsfluxmm(bi,bj).ne.0.) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1092 |
ECCO_COST_WEIGHTS |
& wsfluxmm(bi,bj) = 1./wsfluxmm(bi,bj)*wsfluxmm(bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1093 |
ECCO_COST_WEIGHTS |
if (whfluxmm(bi,bj).ne.0.) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1094 |
ECCO_COST_WEIGHTS |
& whfluxmm(bi,bj) = 1./whfluxmm(bi,bj)*whfluxmm(bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1096 |
ECCO_COST_WEIGHTS |
if (whflux2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1097 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1098 |
ECCO_COST_WEIGHTS |
& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1100 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1102 |
ECCO_COST_WEIGHTS |
if (wsflux2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1103 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1104 |
ECCO_COST_WEIGHTS |
& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1106 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1108 |
ECCO_COST_WEIGHTS |
if (wtauu2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1109 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
110 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1110 |
ECCO_COST_WEIGHTS |
& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1112 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1114 |
ECCO_COST_WEIGHTS |
if (wtauv2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1115 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1116 |
ECCO_COST_WEIGHTS |
& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1118 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
111 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1127 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1128 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
112 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1130 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1132 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1133 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1135 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
113 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
114 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
115 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
116 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
117 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
118 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
119 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
126 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
127 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
128 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
207 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
212 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
271 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
273 |
ECCO_COST_WEIGHTS |
wsfluxmm(bi,bj) = 1. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
274 |
ECCO_COST_WEIGHTS |
whfluxmm(bi,bj) = 1. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
280 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
281 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
282 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
319 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
324 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
327 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
337 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
341 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
342 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
358 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
363 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
364 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
366 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
376 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
380 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
381 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
401 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
407 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
408 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
411 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
412 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
421 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
425 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
426 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
444 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
451 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
454 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
455 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
464 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
468 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
471 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
472 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
484 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
487 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
488 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
489 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
494 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
495 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
49 |
ECCO_COST_WEIGHTS |
integer bi,bj |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
509 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
512 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
515 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
516 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
517 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
519 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
523 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
524 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
531 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
532 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
541 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
559 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
565 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
566 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
568 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
572 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
574 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
578 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
579 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
582 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
583 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
584 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
589 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
593 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
595 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
596 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
597 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj) *10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
598 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
599 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
619 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
624 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
625 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
628 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
630 |
ECCO_COST_WEIGHTS |
if ( wscatx(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
631 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
632 |
ECCO_COST_WEIGHTS |
& wscatx(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
634 |
ECCO_COST_WEIGHTS |
if ( wscatx(i,j,bi,bj).GT.0.15 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
635 |
ECCO_COST_WEIGHTS |
& wscatx(i,j,bi,bj) = 0.15 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
637 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
641 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
642 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
645 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
647 |
ECCO_COST_WEIGHTS |
if ( wscaty(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
649 |
ECCO_COST_WEIGHTS |
& wscaty(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
if ( wscaty(i,j,bi,bj).GT.0.15 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
652 |
ECCO_COST_WEIGHTS |
& wscaty(i,j,bi,bj) = 0.15 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
654 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
655 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
674 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
679 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
680 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
682 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
685 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
686 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
688 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
708 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
713 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
714 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
717 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
719 |
ECCO_COST_WEIGHTS |
if ( wtauu(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
721 |
ECCO_COST_WEIGHTS |
& wtauu(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
723 |
ECCO_COST_WEIGHTS |
if ( wtauu(i,j,bi,bj).GT.0.12 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
724 |
ECCO_COST_WEIGHTS |
& wtauu(i,j,bi,bj) = 0.12 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
726 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
731 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtauu(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
751 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
756 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
759 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
760 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
761 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
783 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
787 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
788 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
791 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
793 |
ECCO_COST_WEIGHTS |
if ( wtauv(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
794 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
795 |
ECCO_COST_WEIGHTS |
& wtauv(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
797 |
ECCO_COST_WEIGHTS |
if ( wtauv(i,j,bi,bj).GT.0.12 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
798 |
ECCO_COST_WEIGHTS |
& wtauv(i,j,bi,bj) = 0.12 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
800 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
801 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
805 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtauv(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
826 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
830 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
831 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
833 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
834 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
835 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
858 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
862 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
866 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
867 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
869 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
873 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = whflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
898 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
899 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
902 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = watemp(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
903 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
926 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
934 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
935 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
941 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = wsflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
962 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
966 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
967 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
970 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
971 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
981 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
984 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
985 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
987 |
ECCO_COST_WEIGHTS |
if (wers(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
988 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
990 |
ECCO_COST_WEIGHTS |
if (wgfo(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
991 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
995 |
ECCO_COST_WEIGHTS |
if (wsst(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = 1./wsst(i,j,bi,bj)/wsst(i,j,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
if (wsss(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
999 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = 1./wsss(i,j,bi,bj)/wsss(i,j,bi,bj)/2. |
|
./model/src/ini_nh_fields.F |
103 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
104 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
110 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
111 |
INI_NH_FIELDS |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
125 |
INI_NH_FIELDS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_nh_fields.F |
129 |
INI_NH_FIELDS |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./model/src/ini_nh_fields.F |
130 |
INI_NH_FIELDS |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./model/src/ini_nh_fields.F |
43 |
INI_NH_FIELDS |
INTEGER bi,bj |
|
./model/src/ini_nh_fields.F |
71 |
INI_NH_FIELDS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_nh_fields.F |
76 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/ini_nh_fields.F |
84 |
INI_NH_FIELDS |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
86 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/ini_nh_fields.F |
88 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_fields.F |
97 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_vars.F |
38 |
INI_NH_VARS |
INTEGER bi, bj |
|
./model/src/ini_nh_vars.F |
45 |
INI_NH_VARS |
DO bi = myBxLo(myThid), myBxHi(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 |
|
./model/src/ini_nh_vars.F |
62 |
INI_NH_VARS |
viscAh_W(i,j,k,bi,bj)= 0. _d 0 |
|
./model/src/ini_nh_vars.F |
63 |
INI_NH_VARS |
viscA4_W(i,j,k,bi,bj)= 0. _d 0 |
|
./model/src/ini_nlfs_vars.F |
104 |
INI_NLFS_VARS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
107 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
108 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
109 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
110 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
111 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
112 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
113 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
114 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
116 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = |
|
./model/src/ini_nlfs_vars.F |
117 |
INI_NLFS_VARS |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/ini_nlfs_vars.F |
127 |
INI_NLFS_VARS |
etaHw(i,j,bi,bj) = 0.5 _d 0 |
|
./model/src/ini_nlfs_vars.F |
128 |
INI_NLFS_VARS |
& *( etaH(i-1,j,bi,bj) + etaH(i,j,bi,bj) ) |
|
./model/src/ini_nlfs_vars.F |
129 |
INI_NLFS_VARS |
etaHs(i,j,bi,bj) = 0.5 _d 0 |
|
./model/src/ini_nlfs_vars.F |
130 |
INI_NLFS_VARS |
& *( etaH(i,j-1,bi,bj) + etaH(i,j,bi,bj) ) |
|
./model/src/ini_nlfs_vars.F |
38 |
INI_NLFS_VARS |
INTEGER i,j,k,bi,bj |
|
./model/src/ini_nlfs_vars.F |
53 |
INI_NLFS_VARS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_nlfs_vars.F |
59 |
INI_NLFS_VARS |
hFac_surfC(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
60 |
INI_NLFS_VARS |
hFac_surfW(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
61 |
INI_NLFS_VARS |
hFac_surfS(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
62 |
INI_NLFS_VARS |
PmEpR(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
63 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
70 |
INI_NLFS_VARS |
rStarFacC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
71 |
INI_NLFS_VARS |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
72 |
INI_NLFS_VARS |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
73 |
INI_NLFS_VARS |
rStarExpC(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
74 |
INI_NLFS_VARS |
rStarExpW(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
75 |
INI_NLFS_VARS |
rStarExpS(i,j,bi,bj) = 1. |
|
./model/src/ini_nlfs_vars.F |
76 |
INI_NLFS_VARS |
rStarDhCDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
77 |
INI_NLFS_VARS |
rStarDhWDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
78 |
INI_NLFS_VARS |
rStarDhSDt(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
79 |
INI_NLFS_VARS |
PmEpR(i,j,bi,bj) = 0. |
|
./model/src/ini_nlfs_vars.F |
85 |
INI_NLFS_VARS |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
86 |
INI_NLFS_VARS |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
87 |
INI_NLFS_VARS |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
99 |
INI_NLFS_VARS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
25 |
CFC_ATMOS |
integer i,j,bi,bj |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
38 |
CFC_ATMOS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
41 |
CFC_ATMOS |
AtmosCFC11(i,j,bi,bj)=0.d0 |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
42 |
CFC_ATMOS |
AtmosCFC12(i,j,bi,bj)=0.d0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1000 |
ECCO_COST_WEIGHTS |
& 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1002 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1004 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1005 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1006 |
ECCO_COST_WEIGHTS |
& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1008 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1010 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1011 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1012 |
ECCO_COST_WEIGHTS |
& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1014 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1016 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1017 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1018 |
ECCO_COST_WEIGHTS |
& 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1020 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1022 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1023 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1024 |
ECCO_COST_WEIGHTS |
& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1026 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1028 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1029 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1030 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1032 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1035 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1038 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1040 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1041 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1042 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1046 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1047 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1048 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1050 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1052 |
ECCO_COST_WEIGHTS |
if (wsfluxm(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1053 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1054 |
ECCO_COST_WEIGHTS |
& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1056 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1059 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1060 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1061 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1065 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1067 |
ECCO_COST_WEIGHTS |
& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1069 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
106 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1071 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1073 |
ECCO_COST_WEIGHTS |
& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1075 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1077 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1078 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1079 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1081 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1084 |
ECCO_COST_WEIGHTS |
if (wsfluxmm(bi,bj).ne.0.) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1085 |
ECCO_COST_WEIGHTS |
& wsfluxmm(bi,bj) = 1./wsfluxmm(bi,bj)*wsfluxmm(bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1086 |
ECCO_COST_WEIGHTS |
if (whfluxmm(bi,bj).ne.0.) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1087 |
ECCO_COST_WEIGHTS |
& whfluxmm(bi,bj) = 1./whfluxmm(bi,bj)*whfluxmm(bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1089 |
ECCO_COST_WEIGHTS |
if (whflux2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1090 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1091 |
ECCO_COST_WEIGHTS |
& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1093 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1095 |
ECCO_COST_WEIGHTS |
if (wsflux2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1096 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1097 |
ECCO_COST_WEIGHTS |
& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1099 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
109 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1101 |
ECCO_COST_WEIGHTS |
if (wtauu2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1102 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1103 |
ECCO_COST_WEIGHTS |
& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1105 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1107 |
ECCO_COST_WEIGHTS |
if (wtauv2(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1108 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1109 |
ECCO_COST_WEIGHTS |
& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
110 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1111 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
111 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1120 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1121 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1123 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1125 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1128 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
112 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
113 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
114 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
115 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
116 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
117 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
118 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
119 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
126 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
127 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
210 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
269 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
271 |
ECCO_COST_WEIGHTS |
wsfluxmm(bi,bj) = 1. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
272 |
ECCO_COST_WEIGHTS |
whfluxmm(bi,bj) = 1. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
278 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
279 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
280 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
317 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
322 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
323 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
326 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
339 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
356 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
361 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
362 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
364 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
365 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
374 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
378 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
379 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
399 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
404 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
405 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
409 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
410 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
419 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
423 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
424 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
442 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
447 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
448 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
452 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
453 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
462 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
466 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
467 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
470 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
482 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
485 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
486 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
487 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
48 |
ECCO_COST_WEIGHTS |
integer bi,bj |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
492 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
493 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
507 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
510 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
512 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
513 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
515 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
517 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
521 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
522 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
523 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
524 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
539 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
542 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
557 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
563 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
564 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
565 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
569 |
ECCO_COST_WEIGHTS |
if ( wtp(i,j,bi,bj) .ne. 0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
574 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 115. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
575 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
576 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
577 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
585 |
ECCO_COST_WEIGHTS |
if ( ( xC(i,j,bi,bj) .GT. 355. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
586 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 360. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
587 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
& ( xC(i,j,bi,bj) .GT. 0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 39. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
592 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. 30. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
593 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 48. ) ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj) *10. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
595 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
615 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
620 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
621 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
624 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
626 |
ECCO_COST_WEIGHTS |
if ( wscatx(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
627 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
628 |
ECCO_COST_WEIGHTS |
& wscatx(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
630 |
ECCO_COST_WEIGHTS |
if ( wscatx(i,j,bi,bj).GT.0.15 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
631 |
ECCO_COST_WEIGHTS |
& wscatx(i,j,bi,bj) = 0.15 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
633 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
634 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
637 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
641 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
643 |
ECCO_COST_WEIGHTS |
if ( wscaty(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
644 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
645 |
ECCO_COST_WEIGHTS |
& wscaty(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
647 |
ECCO_COST_WEIGHTS |
if ( wscaty(i,j,bi,bj).GT.0.15 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
& wscaty(i,j,bi,bj) = 0.15 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
650 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
670 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
676 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
678 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
681 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
682 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
684 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
704 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
709 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
710 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
713 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
715 |
ECCO_COST_WEIGHTS |
if ( wtauu(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
716 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
717 |
ECCO_COST_WEIGHTS |
& wtauu(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
719 |
ECCO_COST_WEIGHTS |
if ( wtauu(i,j,bi,bj).GT.0.12 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
& wtauu(i,j,bi,bj) = 0.12 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
722 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
723 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtauu(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
747 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
752 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
753 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
755 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
756 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
779 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
783 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
784 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
787 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
789 |
ECCO_COST_WEIGHTS |
if ( wtauv(i,j,bi,bj).EQ.0. .AND. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
791 |
ECCO_COST_WEIGHTS |
& wtauv(i,j,bi,bj) = 4.*wtau0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
793 |
ECCO_COST_WEIGHTS |
if ( wtauv(i,j,bi,bj).GT.0.12 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
794 |
ECCO_COST_WEIGHTS |
& wtauv(i,j,bi,bj) = 0.12 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
796 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
797 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
801 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtauv(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
822 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
826 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
827 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
829 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
830 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
831 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
854 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
858 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
859 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
862 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
865 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
869 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = whflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
890 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
895 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
898 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = watemp(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
899 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
922 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
926 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
927 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
933 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = wsflux(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
958 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
962 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
963 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
966 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
967 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
980 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
981 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
983 |
ECCO_COST_WEIGHTS |
if (wers(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
984 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
988 |
ECCO_COST_WEIGHTS |
if (wsst(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
989 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = 1./wsst(i,j,bi,bj)/wsst(i,j,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
991 |
ECCO_COST_WEIGHTS |
if (wsss(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
992 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = 1./wsss(i,j,bi,bj)/wsss(i,j,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
995 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
999 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = |
|
./model/src/ini_p_ground.F |
104 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(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 |
174 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. 0. _d 0) THEN |
|
./model/src/ini_p_ground.F |
180 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Ro_SeaLevel |
|
./model/src/ini_p_ground.F |
182 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
190 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. zLoc+dzLoc ) THEN |
|
./model/src/ini_p_ground.F |
193 |
INI_P_GROUND |
& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
207 |
INI_P_GROUND |
& ' selectMode,i,j,bi,bj=',selectMode,i,j,bi,bj |
|
./model/src/ini_p_ground.F |
210 |
INI_P_GROUND |
& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds', |
|
./model/src/ini_p_ground.F |
215 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
228 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
246 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
265 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_p_ground.F |
272 |
INI_P_GROUND |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
280 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
283 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
287 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
289 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
291 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = 0. |
|
./model/src/ini_p_ground.F |
307 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. Ro_SeaLevel) THEN |
|
./model/src/ini_p_ground.F |
308 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
330 |
INI_P_GROUND |
yLatLoc = yC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
343 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
345 |
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 |
|
./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 |
49 |
COMM_STATS |
DO bi=1,nSx |
|
./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/ini_pressure.F |
109 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
113 |
INI_PRESSURE |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_pressure.F |
122 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
123 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
43 |
INI_PRESSURE |
INTEGER bi, bj |
|
./model/src/ini_pressure.F |
69 |
INI_PRESSURE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_pressure.F |
73 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_pressure.F |
97 |
INI_PRESSURE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_psurf.F |
46 |
INI_PSURF |
INTEGER bi, bj |
|
./model/src/ini_psurf.F |
52 |
INI_PSURF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_psurf.F |
55 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
70 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_psurf.F |
73 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./model/src/ini_psurf.F |
85 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/ini_psurf.F |
88 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
89 |
INI_PSURF |
etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/ini_psurf.F |
90 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
49 |
INI_SALT |
INTEGER bi, bj |
|
./model/src/ini_salt.F |
56 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_salt.F |
60 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
88 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
29 |
COST_TEST |
integer bi, bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
67 |
COST_TEST |
do bi = itlo,ithi |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
71 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
76 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
77 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
80 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
85 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
86 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
87 |
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 |
166 |
PLOT_FIELD_XYRL |
DO bi=1,nSx |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
177 |
PLOT_FIELD_XYRL |
biEnd = bi |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
184 |
PLOT_FIELD_XYRL |
& ' tile ', bi, |
|
./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 |
72 |
PLOT_FIELD_XYRS |
DO bi=1,nSx |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
82 |
PLOT_FIELD_XYRS |
biStart = bi |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
83 |
PLOT_FIELD_XYRS |
biEnd = bi |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
90 |
PLOT_FIELD_XYRS |
& ' tile ', bi, |
|
./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 |
132 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(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 |
202 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(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 |
214 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(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 |
64 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(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 |
133 |
INI_SPHERICAL_POLAR_GRID |
xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) ) |
|
./model/src/ini_spherical_polar_grid.F |
147 |
INI_SPHERICAL_POLAR_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
148 |
INI_SPHERICAL_POLAR_GRID |
yG(i,j,bi,bj) = yGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
156 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
158 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
170 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
171 |
INI_SPHERICAL_POLAR_GRID |
dlon = delX( iGl(i,bi) ) |
|
./model/src/ini_spherical_polar_grid.F |
173 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
175 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = delX(iGl(i,bi))*deg2rad*rSphere* |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
& COS(yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
178 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
190 |
INI_SPHERICAL_POLAR_GRID |
dlon = delX( iGl(i,bi) ) |
|
./model/src/ini_spherical_polar_grid.F |
192 |
INI_SPHERICAL_POLAR_GRID |
dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
193 |
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 |
194 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
203 |
INI_SPHERICAL_POLAR_GRID |
dxC(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
204 |
INI_SPHERICAL_POLAR_GRID |
dyC(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
dxV(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
206 |
INI_SPHERICAL_POLAR_GRID |
dyU(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
207 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
208 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
216 |
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 |
232 |
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 |
246 |
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 |
247 |
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 |
258 |
INI_SPHERICAL_POLAR_GRID |
dlon=delX( iGl(i,bi) ) |
|
./model/src/ini_spherical_polar_grid.F |
260 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
263 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj)-delY( jGl(j,bj) )*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
264 |
INI_SPHERICAL_POLAR_GRID |
lon=yC(i,j,bi,bj)+delY( jGl(j,bj) )*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
265 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
275 |
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 |
289 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
290 |
INI_SPHERICAL_POLAR_GRID |
dlon=delX( iGl(i,bi) ) |
|
./model/src/ini_spherical_polar_grid.F |
292 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
295 |
INI_SPHERICAL_POLAR_GRID |
lon=yC(i,j,bi,bj)-delY( jGl(j,bj) ) |
|
./model/src/ini_spherical_polar_grid.F |
296 |
INI_SPHERICAL_POLAR_GRID |
lat=yC(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
297 |
INI_SPHERICAL_POLAR_GRID |
rAs(i,j,bi,bj) = rSphere*delX(iGl(i,bi))*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
300 |
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 |
309 |
INI_SPHERICAL_POLAR_GRID |
dlon=0.5 _d 0*( delX( iGl(i,bi) ) + delX( iGl(i-1,bi) ) ) |
|
./model/src/ini_spherical_polar_grid.F |
311 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
313 |
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 |
321 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
323 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
324 |
INI_SPHERICAL_POLAR_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_spherical_polar_grid.F |
325 |
INI_SPHERICAL_POLAR_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
334 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj)=COS(yC(1,j,bi,bj)*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
336 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=COS((yC(1,j,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
338 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj)=ABS(cosFacU(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
339 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=ABS(cosFacV(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
340 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj)=SQRT(cosFacU(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
341 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacV(j,bi,bj)=SQRT(cosFacV(j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
343 |
INI_SPHERICAL_POLAR_GRID |
cosFacU(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
344 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
345 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacU(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
346 |
INI_SPHERICAL_POLAR_GRID |
sqcosFacV(j,bi,bj)=1. |
|
./model/src/ini_spherical_polar_grid.F |
56 |
INI_SPHERICAL_POLAR_GRID |
INTEGER bi, bj |
|
./model/src/ini_spherical_polar_grid.F |
85 |
INI_SPHERICAL_POLAR_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
|
./model/src/ini_spherical_polar_grid.F |
94 |
INI_SPHERICAL_POLAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_spherical_polar_grid.F |
98 |
INI_SPHERICAL_POLAR_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./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/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./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 |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_theta.F |
135 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
49 |
INI_THETA |
INTEGER bi, bj |
|
./model/src/ini_theta.F |
57 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_theta.F |
61 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
89 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
32 |
COST_TEST |
integer bi, bj |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
54 |
COST_TEST |
do bi = itlo,ithi |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
55 |
COST_TEST |
objf_test(bi,bj)= 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
66 |
COST_TEST |
do bi = itlo,ithi |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
71 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
75 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
77 |
COST_TEST |
& 'objf_test ', objf_test(bi,bj), |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
78 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
84 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0 |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./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 |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
125 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
147 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
160 |
EXTERNAL_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
164 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
165 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
208 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
227 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
230 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
235 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
236 |
EXTERNAL_FORCING_T |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
247 |
EXTERNAL_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
253 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
255 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
267 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
298 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
76 |
EXTERNAL_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
94 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./model/src/ini_vel.F |
47 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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 |
71 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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/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 |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(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 |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/internal_wave/code/obcs_calc.F |
100 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
106 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
135 |
OBCS_CALC |
OBWw(J,K,bi,bj)=-Uinflow |
|
./verification/internal_wave/code/obcs_calc.F |
153 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
159 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
160 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
161 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
162 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
164 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
173 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
179 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
180 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
181 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
182 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
184 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
38 |
OBCS_CALC |
INTEGER bi, bj |
|
./verification/internal_wave/code/obcs_calc.F |
75 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/internal_wave/code/obcs_calc.F |
80 |
OBCS_CALC |
& bi, bj, futureTime, |
|
./verification/internal_wave/code/obcs_calc.F |
86 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
87 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
88 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
89 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
91 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./model/src/initialise_varia.F |
108 |
INITIALISE_VARIA |
INTEGER bi,bj |
|
./model/src/initialise_varia.F |
221 |
INITIALISE_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/initialise_varia.F |
223 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
263 |
INITIALISE_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/initialise_varia.F |
266 |
INITIALISE_VARIA |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./model/src/integr_continuity.F |
101 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
112 |
INTEGR_CONTINUITY |
& -facMass*addMass(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
11 |
INTEGR_CONTINUITY |
I bi, bj, uFld, vFld, |
|
./model/src/integr_continuity.F |
131 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
139 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
140 |
INTEGR_CONTINUITY |
& + hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
142 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass |
|
./model/src/integr_continuity.F |
148 |
INTEGR_CONTINUITY |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/integr_continuity.F |
149 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
150 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
159 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
164 |
INTEGR_CONTINUITY |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
165 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
167 |
INTEGR_CONTINUITY |
& -facEmP*EmPmR(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
184 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
190 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
191 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
198 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaN, myThid ) |
|
./model/src/integr_continuity.F |
212 |
INTEGR_CONTINUITY |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
213 |
INTEGR_CONTINUITY |
rStarDhCDt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
215 |
INTEGR_CONTINUITY |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
230 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, addMass, |
|
./model/src/integr_continuity.F |
240 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
250 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/integr_continuity.F |
44 |
INTEGR_CONTINUITY |
INTEGER bi,bj |
|
./model/src/integr_continuity.F |
96 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
98 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
99 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
150 |
THE_MAIN_LOOP |
integer bi,bj |
|
./model/src/integrate_for_w.F |
100 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
107 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
108 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
109 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, |
|
./model/src/integrate_for_w.F |
110 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
123 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
124 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
125 |
INTEGRATE_FOR_W |
& -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
126 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
133 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
134 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
135 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
136 |
INTEGRATE_FOR_W |
& -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
137 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
149 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
150 |
INTEGRATE_FOR_W |
& ( conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
151 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
152 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
158 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
159 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
160 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
161 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
162 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
174 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
175 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
176 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
183 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
184 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
185 |
INTEGRATE_FOR_W |
& +conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
186 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
35 |
INTEGRATE_FOR_W |
INTEGER bi,bj,k |
|
./model/src/integrate_for_w.F |
60 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
61 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
62 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
63 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
64 |
INTEGRATE_FOR_W |
& *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
65 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
79 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/integrate_for_w.F |
92 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./model/src/integrate_for_w.F |
98 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
99 |
INTEGRATE_FOR_W |
& conv2d(i,j)*recip_rA(i,j,bi,bj) |
|
./model/src/momentum_correction_step.F |
104 |
MOMENTUM_CORRECTION_STEP |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/momentum_correction_step.F |
118 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
|
./model/src/momentum_correction_step.F |
154 |
MOMENTUM_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/momentum_correction_step.F |
157 |
MOMENTUM_CORRECTION_STEP |
act1 = bi - myBxLo(myThid) |
|
./model/src/momentum_correction_step.F |
179 |
MOMENTUM_CORRECTION_STEP |
CALL INTEGR_CONTINUITY( bi, bj, uVel, vVel, |
|
./model/src/momentum_correction_step.F |
70 |
MOMENTUM_CORRECTION_STEP |
INTEGER bi,bj |
|
./model/src/momentum_correction_step.F |
75 |
MOMENTUM_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/momentum_correction_step.F |
94 |
MOMENTUM_CORRECTION_STEP |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./verification/rotating_tank/code/external_forcing.F |
109 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
139 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
162 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
178 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
179 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
180 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
187 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
194 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
237 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
310 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
316 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
324 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
325 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
326 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
347 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
368 |
EXTERNAL_FORCING_T |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./verification/rotating_tank/code/external_forcing.F |
377 |
EXTERNAL_FORCING_T |
hC = hFacC(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
378 |
EXTERNAL_FORCING_T |
hW = hFacW(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
379 |
EXTERNAL_FORCING_T |
hE = hFacW(i+1,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
hN = hFacS(i ,j+1,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
381 |
EXTERNAL_FORCING_T |
hS = hFacS(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
384 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
386 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/external_forcing.F |
387 |
EXTERNAL_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
393 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(tCyl - theta(i,j,kLev,bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
394 |
EXTERNAL_FORCING_T |
& *recip_dxC(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
398 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
400 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(tCyl-theta(i,j,kLev,bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
401 |
EXTERNAL_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
405 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dxG(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
407 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/external_forcing.F |
408 |
EXTERNAL_FORCING_T |
& *recip_dyC(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
413 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
414 |
EXTERNAL_FORCING_T |
& -_recip_hFacC(i,j,kLev,bi,bj)*recip_drF(kLev) |
|
./verification/rotating_tank/code/external_forcing.F |
415 |
EXTERNAL_FORCING_T |
& *recip_rA(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
427 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
440 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
471 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
494 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
500 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
508 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
509 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
510 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
518 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
89 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
34 |
INI_PSURF |
INTEGER bi, bj |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
42 |
INI_PSURF |
DO bi = myBxLo(myThid), myBxHi(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 |
62 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(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 |
50 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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 |
87 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(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 |
106 |
EXTERNAL_FORCING_U |
longitud1=XC(i-1,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
107 |
EXTERNAL_FORCING_U |
longitud2=XC(i,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
108 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
112 |
EXTERNAL_FORCING_U |
& )*recip_DXC(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
113 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./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 |
120 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
127 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
140 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
170 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
193 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
199 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
209 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
210 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
211 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
218 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
225 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
238 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
268 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
304 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
312 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
313 |
EXTERNAL_FORCING_T |
& +surfaceForcingT(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
314 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
337 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
361 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
392 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
415 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./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 |
421 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
429 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
430 |
EXTERNAL_FORCING_S |
& +surfaceForcingS(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
431 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
439 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
66 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
72 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
83 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
84 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(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_latlon/code/ptracers_forcing.F |
11 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
39 |
PTRACERS_FORCING |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
71 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
79 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
80 |
PTRACERS_FORCING |
& + surfPtracer(i,j,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
81 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
87 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
88 |
PTRACERS_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
96 |
PTRACERS_FORCING |
I bi,bj,k,iTracer+2, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
104 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
129 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./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 |
130 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
131 |
PTRACERS_FORCING_SURF |
& + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
159 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
160 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
161 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
& *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
180 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
181 |
PTRACERS_FORCING_SURF |
& surfaceForcingPTr(i,j,bi,bj,iTrc) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
182 |
PTRACERS_FORCING_SURF |
& + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
40 |
PTRACERS_FORCING_SURF |
INTEGER bi, bj, iMin, iMax, jMin, jMax |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
67 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
70 |
PTRACERS_FORCING_SURF |
& * drF(ks) * _hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
39 |
COST_HFLUX |
integer bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
44 |
COST_HFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
47 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
56 |
COST_HFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
act1 = bi - myBxLo(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
71 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
72 |
COST_HFLUX |
& whfluxm(i,j,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
74 |
COST_HFLUX |
& Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
79 |
COST_HFLUX |
objf_hflux_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
35 |
COST_TEMP |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
48 |
COST_TEMP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
52 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
62 |
COST_TEMP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
65 |
COST_TEMP |
act1 = bi - myBxLo(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
79 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
80 |
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 |
85 |
COST_TEMP |
objf_temp_tut(bi,bj) = locfc |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
104 |
COST_WEIGHTS |
DO bi = itlo,ithi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
106 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
119 |
COST_WEIGHTS |
DO bi = itlo,ithi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
123 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
124 |
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 |
125 |
COST_WEIGHTS |
& /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
35 |
COST_WEIGHTS |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
62 |
COST_WEIGHTS |
DO bi = itlo,ithi |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
65 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
69 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
70 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
71 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
101 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
102 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
103 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
104 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
106 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
107 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
108 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
109 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
11 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
125 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
126 |
EXTERNAL_FORCING_SURF |
& * rStarExpC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
127 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
128 |
EXTERNAL_FORCING_SURF |
& * rStarExpC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
135 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
136 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
137 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
138 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
139 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
153 |
EXTERNAL_FORCING_SURF |
& surfaceForcingT(1-OLx,1-OLy,bi,bj),tmpFac,1, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
154 |
EXTERNAL_FORCING_SURF |
& 'TRELAX ',0, 1,2,bi,bj,myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
159 |
EXTERNAL_FORCING_SURF |
& surfaceForcingS(1-OLx,1-OLy,bi,bj),tmpFac,1, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
160 |
EXTERNAL_FORCING_SURF |
& 'SRELAX ',0, 1,2,bi,bj,myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
183 |
EXTERNAL_FORCING_SURF |
relaxForcingS(i,j) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
197 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
198 |
EXTERNAL_FORCING_SURF |
& fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
200 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
201 |
EXTERNAL_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
203 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
204 |
EXTERNAL_FORCING_SURF |
& - ( Qnet(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
206 |
EXTERNAL_FORCING_SURF |
& -Qsw(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
209 |
EXTERNAL_FORCING_SURF |
& +Qnetm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
213 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
214 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
225 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
238 |
EXTERNAL_FORCING_SURF |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
249 |
EXTERNAL_FORCING_SURF |
PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
264 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
265 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
266 |
EXTERNAL_FORCING_SURF |
& *( temp_EvPrRn - theta(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
275 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
276 |
EXTERNAL_FORCING_SURF |
& + PmEpR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
277 |
EXTERNAL_FORCING_SURF |
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
299 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
300 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
301 |
EXTERNAL_FORCING_SURF |
& *( theta(i,j,ks,bi,bj) - temp_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
310 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
311 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
312 |
EXTERNAL_FORCING_SURF |
& *( salt(i,j,ks,bi,bj) - salt_EvPrRn ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
325 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
326 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
336 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
337 |
EXTERNAL_FORCING_SURF |
& + EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
355 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
375 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
376 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
383 |
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 |
404 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
405 |
EXTERNAL_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
418 |
EXTERNAL_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
46 |
EXTERNAL_FORCING_SURF |
INTEGER bi,bj |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
85 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
87 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
88 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
90 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
& *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
93 |
EXTERNAL_FORCING_SURF |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
101 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
104 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
105 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
107 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
134 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
137 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
168 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
171 |
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 |
37 |
INI_FORCING |
INTEGER bi, bj |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
43 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
46 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
47 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
48 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
50 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
51 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
52 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
54 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
55 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
56 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
57 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
58 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
62 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
63 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
64 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
65 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
66 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
67 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
68 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
69 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
70 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
71 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
72 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
73 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
74 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
75 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
77 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
78 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
81 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
82 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
86 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
94 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
98 |
INI_FORCING |
& ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
99 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
196 |
EXTERNAL_FORCING_T |
& *(COS(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
204 |
EXTERNAL_FORCING_T |
& *COS((yC(i,j,bi,bj)*deg2rad))**4 |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./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 ) |
|
./model/src/post_cg3d.F |
108 |
POST_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/post_cg3d.F |
110 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = ( tmpSurf*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
111 |
POST_CG3D |
& + Bo_surf(i,j,bi,bj)* |
|
./model/src/post_cg3d.F |
112 |
POST_CG3D |
& ( etaH(i,j,bi,bj)-etaN(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
115 |
POST_CG3D |
& *wVel(i,j,1,bi,bj) |
|
./model/src/post_cg3d.F |
135 |
POST_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/post_cg3d.F |
140 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
141 |
POST_CG3D |
& - dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
142 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
148 |
POST_CG3D |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
149 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
50 |
POST_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/post_cg3d.F |
61 |
POST_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/post_cg3d.F |
66 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/post_cg3d.F |
73 |
POST_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
75 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
77 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/post_cg3d.F |
86 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/post_cg3d.F |
92 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
93 |
POST_CG3D |
& + phi_nh(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
99 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
103 |
PRE_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/pre_cg3d.F |
105 |
PRE_CG3D |
tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) ) |
|
./model/src/pre_cg3d.F |
108 |
PRE_CG3D |
& *wVel(i,j,1,bi,bj) |
|
./model/src/pre_cg3d.F |
111 |
PRE_CG3D |
tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
113 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
115 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
118 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
128 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
130 |
PRE_CG3D |
& *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) ) |
|
./model/src/pre_cg3d.F |
131 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
133 |
PRE_CG3D |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
139 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
140 |
PRE_CG3D |
& + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
153 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
155 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
156 |
PRE_CG3D |
& +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/pre_cg3d.F |
157 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom |
|
./model/src/pre_cg3d.F |
169 |
PRE_CG3D |
uf(i,j) = -_recip_dxC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
171 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj)) |
|
./model/src/pre_cg3d.F |
172 |
PRE_CG3D |
vf(i,j) = -_recip_dyC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
174 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj)) |
|
./model/src/pre_cg3d.F |
182 |
PRE_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
183 |
PRE_CG3D |
& vf(i,OB_Jn(i,bi,bj)) = 0. |
|
./model/src/pre_cg3d.F |
185 |
PRE_CG3D |
IF (OB_Js(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
186 |
PRE_CG3D |
& vf(i,OB_Js(i,bi,bj)+1) = 0. |
|
./model/src/pre_cg3d.F |
190 |
PRE_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
191 |
PRE_CG3D |
& uf(OB_Ie(j,bi,bj),j) = 0. |
|
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
194 |
PRE_CG3D |
& uf(OB_Iw(j,bi,bj)+1,j) = 0. |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
209 |
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 |
210 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
211 |
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 |
212 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
213 |
PRE_CG3D |
& +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/pre_cg3d.F |
214 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
215 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTmom |
|
./model/src/pre_cg3d.F |
227 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
228 |
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 |
229 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
230 |
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 |
231 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
232 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
233 |
PRE_CG3D |
& -wVel(i,j,kp1,bi,bj)*wFacKp |
|
./model/src/pre_cg3d.F |
234 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTmom |
|
./model/src/pre_cg3d.F |
245 |
PRE_CG3D |
IF (OB_Jn(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
246 |
PRE_CG3D |
& cg3d_b(i,OB_Jn(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
248 |
PRE_CG3D |
IF (OB_Js(i,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
249 |
PRE_CG3D |
& cg3d_b(i,OB_Js(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
253 |
PRE_CG3D |
IF (OB_Ie(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
254 |
PRE_CG3D |
& cg3d_b(OB_Ie(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
256 |
PRE_CG3D |
IF (OB_Iw(j,bi,bj).NE.0) |
|
./model/src/pre_cg3d.F |
257 |
PRE_CG3D |
& cg3d_b(OB_Iw(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
59 |
PRE_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/pre_cg3d.F |
77 |
PRE_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/pre_cg3d.F |
89 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
90 |
PRE_CG3D |
& + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/pressure_for_eos.F |
35 |
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 |
9 |
PRESSURE_FOR_EOS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/remove_mean.F |
150 |
REMOVE_MEAN_RS |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
162 |
REMOVE_MEAN_RS |
DO bi=myBxLo(myThid),myBxHi(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 |
185 |
REMOVE_MEAN_RS |
DO bi=myBxLo(myThid),myBxHi(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 |
57 |
REMOVE_MEAN_RL |
DO bi=myBxLo(myThid),myBxHi(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 |
80 |
REMOVE_MEAN_RL |
DO bi=myBxLo(myThid),myBxHi(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/rotate_spherical_polar_grid.F |
137 |
ROTATE_SPHERICAL_POLAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/rotate_spherical_polar_grid.F |
145 |
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 |
147 |
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 |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
163 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
165 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
171 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
173 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
216 |
CALC_ANGLES |
INTEGER bi, bj |
|
./model/src/rotate_spherical_polar_grid.F |
227 |
CALC_ANGLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/rotate_spherical_polar_grid.F |
233 |
CALC_ANGLES |
IF ( _dyG(I,J,bi,bj) .GT. 0 ) uPseudo(I,J) = |
|
./model/src/rotate_spherical_polar_grid.F |
234 |
CALC_ANGLES |
& - ( yG(I,J,bi,bj) - yG(I,J+1,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
235 |
CALC_ANGLES |
& / _dyG(I,J,bi,bj) |
|
./model/src/rotate_spherical_polar_grid.F |
240 |
CALC_ANGLES |
IF ( _dxG(I,J,bi,bj) .GT. 0 ) vPseudo(I,J) = |
|
./model/src/rotate_spherical_polar_grid.F |
241 |
CALC_ANGLES |
& + ( yG(I,J,bi,bj) - yG(I+1,J,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
242 |
CALC_ANGLES |
& / _dxG(I,J,bi,bj) |
|
./model/src/rotate_spherical_polar_grid.F |
251 |
CALC_ANGLES |
angleCosC(I,J,bi,bj) = uC*uNorm |
|
./model/src/rotate_spherical_polar_grid.F |
252 |
CALC_ANGLES |
angleSinC(I,J,bi,bj) = -vC*uNorm |
|
./model/src/rotate_spherical_polar_grid.F |
59 |
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 |
258 |
ROTATE_UV2EN_RS |
do bi = mybxlo(mythid),mybxhi(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 |
77 |
ROTATE_UV2EN_RL |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./model/src/rotate_uv2en.F |
99 |
ROTATE_UV2EN_RL |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
122 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/solve_for_pressure.F |
126 |
SOLVE_FOR_PRESSURE |
etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
128 |
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 |
129 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
138 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
139 |
SOLVE_FOR_PRESSURE |
& tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom |
|
./model/src/solve_for_pressure.F |
144 |
SOLVE_FOR_PRESSURE |
tileEmP(bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
147 |
SOLVE_FOR_PRESSURE |
tileEmP(bi,bj) = tileEmP(bi,bj) |
|
./model/src/solve_for_pressure.F |
148 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
149 |
SOLVE_FOR_PRESSURE |
& *maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
160 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/solve_for_pressure.F |
167 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
168 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
176 |
SOLVE_FOR_PRESSURE |
I bi,bj,k, |
|
./model/src/solve_for_pressure.F |
184 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/solve_for_pressure.F |
190 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
192 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
193 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
195 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
196 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
197 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
198 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
200 |
SOLVE_FOR_PRESSURE |
& *( etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
212 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
213 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
214 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
216 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
222 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
223 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
224 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
226 |
SOLVE_FOR_PRESSURE |
& * etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
235 |
SOLVE_FOR_PRESSURE |
IF (OB_Jn(i,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
236 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
237 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
240 |
SOLVE_FOR_PRESSURE |
IF (OB_Js(i,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
241 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
242 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
248 |
SOLVE_FOR_PRESSURE |
IF (OB_Ie(j,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
249 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
250 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
253 |
SOLVE_FOR_PRESSURE |
IF (OB_Iw(j,bi,bj).NE.0) THEN |
|
./model/src/solve_for_pressure.F |
254 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
255 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
344 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/solve_for_pressure.F |
347 |
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 |
57 |
SOLVE_FOR_PRESSURE |
INTEGER i,j,k,bi,bj |
|
./model/src/solve_pentadiagonal.F |
100 |
SOLVE_PENTADIAGONAL |
& - b5d(i,j,k)*y5d(i,j,k-1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
122 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
123 |
SOLVE_PENTADIAGONAL |
& - b5d(i,j,k)*y5d(i,j,k-1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
124 |
SOLVE_PENTADIAGONAL |
& - a5d(i,j,k)*y5d(i,j,k-2,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
142 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj)*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
148 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
149 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
156 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
157 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
158 |
SOLVE_PENTADIAGONAL |
& - e5d(i,j,k)*y5d(i,j,k+2,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
174 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
20 |
SOLVE_PENTADIAGONAL |
I bi, bj, myThid ) |
|
./model/src/solve_pentadiagonal.F |
267 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj)=y5d_update(k) |
|
./model/src/solve_pentadiagonal.F |
61 |
SOLVE_PENTADIAGONAL |
INTEGER bi, bj, myThid |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj) = ( y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
104 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d(i,j,k-1,bi,bj) |
|
./model/src/solve_tridiagonal.F |
115 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj) = y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
116 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*bet(i,j,k)*y3d(i,j,k+1,bi,bj) |
|
./model/src/solve_tridiagonal.F |
130 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
181 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj)=y3d_update(k) |
|
./model/src/solve_tridiagonal.F |
20 |
SOLVE_TRIDIAGONAL |
I bi, bj, myThid ) |
|
./model/src/solve_tridiagonal.F |
49 |
SOLVE_TRIDIAGONAL |
INTEGER bi, bj, myThid |
|
./model/src/solve_tridiagonal.F |
97 |
SOLVE_TRIDIAGONAL |
y3d(i,j,1,bi,bj) = y3d(i,j,1,bi,bj)*bet(i,j,1) |
|
./model/src/taueddy_external_forcing.F |
105 |
TAUEDDY_EXTERNAL_FORCING_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./model/src/taueddy_external_forcing.F |
137 |
TAUEDDY_EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
15 |
TAUEDDY_EXTERNAL_FORCING_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./model/src/taueddy_external_forcing.F |
170 |
TAUEDDY_EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
173 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*GM_PsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
174 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*GM_PsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
176 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*eddyPsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
177 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*eddyPsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
179 |
TAUEDDY_EXTERNAL_FORCING_V |
& *recip_drF(klev)*_recip_hFacS(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
180 |
TAUEDDY_EXTERNAL_FORCING_V |
& *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
47 |
TAUEDDY_EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
80 |
TAUEDDY_EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
83 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*GM_PsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
84 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*GM_PsiX(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
86 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyPsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
87 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyPsiX(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
89 |
TAUEDDY_EXTERNAL_FORCING_U |
& *recip_drF(klev)*_recip_hFacW(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
90 |
TAUEDDY_EXTERNAL_FORCING_U |
& *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) |
|
./model/src/taueddy_init_varia.F |
36 |
TAUEDDY_INIT_VARIA |
INTEGER bi, bj |
|
./model/src/taueddy_init_varia.F |
42 |
TAUEDDY_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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. |
|
./model/src/thermodynamics.F |
181 |
THERMODYNAMICS |
INTEGER bi, bj |
|
./model/src/thermodynamics.F |
241 |
THERMODYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/thermodynamics.F |
244 |
THERMODYNAMICS |
act1 = bi - myBxLo(myThid) |
|
./model/src/thermodynamics.F |
285 |
THERMODYNAMICS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/thermodynamics.F |
286 |
THERMODYNAMICS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/thermodynamics.F |
308 |
THERMODYNAMICS |
gPTr(i,j,k,bi,bj,itracer) = 0. _d 0 |
|
./model/src/thermodynamics.F |
325 |
THERMODYNAMICS |
I bi, bj, 0, |
|
./model/src/thermodynamics.F |
330 |
THERMODYNAMICS |
I bi, bj, 0, |
|
./model/src/thermodynamics.F |
384 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
397 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
410 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
423 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
435 |
THERMODYNAMICS |
CALL PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
|
./model/src/thermodynamics.F |
500 |
THERMODYNAMICS |
I k,bi,bj, myThid ) |
|
./model/src/thermodynamics.F |
517 |
THERMODYNAMICS |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
518 |
THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
519 |
THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/thermodynamics.F |
530 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
534 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
553 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/thermodynamics.F |
625 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
634 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
641 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
675 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
684 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
691 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
705 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/thermodynamics.F |
714 |
THERMODYNAMICS |
I bi,bj,k, |
|
./model/src/thermodynamics.F |
733 |
THERMODYNAMICS |
CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, k, myThid ) |
|
./model/src/thermodynamics.F |
743 |
THERMODYNAMICS |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/thermodynamics.F |
751 |
THERMODYNAMICS |
I GAD_TEMPERATURE, bi, bj, kLowC, |
|
./model/src/thermodynamics.F |
762 |
THERMODYNAMICS |
I GAD_SALINITY, bi, bj, kSurfC, |
|
./model/src/thermodynamics.F |
770 |
THERMODYNAMICS |
I GAD_SALINITY, bi, bj, kLowC, |
|
./model/src/thermodynamics.F |
782 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
795 |
THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
|
./model/src/thermodynamics.F |
806 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./model/src/thermodynamics.F |
824 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
834 |
THERMODYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/thermodynamics.F |
846 |
THERMODYNAMICS |
I Nr, 3, deltaTclock, bi, bj, myThid) |
|
./model/src/thermodynamics.F |
856 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./model/src/thermodynamics.F |
875 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
885 |
THERMODYNAMICS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/thermodynamics.F |
898 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/thermodynamics.F |
906 |
THERMODYNAMICS |
CALL OBCS_APPLY_TS( bi, bj, 0, gT, gS, myThid ) |
|
./model/src/timestep.F |
116 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
117 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
130 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j) |
|
./model/src/timestep.F |
131 |
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 |
142 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
143 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
150 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
153 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
160 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j) |
|
./model/src/timestep.F |
161 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j) |
|
./model/src/timestep.F |
173 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
174 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
184 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
188 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
193 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
197 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
209 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
210 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
217 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
220 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
227 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j) |
|
./model/src/timestep.F |
228 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j) |
|
./model/src/timestep.F |
253 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
254 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
270 |
TIMESTEP |
I bi,bj,k, dPhiHydX,dPhiHydY, gUtmp,gVtmp, |
|
./model/src/timestep.F |
275 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
277 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
285 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
286 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
300 |
TIMESTEP |
gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj) |
|
./model/src/timestep.F |
301 |
TIMESTEP |
gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj) |
|
./model/src/timestep.F |
310 |
TIMESTEP |
& /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/timestep.F |
312 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
315 |
TIMESTEP |
& /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/timestep.F |
317 |
TIMESTEP |
& *recip_hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
325 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
327 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/timestep.F |
329 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
331 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/timestep.F |
360 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
361 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
362 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) ) |
|
./model/src/timestep.F |
365 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
366 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
367 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) ) |
|
./model/src/timestep.F |
375 |
TIMESTEP |
& - nhFac*_recip_dxC(i,j,bi,bj)* |
|
./model/src/timestep.F |
376 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
378 |
TIMESTEP |
& - nhFac*_recip_dyC(i,j,bi,bj)* |
|
./model/src/timestep.F |
379 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
389 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
394 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
401 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
406 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
412 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gUext,'Um_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
413 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gVext,'Vm_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
417 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
418 |
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 |
10 |
TIMESTEP_TRACER |
I bi, bj, iMin, iMax, jMin, jMax, K, |
|
./model/src/timestep_tracer.F |
30 |
TIMESTEP_TRACER |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/timestep_tracer.F |
47 |
TIMESTEP_TRACER |
gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj) |
|
./model/src/timestep_tracer.F |
48 |
TIMESTEP_TRACER |
& +deltaTloc*gTracer(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/timestep_wvel.F |
11 |
TIMESTEP_WVEL |
I bi,bj, myTime, myIter, myThid ) |
|
./model/src/timestep_wvel.F |
124 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
32 |
TIMESTEP_WVEL |
INTEGER bi,bj |
|
./model/src/timestep_wvel.F |
69 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
71 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
77 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
79 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/timestep_wvel.F |
87 |
TIMESTEP_WVEL |
gWtmp(i,j) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
88 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/timestep_wvel.F |
89 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
98 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/tracers_correction_step.F |
126 |
TRACERS_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/tracers_correction_step.F |
136 |
TRACERS_CORRECTION_STEP |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./model/src/tracers_correction_step.F |
143 |
TRACERS_CORRECTION_STEP |
I bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
148 |
TRACERS_CORRECTION_STEP |
& CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid ) |
|
./model/src/tracers_correction_step.F |
54 |
TRACERS_CORRECTION_STEP |
INTEGER bi,bj |
|
./model/src/tracers_correction_step.F |
59 |
TRACERS_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/tracers_correction_step.F |
64 |
TRACERS_CORRECTION_STEP |
I bi,bj, |
|
./model/src/tracers_correction_step.F |
69 |
TRACERS_CORRECTION_STEP |
I bi,bj, |
|
./model/src/tracers_correction_step.F |
76 |
TRACERS_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
|
./model/src/tracers_correction_step.F |
82 |
TRACERS_CORRECTION_STEP |
CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,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 |
100 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
101 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
102 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
103 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
106 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
107 |
UPDATE_CG2D |
IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
108 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj)+1,J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./model/src/update_cg2d.F |
115 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
117 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
125 |
UPDATE_CG2D |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
aC2d(I,J,bi,bj) = -( |
|
./model/src/update_cg2d.F |
127 |
UPDATE_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/update_cg2d.F |
128 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
129 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
130 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/update_cg2d.F |
137 |
UPDATE_CG2D |
aC2d(I,J,bi,bj) = -( |
|
./model/src/update_cg2d.F |
138 |
UPDATE_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/update_cg2d.F |
156 |
UPDATE_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/update_cg2d.F |
159 |
UPDATE_CG2D |
IF ( aC2d(I,J,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
160 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
162 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / aC2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
164 |
UPDATE_CG2D |
pW_tmp = aC2d(I,J,bi,bj)+aC2d(I-1,J,bi,bj) |
|
./model/src/update_cg2d.F |
166 |
UPDATE_CG2D |
pW(I,J,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
168 |
UPDATE_CG2D |
pW(I,J,bi,bj) = |
|
./model/src/update_cg2d.F |
169 |
UPDATE_CG2D |
& -aW2d(I,J,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
171 |
UPDATE_CG2D |
pS_tmp = aC2d(I,J,bi,bj)+aC2d(I,J-1,bi,bj) |
|
./model/src/update_cg2d.F |
173 |
UPDATE_CG2D |
pS(I,J,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
175 |
UPDATE_CG2D |
pS(I,J,bi,bj) = |
|
./model/src/update_cg2d.F |
176 |
UPDATE_CG2D |
& -aS2d(I,J,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
53 |
UPDATE_CG2D |
INTEGER bi, bj |
|
./model/src/update_cg2d.F |
72 |
UPDATE_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
76 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
83 |
UPDATE_CG2D |
faceArea = _dyG(I,J,bi,bj)*drF(K) |
|
./model/src/update_cg2d.F |
84 |
UPDATE_CG2D |
& *_hFacW(I,J,K,bi,bj) |
|
./model/src/update_cg2d.F |
85 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
& + faceArea*recip_dxC(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
faceArea = _dxG(I,J,bi,bj)*drF(K) |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
& *_hFacS(I,J,K,bi,bj) |
|
./model/src/update_cg2d.F |
89 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
90 |
UPDATE_CG2D |
& + faceArea*recip_dyC(I,J,bi,bj) |
|
./model/src/update_etah.F |
111 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/update_etah.F |
117 |
UPDATE_ETAH |
dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj) |
|
./model/src/update_etah.F |
118 |
UPDATE_ETAH |
dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj) |
|
./model/src/update_etah.F |
124 |
UPDATE_ETAH |
etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj) |
|
./model/src/update_etah.F |
125 |
UPDATE_ETAH |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etah.F |
126 |
UPDATE_ETAH |
etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj) |
|
./model/src/update_etah.F |
127 |
UPDATE_ETAH |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etah.F |
147 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/update_etah.F |
152 |
UPDATE_ETAH |
dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj) |
|
./model/src/update_etah.F |
153 |
UPDATE_ETAH |
& - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_etah.F |
154 |
UPDATE_ETAH |
dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj) |
|
./model/src/update_etah.F |
155 |
UPDATE_ETAH |
& - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf |
|
./model/src/update_etah.F |
45 |
UPDATE_ETAH |
INTEGER i,j,bi,bj |
|
./model/src/update_etah.F |
50 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./model/src/update_etah.F |
57 |
UPDATE_ETAH |
etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/update_etah.F |
67 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
74 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
75 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/update_etah.F |
91 |
UPDATE_ETAH |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
|
./model/src/update_masks_etc.F |
121 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_masks_etc.F |
124 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
126 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
127 |
UPDATE_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
173 |
UPDATE_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_masks_etc.F |
177 |
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 |
179 |
UPDATE_MASKS_ETC |
IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
180 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
182 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
199 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_masks_etc.F |
209 |
UPDATE_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
213 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
216 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
218 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
220 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
IF (DXG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
224 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
229 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
231 |
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 bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_masks_etc.F |
296 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
298 |
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 |
301 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
304 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
306 |
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 |
309 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
312 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
314 |
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 |
317 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
338 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
339 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
342 |
UPDATE_MASKS_ETC |
IF (maskW(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
346 |
UPDATE_MASKS_ETC |
IF (maskS(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_masks_etc.F |
347 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
50 |
UPDATE_MASKS_ETC |
INTEGER bi, bj |
|
./model/src/update_masks_etc.F |
66 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_masks_etc.F |
73 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
75 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
88 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_r_star.F |
100 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
101 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
103 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
107 |
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 |
108 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
109 |
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 |
110 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
111 |
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 |
46 |
UPDATE_R_STAR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_r_star.F |
50 |
UPDATE_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
act1 = bi - myBxLo(myThid) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
I bi, bj, |
|
./model/src/update_r_star.F |
90 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
91 |
UPDATE_R_STAR |
& *rStarFacC(i,j,bi,bj) |
|
./model/src/update_r_star.F |
92 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
93 |
UPDATE_R_STAR |
& *rStarFacW(i,j,bi,bj) |
|
./model/src/update_r_star.F |
94 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
95 |
UPDATE_R_STAR |
& *rStarFacS(i,j,bi,bj) |
|
./model/src/update_r_star.F |
99 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
103 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
104 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHc(i,j,bi,bj) |
|
./model/src/update_sigma.F |
105 |
UPDATE_SIGMA |
& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
118 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
129 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
130 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHw(i,j,bi,bj) |
|
./model/src/update_sigma.F |
131 |
UPDATE_SIGMA |
& + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
144 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
155 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
156 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHs(i,j,bi,bj) |
|
./model/src/update_sigma.F |
157 |
UPDATE_SIGMA |
& + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/update_sigma.F |
166 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
170 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
54 |
UPDATE_SIGMA |
INTEGER bi, bj |
|
./model/src/update_sigma.F |
65 |
UPDATE_SIGMA |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_surf_dr.F |
102 |
UPDATE_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
104 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
105 |
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 |
111 |
UPDATE_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
113 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
114 |
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 |
46 |
UPDATE_SURF_DR |
INTEGER i,j,bi,bj |
|
./model/src/update_surf_dr.F |
51 |
UPDATE_SURF_DR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./model/src/update_surf_dr.F |
54 |
UPDATE_SURF_DR |
act1 = bi - myBxLo(myThid) |
|
./model/src/update_surf_dr.F |
80 |
UPDATE_SURF_DR |
I bi, bj, |
|
./model/src/update_surf_dr.F |
89 |
UPDATE_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
91 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
92 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/write_grid.F |
48 |
WRITE_GRID |
INTEGER i,j,k,bi,bj |
|
./model/src/write_grid.F |
59 |
WRITE_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./model/src/write_grid.F |
63 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./optim/optim_readdata.F |
242 |
OPTIM_READDATA |
& bi,bj |
|
./optim/optim_readdata.F |
258 |
OPTIM_READDATA |
do bi = 1,nsx |
|
./optim/optim_readdata.F |
65 |
OPTIM_READDATA |
integer bi,bj |
|
./optim/optim_writedata.F |
184 |
OPTIM_WRITEDATA |
do bi = 1,nsx |
|
./optim/optim_writedata.F |
187 |
OPTIM_WRITEDATA |
write( funit ) bi |
|
./optim/optim_writedata.F |
54 |
OPTIM_WRITEDATA |
integer bi,bj |
|
./pkg/admtlm/admtlm_bypassad.F |
100 |
ADMTLM_BYPASSAD |
& + adetan(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
112 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
130 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
148 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
166 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
73 |
ADMTLM_BYPASSAD |
DO bi = itlo, ithi |
|
./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 |
96 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
35 |
ADMTLM_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(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 |
32 |
ADMTLM_MAP |
DO bi=myBxLo(myThid),myBxHi(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 |
52 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(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 |
74 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
105 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
106 |
ATM_APPLY_IMPORT |
v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
120 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
124 |
ATM_APPLY_IMPORT |
aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/aim_compon_interf/atm_apply_import.F |
125 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
128 |
ATM_APPLY_IMPORT |
aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K |
|
./pkg/aim_compon_interf/atm_apply_import.F |
13 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
54 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_compon_interf/atm_apply_import.F |
72 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
83 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
84 |
ATM_APPLY_IMPORT |
tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
94 |
ATM_APPLY_IMPORT |
IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
95 |
ATM_APPLY_IMPORT |
sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
41 |
ATM_CPL_READ_PICKUP |
INTEGER i,j,bi,bj |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
84 |
ATM_CPL_READ_PICKUP |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
87 |
ATM_CPL_READ_PICKUP |
EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
88 |
ATM_CPL_READ_PICKUP |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/aim_compon_interf/atm_export_atmconfig.F |
37 |
ATM_EXPORT_ATMCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/aim_compon_interf/atm_export_atmconfig.F |
44 |
ATM_EXPORT_ATMCONFIG |
DO bi = 1,nSx |
|
./pkg/aim_compon_interf/atm_export_atmconfig.F |
49 |
ATM_EXPORT_ATMCONFIG |
tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_export_fld.F |
53 |
ATM_EXPORT_FLD |
INTEGER i,j,bi,bj |
|
./pkg/aim_compon_interf/atm_export_fld.F |
57 |
ATM_EXPORT_FLD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_compon_interf/atm_export_fld.F |
58 |
ATM_EXPORT_FLD |
IF ( ABS(countTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/aim_compon_interf/atm_export_fld.F |
59 |
ATM_EXPORT_FLD |
& .AND. countTime(bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_export_fld.F |
60 |
ATM_EXPORT_FLD |
recipAvT = 1. _d 0/countTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_fld.F |
63 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT |
|
./pkg/aim_compon_interf/atm_export_fld.F |
68 |
ATM_EXPORT_FLD |
& bi,bj,1.-countTime(bi,bj) |
|
./pkg/aim_compon_interf/atm_export_fld.F |
84 |
ATM_EXPORT_FLD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_compon_interf/atm_export_fld.F |
85 |
ATM_EXPORT_FLD |
countTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/atm_export_fld.F |
88 |
ATM_EXPORT_FLD |
atmFld(i,j,bi,bj) = 0. |
|
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
39 |
ATM_IMPORT_OCNCONFIG |
INTEGER i,j,bi,bj |
|
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
43 |
ATM_IMPORT_OCNCONFIG |
DO bi=myBxLo(myThid),myByLo(myThid) |
|
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
46 |
ATM_IMPORT_OCNCONFIG |
ocMxlD (i,j,bi,bj) = 0. |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
13 |
ATM_STORE_AIRCO2 |
SUBROUTINE ATM_STORE_AIRCO2( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
51 |
ATM_STORE_AIRCO2 |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
67 |
ATM_STORE_AIRCO2 |
airCO2Time(bi,bj) = airCO2Time(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
71 |
ATM_STORE_AIRCO2 |
airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
36 |
ATM_STORE_ATMSLP |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
51 |
ATM_STORE_ATMSLP |
atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
54 |
ATM_STORE_ATMSLP |
atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
55 |
ATM_STORE_ATMSLP |
& + etaN(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
7 |
ATM_STORE_ATMSLP |
SUBROUTINE ATM_STORE_ATMSLP( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
36 |
ATM_STORE_EVMPR |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
54 |
ATM_STORE_EVMPR |
EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
57 |
ATM_STORE_EVMPR |
EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
58 |
ATM_STORE_EVMPR |
& + EmPmR(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
7 |
ATM_STORE_EVMPR |
SUBROUTINE ATM_STORE_EVMPR( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
10 |
ATM_STORE_FRACICE |
SUBROUTINE ATM_STORE_FRACICE( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
45 |
ATM_STORE_FRACICE |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
60 |
ATM_STORE_FRACICE |
fracIceTime(bi,bj) = fracIceTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
63 |
ATM_STORE_FRACICE |
fracIce(i,j,bi,bj) = fracIce(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_fracice.F |
64 |
ATM_STORE_FRACICE |
& + iceMask(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
36 |
ATM_STORE_HEATFLUX |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
62 |
ATM_STORE_HEATFLUX |
HeatFluxTime(bi,bj) = HeatFluxTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
65 |
ATM_STORE_HEATFLUX |
HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
66 |
ATM_STORE_HEATFLUX |
& + Qnet(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
7 |
ATM_STORE_HEATFLUX |
SUBROUTINE ATM_STORE_HEATFLUX( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
37 |
ATM_STORE_MY_DATA |
INTEGER bi,bj |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
47 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
48 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
49 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
57 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
59 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
60 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
63 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
64 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
67 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_WSPEED( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
69 |
ATM_STORE_MY_DATA |
& CALL ATM_STORE_FRACICE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
70 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIRCO2( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
9 |
ATM_STORE_MY_DATA |
SUBROUTINE ATM_STORE_MY_DATA( bi,bj, |
|
./eesupp/src/exch_cycle_ebl.F |
50 |
EXCH_CYCLE_EBL |
INTEGER bi, bj |
|
./eesupp/src/exch_cycle_ebl.F |
54 |
EXCH_CYCLE_EBL |
DO bi=myBxLo(myThid),myBxHi(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_compon_interf/atm_store_qshortwave.F |
36 |
ATM_STORE_QSHORTWAVE |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
52 |
ATM_STORE_QSHORTWAVE |
qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
55 |
ATM_STORE_QSHORTWAVE |
qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
56 |
ATM_STORE_QSHORTWAVE |
& + Qsw(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
7 |
ATM_STORE_QSHORTWAVE |
SUBROUTINE ATM_STORE_QSHORTWAVE(bi,bj, |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
45 |
ATM_STORE_ROENFX |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
60 |
ATM_STORE_ROENFX |
ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
63 |
ATM_STORE_ROENFX |
RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
64 |
ATM_STORE_ROENFX |
& + land_enRnOf(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
8 |
ATM_STORE_ROENFX |
SUBROUTINE ATM_STORE_ROENFX( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
45 |
ATM_STORE_RUNOFF |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
61 |
ATM_STORE_RUNOFF |
RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
64 |
ATM_STORE_RUNOFF |
RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
65 |
ATM_STORE_RUNOFF |
& + land_runOff(I,J,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
8 |
ATM_STORE_RUNOFF |
SUBROUTINE ATM_STORE_RUNOFF( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
36 |
ATM_STORE_SALTFX |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
51 |
ATM_STORE_SALTFX |
saltFxTime(bi,bj) = saltFxTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
54 |
ATM_STORE_SALTFX |
iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
55 |
ATM_STORE_SALTFX |
& + saltFlux(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
7 |
ATM_STORE_SALTFX |
SUBROUTINE ATM_STORE_SALTFX( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
40 |
ATM_STORE_SEAICE |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
55 |
ATM_STORE_SEAICE |
seaIceTime(bi,bj) = seaIceTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
58 |
ATM_STORE_SEAICE |
seaIceTime(bi,bj) = cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
62 |
ATM_STORE_SEAICE |
seaIceMass(i,j,bi,bj) = |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
63 |
ATM_STORE_SEAICE |
& ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
64 |
ATM_STORE_SEAICE |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
65 |
ATM_STORE_SEAICE |
& )*iceMask(i,j,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
8 |
ATM_STORE_SEAICE |
SUBROUTINE ATM_STORE_SEAICE( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_taux.F |
42 |
ATM_STORE_TAUX |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_taux.F |
60 |
ATM_STORE_TAUX |
tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_taux.F |
67 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
69 |
ATM_STORE_TAUX |
& ( aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
70 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
71 |
ATM_STORE_TAUX |
& + aim_drag( i ,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
72 |
ATM_STORE_TAUX |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
73 |
ATM_STORE_TAUX |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
74 |
ATM_STORE_TAUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
7 |
ATM_STORE_TAUX |
SUBROUTINE ATM_STORE_TAUX( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_taux.F |
86 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
88 |
ATM_STORE_TAUX |
& ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
89 |
ATM_STORE_TAUX |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
90 |
ATM_STORE_TAUX |
tauX(i,j,bi,bj) = tauX(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
42 |
ATM_STORE_TAUY |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
60 |
ATM_STORE_TAUY |
tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
67 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
69 |
ATM_STORE_TAUY |
& ( aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
70 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
71 |
ATM_STORE_TAUY |
& + aim_drag(i, j ,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
72 |
ATM_STORE_TAUY |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
73 |
ATM_STORE_TAUY |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
74 |
ATM_STORE_TAUY |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
7 |
ATM_STORE_TAUY |
SUBROUTINE ATM_STORE_TAUY( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
86 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
88 |
ATM_STORE_TAUY |
& ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
89 |
ATM_STORE_TAUY |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
90 |
ATM_STORE_TAUY |
tauY(i,j,bi,bj) = tauY(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
10 |
ATM_STORE_WSPEED |
SUBROUTINE ATM_STORE_WSPEED( bi,bj, |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
48 |
ATM_STORE_WSPEED |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
63 |
ATM_STORE_WSPEED |
sWSpeedTime(bi,bj) = sWSpeedTime(bi,bj) + cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
67 |
ATM_STORE_WSPEED |
sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Ro_surf(I,J,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
103 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',ocMxlD(I,J,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
50 |
CPL_EXCH_CONFIGS |
INTEGER I,J,K,bi,bj |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
86 |
CPL_EXCH_CONFIGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
89 |
CPL_EXCH_CONFIGS |
IF ( ocMxlD(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
90 |
CPL_EXCH_CONFIGS |
& Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
93 |
CPL_EXCH_CONFIGS |
biDiff = bi |
|
./eesupp/src/exch_init.F |
29 |
EXCH_INIT |
INTEGER bi, bj |
|
./eesupp/src/exch_init.F |
33 |
EXCH_INIT |
DO bi=1,nSx |
|
./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_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER I,J,bi,bj |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
48 |
CPL_INI_VARS |
DO bi=myBxLo(myThid),myByLo(myThid) |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
atmSLPr( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
HeatFlux( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
tauX( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
tauY( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
62 |
CPL_INI_VARS |
EvMPrFlux( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
63 |
CPL_INI_VARS |
RunOffFlux(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
RunOffEnFx(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
iceSaltFlx(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
66 |
CPL_INI_VARS |
seaIceMass(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
airCO2 (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
sWSpeed (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
fracIce (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
SSTocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
SSSocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
vSqocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
flxCO2ocn(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
78 |
CPL_INI_VARS |
atmSLPrTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
79 |
CPL_INI_VARS |
HeatFluxTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
80 |
CPL_INI_VARS |
qShortwaveTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
86 |
CPL_INI_VARS |
tauXTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
87 |
CPL_INI_VARS |
tauYTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
88 |
CPL_INI_VARS |
EvMPrTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
89 |
CPL_INI_VARS |
RunOffTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
90 |
CPL_INI_VARS |
ROEnFxTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
saltFxTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
92 |
CPL_INI_VARS |
seaIceTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
93 |
CPL_INI_VARS |
airCO2Time(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
94 |
CPL_INI_VARS |
sWSpeedTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
95 |
CPL_INI_VARS |
fracIceTime(bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_register.F |
43 |
CPL_REGISTER |
INTEGER bi, bj |
|
./pkg/aim_compon_interf/cpl_register.F |
50 |
CPL_REGISTER |
DO bi=1,nSx |
|
./pkg/aim_compon_interf/cpl_register.F |
52 |
CPL_REGISTER |
iG0 = myXGlobalLo+(bi-1)*sNx |
|
./pkg/aim_compon_interf/cpl_register.F |
53 |
CPL_REGISTER |
iReg(1,bi,bj) = sNx |
|
./pkg/aim_compon_interf/cpl_register.F |
54 |
CPL_REGISTER |
iReg(2,bi,bj) = sNy |
|
./pkg/aim_compon_interf/cpl_register.F |
55 |
CPL_REGISTER |
iReg(3,bi,bj) = iG0 |
|
./pkg/aim_compon_interf/cpl_register.F |
56 |
CPL_REGISTER |
iReg(4,bi,bj) = jG0 |
|
./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/aim_aim2dyn.F |
103 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
10 |
AIM_AIM2DYN |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
110 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
119 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
131 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
132 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
133 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
134 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
135 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
136 |
AIM_AIM2DYN |
& /rStarExpC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_aim2dyn.F |
143 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
144 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
145 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
146 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
148 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
149 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
150 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
151 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
162 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
164 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
165 |
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_exchanges.F |
50 |
AIM_AIM2DYN_EXCHANGES |
INTEGER bi,bj |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
74 |
AIM_AIM2DYN_EXCHANGES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
75 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
76 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, 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 |
100 |
AIM_AIM2SIOCE |
IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
104 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
117 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_aim2sioce.F |
124 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
128 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
144 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
150 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
152 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
153 |
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 |
162 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
166 |
AIM_AIM2SIOCE |
sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
171 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = prcAtm(i,j)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
174 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
190 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
194 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
201 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
206 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
221 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
232 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
233 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
78 |
AIM_AIM2SIOCE |
INTEGER bi, bj, myIter, 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) |
|
./pkg/aim_v23/aim_diagnostics.F |
101 |
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 |
128 |
AIM_DIAGNOSTICS |
IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
136 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
137 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
139 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
140 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
141 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
142 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
143 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
164 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
168 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
170 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 2, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
172 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 3, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 4, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
176 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 5, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
178 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 6, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
180 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 7, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
182 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 8, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
184 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 9, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
186 |
AIM_DIAGNOSTICS |
& 1, bi, bj,10, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
188 |
AIM_DIAGNOSTICS |
& 1, bi, bj,11, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
190 |
AIM_DIAGNOSTICS |
& 1, bi, bj,12, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
192 |
AIM_DIAGNOSTICS |
& 1, bi, bj,13, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
194 |
AIM_DIAGNOSTICS |
& 1, bi, bj,14, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
196 |
AIM_DIAGNOSTICS |
& 1, bi, bj,15, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
198 |
AIM_DIAGNOSTICS |
& 1, bi, bj,16, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
200 |
AIM_DIAGNOSTICS |
& 1, bi, bj,17, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
202 |
AIM_DIAGNOSTICS |
& 1, bi, bj,18, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& 1, bi, bj,19, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& 1, bi, bj,20, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
& 1, bi, bj,21, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
& 1, bi, bj,22, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
230 |
AIM_DIAGNOSTICS |
IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_diagnostics.F |
238 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
240 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
242 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
244 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
246 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
248 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
250 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
252 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
254 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
256 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
258 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
260 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
262 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
264 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
266 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
268 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
270 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
272 |
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 |
311 |
AIM_DIAGNOSTICS |
TSRtave(i,j,bi,bj) = TSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
313 |
AIM_DIAGNOSTICS |
OLRtave(i,j,bi,bj) = OLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
315 |
AIM_DIAGNOSTICS |
SSRtave(i,j,bi,bj) = SSRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
317 |
AIM_DIAGNOSTICS |
SLRtave(i,j,bi,bj) = SLRtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
319 |
AIM_DIAGNOSTICS |
SHFtave(i,j,bi,bj) = SHFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
321 |
AIM_DIAGNOSTICS |
EVAPtave(i,j,bi,bj) = EVAPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
323 |
AIM_DIAGNOSTICS |
PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
325 |
AIM_DIAGNOSTICS |
PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
327 |
AIM_DIAGNOSTICS |
CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
329 |
AIM_DIAGNOSTICS |
CLTOPtave(i,j,bi,bj) = CLTOPtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
331 |
AIM_DIAGNOSTICS |
CBMFtave(i,j,bi,bj) = CBMFtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
333 |
AIM_DIAGNOSTICS |
DRAGtave(i,j,bi,bj) = DRAGtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
335 |
AIM_DIAGNOSTICS |
aimV0tave(i,j,bi,bj) = aimV0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
337 |
AIM_DIAGNOSTICS |
aimT0tave(i,j,bi,bj) = aimT0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
339 |
AIM_DIAGNOSTICS |
aimQ0tave(i,j,bi,bj) = aimQ0tave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
341 |
AIM_DIAGNOSTICS |
EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
345 |
AIM_DIAGNOSTICS |
albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
347 |
AIM_DIAGNOSTICS |
dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
358 |
AIM_DIAGNOSTICS |
aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_diagnostics.F |
365 |
AIM_DIAGNOSTICS |
aim_timeAve(bi,bj) = aim_timeAve(bi,bj)+DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
376 |
AIM_DIAGNOSTICS |
& 'RADSW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
378 |
AIM_DIAGNOSTICS |
& 'RADLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
380 |
AIM_DIAGNOSTICS |
& 'DTCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
382 |
AIM_DIAGNOSTICS |
& 'TURBT ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
384 |
AIM_DIAGNOSTICS |
& 'DTLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
386 |
AIM_DIAGNOSTICS |
& 'DQCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
388 |
AIM_DIAGNOSTICS |
& 'TURBQ ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
390 |
AIM_DIAGNOSTICS |
& 'DQLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
392 |
AIM_DIAGNOSTICS |
& 'RELHUM ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
394 |
AIM_DIAGNOSTICS |
& 'TSR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
396 |
AIM_DIAGNOSTICS |
& 'OLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
398 |
AIM_DIAGNOSTICS |
& 'RADSWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
400 |
AIM_DIAGNOSTICS |
& 'RADLWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
402 |
AIM_DIAGNOSTICS |
& 'HFLUX ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
404 |
AIM_DIAGNOSTICS |
& 'EVAP ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
406 |
AIM_DIAGNOSTICS |
& 'PRECON ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
408 |
AIM_DIAGNOSTICS |
& 'PRECLS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
410 |
AIM_DIAGNOSTICS |
& 'CLDFRC ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
412 |
AIM_DIAGNOSTICS |
& 'CLDPRS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
416 |
AIM_DIAGNOSTICS |
& 'CLDMAS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
418 |
AIM_DIAGNOSTICS |
& 'DRAG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
41 |
AIM_DIAGNOSTICS |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_diagnostics.F |
420 |
AIM_DIAGNOSTICS |
& 'WINDS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
422 |
AIM_DIAGNOSTICS |
& 'TS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
424 |
AIM_DIAGNOSTICS |
& 'QS ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
431 |
AIM_DIAGNOSTICS |
& 'ENPREC ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
434 |
AIM_DIAGNOSTICS |
& 'ALBVISDF', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
436 |
AIM_DIAGNOSTICS |
& 'DTSIMPL ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
440 |
AIM_DIAGNOSTICS |
& 'SWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
442 |
AIM_DIAGNOSTICS |
& 'LWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
444 |
AIM_DIAGNOSTICS |
& 'TSRCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
446 |
AIM_DIAGNOSTICS |
& 'OLRCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
448 |
AIM_DIAGNOSTICS |
& 'SWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
450 |
AIM_DIAGNOSTICS |
& 'LWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
87 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
89 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
91 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
93 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
95 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
99 |
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 |
49 |
AIM_DO_CO2 |
INTEGER bi, bj, i, j |
|
./pkg/aim_v23/aim_do_co2.F |
64 |
AIM_DO_CO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
67 |
AIM_DO_CO2 |
aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
85 |
AIM_DO_CO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
86 |
AIM_DO_CO2 |
flxCO2tile(bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_do_co2.F |
89 |
AIM_DO_CO2 |
flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_co2.F |
90 |
AIM_DO_CO2 |
& * rA(i,j,bi,bj) * deltaT |
|
./pkg/aim_v23/aim_do_physics.F |
105 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
121 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
127 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
136 |
AIM_DO_PHYSICS |
CALL SFLSET (PHI0, fOrogr(1,myThid), bi,bj,myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
144 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
146 |
AIM_DO_PHYSICS |
CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
151 |
AIM_DO_PHYSICS |
CALL AIM_AIM2LAND( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
155 |
AIM_DO_PHYSICS |
CALL LAND_STEPFWD( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
159 |
AIM_DO_PHYSICS |
CALL LAND_DO_DIAGS( aim_landFr, bi, bj, |
|
./pkg/aim_v23/aim_do_physics.F |
169 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
175 |
AIM_DO_PHYSICS |
CALL THSICE_STEP_FWD( bi, bj, 1, sNx, 1, sNy, |
|
./pkg/aim_v23/aim_do_physics.F |
183 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
186 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
193 |
AIM_DO_PHYSICS |
CALL ATM_STORE_MY_DATA( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
198 |
AIM_DO_PHYSICS |
CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_physics.F |
72 |
AIM_DO_PHYSICS |
INTEGER bi,bj |
|
./pkg/aim_v23/aim_do_physics.F |
86 |
AIM_DO_PHYSICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
92 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
94 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
95 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
96 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
97 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
I bi,bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
112 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
123 |
AIM_DYN2AIM |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
124 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
142 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
165 |
AIM_DYN2AIM |
IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
169 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(I,J,K,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
175 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
189 |
AIM_DYN2AIM |
K = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
192 |
AIM_DYN2AIM |
& uVel(I,J,K,bi,bj)*uVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
193 |
AIM_DYN2AIM |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
194 |
AIM_DYN2AIM |
& + vVel(I,J,K,bi,bj)*vVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
195 |
AIM_DYN2AIM |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
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 |
252 |
AIM_DYN2AIM |
& 1, bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
51 |
AIM_DYN2AIM |
INTEGER bi, bj, myIter, myThid |
|
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
93 |
AIM_DYN2AIM |
K = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_po |
|
./pkg/aim_v23/aim_fields_load.F |
164 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
170 |
AIM_FIELDS_LOAD |
aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100. |
|
./pkg/aim_v23/aim_fields_load.F |
187 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
188 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
211 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
215 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj)= 0. |
|
./pkg/aim_v23/aim_fields_load.F |
216 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
217 |
AIM_FIELDS_LOAD |
aim_sst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
218 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
219 |
AIM_FIELDS_LOAD |
aim_oic0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
220 |
AIM_FIELDS_LOAD |
aim_snw0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
221 |
AIM_FIELDS_LOAD |
aim_sw10(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
222 |
AIM_FIELDS_LOAD |
aim_sw20(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
223 |
AIM_FIELDS_LOAD |
aim_qfx0(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
224 |
AIM_FIELDS_LOAD |
aim_sst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
225 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) =300. |
|
./pkg/aim_v23/aim_fields_load.F |
226 |
AIM_FIELDS_LOAD |
aim_oic1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
227 |
AIM_FIELDS_LOAD |
aim_snw1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
228 |
AIM_FIELDS_LOAD |
aim_sw11(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
229 |
AIM_FIELDS_LOAD |
aim_sw21(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
230 |
AIM_FIELDS_LOAD |
aim_qfx1(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_fields_load.F |
307 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_fields_load.F |
314 |
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 |
322 |
AIM_FIELDS_LOAD |
aim_veget(i,j,bi,bj) = |
|
./pkg/aim_v23/aim_fields_load.F |
323 |
AIM_FIELDS_LOAD |
& MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0) |
|
./pkg/aim_v23/aim_fields_load.F |
334 |
AIM_FIELDS_LOAD |
aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
335 |
AIM_FIELDS_LOAD |
& * truncSurfP(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
336 |
AIM_FIELDS_LOAD |
aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj) |
|
./pkg/aim_v23/aim_fields_load.F |
337 |
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 |
107 |
AIM_INITIALISE |
DO bi = myBxLo(myThid), myBxHi(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 |
85 |
AIM_INITIALISE |
DO bi = myBxLo(myThid), myBxHi(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 |
|
./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) |
|
./pkg/aim_v23/aim_sice2aim.F |
101 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
102 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
103 |
AIM_SICE2AIM |
Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
104 |
AIM_SICE2AIM |
iceMask(i,j,bi,bj) = aimSIfrc(i,j) |
|
./pkg/aim_v23/aim_sice2aim.F |
112 |
AIM_SICE2AIM |
I bi, bj, siLo, siHi, sjLo, sjHi, |
|
./pkg/aim_v23/aim_sice2aim.F |
114 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
115 |
AIM_SICE2AIM |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
116 |
AIM_SICE2AIM |
I snowAge(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
117 |
AIM_SICE2AIM |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
121 |
AIM_SICE2AIM |
aimAlb(i,j) = siceAlb(i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
145 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
146 |
AIM_SICE2AIM |
tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
147 |
AIM_SICE2AIM |
sOceMxL(i,j,bi,bj) = sMxL_default |
|
./pkg/aim_v23/aim_sice2aim.F |
154 |
AIM_SICE2AIM |
& tOceMxL(1-Olx,1-Oly,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
155 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
157 |
AIM_SICE2AIM |
& sOceMxL(1-Olx,1-Oly,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
158 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_sice2aim.F |
164 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
165 |
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 |
76 |
AIM_SICE2AIM |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
94 |
AIM_SICE2AIM |
aimSIfrc(i,j) = iceMask(i,j,bi,bj) |
|
./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 |
374 |
AIM_SURF_BC |
& 'aim_pCO2', 1, 1, 3, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
385 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
396 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_surf_bc.F |
68 |
AIM_SURF_BC |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
103 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
105 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
106 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
107 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
108 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
110 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
111 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
122 |
AIM_TENDENCY_APPLY_U |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
128 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
130 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
142 |
AIM_TENDENCY_APPLY_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
167 |
AIM_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
16 |
AIM_TENDENCY_APPLY_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
190 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
191 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
202 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
204 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
205 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& *vVel(i,j,kLev,bi,bj)*hFacS(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
213 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
215 |
AIM_TENDENCY_APPLY_V |
& -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
216 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
217 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
219 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
220 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
221 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
228 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
229 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
231 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,kLev-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
232 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,kLev-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
233 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
234 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
236 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
237 |
AIM_TENDENCY_APPLY_V |
aim_vStress(i,j,bi,bj) = vStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
238 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
248 |
AIM_TENDENCY_APPLY_V |
& deltaTclock, bi, bj, myThid ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
254 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
256 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
268 |
AIM_TENDENCY_APPLY_T |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
291 |
AIM_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
304 |
AIM_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
305 |
AIM_TENDENCY_APPLY_T |
& *( gT(i,j,kLev,bi,bj) + aim_dTdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
317 |
AIM_TENDENCY_APPLY_S |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
340 |
AIM_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
354 |
AIM_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
355 |
AIM_TENDENCY_APPLY_S |
& *( gS(i,j,kLev,bi,bj) + aim_dSdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
41 |
AIM_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
64 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
65 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
76 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
78 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
79 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
& *uVel(i,j,kLev,bi,bj)*hFacW(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
87 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
89 |
AIM_TENDENCY_APPLY_U |
& -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
90 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
91 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
93 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
94 |
AIM_TENDENCY_APPLY_U |
aim_uStress(i,j,bi,bj) = uStr_tmp |
|
./pkg/aim_v23/aim_tendency_apply.F |
95 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./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 |
64 |
AIM_WRITE_PHYS |
biLoc = bi |
|
./pkg/aim_v23/aim_write_phys.F |
71 |
AIM_WRITE_PHYS |
biLoc = bi + myBxLo(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(SLRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
101 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SHFtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
102 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EVAPtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
103 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECNVtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
104 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECLStave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
105 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLOUDCtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
106 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLTOPtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
107 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CBMFtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
108 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(DRAGtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
109 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimV0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
110 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimT0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
111 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimQ0tave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
112 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EnFxPrtave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
113 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(albedotave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
114 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(dTsurftave,aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
116 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
202 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
203 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
204 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
205 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
206 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
207 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
208 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
209 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
210 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
211 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
212 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
213 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
214 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
215 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
216 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
217 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
218 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
219 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
220 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
221 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
222 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
223 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
224 |
AIM_WRITE_TAVE |
aim_timeAve(bi,bj) = 0. |
|
./pkg/aim_v23/aim_write_tave.F |
44 |
AIM_WRITE_TAVE |
INTEGER bi, bj |
|
./pkg/aim_v23/aim_write_tave.F |
60 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
61 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
62 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
63 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
64 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
65 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
66 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
67 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
68 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
69 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
70 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
71 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
72 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
73 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
74 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
75 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
76 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
77 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
78 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
79 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
80 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
81 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
82 |
AIM_WRITE_TAVE |
aim_timeAve(bi,bj) = 0. |
|
./pkg/aim_v23/aim_write_tave.F |
94 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
95 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(USTRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
96 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(VSTRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
97 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(TSRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
98 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(OLRtave, aim_timeAve,1,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
99 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SSRtave, aim_timeAve,1,bi,bj,myThid) |
|
./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 |
141 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
180 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
196 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
206 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
223 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
244 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
259 |
PHY_DRIVER |
& 'UPSWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
272 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
288 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
298 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
315 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
326 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
|
./pkg/aim_v23/phy_driver.F |
352 |
PHY_DRIVER |
I bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
357 |
PHY_DRIVER |
& 'DWNLWG ', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
370 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
390 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
395 |
PHY_DRIVER |
& 'UPSWGclr', 1, 1 , 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_driver.F |
404 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
411 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
|
./pkg/aim_v23/phy_driver.F |
431 |
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 |
136 |
SOL_OZ |
& 'FSOL ', 1, 1, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_radiat.F |
150 |
RADSW |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
202 |
RADSW |
INTEGER bi, bj, myThid |
|
./pkg/aim_v23/phy_radiat.F |
44 |
SOL_OZ |
INTEGER bi, bj, myThid |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
& 'CLDCLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/phy_radiat.F |
501 |
RADLW |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
553 |
RADLW |
INTEGER bi,bj,myThid |
|
./pkg/aim_v23/phy_radiat.F |
8 |
SOL_OZ |
I bi, bj, myThid) |
|
./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 |
|
./eesupp/src/gather_xz.F |
18 |
GATHER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/gather_xz.F |
34 |
GATHER_XZ |
DO bi=1,nSx |
|
./eesupp/src/gather_xz.F |
36 |
GATHER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
37 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
54 |
GATHER_XZ |
DO bi=1,nSx |
|
./eesupp/src/gather_xz.F |
56 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
57 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
73 |
GATHER_XZ |
DO bi=1,nSx |
|
./eesupp/src/gather_xz.F |
75 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
76 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |
|
./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/gather_yz.F |
18 |
GATHER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/gather_yz.F |
34 |
GATHER_YZ |
DO bi=1,nSx |
|
./eesupp/src/gather_yz.F |
36 |
GATHER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
37 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
54 |
GATHER_YZ |
DO bi=1,nSx |
|
./eesupp/src/gather_yz.F |
56 |
GATHER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
57 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
73 |
GATHER_YZ |
DO bi=1,nSx |
|
./eesupp/src/gather_yz.F |
75 |
GATHER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
76 |
GATHER_YZ |
global(jG) = temp(j,bi,bj) |
|
./eesupp/src/global_sum_singlecpu.F |
63 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER bi, bj |
|
./eesupp/src/global_sum_singlecpu.F |
86 |
GLOBAL_SUM_SINGLECPU_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./eesupp/src/global_sum_singlecpu.F |
89 |
GLOBAL_SUM_SINGLECPU_RL |
sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj) |
|
./eesupp/src/global_sum_tile.F |
113 |
GLOBAL_SUM_TILE_RL |
DO bi=1,nSx |
|
./eesupp/src/global_sum_tile.F |
114 |
GLOBAL_SUM_TILE_RL |
biG = (mpi_myXGlobalLo(np1)-1)/sNx+bi |
|
./eesupp/src/global_sum_tile.F |
116 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = shareBufGSR8(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
132 |
GLOBAL_SUM_TILE_RL |
DO bi=1,nSx |
|
./eesupp/src/global_sum_tile.F |
133 |
GLOBAL_SUM_TILE_RL |
biG = (mpi_myXGlobalLo(np1)-1)/sNx+bi |
|
./eesupp/src/global_sum_tile.F |
135 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = localBuf(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
163 |
GLOBAL_SUM_TILE_RL |
DO bi = 1,nSx |
|
./eesupp/src/global_sum_tile.F |
164 |
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 bi = myBxLo(myThid), myBxHi(myThid) |
|
./eesupp/src/global_sum_tile.F |
79 |
GLOBAL_SUM_TILE_RL |
shareBufGSR8(bi,bj) = phiTile(bi,bj) |
|
./eesupp/src/global_vec_sum.F |
132 |
GLOBAL_VEC_SUM_R8 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
148 |
GLOBAL_VEC_SUM_R8 |
DO bi = 1,nSx |
|
./eesupp/src/global_vec_sum.F |
150 |
GLOBAL_VEC_SUM_R8 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
218 |
GLOBAL_VEC_SUM_INT |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
235 |
GLOBAL_VEC_SUM_INT |
DO bi = 1,nSx |
|
./eesupp/src/global_vec_sum.F |
237 |
GLOBAL_VEC_SUM_INT |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/global_vec_sum.F |
46 |
GLOBAL_VEC_SUM_R4 |
INTEGER i, bi,bj |
|
./eesupp/src/global_vec_sum.F |
62 |
GLOBAL_VEC_SUM_R4 |
DO bi = 1,nSx |
|
./eesupp/src/global_vec_sum.F |
64 |
GLOBAL_VEC_SUM_R4 |
tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) |
|
./eesupp/src/ini_communication_patterns.F |
114 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
120 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
|
./eesupp/src/ini_communication_patterns.F |
121 |
INI_COMMUNICATION_PATTERNS |
tileNo(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
126 |
INI_COMMUNICATION_PATTERNS |
biW = bi-1 |
|
./eesupp/src/ini_communication_patterns.F |
140 |
INI_COMMUNICATION_PATTERNS |
tileNoW (bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
146 |
INI_COMMUNICATION_PATTERNS |
tileNoW (bi,bj) = NULL_TILE |
|
./eesupp/src/ini_communication_patterns.F |
149 |
INI_COMMUNICATION_PATTERNS |
tilePidW(bi,bj) = procW |
|
./eesupp/src/ini_communication_patterns.F |
150 |
INI_COMMUNICATION_PATTERNS |
tileBiW (bi,bj) = biW |
|
./eesupp/src/ini_communication_patterns.F |
151 |
INI_COMMUNICATION_PATTERNS |
tileBjW (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
153 |
INI_COMMUNICATION_PATTERNS |
biE = bi+1 |
|
./eesupp/src/ini_communication_patterns.F |
167 |
INI_COMMUNICATION_PATTERNS |
tileNoE(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
173 |
INI_COMMUNICATION_PATTERNS |
tileNoE (bi,bj) = NULL_TILE |
|
./eesupp/src/ini_communication_patterns.F |
176 |
INI_COMMUNICATION_PATTERNS |
tilePidE(bi,bj) = procE |
|
./eesupp/src/ini_communication_patterns.F |
177 |
INI_COMMUNICATION_PATTERNS |
tileBiE (bi,bj) = biE |
|
./eesupp/src/ini_communication_patterns.F |
178 |
INI_COMMUNICATION_PATTERNS |
tileBjE (bi,bj) = bj |
|
./eesupp/src/ini_communication_patterns.F |
192 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
|
./eesupp/src/ini_communication_patterns.F |
194 |
INI_COMMUNICATION_PATTERNS |
tileNoN(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
198 |
INI_COMMUNICATION_PATTERNS |
tilePidN(bi,bj) = procN |
|
./eesupp/src/ini_communication_patterns.F |
199 |
INI_COMMUNICATION_PATTERNS |
tileBiN(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
200 |
INI_COMMUNICATION_PATTERNS |
tileBjN(bi,bj) = bjN |
|
./eesupp/src/ini_communication_patterns.F |
214 |
INI_COMMUNICATION_PATTERNS |
theBi = bi |
|
./eesupp/src/ini_communication_patterns.F |
216 |
INI_COMMUNICATION_PATTERNS |
tileNoS(bi,bj) = |
|
./eesupp/src/ini_communication_patterns.F |
220 |
INI_COMMUNICATION_PATTERNS |
tilePidS(bi,bj) = procS |
|
./eesupp/src/ini_communication_patterns.F |
221 |
INI_COMMUNICATION_PATTERNS |
tileBiS(bi,bj) = bi |
|
./eesupp/src/ini_communication_patterns.F |
222 |
INI_COMMUNICATION_PATTERNS |
tileBjS(bi,bj) = bjS |
|
./eesupp/src/ini_communication_patterns.F |
242 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
245 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
246 |
INI_COMMUNICATION_PATTERNS |
tileTagSendW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
248 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
249 |
INI_COMMUNICATION_PATTERNS |
tileTagSendE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
251 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
252 |
INI_COMMUNICATION_PATTERNS |
tileTagSendN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
254 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNo(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
255 |
INI_COMMUNICATION_PATTERNS |
tileTagSendS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
258 |
INI_COMMUNICATION_PATTERNS |
theTag = TagW0*totalTileCount+tileNoE(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
259 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvE(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
261 |
INI_COMMUNICATION_PATTERNS |
theTag = TagE0*totalTileCount+tileNoW(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
262 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvW(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
264 |
INI_COMMUNICATION_PATTERNS |
theTag = TagS0*totalTileCount+tileNoN(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
265 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvN(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
267 |
INI_COMMUNICATION_PATTERNS |
theTag = TagN0*totalTileCount+tileNoS(bi,bj)-1 |
|
./eesupp/src/ini_communication_patterns.F |
268 |
INI_COMMUNICATION_PATTERNS |
tileTagRecvS(bi,bj) = theTag |
|
./eesupp/src/ini_communication_patterns.F |
282 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
284 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
285 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
287 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidW(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
288 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
290 |
INI_COMMUNICATION_PATTERNS |
tileCommModeW(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
294 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
295 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
297 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidE(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
298 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
300 |
INI_COMMUNICATION_PATTERNS |
tileCommModeE(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
304 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
305 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
307 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidS(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
308 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
310 |
INI_COMMUNICATION_PATTERNS |
tileCommModeS(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
314 |
INI_COMMUNICATION_PATTERNS |
IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
315 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_NONE |
|
./eesupp/src/ini_communication_patterns.F |
317 |
INI_COMMUNICATION_PATTERNS |
IF ( myPid .EQ. tilePidN(bi,bj) ) THEN |
|
./eesupp/src/ini_communication_patterns.F |
318 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_PUT |
|
./eesupp/src/ini_communication_patterns.F |
320 |
INI_COMMUNICATION_PATTERNS |
tileCommModeN(bi,bj) = COMM_MSG |
|
./eesupp/src/ini_communication_patterns.F |
329 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./eesupp/src/ini_communication_patterns.F |
330 |
INI_COMMUNICATION_PATTERNS |
exchNReqsX(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
331 |
INI_COMMUNICATION_PATTERNS |
exchNReqsY(1,bi,bj) = 0 |
|
./eesupp/src/ini_communication_patterns.F |
57 |
INI_COMMUNICATION_PATTERNS |
INTEGER bi, bj, picnt, pjcnt |
|
./pkg/autodiff/active_file.F |
573 |
ACTIVE_READ_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file.F |
616 |
ACTIVE_READ_TILE_XY |
integer bi |
|
./pkg/autodiff/active_file.F |
635 |
ACTIVE_READ_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file.F |
651 |
ACTIVE_READ_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file.F |
695 |
ACTIVE_READ_TILE_XYZ |
integer bi |
|
./pkg/autodiff/active_file.F |
714 |
ACTIVE_READ_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file.F |
729 |
ACTIVE_WRITE_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file.F |
769 |
ACTIVE_WRITE_TILE_XY |
integer bi |
|
./pkg/autodiff/active_file.F |
790 |
ACTIVE_WRITE_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file.F |
805 |
ACTIVE_WRITE_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file.F |
845 |
ACTIVE_WRITE_TILE_XYZ |
integer bi |
|
./pkg/autodiff/active_file.F |
865 |
ACTIVE_WRITE_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file_control.F |
149 |
ACTIVE_READ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control.F |
153 |
ACTIVE_READ_RL |
active_data_t(i,j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
196 |
ACTIVE_READ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control.F |
200 |
ACTIVE_READ_RL |
active_data_t(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control.F |
201 |
ACTIVE_READ_RL |
& active_data_t(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control.F |
202 |
ACTIVE_READ_RL |
& active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
223 |
ACTIVE_READ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control.F |
227 |
ACTIVE_READ_RL |
active_var(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
327 |
ACTIVE_WRITE_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control.F |
382 |
ACTIVE_WRITE_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control.F |
386 |
ACTIVE_WRITE_RL |
active_var(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control.F |
387 |
ACTIVE_WRITE_RL |
& active_var(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control.F |
388 |
ACTIVE_WRITE_RL |
& active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
389 |
ACTIVE_WRITE_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
521 |
ACTIVE_READ_TILE_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control.F |
563 |
ACTIVE_READ_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
568 |
ACTIVE_READ_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
580 |
ACTIVE_READ_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
605 |
ACTIVE_READ_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
609 |
ACTIVE_READ_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
629 |
ACTIVE_READ_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
634 |
ACTIVE_READ_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
646 |
ACTIVE_READ_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
658 |
ACTIVE_READ_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
667 |
ACTIVE_READ_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
675 |
ACTIVE_READ_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
698 |
ACTIVE_READ_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
703 |
ACTIVE_READ_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
715 |
ACTIVE_READ_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
814 |
ACTIVE_WRITE_TILE_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control.F |
837 |
ACTIVE_WRITE_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
847 |
ACTIVE_WRITE_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
855 |
ACTIVE_WRITE_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
874 |
ACTIVE_WRITE_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
879 |
ACTIVE_WRITE_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
891 |
ACTIVE_WRITE_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
901 |
ACTIVE_WRITE_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
919 |
ACTIVE_WRITE_TILE_RL |
bi = itile |
|
./pkg/autodiff/active_file_control.F |
929 |
ACTIVE_WRITE_TILE_RL |
& ( bi-1 )*(snx+2*olx)*(sny+2*oly)*nr + |
|
./pkg/autodiff/active_file_control.F |
937 |
ACTIVE_WRITE_TILE_RL |
& active_data_t, bi, bj, |
|
./pkg/autodiff/active_file_control.F |
97 |
ACTIVE_READ_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
135 |
ACTIVE_READ_XZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
138 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
180 |
ACTIVE_READ_XZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
183 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
184 |
ACTIVE_READ_XZ_RL |
& active_data_t(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
185 |
ACTIVE_READ_XZ_RL |
& active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
205 |
ACTIVE_READ_XZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
208 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
297 |
ACTIVE_WRITE_XZ_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
351 |
ACTIVE_WRITE_XZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
354 |
ACTIVE_WRITE_XZ_RL |
active_var(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
355 |
ACTIVE_WRITE_XZ_RL |
& active_var(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_WRITE_XZ_RL |
& active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
357 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
465 |
ACTIVE_READ_YZ_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
519 |
ACTIVE_READ_YZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
522 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
564 |
ACTIVE_READ_YZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
567 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
568 |
ACTIVE_READ_YZ_RL |
& active_data_t(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
569 |
ACTIVE_READ_YZ_RL |
& active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
589 |
ACTIVE_READ_YZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
592 |
ACTIVE_READ_YZ_RL |
active_var(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
681 |
ACTIVE_WRITE_YZ_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_control_slice.F |
735 |
ACTIVE_WRITE_YZ_RL |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_control_slice.F |
738 |
ACTIVE_WRITE_YZ_RL |
active_var(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
739 |
ACTIVE_WRITE_YZ_RL |
& active_var(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
740 |
ACTIVE_WRITE_YZ_RL |
& active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
741 |
ACTIVE_WRITE_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
81 |
ACTIVE_READ_XZ_RL |
integer bi,bj |
|
./pkg/autodiff/active_file_g.F |
706 |
G_ACTIVE_READ_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file_g.F |
749 |
G_ACTIVE_READ_TILE_XY |
integer bi |
|
./pkg/autodiff/active_file_g.F |
768 |
G_ACTIVE_READ_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file_g.F |
784 |
G_ACTIVE_READ_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file_g.F |
828 |
G_ACTIVE_READ_TILE_XYZ |
integer bi |
|
./pkg/autodiff/active_file_g.F |
847 |
G_ACTIVE_READ_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file_g.F |
862 |
G_ACTIVE_WRITE_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file_g.F |
902 |
G_ACTIVE_WRITE_TILE_XY |
integer bi |
|
./pkg/autodiff/active_file_g.F |
923 |
G_ACTIVE_WRITE_TILE_XY |
I bi, |
|
./pkg/autodiff/active_file_g.F |
938 |
G_ACTIVE_WRITE_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file_g.F |
978 |
G_ACTIVE_WRITE_TILE_XYZ |
integer bi |
|
./pkg/autodiff/active_file_g.F |
998 |
G_ACTIVE_WRITE_TILE_XYZ |
I bi, |
|
./pkg/autodiff/active_file_loc_control.F |
135 |
ACTIVE_READ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control.F |
139 |
ACTIVE_READ_RL_LOC |
active_data_t(i,j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
182 |
ACTIVE_READ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control.F |
186 |
ACTIVE_READ_RL_LOC |
active_data_t(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control.F |
187 |
ACTIVE_READ_RL_LOC |
& active_data_t(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control.F |
188 |
ACTIVE_READ_RL_LOC |
& active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control.F |
209 |
ACTIVE_READ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control.F |
213 |
ACTIVE_READ_RL_LOC |
active_var(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
309 |
ACTIVE_WRITE_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/active_file_loc_control.F |
364 |
ACTIVE_WRITE_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control.F |
368 |
ACTIVE_WRITE_RL_LOC |
active_var(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control.F |
369 |
ACTIVE_WRITE_RL_LOC |
& active_var(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control.F |
370 |
ACTIVE_WRITE_RL_LOC |
& active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control.F |
371 |
ACTIVE_WRITE_RL_LOC |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
83 |
ACTIVE_READ_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/active_file_loc_control_slice.F |
131 |
ACTIVE_READ_XZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
134 |
ACTIVE_READ_XZ_RL_LOC |
active_data_t(i,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
176 |
ACTIVE_READ_XZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
179 |
ACTIVE_READ_XZ_RL_LOC |
active_data_t(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
180 |
ACTIVE_READ_XZ_RL_LOC |
& active_data_t(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
181 |
ACTIVE_READ_XZ_RL_LOC |
& active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
201 |
ACTIVE_READ_XZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
204 |
ACTIVE_READ_XZ_RL_LOC |
active_var(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
289 |
ACTIVE_WRITE_XZ_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/active_file_loc_control_slice.F |
343 |
ACTIVE_WRITE_XZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
346 |
ACTIVE_WRITE_XZ_RL_LOC |
active_var(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
347 |
ACTIVE_WRITE_XZ_RL_LOC |
& active_var(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
348 |
ACTIVE_WRITE_XZ_RL_LOC |
& active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
349 |
ACTIVE_WRITE_XZ_RL_LOC |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
453 |
ACTIVE_READ_YZ_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/active_file_loc_control_slice.F |
507 |
ACTIVE_READ_YZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
510 |
ACTIVE_READ_YZ_RL_LOC |
active_data_t(j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
552 |
ACTIVE_READ_YZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
555 |
ACTIVE_READ_YZ_RL_LOC |
active_data_t(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
556 |
ACTIVE_READ_YZ_RL_LOC |
& active_data_t(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
557 |
ACTIVE_READ_YZ_RL_LOC |
& active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
577 |
ACTIVE_READ_YZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
580 |
ACTIVE_READ_YZ_RL_LOC |
active_var(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
665 |
ACTIVE_WRITE_YZ_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/active_file_loc_control_slice.F |
719 |
ACTIVE_WRITE_YZ_RL_LOC |
do bi = 1,nsx |
|
./pkg/autodiff/active_file_loc_control_slice.F |
722 |
ACTIVE_WRITE_YZ_RL_LOC |
active_var(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
723 |
ACTIVE_WRITE_YZ_RL_LOC |
& active_var(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
724 |
ACTIVE_WRITE_YZ_RL_LOC |
& active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
725 |
ACTIVE_WRITE_YZ_RL_LOC |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
77 |
ACTIVE_READ_XZ_RL_LOC |
integer bi,bj |
|
./pkg/autodiff/addamp_adj.F |
30 |
ADDAMP_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/addamp_adj.F |
33 |
ADDAMP_ADJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/autodiff/addamp_adj.F |
37 |
ADDAMP_ADJ |
if ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR. |
|
./pkg/autodiff/addamp_adj.F |
38 |
ADDAMP_ADJ |
& (fieldRef(i,j,k,bi,bj).LE.minRef) ) then |
|
./pkg/autodiff/addamp_adj.F |
43 |
ADDAMP_ADJ |
adfieldDamp(i,j,k,bi,bj)=facDamp* |
|
./pkg/autodiff/addamp_adj.F |
44 |
ADDAMP_ADJ |
& adfieldDamp(i,j,k,bi,bj) |
|
./pkg/autodiff/adzero_adj.F |
100 |
ADZERO_ADJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/autodiff/adzero_adj.F |
104 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
29 |
ADZERO_ADJ_1D |
integer bi,bj,i,j,k |
|
./pkg/autodiff/adzero_adj.F |
61 |
ADZERO_ADJ_LOC |
integer bi,bj,i,j,k |
|
./pkg/autodiff/adzero_adj.F |
97 |
ADZERO_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/autodiff_restore.F |
100 |
AUTODIFF_RESTORE |
tauy1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
101 |
AUTODIFF_RESTORE |
qnet0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
102 |
AUTODIFF_RESTORE |
qnet1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
103 |
AUTODIFF_RESTORE |
empmr0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
104 |
AUTODIFF_RESTORE |
empmr1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
105 |
AUTODIFF_RESTORE |
sst0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
106 |
AUTODIFF_RESTORE |
sst1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
107 |
AUTODIFF_RESTORE |
sss0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
108 |
AUTODIFF_RESTORE |
sss1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
109 |
AUTODIFF_RESTORE |
saltflux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
110 |
AUTODIFF_RESTORE |
saltflux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
112 |
AUTODIFF_RESTORE |
qsw0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
113 |
AUTODIFF_RESTORE |
qsw1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
116 |
AUTODIFF_RESTORE |
pload0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
117 |
AUTODIFF_RESTORE |
pload1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
120 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
121 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
122 |
AUTODIFF_RESTORE |
PmEpR(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
133 |
AUTODIFF_RESTORE |
gs(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
134 |
AUTODIFF_RESTORE |
gt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
136 |
AUTODIFF_RESTORE |
gtnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
137 |
AUTODIFF_RESTORE |
gsnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
138 |
AUTODIFF_RESTORE |
gunm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
139 |
AUTODIFF_RESTORE |
gvnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
141 |
AUTODIFF_RESTORE |
gtnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
142 |
AUTODIFF_RESTORE |
gsnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
143 |
AUTODIFF_RESTORE |
gunm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
144 |
AUTODIFF_RESTORE |
gvnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
146 |
AUTODIFF_RESTORE |
theta(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
uvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
vvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
150 |
AUTODIFF_RESTORE |
wvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
totphihyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
153 |
AUTODIFF_RESTORE |
gtnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
154 |
AUTODIFF_RESTORE |
gsnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
155 |
AUTODIFF_RESTORE |
gunm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
156 |
AUTODIFF_RESTORE |
gvnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
170 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(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 |
213 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
218 |
AUTODIFF_RESTORE |
aqh0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
219 |
AUTODIFF_RESTORE |
aqh1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
220 |
AUTODIFF_RESTORE |
atemp0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
221 |
AUTODIFF_RESTORE |
atemp1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
222 |
AUTODIFF_RESTORE |
precip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
223 |
AUTODIFF_RESTORE |
precip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
224 |
AUTODIFF_RESTORE |
lwflux0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
225 |
AUTODIFF_RESTORE |
lwflux1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
226 |
AUTODIFF_RESTORE |
snowprecip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
227 |
AUTODIFF_RESTORE |
snowprecip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
229 |
AUTODIFF_RESTORE |
evap0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
230 |
AUTODIFF_RESTORE |
evap1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
232 |
AUTODIFF_RESTORE |
evap(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
235 |
AUTODIFF_RESTORE |
swdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
236 |
AUTODIFF_RESTORE |
swdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
237 |
AUTODIFF_RESTORE |
lwdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
238 |
AUTODIFF_RESTORE |
lwdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
242 |
AUTODIFF_RESTORE |
uwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
243 |
AUTODIFF_RESTORE |
uwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
244 |
AUTODIFF_RESTORE |
vwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
245 |
AUTODIFF_RESTORE |
vwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
255 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
260 |
AUTODIFF_RESTORE |
xx_uwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
261 |
AUTODIFF_RESTORE |
xx_uwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
264 |
AUTODIFF_RESTORE |
xx_vwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
265 |
AUTODIFF_RESTORE |
xx_vwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
268 |
AUTODIFF_RESTORE |
xx_atemp0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
269 |
AUTODIFF_RESTORE |
xx_atemp1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
272 |
AUTODIFF_RESTORE |
xx_aqh0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
273 |
AUTODIFF_RESTORE |
xx_aqh1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
276 |
AUTODIFF_RESTORE |
xx_precip0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
277 |
AUTODIFF_RESTORE |
xx_precip1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
280 |
AUTODIFF_RESTORE |
xx_snowprecip0(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
281 |
AUTODIFF_RESTORE |
xx_snowprecip1(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
284 |
AUTODIFF_RESTORE |
xx_swflux0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
285 |
AUTODIFF_RESTORE |
xx_swflux1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
288 |
AUTODIFF_RESTORE |
xx_swdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
289 |
AUTODIFF_RESTORE |
xx_swdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
292 |
AUTODIFF_RESTORE |
xx_lwdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
293 |
AUTODIFF_RESTORE |
xx_lwdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
296 |
AUTODIFF_RESTORE |
xx_apressure0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
297 |
AUTODIFF_RESTORE |
xx_apressure1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
309 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
313 |
AUTODIFF_RESTORE |
OBNt(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
314 |
AUTODIFF_RESTORE |
OBNs(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
315 |
AUTODIFF_RESTORE |
OBNu0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
316 |
AUTODIFF_RESTORE |
OBNv0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
317 |
AUTODIFF_RESTORE |
OBNt0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
318 |
AUTODIFF_RESTORE |
OBNs0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
319 |
AUTODIFF_RESTORE |
OBNu1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
320 |
AUTODIFF_RESTORE |
OBNv1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
321 |
AUTODIFF_RESTORE |
OBNt1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
322 |
AUTODIFF_RESTORE |
OBNs1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
324 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
325 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
326 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
327 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
328 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
329 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
330 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
331 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
342 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
346 |
AUTODIFF_RESTORE |
OBSt(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
347 |
AUTODIFF_RESTORE |
OBSs(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
348 |
AUTODIFF_RESTORE |
OBSu0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
349 |
AUTODIFF_RESTORE |
OBSv0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
350 |
AUTODIFF_RESTORE |
OBSt0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
351 |
AUTODIFF_RESTORE |
OBSs0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
352 |
AUTODIFF_RESTORE |
OBSu1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
353 |
AUTODIFF_RESTORE |
OBSv1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
354 |
AUTODIFF_RESTORE |
OBSt1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
355 |
AUTODIFF_RESTORE |
OBSs1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
357 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
358 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
359 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
360 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
361 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
362 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
363 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
364 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
375 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
379 |
AUTODIFF_RESTORE |
OBEt(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
380 |
AUTODIFF_RESTORE |
OBEs(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
381 |
AUTODIFF_RESTORE |
OBEu0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
382 |
AUTODIFF_RESTORE |
OBEv0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
383 |
AUTODIFF_RESTORE |
OBEt0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
384 |
AUTODIFF_RESTORE |
OBEs0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
385 |
AUTODIFF_RESTORE |
OBEu1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
386 |
AUTODIFF_RESTORE |
OBEv1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
387 |
AUTODIFF_RESTORE |
OBEt1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
388 |
AUTODIFF_RESTORE |
OBEs1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
390 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
391 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
392 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
393 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
394 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
395 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
396 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
397 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
408 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
412 |
AUTODIFF_RESTORE |
OBWt(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
413 |
AUTODIFF_RESTORE |
OBWs(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
414 |
AUTODIFF_RESTORE |
OBWu0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
415 |
AUTODIFF_RESTORE |
OBWv0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
416 |
AUTODIFF_RESTORE |
OBWt0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
417 |
AUTODIFF_RESTORE |
OBWs0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
418 |
AUTODIFF_RESTORE |
OBWu1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
419 |
AUTODIFF_RESTORE |
OBWv1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
420 |
AUTODIFF_RESTORE |
OBWt1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
421 |
AUTODIFF_RESTORE |
OBWs1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
423 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
424 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
425 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
426 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
427 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
428 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
429 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
430 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
442 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
446 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
447 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
448 |
AUTODIFF_RESTORE |
HSNOW(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
449 |
AUTODIFF_RESTORE |
TICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
450 |
AUTODIFF_RESTORE |
RUNOFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
452 |
AUTODIFF_RESTORE |
stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
453 |
AUTODIFF_RESTORE |
stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
UICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
VICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
462 |
AUTODIFF_RESTORE |
ZETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
463 |
AUTODIFF_RESTORE |
ETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
465 |
AUTODIFF_RESTORE |
dwatn(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
466 |
AUTODIFF_RESTORE |
seaicemasku(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
467 |
AUTODIFF_RESTORE |
seaicemaskv(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
470 |
AUTODIFF_RESTORE |
seaice_sigma1(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
471 |
AUTODIFF_RESTORE |
seaice_sigma2(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
472 |
AUTODIFF_RESTORE |
seaice_sigma12(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
476 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
77 |
AUTODIFF_RESTORE |
integer bi,bj |
|
./pkg/autodiff/autodiff_restore.F |
89 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_restore.F |
95 |
AUTODIFF_RESTORE |
etan(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
96 |
AUTODIFF_RESTORE |
surfaceforcingTice(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
97 |
AUTODIFF_RESTORE |
taux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
98 |
AUTODIFF_RESTORE |
taux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
99 |
AUTODIFF_RESTORE |
tauy0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_store.F |
100 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,6) = tauy1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
101 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,7) = qnet0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
102 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,8) = qnet1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
103 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,9) = empmr0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
104 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,10) = empmr1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
105 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,11) = sst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
106 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,12) = sst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
107 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,13) = sss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
108 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,14) = sss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
109 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,15) = saltflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
110 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,16) = saltflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
112 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = qsw0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
113 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = qsw1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
115 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = 0. |
|
./pkg/autodiff/autodiff_store.F |
116 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = 0. |
|
./pkg/autodiff/autodiff_store.F |
119 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = pload0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
120 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = pload1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
122 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = 0. |
|
./pkg/autodiff/autodiff_store.F |
123 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = 0. |
|
./pkg/autodiff/autodiff_store.F |
126 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
127 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
128 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
130 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = 0. |
|
./pkg/autodiff/autodiff_store.F |
131 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = 0. |
|
./pkg/autodiff/autodiff_store.F |
132 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = 0. |
|
./pkg/autodiff/autodiff_store.F |
143 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gs(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
144 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
146 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = gtnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
147 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gsnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
148 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = gunm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
149 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = gvnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
151 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = gtnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
152 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gsnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
153 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = gunm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
154 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = gvnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
156 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = theta(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = salt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = uvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = vvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,11) = wvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,12) = totphihyd(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
163 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,13) = gtnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
164 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,14) = gsnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
165 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,15) = gunm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
166 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,16) = gvnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
180 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(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 |
239 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
244 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,1) = aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
245 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,2) = aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
246 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,3) = atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
247 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,4) = atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
248 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,5) = precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
249 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,6) = precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
250 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,7) = lwflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
251 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,8) = lwflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
252 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,9) = snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
253 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,10) = snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
255 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = evap0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
256 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = evap1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
258 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = evap(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
259 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
262 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
263 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
264 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
265 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
267 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
268 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
269 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
270 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
274 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
275 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
276 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
277 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
279 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
280 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
281 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
282 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
292 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
297 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = xx_uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
298 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = xx_uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
300 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
301 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
304 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = xx_vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
305 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = xx_vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
307 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
308 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
311 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = xx_atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
312 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = xx_atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
314 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
315 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
318 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = xx_aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
319 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = xx_aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
321 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
322 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
325 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = xx_precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
326 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = xx_precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
328 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
329 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
332 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = xx_snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
333 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = xx_snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
335 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
336 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
339 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = xx_swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
340 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = xx_swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
342 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
343 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
346 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = xx_swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
347 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = xx_swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
349 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
350 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
353 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = xx_lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
354 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = xx_lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
356 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
357 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
360 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = xx_apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
361 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = xx_apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
363 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
364 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
376 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
380 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,1) = OBNt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
381 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,2) = OBNs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
382 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,3) = OBNu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
383 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,4) = OBNv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
384 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,5) = OBNt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
385 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,6) = OBNs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
386 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,7) = OBNu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
387 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,8) = OBNv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
388 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,9) = OBNt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
389 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,10) = OBNs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
391 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = xx_obcsn0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
392 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = xx_obcsn0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
393 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = xx_obcsn0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
394 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = xx_obcsn0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
395 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = xx_obcsn1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
396 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = xx_obcsn1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
397 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = xx_obcsn1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
398 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = xx_obcsn1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
400 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
401 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
402 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
403 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
404 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
405 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
406 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
407 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
418 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
422 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,1) = OBSt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
423 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,2) = OBSs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
424 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,3) = OBSu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
425 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,4) = OBSv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
426 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,5) = OBSt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
427 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,6) = OBSs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
428 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,7) = OBSu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
429 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,8) = OBSv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
430 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,9) = OBSt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
431 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,10)= OBSs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
433 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = xx_obcss0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
434 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = xx_obcss0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
435 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = xx_obcss0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
436 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = xx_obcss0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
437 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = xx_obcss1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
438 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = xx_obcss1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
439 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = xx_obcss1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
440 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = xx_obcss1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
442 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
443 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
444 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
445 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
446 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
447 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
448 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
449 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
460 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
464 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,1) = OBEt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
465 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,2) = OBEs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
466 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,3) = OBEu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
467 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,4) = OBEv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
468 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,5) = OBEt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
469 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,6) = OBEs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
470 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,7) = OBEu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
471 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,8) = OBEv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
472 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,9) = OBEt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
473 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,10)= OBEs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
475 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,11) = xx_obcse0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
476 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,12) = xx_obcse0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
477 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = xx_obcse0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
478 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = xx_obcse0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
479 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = xx_obcse1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
480 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = xx_obcse1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
481 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = xx_obcse1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
482 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = xx_obcse1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
484 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
485 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
486 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
487 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
488 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
489 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
490 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
491 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
502 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
506 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,1) = OBWt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
507 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,2) = OBWs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
508 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,3) = OBWu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
509 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,4) = OBWv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
510 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,5) = OBWt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
511 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,6) = OBWs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
512 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,7) = OBWu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
513 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,8) = OBWv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
514 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,9) = OBWt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
515 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,10)= OBWs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
517 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,11) = xx_obcsw0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
518 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,12) = xx_obcsw0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
519 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = xx_obcsw0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
520 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = xx_obcsw0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
521 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = xx_obcsw1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
522 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = xx_obcsw1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
523 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = xx_obcsw1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
524 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = xx_obcsw1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
526 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
527 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
528 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
529 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
530 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
531 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
532 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
533 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
545 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
550 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
551 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
552 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
553 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
554 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
556 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
557 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
559 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
560 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
563 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
564 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
565 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
566 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = ETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
568 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
569 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = seaicemasku(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
570 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = seaicemaskv(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
572 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
573 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
574 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
577 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
578 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
579 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
581 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
582 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
583 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
586 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
587 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
588 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
589 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
590 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
591 |
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 |
593 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
594 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
595 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
596 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
597 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
600 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
602 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
77 |
AUTODIFF_STORE |
integer bi,bj |
|
./pkg/autodiff/autodiff_store.F |
89 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/autodiff_store.F |
95 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,1) = etan(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
96 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,2) = surfaceforcingTice(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
97 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,3) = taux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
98 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,4) = taux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
99 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,5) = tauy0(I,J,bi,bj) |
|
./eesupp/src/lef_zero.F |
24 |
LEF_ZERO |
INTEGER i,j,bi,bj |
|
./eesupp/src/lef_zero.F |
28 |
LEF_ZERO |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./eesupp/src/lef_zero.F |
31 |
LEF_ZERO |
arr(i,j,bi,bj)=0. |
|
./pkg/autodiff/damp_adj.F |
30 |
DAMP_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/global_sum_tile_ad.F |
54 |
GLOBAL_ADSUM_TILE_RL |
INTEGER bi,bj |
|
./pkg/autodiff/global_sum_tile_ad.F |
63 |
GLOBAL_ADSUM_TILE_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/global_sum_tile_ad.F |
64 |
GLOBAL_ADSUM_TILE_RL |
adphiTile(bi,bj) = tmp |
|
./pkg/autodiff/ini_autodiff.F |
38 |
INI_AUTODIFF |
INTEGER bi, bj |
|
./pkg/autodiff/ini_autodiff.F |
48 |
INI_AUTODIFF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/autodiff/ini_autodiff.F |
55 |
INI_AUTODIFF |
EfluxY(i,j,k,bi,bj)=0. |
|
./pkg/autodiff/ini_autodiff.F |
56 |
INI_AUTODIFF |
EfluxP(i,j,k,bi,bj)=0. |
|
./pkg/autodiff/ini_autodiff.F |
66 |
INI_AUTODIFF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/ini_autodiff.F |
67 |
INI_AUTODIFF |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/ini_autodiff.F |
71 |
INI_AUTODIFF |
EmPmR(I,J,bi,bj) = 0. _d 0 |
|
./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 |
119 |
BULKF_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/bulk_force/bulkf_fields_load.F |
130 |
BULKF_FIELDS_LOAD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
133 |
BULKF_FIELDS_LOAD |
tair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
134 |
BULKF_FIELDS_LOAD |
tair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
135 |
BULKF_FIELDS_LOAD |
qair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
136 |
BULKF_FIELDS_LOAD |
qair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
137 |
BULKF_FIELDS_LOAD |
rain0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
138 |
BULKF_FIELDS_LOAD |
rain1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
139 |
BULKF_FIELDS_LOAD |
solar0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
140 |
BULKF_FIELDS_LOAD |
solar1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
141 |
BULKF_FIELDS_LOAD |
flwdwn0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
142 |
BULKF_FIELDS_LOAD |
flwdwn1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
143 |
BULKF_FIELDS_LOAD |
cloud0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
144 |
BULKF_FIELDS_LOAD |
cloud1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
145 |
BULKF_FIELDS_LOAD |
wspeed0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
146 |
BULKF_FIELDS_LOAD |
wspeed1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
147 |
BULKF_FIELDS_LOAD |
uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
148 |
BULKF_FIELDS_LOAD |
uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
149 |
BULKF_FIELDS_LOAD |
vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
150 |
BULKF_FIELDS_LOAD |
vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
151 |
BULKF_FIELDS_LOAD |
runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
152 |
BULKF_FIELDS_LOAD |
runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
153 |
BULKF_FIELDS_LOAD |
snow0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
154 |
BULKF_FIELDS_LOAD |
snow1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
156 |
BULKF_FIELDS_LOAD |
thAir0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
157 |
BULKF_FIELDS_LOAD |
thAir1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
159 |
BULKF_FIELDS_LOAD |
qnetch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
160 |
BULKF_FIELDS_LOAD |
qnetch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
161 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
162 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
293 |
BULKF_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
296 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
297 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
347 |
BULKF_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/bulk_force/bulkf_fields_load.F |
352 |
BULKF_FIELDS_LOAD |
TAIR(i,j,bi,bj) = bWght*tair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
353 |
BULKF_FIELDS_LOAD |
& +aWght*tair1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
357 |
BULKF_FIELDS_LOAD |
QAIR(i,j,bi,bj) =(bWght*qair0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
358 |
BULKF_FIELDS_LOAD |
& +aWght*qair1(i,j,bi,bj) ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
359 |
BULKF_FIELDS_LOAD |
SOLAR(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
360 |
BULKF_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
361 |
BULKF_FIELDS_LOAD |
FLWDWN(i,j,bi,bj) = bWght*flwdwn0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
362 |
BULKF_FIELDS_LOAD |
& +aWght*flwdwn1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
363 |
BULKF_FIELDS_LOAD |
CLOUD(i,j,bi,bj) = bWght*cloud0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
364 |
BULKF_FIELDS_LOAD |
& +aWght*cloud1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
365 |
BULKF_FIELDS_LOAD |
WSPEED(i,j,bi,bj) = bWght*wspeed0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
366 |
BULKF_FIELDS_LOAD |
& +aWght*wspeed1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
367 |
BULKF_FIELDS_LOAD |
UWIND(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
368 |
BULKF_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
369 |
BULKF_FIELDS_LOAD |
VWIND(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
370 |
BULKF_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
371 |
BULKF_FIELDS_LOAD |
RAIN(i,j,bi,bj) = bWght*rain0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
372 |
BULKF_FIELDS_LOAD |
& +aWght*rain1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
373 |
BULKF_FIELDS_LOAD |
RUNOFF(i,j,bi,bj) = bWght*runoff0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
374 |
BULKF_FIELDS_LOAD |
& +aWght*runoff1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
376 |
BULKF_FIELDS_LOAD |
SNOW(i,j,bi,bj) = bWght*snow0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
377 |
BULKF_FIELDS_LOAD |
& +aWght*snow1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
379 |
BULKF_FIELDS_LOAD |
Qnetch(i,j,bi,bj) = bWght*qnetch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
380 |
BULKF_FIELDS_LOAD |
& +aWght*qnetch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
381 |
BULKF_FIELDS_LOAD |
EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
382 |
BULKF_FIELDS_LOAD |
& +aWght*empch1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
389 |
BULKF_FIELDS_LOAD |
thAir(i,j,bi,bj) = bWght*thAir0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
390 |
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 |
208 |
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 |
79 |
BULKF_FORCING |
DO bi=myBxLo(myThid),myBxHi(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 |
43 |
BULKF_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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 |
109 |
BULKF_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/bulk_force/bulkf_output.F |
110 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_Qnet_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
111 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_EmPmR_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
112 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fu_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
113 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fv_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
114 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_latent_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
115 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_sensible_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
116 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_evap_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
117 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwup_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
118 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwupnet_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
119 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_solar_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
120 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_ssq_Ave, 1, bi, bj, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
121 |
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 |
56 |
BULKF_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(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 |
31 |
CD_CODE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(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 |
101 |
CD_CODE_SCHEME |
pf(i,j) = Bo_surf(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
102 |
CD_CODE_SCHEME |
& *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
115 |
CD_CODE_SCHEME |
& -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1)) |
|
./pkg/cd_code/cd_code_scheme.F |
117 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,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 |
126 |
CD_CODE_SCHEME |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
127 |
CD_CODE_SCHEME |
& -( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
128 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
130 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
132 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
139 |
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 |
145 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
148 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
149 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
152 |
CD_CODE_SCHEME |
& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
153 |
CD_CODE_SCHEME |
& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
155 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
162 |
CD_CODE_SCHEME |
& ( _fCori( i, j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
163 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
164 |
CD_CODE_SCHEME |
& *vVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
174 |
CD_CODE_SCHEME |
& -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j)) |
|
./pkg/cd_code/cd_code_scheme.F |
176 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
185 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
186 |
CD_CODE_SCHEME |
& +( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
187 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
189 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
191 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
198 |
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 |
204 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
207 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
208 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
211 |
CD_CODE_SCHEME |
& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
212 |
CD_CODE_SCHEME |
& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
214 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
221 |
CD_CODE_SCHEME |
& -( _fCori(i, j, bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
222 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
223 |
CD_CODE_SCHEME |
& *uVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
230 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
231 |
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/cd_code/cd_code_scheme.F |
98 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
99 |
CD_CODE_SCHEME |
& +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cfc/cfc11_forcing.F |
100 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)=a1*ACFC11south + |
|
./pkg/cfc/cfc11_forcing.F |
104 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)=ACFC11south |
|
./pkg/cfc/cfc11_forcing.F |
115 |
CFC11_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
117 |
CFC11_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc11_forcing.F |
120 |
CFC11_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc11_forcing.F |
124 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)= xintp(j) * ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
133 |
CFC11_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc11_forcing.F |
18 |
CFC11_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc11_forcing.F |
42 |
CFC11_FORCING |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/cfc/cfc11_forcing.F |
95 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)=ACFC11north |
|
./pkg/cfc/cfc11_surfforcing.F |
29 |
CFC11_SURFFORCING |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/cfc/cfc11_surfforcing.F |
52 |
CFC11_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
56 |
CFC11_SURFFORCING |
& + sca_11_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
57 |
CFC11_SURFFORCING |
& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
58 |
CFC11_SURFFORCING |
& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
59 |
CFC11_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
61 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
69 |
CFC11_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc11_surfforcing.F |
75 |
CFC11_SURFFORCING |
Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
76 |
CFC11_SURFFORCING |
& *AtmosCFC11(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
77 |
CFC11_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj)) |
|
./pkg/cfc/cfc11_surfforcing.F |
78 |
CFC11_SURFFORCING |
& * pisvel(i,j,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
8 |
CFC11_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/cfc/cfc11_surfforcing.F |
95 |
CFC11_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC11(i,j)*recip_drF(1) |
|
./pkg/cfc/cfc12_forcing.F |
100 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=a1*ACFC12south + |
|
./pkg/cfc/cfc12_forcing.F |
104 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=ACFC12south |
|
./pkg/cfc/cfc12_forcing.F |
115 |
CFC12_FORCING |
IF(yC(i,j,bi,bj) .GE. yNorth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
117 |
CFC12_FORCING |
ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN |
|
./pkg/cfc/cfc12_forcing.F |
120 |
CFC12_FORCING |
xintp(j) = (yC(i,j,bi,bj) - ySouth)/ |
|
./pkg/cfc/cfc12_forcing.F |
124 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)= xintp(j) * ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
133 |
CFC12_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc12_forcing.F |
18 |
CFC12_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc12_forcing.F |
42 |
CFC12_FORCING |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/cfc/cfc12_forcing.F |
95 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=ACFC12north |
|
./pkg/cfc/cfc12_surfforcing.F |
29 |
CFC12_SURFFORCING |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/cfc/cfc12_surfforcing.F |
52 |
CFC12_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
56 |
CFC12_SURFFORCING |
& + sca_12_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
57 |
CFC12_SURFFORCING |
& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
58 |
CFC12_SURFFORCING |
& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
59 |
CFC12_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
61 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
69 |
CFC12_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc12_surfforcing.F |
75 |
CFC12_SURFFORCING |
Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
76 |
CFC12_SURFFORCING |
& *AtmosCFC12(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
77 |
CFC12_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj)) |
|
./pkg/cfc/cfc12_surfforcing.F |
78 |
CFC12_SURFFORCING |
& * pisvel(i,j,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
8 |
CFC12_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
& maskC(i,j,1,bi,bj)*FluxCFC12(i,j)*recip_drF(1) |
|
./pkg/cfc/cfc_atmos.F |
30 |
CFC_ATMOS |
integer i,j,bi,bj |
|
./pkg/cfc/cfc_atmos.F |
37 |
CFC_ATMOS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_atmos.F |
40 |
CFC_ATMOS |
AtmosCFC11(i,j,bi,bj)=0. _d 0 |
|
./pkg/cfc/cfc_atmos.F |
41 |
CFC_ATMOS |
AtmosCFC12(i,j,bi,bj)=0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
124 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
129 |
CFC_FIELDS_LOAD |
pisvel(i,j,bi,bj)=(0.31 _d 0*sh(i,j,bi,bj)**2)/3.6 _d 5 |
|
./pkg/cfc/cfc_fields_load.F |
139 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
143 |
CFC_FIELDS_LOAD |
WIND = bWght*wind0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
144 |
CFC_FIELDS_LOAD |
& +aWght*wind1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
146 |
CFC_FIELDS_LOAD |
WIND = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
151 |
CFC_FIELDS_LOAD |
pisvel(i,j,bi,bj)=(0.31 _d 0*wind**2)/3.6 _d 5 |
|
./pkg/cfc/cfc_fields_load.F |
159 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
163 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
164 |
CFC_FIELDS_LOAD |
& +aWght*atmosp1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
166 |
CFC_FIELDS_LOAD |
ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
175 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
178 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
188 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cfc/cfc_fields_load.F |
192 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
193 |
CFC_FIELDS_LOAD |
& +aWght*ice1(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
195 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) =0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
35 |
CFC_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/cheapaml/adams2d.F |
10 |
ADAMS2D |
I bi, bj, |
|
./pkg/cheapaml/adams2d.F |
36 |
ADAMS2D |
INTEGER bi,bj |
|
./pkg/cheapaml/adams2d.F |
65 |
ADAMS2D |
gTrtmp = ab15*gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/adams2d.F |
66 |
ADAMS2D |
& + ab05*gTrNm1(i,j,bi,bj) |
|
./pkg/cheapaml/adams2d.F |
67 |
ADAMS2D |
gTrNm1(i,j,bi,bj) = gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/adams2d.F |
68 |
ADAMS2D |
gTracer(i,j,bi,bj) = gTrtmp |
|
./pkg/cheapaml/cheapaml.F |
158 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
161 |
CHEAPAML |
if (hFacC(i,j,1,bi,bj).ne.0. _d 0) then |
|
./pkg/cheapaml/cheapaml.F |
163 |
CHEAPAML |
if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then |
|
./pkg/cheapaml/cheapaml.F |
165 |
CHEAPAML |
if (snowheight(i,j,bi,bj).gt.3. _d -1) then |
|
./pkg/cheapaml/cheapaml.F |
176 |
CHEAPAML |
uw=uwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
177 |
CHEAPAML |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
183 |
CHEAPAML |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml.F |
184 |
CHEAPAML |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml.F |
186 |
CHEAPAML |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
187 |
CHEAPAML |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
195 |
CHEAPAML |
Qnet(i,j,bi,bj)=0.d0 |
|
./pkg/cheapaml/cheapaml.F |
212 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
218 |
CHEAPAML |
gTair(i,j,bi,bj)=0.d0 |
|
./pkg/cheapaml/cheapaml.F |
222 |
CHEAPAML |
I bi,bj,1-olx,nsx+olx,1-oly,nsy+oly, |
|
./pkg/cheapaml/cheapaml.F |
229 |
CHEAPAML |
I bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
240 |
CHEAPAML |
I bi, bj, 1-olx,snx+olx ,1-oly, sny+oly, |
|
./pkg/cheapaml/cheapaml.F |
252 |
CHEAPAML |
I bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
281 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
284 |
CHEAPAML |
to=theta(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
285 |
CHEAPAML |
t=Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
330 |
CHEAPAML |
uw=uwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
331 |
CHEAPAML |
vw=vwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
354 |
CHEAPAML |
xflu=(-solar(i,j,bi,bj)+xalw+flha)*xef*hfacC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
357 |
CHEAPAML |
xfld=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml.F |
358 |
CHEAPAML |
.*xef*hfacC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
361 |
CHEAPAML |
gTair(i,j,bi,bj)=(xfld-xflu)*hm |
|
./pkg/cheapaml/cheapaml.F |
367 |
CHEAPAML |
Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha) |
|
./pkg/cheapaml/cheapaml.F |
368 |
CHEAPAML |
.*hfacC(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
378 |
CHEAPAML |
I bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
396 |
CHEAPAML |
I bi, bj, 1-olx,snx+olx ,1-oly, sny+oly, |
|
./pkg/cheapaml/cheapaml.F |
409 |
CHEAPAML |
I bi, bj, |
|
./pkg/cheapaml/cheapaml.F |
422 |
CHEAPAML |
dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
423 |
CHEAPAML |
Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+xgs*deltaT*dtemp |
|
./pkg/cheapaml/cheapaml.F |
424 |
CHEAPAML |
.*xrelf*(1.d0-hFacC(i,j,1,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml.F |
446 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
447 |
CHEAPAML |
& *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
452 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
453 |
CHEAPAML |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
56 |
CHEAPAML |
integer bi,bj |
|
./pkg/cheapaml/cheapaml_fields_load.F |
113 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
120 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
128 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
132 |
CHEAPAML_FIELDS_LOAD |
local=solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
136 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
144 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
148 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj)+273.16d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
150 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.8d0*ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
158 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
163 |
CHEAPAML_FIELDS_LOAD |
uwind(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
171 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
175 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = 0.d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
272 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
275 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
276 |
CHEAPAML_FIELDS_LOAD |
& +aWght*trair1(i,j,bi,bj) !+273.15 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
277 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
278 |
CHEAPAML_FIELDS_LOAD |
& +aWght*qrair1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
279 |
CHEAPAML_FIELDS_LOAD |
uwind(i,j,bi,bj) = bWght*uwind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
280 |
CHEAPAML_FIELDS_LOAD |
& +aWght*uwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
281 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = bWght*vwind0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
282 |
CHEAPAML_FIELDS_LOAD |
& +aWght*vwind1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
283 |
CHEAPAML_FIELDS_LOAD |
solar(i,j,bi,bj) = bWght*solar0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
284 |
CHEAPAML_FIELDS_LOAD |
& +aWght*solar1(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
298 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
304 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
315 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
319 |
CHEAPAML_FIELDS_LOAD |
local=solar(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
323 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
336 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
340 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj)+273.16d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
342 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.8d0*ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
353 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
362 |
CHEAPAML_FIELDS_LOAD |
uwind(i,j,bi,bj) = local |
|
./pkg/cheapaml/cheapaml_fields_load.F |
373 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
377 |
CHEAPAML_FIELDS_LOAD |
vwind(i,j,bi,bj) = 0.d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
78 |
CHEAPAML_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
36 |
CHEAPAML_INIT_VARIA |
INTEGER bi, bj |
|
./pkg/cheapaml/cheapaml_init_varia.F |
50 |
CHEAPAML_INIT_VARIA |
DO bi=1,nSx |
|
./pkg/cheapaml/cheapaml_init_varia.F |
54 |
CHEAPAML_INIT_VARIA |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
57 |
CHEAPAML_INIT_VARIA |
Tair(i,j,bi,bj) = localt |
|
./pkg/cheapaml/cycle_2d_tracer.F |
10 |
CYCLE_2D_TRACER |
I bi, bj, |
|
./pkg/cheapaml/cycle_2d_tracer.F |
34 |
CYCLE_2D_TRACER |
INTEGER bi,bj |
|
./pkg/cheapaml/cycle_2d_tracer.F |
50 |
CYCLE_2D_TRACER |
tracer(i,j,bi,bj)=gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
103 |
GAD_2D_CALC_RHS |
localT(i,j)=tracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
115 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid) |
|
./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 |
124 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
155 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
166 |
GAD_2D_CALC_RHS |
gTracer(i,j,bi,bj)=gTracer(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
167 |
GAD_2D_CALC_RHS |
& - (recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
169 |
GAD_2D_CALC_RHS |
& +recip_dyC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
57 |
GAD_2D_CALC_RHS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./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 |
35 |
GAD_DIFF_2D_X |
INTEGER bi,bj,k |
|
./pkg/cheapaml/gad_diff_2d_x.F |
53 |
GAD_DIFF_2D_X |
& *_recip_dxC(i,j,bi,bj) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
55 |
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,k,jG |
|
./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/timestep_2d_tracer.F |
10 |
TIMESTEP_2D_TRACER |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/cheapaml/timestep_2d_tracer.F |
30 |
TIMESTEP_2D_TRACER |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/cheapaml/timestep_2d_tracer.F |
47 |
TIMESTEP_2D_TRACER |
gTracer(i,j,bi,bj)=tracer(i,j,bi,bj) |
|
./pkg/cheapaml/timestep_2d_tracer.F |
48 |
TIMESTEP_2D_TRACER |
& +deltaTtracer*gTracer(i,j,bi,bj) |
|
./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 |
30 |
COMPRECV_R4TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./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 |
30 |
COMPRECV_R8TILES |
bi=my_tile_bi(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 |
28 |
COMPSEND_R4TILES |
bi=my_tile_bi(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 |
28 |
COMPSEND_R8TILES |
bi=my_tile_bi(bibj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/mitcomponent_register.F |
23 |
MITCOMPONENT_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
25 |
MITCOMPONENT_TILE_REGISTER |
integer bi,bj,num_tiles,bibj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
32 |
MITCOMPONENT_TILE_REGISTER |
do bi=1,ntx |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
33 |
MITCOMPONENT_TILE_REGISTER |
if ( ireg(1,bi,bj)*ireg(2,bi,bj).gt.0 ) then |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
35 |
MITCOMPONENT_TILE_REGISTER |
my_tile_nx(num_tiles)=ireg(1,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
36 |
MITCOMPONENT_TILE_REGISTER |
my_tile_ny(num_tiles)=ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
37 |
MITCOMPONENT_TILE_REGISTER |
my_tile_i0(num_tiles)=ireg(3,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
38 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(num_tiles)=ireg(4,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
39 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bi(num_tiles)=bi |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
42 |
MITCOMPONENT_TILE_REGISTER |
& write(LogUnit,*) 'MITCOMPONENT_tile_register: bi,bj=',bi,bj, |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
43 |
MITCOMPONENT_TILE_REGISTER |
& ' nx,ny=',ireg(1,bi,bj),ireg(2,bi,bj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
46 |
MITCOMPONENT_TILE_REGISTER |
& 'MITCOMPONENT_tile_register: blank bi,bj=',bi,bj |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
81 |
MITCOMPONENT_TILE_REGISTER |
bi=my_tile_bi(bibj) |
|
./eesupp/src/print.F |
1013 |
PRINT_MAPRS |
DO bi=accBlo, accBhi, accBstr |
|
./eesupp/src/print.F |
1015 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1035 |
PRINT_MAPRS |
DO bi=accBlo, accBhi, accBstr |
|
./eesupp/src/print.F |
1037 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1054 |
PRINT_MAPRS |
DO bi=accBlo,accBhi,accBstr |
|
./eesupp/src/print.F |
1058 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1231 |
PRINT_MAPRL |
INTEGER bi, bj, bk |
|
./eesupp/src/print.F |
1243 |
PRINT_MAPRL |
DO bi=bxMin, bxMax, bxStr |
|
./eesupp/src/print.F |
1247 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1250 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1447 |
PRINT_MAPRL |
DO bi=accBlo, accBhi, accBstr |
|
./eesupp/src/print.F |
1449 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1468 |
PRINT_MAPRL |
DO bi=accBlo, accBhi, accBstr |
|
./eesupp/src/print.F |
1470 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1486 |
PRINT_MAPRL |
DO bi=accBlo,accBhi,accBstr |
|
./eesupp/src/print.F |
1490 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
798 |
PRINT_MAPRS |
INTEGER bi, bj, bk |
|
./eesupp/src/print.F |
810 |
PRINT_MAPRS |
DO bi=bxMin, bxMax, bxStr |
|
./eesupp/src/print.F |
814 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
815 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
26 |
COST_ACCUMULATE_MEAN |
integer bi, bj |
|
./pkg/cost/cost_accumulate_mean.F |
45 |
COST_ACCUMULATE_MEAN |
do bi = itlo,ithi |
|
./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 |
141 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
186 |
COST_ATLANTIC_HEAT |
objf_atl(bi,bj) = |
|
./pkg/cost/cost_atlantic_heat.F |
189 |
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 |
61 |
COST_ATLANTIC_HEAT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cost/cost_atlantic_heat.F |
74 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
98 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_dependent_init.F |
40 |
COST_DEPENDENT_INIT |
integer bi,bj |
|
./pkg/cost/cost_dependent_init.F |
61 |
COST_DEPENDENT_INIT |
do bi = itlo,ithi |
|
./pkg/cost/cost_dependent_init.F |
64 |
COST_DEPENDENT_INIT |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
65 |
COST_DEPENDENT_INIT |
adobjf_vector(i,bi,bj) = 1. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
72 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
74 |
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 |
41 |
COST_DEPTH |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/cost/cost_final.F |
100 |
COST_FINAL |
& ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj) |
|
./pkg/cost/cost_final.F |
102 |
COST_FINAL |
& ' --> objf_atl(bi,bj) = ', objf_atl(bi,bj) |
|
./pkg/cost/cost_final.F |
105 |
COST_FINAL |
& ' --> objf_temp_tut(bi,bj) = ', objf_temp_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
109 |
COST_FINAL |
& ' --> objf_hflux_tut(bi,bj) = ', objf_hflux_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
113 |
COST_FINAL |
& ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj) |
|
./pkg/cost/cost_final.F |
117 |
COST_FINAL |
& ' --> objf_shelfice(bi,bj) = ', objf_shelfice(bi,bj) |
|
./pkg/cost/cost_final.F |
121 |
COST_FINAL |
& + mult_test * objf_test(bi,bj) |
|
./pkg/cost/cost_final.F |
122 |
COST_FINAL |
& + mult_tracer * objf_tracer(bi,bj) |
|
./pkg/cost/cost_final.F |
123 |
COST_FINAL |
& + mult_atl * objf_atl(bi,bj) |
|
./pkg/cost/cost_final.F |
125 |
COST_FINAL |
& + mult_transport * objf_transport(bi,bj) |
|
./pkg/cost/cost_final.F |
128 |
COST_FINAL |
& + mult_temp_tut * objf_temp_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
131 |
COST_FINAL |
& + mult_hflux_tut * objf_hflux_tut(bi,bj) |
|
./pkg/cost/cost_final.F |
134 |
COST_FINAL |
& + mult_shelfice * objf_shelfice(bi,bj) |
|
./pkg/cost/cost_final.F |
47 |
COST_FINAL |
integer bi,bj |
|
./pkg/cost/cost_final.F |
95 |
COST_FINAL |
do bi = itlo,ithi |
|
./pkg/cost/cost_final.F |
98 |
COST_FINAL |
& ' --> objf_test(bi,bj) = ', objf_test(bi,bj) |
|
./eesupp/src/scatter_xz.F |
18 |
SCATTER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/scatter_xz.F |
35 |
SCATTER_XZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_xz.F |
37 |
SCATTER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
38 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
54 |
SCATTER_XZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_xz.F |
56 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
57 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
65 |
SCATTER_XZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_xz.F |
67 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
68 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./pkg/cost/cost_init_varia.F |
42 |
COST_INIT_VARIA |
integer bi,bj |
|
./pkg/cost/cost_init_varia.F |
56 |
COST_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/cost/cost_init_varia.F |
57 |
COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
58 |
COST_INIT_VARIA |
objf_test(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
59 |
COST_INIT_VARIA |
objf_tracer(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
61 |
COST_INIT_VARIA |
objf_transport(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
64 |
COST_INIT_VARIA |
objf_depth(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
68 |
COST_INIT_VARIA |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
76 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
77 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
90 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
92 |
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 |
32 |
COST_STATE_FINAL |
DO bi=myBxLo(myThid),myBxHi(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 |
29 |
COST_TEST |
integer bi, bj |
|
./pkg/cost/cost_test.F |
64 |
COST_TEST |
do bi = itlo,ithi |
|
./pkg/cost/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
74 |
COST_TEST |
objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
77 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj) |
|
./pkg/cost/cost_test.F |
81 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + |
|
./pkg/cost/cost_test.F |
82 |
COST_TEST |
& theta(i,j,kLocOut,bi,bj)**2 |
|
./pkg/cost/cost_tile.F |
121 |
COST_TILE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cost/cost_tile.F |
124 |
COST_TILE |
CALL COST_TRACER( bi, bj, myThid ) |
|
./pkg/cost/cost_tile.F |
128 |
COST_TILE |
CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid ) |
|
./pkg/cost/cost_tile.F |
94 |
COST_TILE |
integer bi, bj |
|
./pkg/cost/cost_tracer.F |
36 |
COST_TRACER |
integer bi, bj |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(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 |
65 |
COST_TRACER |
print *, 'COST TRACER nach', objf_tracer(bi,bj), |
|
./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 |
57 |
COST_VECTOR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/cost/cost_vector.F |
65 |
COST_VECTOR |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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 |
111 |
ADCTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
145 |
ADCTRL_BOUND_2D |
do bi = itlo,ithi |
|
./pkg/ctrl/adctrl_bound.F |
148 |
ADCTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) then |
|
./pkg/ctrl/adctrl_bound.F |
149 |
ADCTRL_BOUND_2D |
xCur=fieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
150 |
ADCTRL_BOUND_2D |
adxCur=adjFieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
153 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
158 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
31 |
ADCTRL_BOUND_3D |
integer bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
59 |
ADCTRL_BOUND_3D |
do bi = itlo,ithi |
|
./pkg/ctrl/adctrl_bound.F |
63 |
ADCTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) then |
|
./pkg/ctrl/adctrl_bound.F |
64 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
65 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
68 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
73 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./eesupp/src/scatter_yz.F |
18 |
SCATTER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/scatter_yz.F |
35 |
SCATTER_YZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_yz.F |
37 |
SCATTER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
38 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
54 |
SCATTER_YZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_yz.F |
56 |
SCATTER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
57 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
65 |
SCATTER_YZ |
DO bi=1,nSx |
|
./eesupp/src/scatter_yz.F |
67 |
SCATTER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
68 |
SCATTER_YZ |
temp(j,bi,bj) = global(jG) |
|
./pkg/ctrl/ctrl_bound.F |
23 |
CTRL_BOUND_3D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
37 |
CTRL_BOUND_3D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_bound.F |
41 |
CTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) then |
|
./pkg/ctrl/ctrl_bound.F |
42 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).gt.boundsVec(4)) then |
|
./pkg/ctrl/ctrl_bound.F |
43 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
45 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).lt.boundsVec(1)) then |
|
./pkg/ctrl/ctrl_bound.F |
46 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_bound.F |
77 |
CTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
91 |
CTRL_BOUND_2D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_bound.F |
94 |
CTRL_BOUND_2D |
IF (maskFld3d(i,j,1,bi,bj).NE.0.) then |
|
./pkg/ctrl/ctrl_bound.F |
95 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).gt.boundsVec(4)) then |
|
./pkg/ctrl/ctrl_bound.F |
96 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
98 |
CTRL_BOUND_2D |
IF (fieldCur(i,j,bi,bj).lt.boundsVec(1)) then |
|
./pkg/ctrl/ctrl_bound.F |
99 |
CTRL_BOUND_2D |
fieldCur(i,j,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_depth_ini.F |
103 |
CTRL_DEPTH_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_depth_ini.F |
106 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
119 |
CTRL_DEPTH_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_depth_ini.F |
122 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
123 |
CTRL_DEPTH_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
39 |
CTRL_DEPTH_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_depth_ini.F |
92 |
CTRL_DEPTH_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_depth_ini.F |
95 |
CTRL_DEPTH_INI |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen.F |
202 |
CTRL_GET_GEN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_get_gen.F |
207 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = genfld (i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
208 |
CTRL_GET_GEN |
& + gensign*genfac *xx_gen0(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
209 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen.F |
210 |
CTRL_GET_GEN |
genfld(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_get_gen.F |
211 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
63 |
CTRL_GET_GEN |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcse.F |
138 |
CTRL_GETOBCSE |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
140 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
143 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
144 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcse.F |
154 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
155 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
158 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
162 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
173 |
CTRL_GETOBCSE |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
175 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
178 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
179 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcse.F |
189 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
190 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
192 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
193 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
197 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
208 |
CTRL_GETOBCSE |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
211 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
222 |
CTRL_GETOBCSE |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
225 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
234 |
CTRL_GETOBCSE |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
237 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
256 |
CTRL_GETOBCSE |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
258 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
261 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
262 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcse.F |
272 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
276 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
280 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
291 |
CTRL_GETOBCSE |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
293 |
CTRL_GETOBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
296 |
CTRL_GETOBCSE |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
297 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcse.F |
307 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
308 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
310 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
311 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
315 |
CTRL_GETOBCSE |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
326 |
CTRL_GETOBCSE |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
329 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
339 |
CTRL_GETOBCSE |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcse.F |
343 |
CTRL_GETOBCSE |
i = OB_Ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
345 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
346 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
347 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
348 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
349 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
351 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
352 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
353 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
354 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
355 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
357 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
358 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
359 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
360 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
361 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
363 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
364 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
365 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
366 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
367 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
53 |
CTRL_GETOBCSE |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcsn.F |
142 |
CTRL_GETOBCSN |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
146 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
149 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
150 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
151 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
156 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
166 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
169 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
170 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
174 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
186 |
CTRL_GETOBCSN |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
190 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
193 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
194 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
204 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
205 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
208 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
212 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
227 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
238 |
CTRL_GETOBCSN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
241 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
250 |
CTRL_GETOBCSN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
253 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
272 |
CTRL_GETOBCSN |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
276 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
280 |
CTRL_GETOBCSN |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_getobcsn.F |
281 |
CTRL_GETOBCSN |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
287 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
297 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
298 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
300 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
301 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
305 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
316 |
CTRL_GETOBCSN |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
320 |
CTRL_GETOBCSN |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
323 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
324 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
334 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
335 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
337 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
338 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
342 |
CTRL_GETOBCSN |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
353 |
CTRL_GETOBCSN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
356 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
367 |
CTRL_GETOBCSN |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsn.F |
371 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
373 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
374 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
375 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
376 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
377 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
380 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
381 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
382 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
383 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
384 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
387 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
388 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
389 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
390 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
391 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
394 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
395 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
396 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
397 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
398 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
54 |
CTRL_GETOBCSN |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcss.F |
139 |
CTRL_GETOBCSS |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
141 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
144 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
145 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcss.F |
155 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
156 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
158 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
159 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
163 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
175 |
CTRL_GETOBCSS |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
177 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
180 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
181 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcss.F |
191 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
192 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
194 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
195 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
199 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
210 |
CTRL_GETOBCSS |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
213 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
224 |
CTRL_GETOBCSS |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
227 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
236 |
CTRL_GETOBCSS |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
239 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
258 |
CTRL_GETOBCSS |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
263 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
264 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcss.F |
274 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
275 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
277 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
282 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
294 |
CTRL_GETOBCSS |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
296 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
299 |
CTRL_GETOBCSS |
vbaro = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
300 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcss.F |
310 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
311 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
313 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
314 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
318 |
CTRL_GETOBCSS |
tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
329 |
CTRL_GETOBCSS |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
332 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
342 |
CTRL_GETOBCSS |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcss.F |
346 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
348 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
349 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
350 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
351 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
352 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
354 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
355 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
356 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
357 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
358 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
360 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
361 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
362 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
363 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
364 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
366 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
367 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
368 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
369 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
370 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
55 |
CTRL_GETOBCSS |
integer bi,bj |
|
./pkg/ctrl/ctrl_getobcsw.F |
138 |
CTRL_GETOBCSW |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
140 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
143 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
144 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
154 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
158 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
162 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
173 |
CTRL_GETOBCSW |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
175 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
178 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
179 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
189 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
190 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
192 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
193 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
197 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
208 |
CTRL_GETOBCSW |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
211 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
225 |
CTRL_GETOBCSW |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
237 |
CTRL_GETOBCSW |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
259 |
CTRL_GETOBCSW |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
261 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
264 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
265 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
275 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
283 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
294 |
CTRL_GETOBCSW |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
296 |
CTRL_GETOBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
299 |
CTRL_GETOBCSW |
ubaro = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
300 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = 0.d0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
310 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
311 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
313 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
314 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
318 |
CTRL_GETOBCSW |
tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
329 |
CTRL_GETOBCSW |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
332 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
342 |
CTRL_GETOBCSW |
do bi = itlo, ithi |
|
./pkg/ctrl/ctrl_getobcsw.F |
346 |
CTRL_GETOBCSW |
i = OB_Iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
348 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
349 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
350 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
351 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
352 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
354 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
355 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
356 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
357 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
358 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
360 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
361 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
362 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
363 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
364 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
366 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
367 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
368 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
369 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
370 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
54 |
CTRL_GETOBCSW |
integer bi,bj |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
100 |
CTRL_HFACC_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
125 |
CTRL_HFACC_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
129 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
141 |
CTRL_HFACC_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
144 |
CTRL_HFACC_INI |
k = k_lowC(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
146 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
147 |
CTRL_HFACC_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
39 |
CTRL_HFACC_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_init.F |
1071 |
CTRL_INIT |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init.F |
1074 |
CTRL_INIT |
wareaunit (i,j,bi,bj) = 1.0 |
|
./pkg/ctrl/ctrl_init.F |
1076 |
CTRL_INIT |
whflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1077 |
CTRL_INIT |
wsflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1078 |
CTRL_INIT |
wtauu (i,j,bi,bj) = maskW(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1079 |
CTRL_INIT |
wtauv (i,j,bi,bj) = maskS(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1080 |
CTRL_INIT |
watemp (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1081 |
CTRL_INIT |
waqh (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1082 |
CTRL_INIT |
wprecip (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1083 |
CTRL_INIT |
wswflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1084 |
CTRL_INIT |
wswdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1085 |
CTRL_INIT |
wuwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1086 |
CTRL_INIT |
wvwind (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1087 |
CTRL_INIT |
wlwflux (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1088 |
CTRL_INIT |
wlwdown (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1089 |
CTRL_INIT |
wevap (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1090 |
CTRL_INIT |
wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1091 |
CTRL_INIT |
wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1092 |
CTRL_INIT |
wrunoff (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1093 |
CTRL_INIT |
wsst (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
1094 |
CTRL_INIT |
wsss (i,j,bi,bj) = maskC(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_init.F |
88 |
CTRL_INIT |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
100 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
111 |
CTRL_INIT_OBCS_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
114 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
115 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
42 |
CTRL_INIT_OBCS_VARIABLES |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
66 |
CTRL_INIT_OBCS_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
69 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
70 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
81 |
CTRL_INIT_OBCS_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
84 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
85 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
96 |
CTRL_INIT_OBCS_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
99 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
101 |
CTRL_INIT_VARIABLES |
xx_tauv0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
102 |
CTRL_INIT_VARIABLES |
xx_tauv1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
111 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
114 |
CTRL_INIT_VARIABLES |
xx_uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
115 |
CTRL_INIT_VARIABLES |
xx_uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
124 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
127 |
CTRL_INIT_VARIABLES |
xx_vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
128 |
CTRL_INIT_VARIABLES |
xx_vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
137 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
140 |
CTRL_INIT_VARIABLES |
xx_atemp0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
141 |
CTRL_INIT_VARIABLES |
xx_atemp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
150 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
153 |
CTRL_INIT_VARIABLES |
xx_aqh0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
154 |
CTRL_INIT_VARIABLES |
xx_aqh1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
163 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
166 |
CTRL_INIT_VARIABLES |
xx_precip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
167 |
CTRL_INIT_VARIABLES |
xx_precip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
176 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
179 |
CTRL_INIT_VARIABLES |
xx_swflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
180 |
CTRL_INIT_VARIABLES |
xx_swflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
189 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
192 |
CTRL_INIT_VARIABLES |
xx_swdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
193 |
CTRL_INIT_VARIABLES |
xx_swdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
202 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
205 |
CTRL_INIT_VARIABLES |
xx_lwflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
206 |
CTRL_INIT_VARIABLES |
xx_lwflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
215 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
218 |
CTRL_INIT_VARIABLES |
xx_lwdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
219 |
CTRL_INIT_VARIABLES |
xx_lwdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
228 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
231 |
CTRL_INIT_VARIABLES |
xx_evap0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
232 |
CTRL_INIT_VARIABLES |
xx_evap1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
241 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
244 |
CTRL_INIT_VARIABLES |
xx_snowprecip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
245 |
CTRL_INIT_VARIABLES |
xx_snowprecip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
254 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
257 |
CTRL_INIT_VARIABLES |
xx_apressure0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
258 |
CTRL_INIT_VARIABLES |
xx_apressure1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
267 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
270 |
CTRL_INIT_VARIABLES |
xx_runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
271 |
CTRL_INIT_VARIABLES |
xx_runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
280 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
283 |
CTRL_INIT_VARIABLES |
xx_sst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
284 |
CTRL_INIT_VARIABLES |
xx_sst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
293 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
296 |
CTRL_INIT_VARIABLES |
xx_sss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
297 |
CTRL_INIT_VARIABLES |
xx_sss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
37 |
CTRL_INIT_VARIABLES |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_variables.F |
59 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
62 |
CTRL_INIT_VARIABLES |
xx_hflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
63 |
CTRL_INIT_VARIABLES |
xx_hflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
72 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
75 |
CTRL_INIT_VARIABLES |
xx_sflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
76 |
CTRL_INIT_VARIABLES |
xx_sflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
85 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_variables.F |
88 |
CTRL_INIT_VARIABLES |
xx_tauu0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
89 |
CTRL_INIT_VARIABLES |
xx_tauu1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
98 |
CTRL_INIT_VARIABLES |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_wet.F |
103 |
CTRL_INIT_WET |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_wet.F |
108 |
CTRL_INIT_WET |
if (hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
109 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = nwetctile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
112 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
113 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = nwetstile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
116 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
117 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = nwetwtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
122 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = nwetvtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
168 |
CTRL_INIT_WET |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_wet.F |
172 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
175 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
178 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
181 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
203 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
209 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
33 |
CTRL_INIT_WET |
integer bi,bj |
|
./pkg/ctrl/ctrl_init_wet.F |
344 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
345 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
353 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
354 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
362 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
363 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
371 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
372 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
396 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
412 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
413 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
428 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
444 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
532 |
CTRL_INIT_WET |
do bi=1,nSx |
|
./pkg/ctrl/ctrl_init_wet.F |
534 |
CTRL_INIT_WET |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
539 |
CTRL_INIT_WET |
tmpfld3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
67 |
CTRL_INIT_WET |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_wet.F |
69 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
70 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
71 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
72 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
80 |
CTRL_INIT_WET |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_init_wet.F |
84 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
87 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
90 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
93 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
100 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
102 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
119 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
123 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
124 |
CTRL_MAP_FORCING |
& xx_tauv0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
125 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
127 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
144 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
148 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
149 |
CTRL_MAP_FORCING |
& xx_sflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
150 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
152 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
169 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
173 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
174 |
CTRL_MAP_FORCING |
& xx_hflux0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
175 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
177 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
194 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
197 |
CTRL_MAP_FORCING |
sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
213 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
216 |
CTRL_MAP_FORCING |
sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
232 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
235 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
44 |
CTRL_MAP_FORCING |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_forcing.F |
94 |
CTRL_MAP_FORCING |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_forcing.F |
98 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
99 |
CTRL_MAP_FORCING |
& xx_tauu0(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
103 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
108 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
109 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
110 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
111 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
114 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
115 |
CTRL_MAP_INI |
& fac*xx_theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
116 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
118 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
119 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
122 |
CTRL_MAP_INI |
if(theta(i,j,k,bi,bj).lt.-2.0) |
|
./pkg/ctrl/ctrl_map_ini.F |
123 |
CTRL_MAP_INI |
& theta(i,j,k,bi,bj)= -2.0 |
|
./pkg/ctrl/ctrl_map_ini.F |
143 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
148 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
149 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
150 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
151 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
154 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
155 |
CTRL_MAP_INI |
& fac*xx_salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
156 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
159 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
180 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
184 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
185 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
203 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
207 |
CTRL_MAP_INI |
theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
208 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
224 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
228 |
CTRL_MAP_INI |
salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
229 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
246 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
251 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
252 |
CTRL_MAP_INI |
& xx_diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
253 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
255 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
256 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
276 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
281 |
CTRL_MAP_INI |
kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
282 |
CTRL_MAP_INI |
& xx_kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
283 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
285 |
CTRL_MAP_INI |
kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
286 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
306 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
310 |
CTRL_MAP_INI |
kapredi(i,j,k,bi,bj) = kapredi(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
311 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
330 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
334 |
CTRL_MAP_INI |
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
335 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
336 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
357 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
361 |
CTRL_MAP_INI |
EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
362 |
CTRL_MAP_INI |
& + fCori(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
363 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
385 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
388 |
CTRL_MAP_INI |
bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
389 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
405 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
409 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
410 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
424 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
428 |
CTRL_MAP_INI |
eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
429 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
446 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
451 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
452 |
CTRL_MAP_INI |
& fac*xx_uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
455 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
473 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
478 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
479 |
CTRL_MAP_INI |
& fac*xx_vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
482 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
49 |
CTRL_MAP_INI |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini.F |
500 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
504 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
505 |
CTRL_MAP_INI |
& fac*xx_etan(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
507 |
CTRL_MAP_INI |
etaN(i,j,bi,bj) = etaN(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
508 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
525 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
528 |
CTRL_MAP_INI |
lambdaThetaClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
529 |
CTRL_MAP_INI |
& lambdaThetaClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
530 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
546 |
CTRL_MAP_INI |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini.F |
549 |
CTRL_MAP_INI |
lambdaSaltClimRelax(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_map_ini.F |
550 |
CTRL_MAP_INI |
& lambdaSaltClimRelax(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
551 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
113 |
CTRL_MAP_INI_ECCO |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
116 |
CTRL_MAP_INI_ECCO |
tmpfld2d(i,j,bi,bj) = 1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
124 |
CTRL_MAP_INI_ECCO |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
128 |
CTRL_MAP_INI_ECCO |
tmpfld3d(i,j,k,bi,bj)=1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
66 |
CTRL_MAP_INI_ECCO |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
115 |
CTRL_MAP_INI_GEN3D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
119 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
120 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
121 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
122 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
123 |
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 |
125 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
142 |
CTRL_MAP_INI_GEN3D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
148 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
149 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
150 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
151 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
153 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
156 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
157 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
232 |
CTRL_MAP_INI_GEN2D |
integer bi,bj |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
287 |
CTRL_MAP_INI_GEN2D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
290 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
291 |
CTRL_MAP_INI_GEN2D |
& (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
292 |
CTRL_MAP_INI_GEN2D |
tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
293 |
CTRL_MAP_INI_GEN2D |
if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
294 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
296 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
312 |
CTRL_MAP_INI_GEN2D |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
317 |
CTRL_MAP_INI_GEN2D |
if ( (maskFld3d(i,j,1,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
318 |
CTRL_MAP_INI_GEN2D |
& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
319 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
320 |
CTRL_MAP_INI_GEN2D |
& /sqrt( wFld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
322 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
325 |
CTRL_MAP_INI_GEN2D |
paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
326 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
60 |
CTRL_MAP_INI_GEN3D |
integer bi,bj |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
100 |
CTRL_MASK_SET_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
103 |
CTRL_MASK_SET_XZ |
j = OB_J(I,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
107 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
108 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
109 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
114 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
115 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
116 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
132 |
CTRL_MASK_SET_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
135 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
44 |
CTRL_MASK_SET_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
91 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
101 |
CTRL_MASK_SET_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
104 |
CTRL_MASK_SET_YZ |
i = OB_I(J,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
108 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
109 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
110 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
115 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
116 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
117 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
133 |
CTRL_MASK_SET_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
136 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
44 |
CTRL_MASK_SET_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
89 |
CTRL_MASK_SET_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
92 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
56 |
CTRL_OBCSBAL |
integer bi,bj |
|
./pkg/ctrl/ctrl_obcsvol.F |
177 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
184 |
CTRL_OBCSVOL |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
185 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
187 |
CTRL_OBCSVOL |
if(ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
190 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
191 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
213 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
220 |
CTRL_OBCSVOL |
j = Ob_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
221 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
223 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
226 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
227 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
248 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
256 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
257 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
259 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
284 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
292 |
CTRL_OBCSVOL |
i = ob_ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
293 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
295 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
335 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
342 |
CTRL_OBCSVOL |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
343 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
345 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
348 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
349 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
371 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
378 |
CTRL_OBCSVOL |
j = Ob_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
379 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
381 |
CTRL_OBCSVOL |
if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
384 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
385 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
406 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
414 |
CTRL_OBCSVOL |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
415 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
417 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
442 |
CTRL_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_obcsvol.F |
450 |
CTRL_OBCSVOL |
i = ob_ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
451 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
453 |
CTRL_OBCSVOL |
if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
53 |
CTRL_OBCSVOL |
integer bi,bj |
|
./pkg/ctrl/ctrl_readparms.F |
44 |
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 |
72 |
CTRL_SET_GLOBFLD_XY |
do bi = itlo,ithi |
|
./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 |
82 |
CTRL_SET_GLOBFLD_XY |
do bi = itlo,ithi |
|
./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 |
66 |
CTRL_SET_GLOBFLD_XYZ |
do bi = itlo,ithi |
|
./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 |
72 |
CTRL_SET_GLOBFLD_XZ |
do bi = itlo,ithi |
|
./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 |
82 |
CTRL_SET_GLOBFLD_XZ |
do bi = itlo,ithi |
|
./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 |
73 |
CTRL_SET_GLOBFLD_YZ |
do bi = itlo,ithi |
|
./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 |
83 |
CTRL_SET_GLOBFLD_YZ |
do bi = itlo,ithi |
|
./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 |
100 |
CTRL_SET_PACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
102 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
103 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
104 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
105 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
175 |
CTRL_SET_PACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
177 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
180 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
181 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
187 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
188 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
192 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
193 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
197 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
202 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
206 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
211 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
261 |
CTRL_SET_PACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
263 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
266 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
267 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
273 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
274 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
278 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
279 |
CTRL_SET_PACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
283 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
288 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
292 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
297 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
340 |
CTRL_SET_PACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
408 |
CTRL_SET_PACK_XY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
411 |
CTRL_SET_PACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
412 |
CTRL_SET_PACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
413 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
417 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
418 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / forcingPrecond |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
420 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
421 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * forcingPrecond |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
425 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
428 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
429 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
432 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
433 |
CTRL_SET_PACK_XY |
& fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
50 |
CTRL_SET_PACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
109 |
CTRL_SET_PACK_XYZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
111 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
112 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
113 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
114 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
190 |
CTRL_SET_PACK_XYZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
192 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
195 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
196 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
202 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
204 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
206 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
210 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
212 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
214 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
218 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
221 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
267 |
CTRL_SET_PACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
339 |
CTRL_SET_PACK_XYZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
348 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
349 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
350 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
353 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
356 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
359 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
360 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
362 |
CTRL_SET_PACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
364 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
367 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
368 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
370 |
CTRL_SET_PACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
372 |
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 |
106 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
109 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
110 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
112 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
126 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
128 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
186 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
218 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
223 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
242 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
246 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
249 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
250 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
255 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
257 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
263 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
265 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
271 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
274 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
316 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
321 |
CTRL_SET_PACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
340 |
CTRL_SET_PACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
342 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
345 |
CTRL_SET_PACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
346 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
351 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
353 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
359 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
361 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
367 |
CTRL_SET_PACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
370 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
53 |
CTRL_SET_PACK_XZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
105 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
106 |
CTRL_SET_PACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
107 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
108 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
110 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
124 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
126 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
185 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
221 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
244 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
249 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
252 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
253 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
258 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
260 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
266 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
268 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
274 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
277 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
322 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
326 |
CTRL_SET_PACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
345 |
CTRL_SET_PACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
347 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
350 |
CTRL_SET_PACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
351 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
356 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
358 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
364 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
366 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
372 |
CTRL_SET_PACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
375 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
53 |
CTRL_SET_PACK_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
102 |
CTRL_SET_UNPACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
104 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
106 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
107 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
200 |
CTRL_SET_UNPACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
202 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
204 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
206 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
210 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
213 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
220 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
222 |
CTRL_SET_UNPACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
225 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
226 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)* |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
227 |
CTRL_SET_UNPACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
233 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
234 |
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 |
238 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
243 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
246 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
247 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
308 |
CTRL_SET_UNPACK_XY |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
310 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
312 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
314 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
318 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
321 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
328 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
329 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
330 |
CTRL_SET_UNPACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
333 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
334 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)* |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
335 |
CTRL_SET_UNPACK_XY |
& sqrt(globfld2d(i,bi,ip,j,bj,jp)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
341 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
342 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
345 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./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 |
351 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
354 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
355 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
387 |
CTRL_SET_UNPACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
51 |
CTRL_SET_UNPACK_XY |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
525 |
CTRL_SET_UNPACK_XY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
528 |
CTRL_SET_UNPACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
529 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
530 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
534 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
538 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
539 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * forcingPrecond |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
541 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
542 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / forcingPrecond |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
546 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
549 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
550 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
553 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
554 |
CTRL_SET_UNPACK_XY |
& fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
110 |
CTRL_SET_UNPACK_XYZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
112 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
113 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
114 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
115 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
220 |
CTRL_SET_UNPACK_XYZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
222 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
224 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
226 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
230 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
233 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
240 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
241 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
248 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
249 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
251 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
253 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
259 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
262 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
263 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
295 |
CTRL_SET_UNPACK_XYZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
436 |
CTRL_SET_UNPACK_XYZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
445 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
446 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
447 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
451 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
454 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
457 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
460 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
461 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
463 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
465 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
468 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
469 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
471 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
473 |
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 |
109 |
CTRL_SET_UNPACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
111 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
112 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
113 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
115 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
131 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
189 |
CTRL_SET_UNPACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
248 |
CTRL_SET_UNPACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
250 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
252 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
255 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
259 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
260 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
262 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
268 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
271 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
272 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
336 |
CTRL_SET_UNPACK_XZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
338 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
340 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
342 |
CTRL_SET_UNPACK_XZ |
globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
345 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
346 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
348 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
354 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
357 |
CTRL_SET_UNPACK_XZ |
globfldtmp3(i,bi,ip,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
358 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
54 |
CTRL_SET_UNPACK_XZ |
integer bi,bj |
|
./eesupp/src/write_utils.F |
876 |
WRITE_XY_XLINE_RS |
INTEGER bi, bj, i, j |
|
./eesupp/src/write_utils.F |
895 |
WRITE_XY_XLINE_RS |
DO bi=1,nSx |
|
./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 |
962 |
WRITE_XY_YLINE_RS |
bi = tCoord |
|
./eesupp/src/write_utils.F |
965 |
WRITE_XY_YLINE_RS |
WRITE(num2,'(I10)') bi |
|
./eesupp/src/write_utils.F |
978 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
110 |
CTRL_SET_UNPACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
111 |
CTRL_SET_UNPACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
112 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
113 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = 0. |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
115 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
131 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
190 |
CTRL_SET_UNPACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
246 |
CTRL_SET_UNPACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
250 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
252 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
255 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
259 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
260 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
262 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
268 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
271 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
334 |
CTRL_SET_UNPACK_YZ |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
335 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
337 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
339 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
342 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
343 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
345 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
351 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
354 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,j,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
355 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
54 |
CTRL_SET_UNPACK_YZ |
integer bi,bj |
|
./pkg/ctrl/ctrl_smooth.F |
17 |
CTRL_SMOOTH |
integer k, bi, bj |
|
./pkg/ctrl/ctrl_smooth.F |
43 |
CTRL_SMOOTH |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_smooth.F |
51 |
CTRL_SMOOTH |
& p25 * mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
55 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& p0625 * ( mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
57 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
58 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
68 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
69 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_smooth.F |
73 |
CTRL_SMOOTH |
fld_tmp(i,j) = fld(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_smooth.F |
81 |
CTRL_SMOOTH |
fld(i,j,bi,bj) = fld_tmp(i,j) |
|
./pkg/ctrl/ctrl_summary.F |
107 |
CTRL_SUMMARY |
do bi = 1,nsx |
|
./pkg/ctrl/ctrl_summary.F |
112 |
CTRL_SUMMARY |
nwetcenter = nwetcenter + nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
113 |
CTRL_SUMMARY |
nwetsouth = nwetsouth + nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
114 |
CTRL_SUMMARY |
nwetwest = nwetwest + nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
117 |
CTRL_SUMMARY |
& ' bi,bj,#(c/s/w):',bi,bj,nwetcenter, |
|
./pkg/ctrl/ctrl_summary.F |
41 |
CTRL_SUMMARY |
integer bi,bj |
|
./pkg/ctrl/ctrl_volflux.F |
177 |
CTRL_VOLFLUX |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_volflux.F |
184 |
CTRL_VOLFLUX |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
187 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
189 |
CTRL_VOLFLUX |
if(ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
191 |
CTRL_VOLFLUX |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
195 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
196 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
198 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
202 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
225 |
CTRL_VOLFLUX |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_volflux.F |
233 |
CTRL_VOLFLUX |
j = Ob_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
235 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
237 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).ne.i.and.ob_ie(j,bi,bj).ne.i)then |
|
./pkg/ctrl/ctrl_volflux.F |
238 |
CTRL_VOLFLUX |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
244 |
CTRL_VOLFLUX |
if (ob_iw(j,bi,bj).eq.(i-1).and. |
|
./pkg/ctrl/ctrl_volflux.F |
245 |
CTRL_VOLFLUX |
& ob_iw(j,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
247 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
252 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
276 |
CTRL_VOLFLUX |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_volflux.F |
287 |
CTRL_VOLFLUX |
i = ob_iw(j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
289 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
291 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).ne.j.and. ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_volflux.F |
292 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
299 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).eq.(j+1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
300 |
CTRL_VOLFLUX |
& ob_jn(i,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
334 |
CTRL_VOLFLUX |
do bi = itlo,ithi |
|
./pkg/ctrl/ctrl_volflux.F |
349 |
CTRL_VOLFLUX |
i = ob_ie(j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
351 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
353 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).ne.j .and.ob_js(i,bi,bj).ne.j)then |
|
./pkg/ctrl/ctrl_volflux.F |
354 |
CTRL_VOLFLUX |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
362 |
CTRL_VOLFLUX |
if (ob_jn(i,bi,bj).eq.(j+1) .and. |
|
./pkg/ctrl/ctrl_volflux.F |
363 |
CTRL_VOLFLUX |
& ob_jn(i,bi,bj).ne. 0) then |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
59 |
CTRL_VOLFLUX |
integer bi,bj |
|
./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 |
78 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,bi,bj)= uFld(1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
79 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,bi,bj)= uFld(1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
80 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,bi,bj)= uFld(sNx+1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
81 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,bi,bj)= uFld(sNx+1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
82 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,bi,bj)= vFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
83 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,bi,bj)= vFld(sNx+1-j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
84 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,bi,bj)= vFld(j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,bi,bj)= vFld(sNx+1-j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
88 |
DEBUG_CS_CORNER_UV |
IF (bi.EQ.nSx .AND. bj.EQ.nSy .AND. sNx.EQ.sNy) THEN |
|
./pkg/debug/debug_cs_corner_uv.F |
90 |
DEBUG_CS_CORNER_UV |
IF (bi.EQ.nSx .AND. nSy.EQ.1 .AND. nSx.EQ.6) 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 |
31 |
DEBUG_FLD_STATS_RL |
INTEGER bi,bj,I,J,K |
|
./pkg/debug/debug_fld_stats_rl.F |
46 |
DEBUG_FLD_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/debug/debug_fld_stats_rl.F |
50 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
85 |
DEBUG_FLD_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/debug/debug_fld_stats_rl.F |
89 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
31 |
DEBUG_FLD_STATS_RS |
INTEGER bi,bj,I,J,K |
|
./pkg/debug/debug_fld_stats_rs.F |
46 |
DEBUG_FLD_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/debug/debug_fld_stats_rs.F |
50 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
85 |
DEBUG_FLD_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/debug/debug_fld_stats_rs.F |
89 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/fill_in_corners_rl.F |
39 |
FILL_IN_CORNERS_RL |
INTEGER bi, bj |
|
./pkg/debug/fill_in_corners_rl.F |
42 |
FILL_IN_CORNERS_RL |
DO bi = myBxLo(myThid), myBxHi(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 |
51 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
73 |
WRITE_FULLARRAY_RL |
DO bi = 1,nSx |
|
./pkg/debug/write_fullarray_rl.F |
74 |
WRITE_FULLARRAY_RL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rl.F |
92 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,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_clear.F |
76 |
DIAGNOSTICS_CLRDIAG |
INTEGER bi,bj |
|
./pkg/diagnostics/diagnostics_clear.F |
85 |
DIAGNOSTICS_CLRDIAG |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_clear.F |
88 |
DIAGNOSTICS_CLRDIAG |
ndiag(kl,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_clear.F |
91 |
DIAGNOSTICS_CLRDIAG |
qdiag(i,j,kl,bi,bj) = 0.0 |
|
./pkg/diagnostics/diagnostics_fill.F |
114 |
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 |
77 |
DIAGNOSTICS_FILL |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_fill.F |
80 |
DIAGNOSTICS_FILL |
bi = biArg |
|
./pkg/diagnostics/diagnostics_fill.F |
90 |
DIAGNOSTICS_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
92 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
109 |
DIAGNOSTICS_FILL_FIELD |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
110 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
114 |
DIAGNOSTICS_FILL_FIELD |
bi = MIN(biArg,nSx) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
116 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
218 |
DIAGNOSTICS_FILL_FIELD |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
222 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
226 |
DIAGNOSTICS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
232 |
DIAGNOSTICS_FILL_FIELD |
bi = MIN(biArg,sizTx) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
241 |
DIAGNOSTICS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
267 |
DIAGNOSTICS_CUMULATE |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
312 |
DIAGNOSTICS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
333 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
334 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
335 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
342 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
343 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
344 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
351 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
352 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
353 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
360 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
361 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
362 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
376 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
377 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
384 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
385 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
392 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
393 |
DIAGNOSTICS_CUMULATE |
& *frcFldRL(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
400 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
401 |
DIAGNOSTICS_CUMULATE |
& *frcFldRS(i,j,l,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
414 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
415 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
422 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
423 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
440 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
447 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
96 |
DIAGNOSTICS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
114 |
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 |
77 |
DIAGNOSTICS_FILL_RS |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
80 |
DIAGNOSTICS_FILL_RS |
bi = biArg |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
90 |
DIAGNOSTICS_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
92 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
106 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
111 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,K,bi,bj)+uVel(i+1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
113 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,K,bi,bj)+vVel(i,j+1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
114 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
115 |
DIAGNOSTICS_FILL_STATE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
116 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
118 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = tmpU(i,j)*tmpV(i,j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
131 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
135 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
136 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,K,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
137 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,K,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
148 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
153 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
154 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
155 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
156 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
157 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAw(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
168 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
173 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
174 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
175 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
177 |
DIAGNOSTICS_FILL_STATE |
& )*recip_rAs(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
190 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
194 |
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 |
195 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
206 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
210 |
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 |
211 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
222 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
227 |
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 |
228 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
239 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
243 |
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 |
244 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
255 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
259 |
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 |
260 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
271 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
276 |
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 |
277 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
288 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
292 |
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 |
293 |
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 |
304 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
308 |
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 |
309 |
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 |
320 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
323 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
329 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
330 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
333 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
334 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
349 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
353 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
365 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
369 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
381 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
385 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
397 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
401 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
426 |
DIAGNOSTICS_FILL_STATE |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
430 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rc(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
433 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = hfacC(i,j,K,bi,bj) * |
|
./pkg/diagnostics/diagnostics_fill_state.F |
434 |
DIAGNOSTICS_FILL_STATE |
. salt(i,j,k,bi,bj) * 100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
479 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
483 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
498 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
502 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
503 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
514 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
518 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
519 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
536 |
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 |
537 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
538 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
53 |
DIAGNOSTICS_FILL_STATE |
INTEGER i,j,K,bi,bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
553 |
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 |
554 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
555 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
571 |
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 |
572 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
583 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
587 |
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 |
588 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
589 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
604 |
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 |
605 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
606 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
622 |
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 |
623 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
642 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
646 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
651 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTUTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
658 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
65 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
662 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTVTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
674 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
678 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
683 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
68 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
690 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
694 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
699 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
103 |
DIAGNOSTICS_FRACT_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
105 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
143 |
DIAGNOSTICS_FRACT_FILL |
IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
78 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
90 |
DIAGNOSTICS_FRACT_FILL |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
93 |
DIAGNOSTICS_FRACT_FILL |
bi = biArg |
|
./pkg/diagnostics/diagnostics_init_varia.F |
30 |
DIAGNOSTICS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
34 |
DIAGNOSTICS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
38 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
42 |
DIAGNOSTICS_INIT_VARIA |
ndiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
pdiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
53 |
DIAGNOSTICS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
57 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
112 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
115 |
DIAGNOSTICS_INTERP_VERT |
O qtmpsrf(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
116 |
DIAGNOSTICS_INTERP_VERT |
I jpoint1,0,ipoint1,0, bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
121 |
DIAGNOSTICS_INTERP_VERT |
O qtmp2(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
122 |
DIAGNOSTICS_INTERP_VERT |
I jpoint2,0,ipoint2,0, bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
131 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
134 |
DIAGNOSTICS_INTERP_VERT |
qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
140 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
152 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
156 |
DIAGNOSTICS_INTERP_VERT |
pksrf(i,j) = qtmpsrf(i,j,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
164 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
165 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
177 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
182 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
201 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
64 |
DIAGNOSTICS_INTERP_VERT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_is_on.F |
37 |
NO PROCEDURE |
INTEGER bi,bj |
|
./pkg/diagnostics/diagnostics_is_on.F |
40 |
NO PROCEDURE |
bi = myBxLo(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_out.F |
367 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
371 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
407 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
412 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
420 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
424 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
567 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
573 |
DIAGNOSTICS_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagnostics_out.F |
574 |
DIAGNOSTICS_OUT |
& qtmp1(i,j,k,bi,bj) = misvalLoc |
|
./pkg/diagnostics/diagnostics_out.F |
68 |
DIAGNOSTICS_OUT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
160 |
DIAGNOSTICS_READ_PICKUP |
DO bi=1,nSx |
|
./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 |
116 |
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 |
79 |
DIAGNOSTICS_SCALE_FILL |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
82 |
DIAGNOSTICS_SCALE_FILL |
bi = biArg |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
92 |
DIAGNOSTICS_SCALE_FILL |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
94 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
116 |
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 |
79 |
DIAGNOSTICS_SCALE_FILL_RS |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
82 |
DIAGNOSTICS_SCALE_FILL_RS |
bi = biArg |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
92 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( ndiag(ipt,bi,bj).GE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
94 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
111 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
117 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
135 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
136 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
151 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
152 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
167 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
168 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
183 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
184 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
185 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
199 |
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 |
73 |
DIAGNOSTICS_SUM_LEVELS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
88 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
94 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
100 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
137 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
138 |
DIAGNOSTICS_SWITCH_ONOFF |
pdiag(n,bi,bj) = nInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
168 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
169 |
DIAGNOSTICS_SWITCH_ONOFF |
dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
176 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
179 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
180 |
DIAGNOSTICS_SWITCH_ONOFF |
qSdiag(0,0,iSp,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
189 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
192 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
193 |
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_switch_onoff.F |
85 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
92 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (ip.GT.0) ndiag(ip,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
100 |
GETDIAG |
qtmp(i,j) = qdiag(i,j,ipnt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
101 |
GETDIAG |
& / qdiag(i,j,ipCt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
153 |
DIAGNOSTICS_COUNT |
INTEGER bi, bj |
|
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_COUNT |
bi = myBxLo(myThid) |
|
./pkg/diagnostics/diagnostics_utils.F |
161 |
DIAGNOSTICS_COUNT |
bi = MIN(biArg,nSx) |
|
./pkg/diagnostics/diagnostics_utils.F |
171 |
DIAGNOSTICS_COUNT |
IF (ndiag(ipt,bi,bj).GE.0) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
177 |
DIAGNOSTICS_COUNT |
DO bi=myBxLo(myThid), myBxHi(myThid) |
|
./pkg/diagnostics/diagnostics_utils.F |
178 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_COUNT |
ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
24 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
49 |
GETDIAG |
INTEGER bi,bj, myThid |
|
./pkg/diagnostics/diagnostics_utils.F |
70 |
GETDIAG |
factor = FLOAT(ndiag(ip,bi,bj)) |
|
./pkg/diagnostics/diagnostics_utils.F |
71 |
GETDIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_utils.F |
76 |
GETDIAG |
IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
77 |
GETDIAG |
qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
86 |
GETDIAG |
qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
99 |
GETDIAG |
IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN |
|
./pkg/diagnostics/diagstats_clear.F |
69 |
DIAGSTATS_CLRDIAG |
INTEGER bi,bj |
|
./pkg/diagnostics/diagstats_clear.F |
77 |
DIAGSTATS_CLRDIAG |
DO bi=myBxLo(myThid), myBxHi(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 |
221 |
DIAGSTATS_FILL |
DO bi=myBxLo(myThid), myBxHi(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, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
237 |
DIAGSTATS_FILL |
bi = MIN(biArg,sizTx) |
|
./pkg/diagnostics/diagstats_fill.F |
247 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
257 |
DIAGSTATS_FILL |
DO bi=myBxLo(myThid), myBxHi(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, region2fill, |
|
./pkg/diagnostics/diagstats_fill.F |
279 |
DIAGSTATS_FILL |
bi = MIN(biArg,sizTx) |
|
./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 |
71 |
DIAGSTATS_GLOBAL |
DO bi=myBxLo(myThid),myBxHi(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 |
126 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
127 |
DIAGSTATS_LOCAL |
I maskW(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
128 |
DIAGSTATS_LOCAL |
I hFacW(1-Olx,1-Oly,k,bi,bj), rAw(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
138 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
139 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
140 |
DIAGSTATS_LOCAL |
I hFacS(1-Olx,1-Oly,k,bi,bj), rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
149 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
150 |
DIAGSTATS_LOCAL |
I maskC(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
151 |
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, region2fill, ndId, parsFld, |
|
./pkg/diagnostics/diagstats_local.F |
164 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
165 |
DIAGSTATS_LOCAL |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
167 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
177 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
178 |
DIAGSTATS_LOCAL |
I rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
180 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
193 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
194 |
DIAGSTATS_LOCAL |
I maskInW(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
195 |
DIAGSTATS_LOCAL |
I maskInW(1-Olx,1-Oly,bi,bj),rAw(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
204 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
205 |
DIAGSTATS_LOCAL |
I maskInS(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
206 |
DIAGSTATS_LOCAL |
I maskInS(1-Olx,1-Oly,bi,bj),rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
215 |
DIAGSTATS_LOCAL |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
216 |
DIAGSTATS_LOCAL |
I maskInC(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
217 |
DIAGSTATS_LOCAL |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
70 |
DIAGSTATS_LOCAL |
INTEGER k, bi, bj, ndId |
|
./pkg/diagnostics/diagstats_others_calc.F |
107 |
DIAGSTATS_LM_CALC |
I dpphys(1-Olx,1-Oly,kl,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
113 |
DIAGSTATS_LM_CALC |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
|
./pkg/diagnostics/diagstats_others_calc.F |
143 |
DIAGSTATS_G_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
198 |
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 |
224 |
DIAGSTATS_G_CALC |
I regMask, aim_landFr(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_others_calc.F |
225 |
DIAGSTATS_G_CALC |
I aim_landFr(1-Olx,1-Oly,bi,bj), arrArea, |
|
./pkg/diagnostics/diagstats_others_calc.F |
74 |
DIAGSTATS_LM_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_set_regions.F |
105 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(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 |
193 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(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 |
56 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(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 |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
& *hFacC(i,j,k-1,bi,bj)*.5 _d 0) |
|
./pkg/dic/bio_export.F |
147 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
148 |
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 |
75 |
BIO_EXPORT |
CALL INSOL(myTime,sfac,bi,bj,myThid) |
|
./pkg/dic/bio_export.F |
86 |
BIO_EXPORT |
lit(i,j)=PAR(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
88 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/bio_export.F |
96 |
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),ff(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
116 |
CALCITE_SATURATION |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
118 |
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 |
127 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
128 |
CALCITE_SATURATION |
& Ksp_TP_Calc(i,j,bi,bj) |
|
./pkg/dic/calcite_saturation.F |
155 |
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 |
1000 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 + |
|
./pkg/dic/carbon_chem.F |
1008 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk - |
|
./pkg/dic/carbon_chem.F |
1011 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 - |
|
./pkg/dic/carbon_chem.F |
1017 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj) = ak1(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
1024 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj) = ak2(i,j,bi,bj)* |
|
./pkg/dic/carbon_chem.F |
1029 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s + |
|
./pkg/dic/carbon_chem.F |
1043 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor) |
|
./pkg/dic/carbon_chem.F |
1047 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 - |
|
./pkg/dic/carbon_chem.F |
1054 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 - |
|
./pkg/dic/carbon_chem.F |
1061 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 + |
|
./pkg/dic/carbon_chem.F |
1067 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 - |
|
./pkg/dic/carbon_chem.F |
1076 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 - |
|
./pkg/dic/carbon_chem.F |
1083 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 - |
|
./pkg/dic/carbon_chem.F |
1092 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis + |
|
./pkg/dic/carbon_chem.F |
1094 |
CARBON_COEFFS_PRESSURE_DEP |
& log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
1098 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.000232 * scl/10.811 |
|
./pkg/dic/carbon_chem.F |
1100 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.14 * scl/96.062 |
|
./pkg/dic/carbon_chem.F |
1102 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.000067 * scl/18.9984 |
|
./pkg/dic/carbon_chem.F |
1145 |
CARBON_COEFFS_PRESSURE_DEP |
Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue) |
|
./pkg/dic/carbon_chem.F |
1152 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj)=0.d0 |
|
./pkg/dic/carbon_chem.F |
1153 |
CARBON_COEFFS_PRESSURE_DEP |
ak0(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1154 |
CARBON_COEFFS_PRESSURE_DEP |
ak1(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1155 |
CARBON_COEFFS_PRESSURE_DEP |
ak2(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1156 |
CARBON_COEFFS_PRESSURE_DEP |
akb(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1157 |
CARBON_COEFFS_PRESSURE_DEP |
ak1p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1158 |
CARBON_COEFFS_PRESSURE_DEP |
ak2p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1159 |
CARBON_COEFFS_PRESSURE_DEP |
ak3p(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1160 |
CARBON_COEFFS_PRESSURE_DEP |
aksi(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1161 |
CARBON_COEFFS_PRESSURE_DEP |
akw(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1162 |
CARBON_COEFFS_PRESSURE_DEP |
aks(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1163 |
CARBON_COEFFS_PRESSURE_DEP |
akf(i,j,bi,bj)= 0.d0 |
|
./pkg/dic/carbon_chem.F |
1164 |
CARBON_COEFFS_PRESSURE_DEP |
bt(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1165 |
CARBON_COEFFS_PRESSURE_DEP |
st(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1166 |
CARBON_COEFFS_PRESSURE_DEP |
ft(i,j,bi,bj) = 0.d0 |
|
./pkg/dic/carbon_chem.F |
1167 |
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 |
336 |
CALC_PCO2_APPROX_CO3 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
378 |
CALC_PCO2_APPROX_CO3 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
486 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
525 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
626 |
CARBON_COEFFS |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/carbon_chem.F |
64 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
673 |
CARBON_COEFFS |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/dic/carbon_chem.F |
708 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
709 |
CARBON_COEFFS |
t = ttemp(i,j,1,bi,bj) |
|
./pkg/dic/carbon_chem.F |
710 |
CARBON_COEFFS |
s = stemp(i,j,1,bi,bj) |
|
./pkg/dic/carbon_chem.F |
727 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
733 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
741 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/dic/carbon_chem.F |
744 |
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 |
749 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/dic/carbon_chem.F |
757 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
764 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
771 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
777 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
786 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
793 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
802 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/dic/carbon_chem.F |
804 |
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 |
808 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/dic/carbon_chem.F |
810 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/dic/carbon_chem.F |
812 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/dic/carbon_chem.F |
815 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
816 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
817 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
818 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
819 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
820 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
821 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
822 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
823 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
824 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
825 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
826 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
827 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
828 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
829 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
845 |
CARBON_COEFFS_PRESSURE_DEP |
I bi,bj,iMin,iMax,jMin,jMax, |
|
./pkg/dic/carbon_chem.F |
900 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
|
./pkg/dic/carbon_chem.F |
974 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
975 |
CARBON_COEFFS_PRESSURE_DEP |
t = ttemp(i,j,Klevel,bi,bj) |
|
./pkg/dic/carbon_chem.F |
976 |
CARBON_COEFFS_PRESSURE_DEP |
s = stemp(i,j,Klevel,bi,bj) |
|
./pkg/dic/carbon_chem.F |
994 |
CARBON_COEFFS_PRESSURE_DEP |
ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100 + |
|
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_atmos.F |
118 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj)=tmp |
|
./pkg/dic/dic_atmos.F |
136 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_atmos.F |
137 |
DIC_ATMOS |
tile_flux(bi,bj) = 0. |
|
./pkg/dic/dic_atmos.F |
138 |
DIC_ATMOS |
tile_carbon(bi,bj) = 0. |
|
./pkg/dic/dic_atmos.F |
142 |
DIC_ATMOS |
tile_flux(bi,bj) = tile_flux(bi,bj) |
|
./pkg/dic/dic_atmos.F |
143 |
DIC_ATMOS |
& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
144 |
DIC_ATMOS |
& *maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_atmos.F |
151 |
DIC_ATMOS |
tile_carbon(bi,bj) = tile_carbon(bi,bj) |
|
./pkg/dic/dic_atmos.F |
152 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
154 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_atmos.F |
156 |
DIC_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
157 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_atmos.F |
247 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_atmos.F |
250 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj) = atpco2 |
|
./pkg/dic/dic_atmos.F |
57 |
DIC_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_atmos.F |
86 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_atmos.F |
89 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj)=dic_pCO2 |
|
./pkg/dic/dic_aver.F |
37 |
DIC_AVER |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_aver.F |
45 |
DIC_AVER |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver.F |
46 |
DIC_AVER |
OBS_timetave(bi,bj) = OBS_timetave(bi,bj)+deltaTclock |
|
./pkg/dic/dic_aver.F |
50 |
DIC_AVER |
po4ann(i,j,k,bi,bj)=po4ann(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
51 |
DIC_AVER |
& PTRACER(i,j,k,bi,bj,3)*deltaTclock |
|
./pkg/dic/dic_aver.F |
52 |
DIC_AVER |
o2ann(i,j,k,bi,bj)=o2ann(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
53 |
DIC_AVER |
& PTRACER(i,j,k,bi,bj,5)*deltaTclock |
|
./pkg/dic/dic_aver.F |
69 |
DIC_AVER |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver.F |
70 |
DIC_AVER |
OBSM_timetave(it,bi,bj) = OBSM_timetave(it,bi,bj)+deltaTclock |
|
./pkg/dic/dic_aver.F |
73 |
DIC_AVER |
po4lev1(i,j,it,bi,bj)=po4lev1(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
74 |
DIC_AVER |
& PTRACER(i,j,1,bi,bj,3)*deltaTclock |
|
./pkg/dic/dic_aver.F |
75 |
DIC_AVER |
po4lev2(i,j,it,bi,bj)=po4lev2(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
76 |
DIC_AVER |
& PTRACER(i,j,2,bi,bj,3)*deltaTclock |
|
./pkg/dic/dic_aver.F |
77 |
DIC_AVER |
po4lev3(i,j,it,bi,bj)=po4lev3(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
78 |
DIC_AVER |
& PTRACER(i,j,3,bi,bj,3)*deltaTclock |
|
./pkg/dic/dic_aver.F |
81 |
DIC_AVER |
o2lev1(i,j,it,bi,bj)=o2lev1(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
82 |
DIC_AVER |
& PTRACER(i,j,1,bi,bj,5)*deltaTclock |
|
./pkg/dic/dic_aver.F |
83 |
DIC_AVER |
o2lev2(i,j,it,bi,bj)=o2lev2(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
84 |
DIC_AVER |
& PTRACER(i,j,2,bi,bj,5)*deltaTclock |
|
./pkg/dic/dic_aver.F |
85 |
DIC_AVER |
o2lev3(i,j,it,bi,bj)=o2lev3(i,j,it,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
86 |
DIC_AVER |
& PTRACER(i,j,3,bi,bj,5)*deltaTclock |
|
./pkg/dic/dic_aver_final.F |
33 |
DIC_AVER_FINAL |
INTEGER bi, bj |
|
./pkg/dic/dic_aver_final.F |
37 |
DIC_AVER_FINAL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver_final.F |
39 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
41 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
44 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
46 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
48 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
52 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
54 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_final.F |
56 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
|
./pkg/dic/dic_aver_init.F |
146 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver_init.F |
151 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
152 |
DIC_AVER_INIT |
po4var(k)=po4var(k)+(po4obs(i,j,k,bi,bj)-po4av(k))**2 |
|
./pkg/dic/dic_aver_init.F |
153 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
154 |
DIC_AVER_INIT |
o2var(k)=o2var(k)+(o2obs(i,j,k,bi,bj)-o2av(k))**2 |
|
./pkg/dic/dic_aver_init.F |
155 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
160 |
DIC_AVER_INIT |
& (po4obsl1(i,j,it,bi,bj)-po4avm(it,1))**2 |
|
./pkg/dic/dic_aver_init.F |
161 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
163 |
DIC_AVER_INIT |
& (po4obsl2(i,j,it,bi,bj)-po4avm(it,2))**2 |
|
./pkg/dic/dic_aver_init.F |
164 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
166 |
DIC_AVER_INIT |
& (po4obsl3(i,j,it,bi,bj)-po4avm(it,3))**2 |
|
./pkg/dic/dic_aver_init.F |
167 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
172 |
DIC_AVER_INIT |
& (o2obsl1(i,j,it,bi,bj)-o2avm(it,1))**2 |
|
./pkg/dic/dic_aver_init.F |
173 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
175 |
DIC_AVER_INIT |
& (o2obsl2(i,j,it,bi,bj)-o2avm(it,2))**2 |
|
./pkg/dic/dic_aver_init.F |
176 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
178 |
DIC_AVER_INIT |
& (o2obsl3(i,j,it,bi,bj)-o2avm(it,3))**2 |
|
./pkg/dic/dic_aver_init.F |
179 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
206 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver_init.F |
207 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4ann,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_aver_init.F |
208 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2ann,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_aver_init.F |
209 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev1, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
210 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev2, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
211 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev3, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
213 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev1, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
214 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev2, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
215 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev3, 12, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
218 |
DIC_AVER_INIT |
OBS_timetave(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
220 |
DIC_AVER_INIT |
OBSM_Timetave(it,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
36 |
DIC_AVER_INIT |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_aver_init.F |
48 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_aver_init.F |
49 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obs, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
50 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obs, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
52 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl1, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
53 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl2, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
54 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl3, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
56 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl1, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
57 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl2, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
58 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl3, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
61 |
DIC_AVER_INIT |
OBS_timetave(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
72 |
DIC_AVER_INIT |
OBSM_Timetave(it,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_biotic_diags.F |
140 |
DIC_BIOTIC_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_biotic_diags.F |
141 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
142 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
143 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
144 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
145 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
146 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
147 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
148 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
149 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
150 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
151 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
152 |
DIC_BIOTIC_DIAGS |
DIC_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_biotic_diags.F |
39 |
DIC_BIOTIC_DIAGS |
INTEGER bi, bj |
|
./pkg/dic/dic_biotic_diags.F |
50 |
DIC_BIOTIC_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_biotic_diags.F |
52 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
54 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
56 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
58 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
60 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
62 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
64 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
66 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
68 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
70 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
72 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
142 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
147 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
153 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
159 |
DIC_BIOTIC_FORCING |
CALL FE_CHEM(bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe, |
|
./pkg/dic/dic_biotic_forcing.F |
170 |
DIC_BIOTIC_FORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
175 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
182 |
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 |
18 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
196 |
DIC_BIOTIC_FORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
201 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
206 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
215 |
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 |
218 |
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 |
254 |
DIC_BIOTIC_FORCING |
& InputFe(i,j,bi,bj)*recip_drF(1) |
|
./pkg/dic/dic_biotic_forcing.F |
255 |
DIC_BIOTIC_FORCING |
& *recip_hFacC(i,j,1,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
288 |
DIC_BIOTIC_FORCING |
call FE_CHEM(bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe, |
|
./pkg/dic/dic_biotic_forcing.F |
300 |
DIC_BIOTIC_FORCING |
BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
302 |
DIC_BIOTIC_FORCING |
CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
304 |
DIC_BIOTIC_FORCING |
OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
305 |
DIC_BIOTIC_FORCING |
& OmegaC(i,j,k,bi,bj)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
306 |
DIC_BIOTIC_FORCING |
pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
308 |
DIC_BIOTIC_FORCING |
epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
310 |
DIC_BIOTIC_FORCING |
cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
317 |
DIC_BIOTIC_FORCING |
SURave(i,j,bi,bj) =SURave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
320 |
DIC_BIOTIC_FORCING |
SUROave(i,j,bi,bj) =SUROave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
323 |
DIC_BIOTIC_FORCING |
pCO2ave(i,j,bi,bj) =pCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
324 |
DIC_BIOTIC_FORCING |
& pCO2(i,j,bi,bj)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
325 |
DIC_BIOTIC_FORCING |
pHave(i,j,bi,bj) =pHave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
326 |
DIC_BIOTIC_FORCING |
& pH(i,j,bi,bj)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
327 |
DIC_BIOTIC_FORCING |
fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
328 |
DIC_BIOTIC_FORCING |
& fluxCO2(i,j,bi,bj)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
331 |
DIC_BIOTIC_FORCING |
DIC_timeAve(bi,bj) = DIC_timeAve(bi,bj)+deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
341 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(BIOac ,'DICBIOA ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
342 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(CAR ,'DICCARB ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
343 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pCO2 ,'DICPCO2 ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
344 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(fluxCO2,'DICCFLX ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
345 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pH ,'DICPHAV ',0,1 ,1,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
346 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURC ,'DICTFLX ',0,1 ,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
348 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURO ,'DICOFLX ',0,1 ,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
59 |
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 |
36 |
DIC_BIOTIC_INIT |
DO bi = myBxLo(myThid), myBxHi(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 |
35 |
DIC_COST |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_cost.F |
43 |
DIC_COST |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_cost.F |
46 |
DIC_COST |
tmpcost = tmpcost+FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/dic_cost.F |
47 |
DIC_COST |
& maskC(i,j,1,bi,bj)*dTtracerLev(1) |
|
./pkg/dic/dic_fields_load.F |
133 |
DIC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_fields_load.F |
137 |
DIC_FIELDS_LOAD |
WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
138 |
DIC_FIELDS_LOAD |
& + aWght*dicwind1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
150 |
DIC_FIELDS_LOAD |
AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
151 |
DIC_FIELDS_LOAD |
& + aWght*atmosp1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
159 |
DIC_FIELDS_LOAD |
SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
160 |
DIC_FIELDS_LOAD |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
167 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
168 |
DIC_FIELDS_LOAD |
& + aWght*ice1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
177 |
DIC_FIELDS_LOAD |
PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
178 |
DIC_FIELDS_LOAD |
& + aWght*par1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
193 |
DIC_FIELDS_LOAD |
InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
194 |
DIC_FIELDS_LOAD |
& + aWght*feinput1(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
206 |
DIC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_fields_load.F |
211 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
220 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
42 |
DIC_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/dic/dic_ini_forcing.F |
35 |
DIC_INI_FORCING |
INTEGER bi,bj,i,j |
|
./pkg/dic/dic_ini_forcing.F |
87 |
DIC_INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_ini_forcing.F |
90 |
DIC_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
91 |
DIC_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
92 |
DIC_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
93 |
DIC_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
94 |
DIC_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
96 |
DIC_INI_FORCING |
PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
99 |
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 |
42 |
DIC_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_init_varia.F |
45 |
DIC_INIT_VARIA |
alpha(i,j,bi,bj) = alphaUniform |
|
./pkg/dic/dic_init_varia.F |
46 |
DIC_INIT_VARIA |
rain_ratio(i,j,bi,bj) = rainRatioUniform |
|
./pkg/dic/dic_init_varia.F |
52 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_set_control.F |
102 |
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 |
103 |
DIC_SET_CONTROL |
rain_ratio(i,j,bi,bj) = |
|
./pkg/dic/dic_set_control.F |
104 |
DIC_SET_CONTROL |
& rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2)) |
|
./pkg/dic/dic_set_control.F |
38 |
DIC_SET_CONTROL |
INTEGER bi, bj |
|
./pkg/dic/dic_set_control.F |
75 |
DIC_SET_CONTROL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_set_control.F |
78 |
DIC_SET_CONTROL |
alpha (i,j,bi,bj) = alpha(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
79 |
DIC_SET_CONTROL |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
99 |
DIC_SET_CONTROL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_store_fluxco2.F |
47 |
DIC_STORE_FLUXCO2 |
INTEGER i,j,bi,bj |
|
./pkg/dic/dic_store_fluxco2.F |
52 |
DIC_STORE_FLUXCO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_store_fluxco2.F |
55 |
DIC_STORE_FLUXCO2 |
fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
103 |
DIC_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/dic_surfforcing.F |
116 |
DIC_SURFFORCING |
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |
|
./pkg/dic/dic_surfforcing.F |
121 |
DIC_SURFFORCING |
pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/dic/dic_surfforcing.F |
122 |
DIC_SURFFORCING |
Kwexch_Pre(i,j,bi,bj) = pisvel(i,j) |
|
./pkg/dic/dic_surfforcing.F |
123 |
DIC_SURFFORCING |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/dic_surfforcing.F |
12 |
DIC_SURFFORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_surfforcing.F |
134 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
136 |
DIC_SURFFORCING |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
139 |
DIC_SURFFORCING |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
140 |
DIC_SURFFORCING |
I ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
141 |
DIC_SURFFORCING |
I aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
142 |
DIC_SURFFORCING |
I aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
143 |
DIC_SURFFORCING |
I bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
144 |
DIC_SURFFORCING |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
147 |
DIC_SURFFORCING |
pCO2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
155 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
159 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
160 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
161 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
162 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
167 |
DIC_SURFFORCING |
& AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
170 |
DIC_SURFFORCING |
Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
177 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = |
|
./pkg/dic/dic_surfforcing.F |
179 |
DIC_SURFFORCING |
& ak0(i,j,bi,bj)*pCO2sat(i,j) - |
|
./pkg/dic/dic_surfforcing.F |
180 |
DIC_SURFFORCING |
& ff(i,j,bi,bj)*pCO2(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
183 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
186 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil |
|
./pkg/dic/dic_surfforcing.F |
189 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
197 |
DIC_SURFFORCING |
VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
212 |
DIC_SURFFORCING |
GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
213 |
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 |
88 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
90 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
94 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
97 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
108 |
DIC_SURFFORCING_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
111 |
DIC_SURFFORCING_INIT |
SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
112 |
DIC_SURFFORCING_INIT |
& + aWght*silica1(i,j,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
130 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
133 |
DIC_SURFFORCING_INIT |
pH(i,j,bi,bj) = 8. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
146 |
DIC_SURFFORCING_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
147 |
DIC_SURFFORCING_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
148 |
DIC_SURFFORCING_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
149 |
DIC_SURFFORCING_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
150 |
DIC_SURFFORCING_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
151 |
DIC_SURFFORCING_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
152 |
DIC_SURFFORCING_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
153 |
DIC_SURFFORCING_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
154 |
DIC_SURFFORCING_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
155 |
DIC_SURFFORCING_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
156 |
DIC_SURFFORCING_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
173 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
180 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,klev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
182 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= PTRACER(i,j,klev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
185 |
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 |
186 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
190 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
191 |
DIC_SURFFORCING_INIT |
PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
198 |
DIC_SURFFORCING_INIT |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
|
./pkg/dic/dic_surfforcing_init.F |
211 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
217 |
DIC_SURFFORCING_INIT |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
220 |
DIC_SURFFORCING_INIT |
I ak1(i,j,bi,bj),ak2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
221 |
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 |
222 |
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 |
223 |
DIC_SURFFORCING_INIT |
I aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
224 |
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 |
225 |
DIC_SURFFORCING_INIT |
U pH(i,j,bi,bj),pCO2(i,j,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
226 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
234 |
DIC_SURFFORCING_INIT |
& pH(iprt,jprt,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
235 |
DIC_SURFFORCING_INIT |
& theta(iprt,jprt,1,bi,bj), salt(iprt,jprt,1,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
46 |
DIC_SURFFORCING_INIT |
INTEGER iMin,iMax,jMin,jMax, bi, bj |
|
./pkg/dic/fe_chem.F |
10 |
FE_CHEM |
I bi,bj, iMin,iMax,jMin,jMax, |
|
./pkg/dic/fe_chem.F |
36 |
FE_CHEM |
INTEGER bi,bj |
|
./pkg/dic/fe_chem.F |
64 |
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/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/dic/tracer_meanarea.F |
34 |
TRACER_MEANAREA |
INTEGER i,j,bi,bj |
|
./pkg/dic/tracer_meanarea.F |
41 |
TRACER_MEANAREA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/dic/tracer_meanarea.F |
45 |
TRACER_MEANAREA |
& tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/tracer_meanarea.F |
46 |
TRACER_MEANAREA |
& maskC(i,j,kLev,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
10 |
DWNSLP_APPLY |
I trIdentity, bi, bj, kBottom, |
|
./pkg/down_slope/dwnslp_apply.F |
130 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
|
./pkg/down_slope/dwnslp_apply.F |
135 |
DWNSLP_APPLY |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
136 |
DWNSLP_APPLY |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
140 |
DWNSLP_APPLY |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
141 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
143 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
gTrLoc(k) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
148 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
150 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
trStar(ijd,k,bi,bj) = trStar(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
157 |
DWNSLP_APPLY |
gTrLoc(0) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
159 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
161 |
DWNSLP_APPLY |
trStar(ijs,k,bi,bj) = trStar(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
k=DWNSLP_deepK(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
177 |
DWNSLP_APPLY |
& tracer(ijd,k,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
178 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
180 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
181 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf,bi,bj)-tracer(ijd,k,bi,bj)), |
|
./pkg/down_slope/dwnslp_apply.F |
182 |
DWNSLP_APPLY |
& tracer(ijs,kshelf,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
183 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
184 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac_arg(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
185 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
186 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf,bi,bj)) |
|
./pkg/down_slope/dwnslp_apply.F |
194 |
DWNSLP_APPLY |
& CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
51 |
DWNSLP_APPLY |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
101 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
103 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
& -rho3d(ijd,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
106 |
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 |
111 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
114 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = kdeep |
|
./pkg/down_slope/dwnslp_calc_flow.F |
120 |
DWNSLP_CALC_FLOW |
DWNSLP_Transp(n,bi,bj) = DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
128 |
DWNSLP_CALC_FLOW |
uFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
130 |
DWNSLP_CALC_FLOW |
vFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
142 |
DWNSLP_CALC_FLOW |
& ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
145 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
146 |
DWNSLP_CALC_FLOW |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
147 |
DWNSLP_CALC_FLOW |
ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
150 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
& bi,bj,n,' :', DWNSLP_ijDeep(n,bi,bj), |
|
./pkg/down_slope/dwnslp_calc_flow.F |
153 |
DWNSLP_CALC_FLOW |
& DWNSLP_shVsD(n,bi,bj), ishelf,jshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
154 |
DWNSLP_CALC_FLOW |
& ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
155 |
DWNSLP_CALC_FLOW |
& DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
163 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( uFlow, 'DSLPuFlw', 0,1,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
164 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( vFlow, 'DSLPvFlw', 0,1,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
39 |
DWNSLP_CALC_FLOW |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_calc_flow.F |
93 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
94 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
98 |
DWNSLP_CALC_FLOW |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
99 |
DWNSLP_CALC_FLOW |
ijr = DWNSLP_shVsD(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 |
88 |
DWNSLP_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
107 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
109 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
112 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
114 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
118 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
121 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
123 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
138 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
140 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
143 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
145 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
149 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
152 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
154 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
166 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
168 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
171 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
173 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
177 |
DWNSLP_INIT_FIXED |
IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
180 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
182 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
194 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
202 |
DWNSLP_INIT_FIXED |
& ' DWNSLP_INIT: min needed for tile',bi,bj,' :', ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
209 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
211 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
214 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
218 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
222 |
DWNSLP_INIT_FIXED |
kdeep = kLowC (ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
234 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
241 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
242 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
245 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
246 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
251 |
DWNSLP_INIT_FIXED |
dz_bottom = Ro_surf(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
252 |
DWNSLP_INIT_FIXED |
& - Ro_surf(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
256 |
DWNSLP_INIT_FIXED |
dz_bottom = R_low(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
257 |
DWNSLP_INIT_FIXED |
& - R_low(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
261 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
262 |
DWNSLP_INIT_FIXED |
& *dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
266 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
267 |
DWNSLP_INIT_FIXED |
& *dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
268 |
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 bi = 1,nSx |
|
./pkg/down_slope/dwnslp_init_fixed.F |
297 |
DWNSLP_INIT_FIXED |
& 'DWNSLP_INIT: DWNSLP_NbSite=',bi,bj,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
304 |
DWNSLP_INIT_FIXED |
& bi,bj, DWNSLP_NbSite(bi,bj), xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
307 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
308 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
311 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
315 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
318 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
319 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
322 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
43 |
DWNSLP_INIT_FIXED |
INTEGER bi, bj |
|
./pkg/down_slope/dwnslp_init_fixed.F |
53 |
DWNSLP_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
59 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
61 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
62 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
63 |
DWNSLP_INIT_FIXED |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
64 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_fixed.F |
65 |
DWNSLP_INIT_FIXED |
DWNSLP_Transp(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_fixed.F |
79 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
81 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
84 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
86 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
90 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
93 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
95 |
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 |
46 |
DWNSLP_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(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 |
100 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
101 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(3)) THEN |
|
./pkg/ebm/ebm_area_t.F |
102 |
EBM_AREA_T |
TmlN_tile(bi,bj) = TmlN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
103 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
104 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = CountmlN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
112 |
EBM_AREA_T |
TmlS = TmlS + TmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
113 |
EBM_AREA_T |
CountmlS = CountmlS + CountmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
114 |
EBM_AREA_T |
TmlN = TmlN + TmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
115 |
EBM_AREA_T |
CountmlN = CountmlN + CountmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
116 |
EBM_AREA_T |
TtS = TtS + TtS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
117 |
EBM_AREA_T |
CounttS = CounttS + CounttS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
118 |
EBM_AREA_T |
TtN = TtN + TtN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
119 |
EBM_AREA_T |
CounttN = CounttN + CounttN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
41 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
68 |
EBM_AREA_T |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_area_t.F |
70 |
EBM_AREA_T |
TmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
71 |
EBM_AREA_T |
TmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
72 |
EBM_AREA_T |
TtS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
73 |
EBM_AREA_T |
TtN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
74 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
75 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
CounttS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
CounttN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -lat(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -lat(2)) THEN |
|
./pkg/ebm/ebm_area_t.F |
84 |
EBM_AREA_T |
TmlS_tile(bi,bj) = TmlS_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
86 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = CountmlS_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. -lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -lat(1)) THEN |
|
./pkg/ebm/ebm_area_t.F |
90 |
EBM_AREA_T |
TtS_tile(bi,bj) = TtS_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
92 |
EBM_AREA_T |
CounttS_tile(bi,bj) = CounttS_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) .GT. lat(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(2)) THEN |
|
./pkg/ebm/ebm_area_t.F |
96 |
EBM_AREA_T |
TtN_tile(bi,bj) = TtN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
98 |
EBM_AREA_T |
CounttN_tile(bi,bj) = CounttN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
101 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
107 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
222 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
248 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
268 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
278 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
284 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
303 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
305 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
314 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
& .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
316 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ebm/ebm_atmosphere.F |
51 |
EBM_ATMOSPHERE |
INTEGER bi, bj |
|
./pkg/ebm/ebm_atmosphere.F |
63 |
EBM_ATMOSPHERE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
66 |
EBM_ATMOSPHERE |
act1 = bi - myBxLo(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
99 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_forcing_surf.F |
10 |
EBM_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ebm/ebm_forcing_surf.F |
40 |
EBM_FORCING_SURF |
INTEGER bi,bj |
|
./pkg/ebm/ebm_forcing_surf.F |
65 |
EBM_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
66 |
EBM_FORCING_SURF |
& fu(i,j,bi,bj)*mass2rUnit |
|
./pkg/ebm/ebm_forcing_surf.F |
67 |
EBM_FORCING_SURF |
& + winPert(i,j,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
68 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacW(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
70 |
EBM_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
71 |
EBM_FORCING_SURF |
& fv(i,j,bi,bj)*mass2rUnit |
|
./pkg/ebm/ebm_forcing_surf.F |
73 |
EBM_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
74 |
EBM_FORCING_SURF |
& -Qnet(i,j,bi,bj)*recip_Cp*mass2rUnit |
|
./pkg/ebm/ebm_forcing_surf.F |
75 |
EBM_FORCING_SURF |
& -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)* |
|
./pkg/ebm/ebm_forcing_surf.F |
76 |
EBM_FORCING_SURF |
& (theta(i,j,kSurface,bi,bj)-ZonalMeanSST(j,bj)) |
|
./pkg/ebm/ebm_forcing_surf.F |
77 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
80 |
EBM_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
81 |
EBM_FORCING_SURF |
& EmPmR(i,j,bi,bj)*convertFW2Salt*mass2rUnit |
|
./pkg/ebm/ebm_forcing_surf.F |
82 |
EBM_FORCING_SURF |
& +Run(i,j,bi,bj)*scale_runoff |
|
./pkg/ebm/ebm_forcing_surf.F |
84 |
EBM_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
85 |
EBM_FORCING_SURF |
& *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj)) |
|
./pkg/ebm/ebm_forcing_surf.F |
86 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_ini_vars.F |
34 |
EBM_INI_VARS |
INTEGER bi,bj,i,j,k |
|
./pkg/ebm/ebm_ini_vars.F |
39 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
42 |
EBM_INI_VARS |
Run (i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_ini_vars.F |
43 |
EBM_INI_VARS |
winPert(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_ini_vars.F |
60 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
67 |
EBM_INI_VARS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ebm/ebm_load_climatology.F |
31 |
EBM_LOAD_CLIMATOLOGY |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_load_climatology.F |
56 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)- 0. )/lY |
|
./pkg/ebm/ebm_load_climatology.F |
65 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_load_climatology.F |
76 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
79 |
EBM_LOAD_CLIMATOLOGY |
fv(i,j,bi,bj) = 0.0 |
|
./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 |
36 |
EBM_WIND_PERTURB |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_wind_perturb.F |
53 |
EBM_WIND_PERTURB |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
42 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
59 |
EBM_ZONALMEAN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
61 |
EBM_ZONALMEAN |
CountX_tile(j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_zonalmean.F |
62 |
EBM_ZONALMEAN |
ZonalMean_tile(j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_zonalmean.F |
64 |
EBM_ZONALMEAN |
ZonalMean_tile(j,bi,bj) = ZonalMean_tile(j,bi,bj) + |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
66 |
EBM_ZONALMEAN |
CountX_tile(j,bi,bj) = CountX_tile(j,bi,bj) + |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
70 |
EBM_ZONALMEAN |
& ZonalMean_tile(j,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
71 |
EBM_ZONALMEAN |
CountX(j,bj) = CountX(j,bj) + CountX_tile(j,bi,bj) |
|
./pkg/ecco/cost_argo_salt.F |
148 |
COST_ARGO_SALT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_argo_salt.F |
164 |
COST_ARGO_SALT |
if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and. |
|
./pkg/ecco/cost_argo_salt.F |
165 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
|
./pkg/ecco/cost_argo_salt.F |
167 |
COST_ARGO_SALT |
$ (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then |
|
./pkg/ecco/cost_argo_salt.F |
169 |
COST_ARGO_SALT |
& wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_salt.F |
170 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_argo_salt.F |
171 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj)) |
|
./pkg/ecco/cost_argo_salt.F |
172 |
COST_ARGO_SALT |
if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_salt.F |
173 |
COST_ARGO_SALT |
& num_argos(bi,bj) = num_argos(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_argo_salt.F |
181 |
COST_ARGO_SALT |
objf_argos(bi,bj) = objf_argos(bi,bj) + fctile_argos |
|
./pkg/ecco/cost_argo_salt.F |
188 |
COST_ARGO_SALT |
& ' COST_ARGO_SALT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_argo_salt.F |
49 |
COST_ARGO_SALT |
integer bi,bj |
|
./pkg/ecco/cost_argo_theta.F |
151 |
COST_ARGO_THETA |
do bi = itlo,ithi |
|
./pkg/ecco/cost_argo_theta.F |
167 |
COST_ARGO_THETA |
if( (argotobs(i,j,k,bi,bj) .ne. 0.).and. |
|
./pkg/ecco/cost_argo_theta.F |
168 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .gt. spval).and. |
|
./pkg/ecco/cost_argo_theta.F |
169 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .lt. spmax).and. |
|
./pkg/ecco/cost_argo_theta.F |
171 |
COST_ARGO_THETA |
& (_hFacC(i,j,k,bi,bj) .ne. 0.) )then |
|
./pkg/ecco/cost_argo_theta.F |
173 |
COST_ARGO_THETA |
$ argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/cost_argo_theta.F |
175 |
COST_ARGO_THETA |
& wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_theta.F |
176 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_argo_theta.F |
177 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/cost_argo_theta.F |
178 |
COST_ARGO_THETA |
if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_theta.F |
179 |
COST_ARGO_THETA |
& num_argot(bi,bj) = num_argot(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_argo_theta.F |
187 |
COST_ARGO_THETA |
objf_argot(bi,bj) = objf_argot(bi,bj) + fctile_argot |
|
./pkg/ecco/cost_argo_theta.F |
194 |
COST_ARGO_THETA |
& ' COST_ARGO_THETA: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_argo_theta.F |
49 |
COST_ARGO_THETA |
integer bi,bj |
|
./pkg/ecco/cost_atlantic.F |
142 |
COST_ATLANTIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
148 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
149 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
150 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon.and. |
|
./pkg/ecco/cost_atlantic.F |
151 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon.or. |
|
./pkg/ecco/cost_atlantic.F |
152 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
153 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
154 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon2.and. |
|
./pkg/ecco/cost_atlantic.F |
155 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon2).or. |
|
./pkg/ecco/cost_atlantic.F |
156 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
157 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
158 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon3.and. |
|
./pkg/ecco/cost_atlantic.F |
159 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon3)) then |
|
./pkg/ecco/cost_atlantic.F |
160 |
COST_ATLANTIC |
tv = tv+p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
161 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
162 |
COST_ATLANTIC |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
163 |
COST_ATLANTIC |
& * drF(k)*maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
169 |
COST_ATLANTIC |
objf_atl(bi,bj) = tv |
|
./pkg/ecco/cost_atlantic.F |
177 |
COST_ATLANTIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_atlantic.F |
178 |
COST_ATLANTIC |
objf_atl(bi,bj) = (objf_atl(bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
185 |
COST_ATLANTIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
191 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
192 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
193 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon.and. |
|
./pkg/ecco/cost_atlantic.F |
194 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon.or. |
|
./pkg/ecco/cost_atlantic.F |
195 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
196 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
197 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon2.and. |
|
./pkg/ecco/cost_atlantic.F |
198 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon2).or. |
|
./pkg/ecco/cost_atlantic.F |
199 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
200 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
201 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).ge.beglon3.and. |
|
./pkg/ecco/cost_atlantic.F |
202 |
COST_ATLANTIC |
$ xc(i,j,bi,bj).le.endlon3)) then |
|
./pkg/ecco/cost_atlantic.F |
204 |
COST_ATLANTIC |
$ +p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
205 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
206 |
COST_ATLANTIC |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
207 |
COST_ATLANTIC |
& * drF(k)*maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
213 |
COST_ATLANTIC |
objf_atl(bi,bj) = objf_atl(bi,bj) +tv |
|
./pkg/ecco/cost_atlantic.F |
57 |
COST_ATLANTIC |
integer bi,bj |
|
./pkg/ecco/cost_averagesfields.F |
243 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
247 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
248 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
256 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
260 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
261 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
263 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
264 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
294 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
298 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
299 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
300 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
301 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
317 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
320 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
321 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = vstress(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
328 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
331 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = (tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
332 |
COST_AVERAGESFIELDS |
& ustress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
334 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = (tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
335 |
COST_AVERAGESFIELDS |
& vstress(i,j,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
363 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
366 |
COST_AVERAGESFIELDS |
tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
367 |
COST_AVERAGESFIELDS |
& ustress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
368 |
COST_AVERAGESFIELDS |
tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
369 |
COST_AVERAGESFIELDS |
& vstress (i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
522 |
COST_AVERAGESFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesfields.F |
524 |
COST_AVERAGESFIELDS |
& transpbar(locdayrec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
529 |
COST_AVERAGESFIELDS |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/ecco/cost_averagesfields.F |
531 |
COST_AVERAGESFIELDS |
transpbar(locdayrec,bi,bj) = transpbar(locdayrec,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
532 |
COST_AVERAGESFIELDS |
& +vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
533 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
539 |
COST_AVERAGESFIELDS |
transpbar(locdayrec,bi,bj) = |
|
./pkg/ecco/cost_averagesfields.F |
540 |
COST_AVERAGESFIELDS |
& transpbar(locdayrec,bi,bj)/float(sum1day) |
|
./pkg/ecco/cost_averagesfields.F |
65 |
COST_AVERAGESFIELDS |
integer bi,bj |
|
./pkg/ecco/cost_averagesgeneric.F |
101 |
COST_AVERAGESGENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesgeneric.F |
105 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
106 |
COST_AVERAGESGENERIC |
& (localbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
107 |
COST_AVERAGESGENERIC |
& +localfld(i,j,k,bi,bj))/ |
|
./pkg/ecco/cost_averagesgeneric.F |
131 |
COST_AVERAGESGENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesgeneric.F |
135 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
136 |
COST_AVERAGESGENERIC |
& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
57 |
COST_AVERAGESGENERIC |
integer bi,bj |
|
./pkg/ecco/cost_averagesgeneric.F |
88 |
COST_AVERAGESGENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesgeneric.F |
92 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesinit.F |
112 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
124 |
COST_AVERAGESINIT |
tbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
137 |
COST_AVERAGESINIT |
sstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
151 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
163 |
COST_AVERAGESINIT |
sbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
177 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
178 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
191 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
202 |
COST_AVERAGESINIT |
tauxbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
203 |
COST_AVERAGESINIT |
tauybar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
214 |
COST_AVERAGESINIT |
hfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
224 |
COST_AVERAGESINIT |
sfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
236 |
COST_AVERAGESINIT |
smrareabar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
237 |
COST_AVERAGESINIT |
smrsstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
238 |
COST_AVERAGESINIT |
smrsssbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
250 |
COST_AVERAGESINIT |
transpbar(irec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
46 |
COST_AVERAGESINIT |
integer bi,bj |
|
./pkg/ecco/cost_averagesinit.F |
67 |
COST_AVERAGESINIT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_averagesinit.F |
73 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
74 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
85 |
COST_AVERAGESINIT |
psbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
96 |
COST_AVERAGESINIT |
bpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bottomdrag.F |
105 |
COST_BOTTOMDRAG |
if (_hFacC(i,j,1,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_bottomdrag.F |
106 |
COST_BOTTOMDRAG |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_bottomdrag.F |
109 |
COST_BOTTOMDRAG |
& + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_bottomdrag.F |
118 |
COST_BOTTOMDRAG |
objf_bottomdrag(bi,bj) = objf_bottomdrag(bi,bj) + fctile |
|
./pkg/ecco/cost_bottomdrag.F |
127 |
COST_BOTTOMDRAG |
& ' cost_bottomdrag: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_bottomdrag.F |
39 |
COST_BOTTOMDRAG |
integer bi,bj |
|
./pkg/ecco/cost_bottomdrag.F |
98 |
COST_BOTTOMDRAG |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
100 |
COST_BP |
bpdifmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
101 |
COST_BP |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
102 |
COST_BP |
bpdatmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
103 |
COST_BP |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
104 |
COST_BP |
bpcount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
132 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
135 |
COST_BP |
if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
136 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
137 |
COST_BP |
bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_bp.F |
138 |
COST_BP |
& ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_bp.F |
139 |
COST_BP |
bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_bp.F |
140 |
COST_BP |
& bpdat(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
141 |
COST_BP |
bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_bp.F |
151 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
154 |
COST_BP |
if (bpcount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_bp.F |
155 |
COST_BP |
bpdifmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_bp.F |
156 |
COST_BP |
& bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
157 |
COST_BP |
bpdatmean(i,j,bi,bj) = |
|
./pkg/ecco/cost_bp.F |
158 |
COST_BP |
& bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
180 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
183 |
COST_BP |
if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
184 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
185 |
COST_BP |
bpdifanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_bp.F |
186 |
COST_BP |
& ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) ) |
|
./pkg/ecco/cost_bp.F |
187 |
COST_BP |
& - bpdifmean(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
188 |
COST_BP |
bpdatanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_bp.F |
189 |
COST_BP |
& bpdat(i,j,bi,bj) - bpdatmean(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
191 |
COST_BP |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
192 |
COST_BP |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
204 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
207 |
COST_BP |
if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
208 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
209 |
COST_BP |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
210 |
COST_BP |
offset_sum = offset_sum + RA(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
221 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
225 |
COST_BP |
& (bpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
226 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_bp.F |
227 |
COST_BP |
bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
260 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp.F |
263 |
COST_BP |
if ( (wbp(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
264 |
COST_BP |
& (bpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_bp.F |
265 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
266 |
COST_BP |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
267 |
COST_BP |
objf_bp(bi,bj) = objf_bp(bi,bj) |
|
./pkg/ecco/cost_bp.F |
268 |
COST_BP |
& + junk*junk*wbp(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
269 |
COST_BP |
num_bp(bi,bj) = num_bp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_bp.F |
55 |
COST_BP |
integer bi,bj |
|
./pkg/ecco/cost_bp.F |
97 |
COST_BP |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp_read.F |
106 |
COST_BP_READ |
do bi = itlo,ithi |
|
./pkg/ecco/cost_bp_read.F |
115 |
COST_BP_READ |
if (bpdat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_bp_read.F |
116 |
COST_BP_READ |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
118 |
COST_BP_READ |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
120 |
COST_BP_READ |
bpdat(i,j,bi,bj) = bpdat(i,j,bi,bj)* |
|
./pkg/ecco/cost_bp_read.F |
121 |
COST_BP_READ |
& bpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_bp_read.F |
122 |
COST_BP_READ |
nobs = nobs + int(bpmask(i,j,bi,bj)) |
|
./pkg/ecco/cost_bp_read.F |
45 |
COST_BP_READ |
integer bi,bj |
|
./pkg/ecco/cost_ctds.F |
147 |
COST_CTDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctds.F |
158 |
COST_CTDS |
if (ctdsobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctds.F |
159 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
160 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_ctds.F |
164 |
COST_CTDS |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_ctds.F |
166 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctds.F |
167 |
COST_CTDS |
tmpobs(i,j) = ctdsobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
168 |
COST_CTDS |
tmpbar(i,j) = sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
169 |
COST_CTDS |
wtmp(i,j) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
176 |
COST_CTDS |
& num_ctds(bi,bj) = num_ctds(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ctds.F |
184 |
COST_CTDS |
objf_ctds(bi,bj) = objf_ctds(bi,bj) + fctile_ctds |
|
./pkg/ecco/cost_ctds.F |
191 |
COST_CTDS |
& ' COST_CTDS: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctds.F |
48 |
COST_CTDS |
integer bi,bj |
|
./pkg/ecco/cost_ctdsclim.F |
132 |
COST_CTDSCLIM |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctdsclim.F |
137 |
COST_CTDSCLIM |
sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
139 |
COST_CTDSCLIM |
sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
140 |
COST_CTDSCLIM |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdsclim.F |
142 |
COST_CTDSCLIM |
sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
143 |
COST_CTDSCLIM |
$ +sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
170 |
COST_CTDSCLIM |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctdsclim.F |
180 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_ctdsclim.F |
183 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdsclim.F |
193 |
COST_CTDSCLIM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_ctdsclim.F |
195 |
COST_CTDSCLIM |
& (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdsclim.F |
197 |
COST_CTDSCLIM |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_ctdsclim.F |
198 |
COST_CTDSCLIM |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_ctdsclim.F |
207 |
COST_CTDSCLIM |
objf_ctdsclim(bi,bj) = objf_ctdsclim(bi,bj) + fctile |
|
./pkg/ecco/cost_ctdsclim.F |
215 |
COST_CTDSCLIM |
& ' cost_Ctdsclim: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdsclim.F |
60 |
COST_CTDSCLIM |
integer bi,bj |
|
./pkg/ecco/cost_ctdt.F |
148 |
COST_CTDT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctdt.F |
159 |
COST_CTDT |
if (ctdtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctdt.F |
160 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctdt.F |
161 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_ctdt.F |
167 |
COST_CTDT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_ctdt.F |
169 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdt.F |
170 |
COST_CTDT |
tmpobs(i,j) = ctdtobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
171 |
COST_CTDT |
tmpbar(i,j) = tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
172 |
COST_CTDT |
wtmp(i,j) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
180 |
COST_CTDT |
& num_ctdt(bi,bj) = num_ctdt(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ctdt.F |
188 |
COST_CTDT |
objf_ctdt(bi,bj) = objf_ctdt(bi,bj) + fctile_ctdt |
|
./pkg/ecco/cost_ctdt.F |
195 |
COST_CTDT |
& ' COST_CTDT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdt.F |
49 |
COST_CTDT |
integer bi,bj |
|
./pkg/ecco/cost_ctdtclim.F |
131 |
COST_CTDTCLIM |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctdtclim.F |
136 |
COST_CTDTCLIM |
tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
138 |
COST_CTDTCLIM |
tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
139 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdtclim.F |
141 |
COST_CTDTCLIM |
tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
142 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
169 |
COST_CTDTCLIM |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ctdtclim.F |
179 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_ctdtclim.F |
183 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdtclim.F |
193 |
COST_CTDTCLIM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_ctdtclim.F |
195 |
COST_CTDTCLIM |
& (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdtclim.F |
197 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_ctdtclim.F |
198 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_ctdtclim.F |
207 |
COST_CTDTCLIM |
objf_ctdtclim(bi,bj) = objf_ctdtclim(bi,bj) + fctile |
|
./pkg/ecco/cost_ctdtclim.F |
215 |
COST_CTDTCLIM |
& ' cost_Ctdtclim: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdtclim.F |
60 |
COST_CTDTCLIM |
integer bi,bj |
|
./pkg/ecco/cost_curmtr.F |
157 |
COST_CURMTR |
do bi = itlo,ithi |
|
./pkg/ecco/cost_curmtr.F |
169 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
173 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
177 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
181 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
197 |
COST_CURMTR |
if (_hFacW(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
201 |
COST_CURMTR |
if (_hFacS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
210 |
COST_CURMTR |
wwwu(i,j) = cosphi(i,j,bi,bj)*umask(i,j) |
|
./pkg/ecco/cost_curmtr.F |
211 |
COST_CURMTR |
wwwv(i,j) = cosphi(i,j,bi,bj)*vmask(i,j) |
|
./pkg/ecco/cost_curmtr.F |
213 |
COST_CURMTR |
tmpuobs(i,j) = curmtruobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
214 |
COST_CURMTR |
tmpubar(i,j) = ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
216 |
COST_CURMTR |
tmpvobs(i,j) = curmtrvobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
217 |
COST_CURMTR |
tmpvbar(i,j) = vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
222 |
COST_CURMTR |
tmpubar(i,j) = ubar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
223 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
224 |
COST_CURMTR |
& +vbar(4,13,k,bi,bj) + vbar(5,13,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
227 |
COST_CURMTR |
tmpubar(i,j) = ubar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
228 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
229 |
COST_CURMTR |
& +vbar(10,13,k,bi,bj) + vbar(11,13,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
232 |
COST_CURMTR |
tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
233 |
COST_CURMTR |
& +ubar(7,9,k,bi,bj) + ubar(8,9,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
234 |
COST_CURMTR |
tmpvbar(i,j) = vbar(7,9,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
237 |
COST_CURMTR |
tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
238 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
241 |
COST_CURMTR |
tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
242 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
247 |
COST_CURMTR |
wu(i,j) = wcurrent2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
248 |
COST_CURMTR |
wv(i,j) = wcurrent2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
271 |
COST_CURMTR |
& num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_curmtr.F |
281 |
COST_CURMTR |
& num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_curmtr.F |
289 |
COST_CURMTR |
objf_curmtr(bi,bj) = objf_curmtr(bi,bj) + fctile_curmtr |
|
./pkg/ecco/cost_curmtr.F |
296 |
COST_CURMTR |
& ' COST_curmtr: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_curmtr.F |
49 |
COST_CURMTR |
integer bi,bj |
|
./pkg/ecco/cost_diffkr.F |
106 |
COST_DIFFKR |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_diffkr.F |
108 |
COST_DIFFKR |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_diffkr.F |
111 |
COST_DIFFKR |
& + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_diffkr.F |
121 |
COST_DIFFKR |
objf_diffkr(bi,bj) = objf_diffkr(bi,bj) + fctile |
|
./pkg/ecco/cost_diffkr.F |
130 |
COST_DIFFKR |
& ' cost_diffkr: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_diffkr.F |
39 |
COST_DIFFKR |
integer bi,bj |
|
./pkg/ecco/cost_diffkr.F |
98 |
COST_DIFFKR |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drift.F |
120 |
COST_DRIFT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drift.F |
124 |
COST_DRIFT |
Tfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
125 |
COST_DRIFT |
Sfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
126 |
COST_DRIFT |
Tlmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
127 |
COST_DRIFT |
Slmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
157 |
COST_DRIFT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drift.F |
161 |
COST_DRIFT |
Tfmean(i,j,k,bi,bj) = Tfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
162 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
163 |
COST_DRIFT |
Sfmean(i,j,k,bi,bj) = Sfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
164 |
COST_DRIFT |
& sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
189 |
COST_DRIFT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drift.F |
193 |
COST_DRIFT |
Tlmean(i,j,k,bi,bj) = Tlmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
194 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
195 |
COST_DRIFT |
Slmean(i,j,k,bi,bj) = Slmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
196 |
COST_DRIFT |
& sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
207 |
COST_DRIFT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drift.F |
216 |
COST_DRIFT |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_drift.F |
218 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
220 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
221 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
223 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_drift.F |
224 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
226 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
227 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
229 |
COST_DRIFT |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
231 |
COST_DRIFT |
& num_sdrift(bi,bj) = num_sdrift(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_drift.F |
233 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_drift.F |
246 |
COST_DRIFT |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_drift.F |
248 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
250 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
251 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
253 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_drift.F |
254 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
256 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
257 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
259 |
COST_DRIFT |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
261 |
COST_DRIFT |
& num_tdrift(bi,bj) = num_tdrift(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_drift.F |
263 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_drift.F |
275 |
COST_DRIFT |
objf_tdrift(bi,bj) = objf_tdrift(bi,bj) + fctilet |
|
./pkg/ecco/cost_drift.F |
276 |
COST_DRIFT |
objf_sdrift(bi,bj) = objf_sdrift(bi,bj) + fctiles |
|
./pkg/ecco/cost_drift.F |
51 |
COST_DRIFT |
integer bi,bj |
|
./pkg/ecco/cost_drifter.F |
131 |
COST_DRIFTER |
do bi = itlo,ithi |
|
./pkg/ecco/cost_drifter.F |
134 |
COST_DRIFTER |
act1 = bi - myBxLo(myThid) |
|
./pkg/ecco/cost_drifter.F |
163 |
COST_DRIFTER |
udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
164 |
COST_DRIFTER |
vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
166 |
COST_DRIFTER |
udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec) |
|
./pkg/ecco/cost_drifter.F |
167 |
COST_DRIFTER |
vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec) |
|
./pkg/ecco/cost_drifter.F |
169 |
COST_DRIFTER |
udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
170 |
COST_DRIFTER |
vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
192 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_drifter.F |
193 |
COST_DRIFTER |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) |
|
./pkg/ecco/cost_drifter.F |
194 |
COST_DRIFTER |
& mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
204 |
COST_DRIFTER |
if (_hFacC(i,j,13,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_drifter.F |
205 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
215 |
COST_DRIFTER |
masktmp(i,j,bi,bj) = |
|
./pkg/ecco/cost_drifter.F |
216 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
217 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
218 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
219 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
220 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
221 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
222 |
COST_DRIFTER |
if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then |
|
./pkg/ecco/cost_drifter.F |
223 |
COST_DRIFTER |
u6bar(i,j,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drifter.F |
225 |
COST_DRIFTER |
u6bar(i,j,bi,bj) = ( |
|
./pkg/ecco/cost_drifter.F |
226 |
COST_DRIFTER |
& udmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
227 |
COST_DRIFTER |
& + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
228 |
COST_DRIFTER |
& + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
229 |
COST_DRIFTER |
& + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
230 |
COST_DRIFTER |
& + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
231 |
COST_DRIFTER |
& + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
232 |
COST_DRIFTER |
& + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
233 |
COST_DRIFTER |
& + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
234 |
COST_DRIFTER |
& + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
235 |
COST_DRIFTER |
& + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
236 |
COST_DRIFTER |
& + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
237 |
COST_DRIFTER |
& + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
238 |
COST_DRIFTER |
& / ( masktmp(i,j,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
245 |
COST_DRIFTER |
masktmp(i,j,bi,bj) = |
|
./pkg/ecco/cost_drifter.F |
246 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
247 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
248 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
249 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
250 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
251 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
252 |
COST_DRIFTER |
if ( masktmp(i,j,bi,bj) .eq.0.0 ) then |
|
./pkg/ecco/cost_drifter.F |
253 |
COST_DRIFTER |
v6bar(i,j,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drifter.F |
255 |
COST_DRIFTER |
v6bar(i,j,bi,bj) = ( |
|
./pkg/ecco/cost_drifter.F |
256 |
COST_DRIFTER |
& vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
257 |
COST_DRIFTER |
& + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
258 |
COST_DRIFTER |
& + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
259 |
COST_DRIFTER |
& + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
260 |
COST_DRIFTER |
& + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
261 |
COST_DRIFTER |
& + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
262 |
COST_DRIFTER |
& + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
263 |
COST_DRIFTER |
& + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
264 |
COST_DRIFTER |
& + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
265 |
COST_DRIFTER |
& + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
266 |
COST_DRIFTER |
& + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
267 |
COST_DRIFTER |
& + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
268 |
COST_DRIFTER |
& / ( masktmp(i,j,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
276 |
COST_DRIFTER |
uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
277 |
COST_DRIFTER |
vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
279 |
COST_DRIFTER |
wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2) |
|
./pkg/ecco/cost_drifter.F |
280 |
COST_DRIFTER |
wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2) |
|
./pkg/ecco/cost_drifter.F |
283 |
COST_DRIFTER |
mask6c(i,j,bi,bj) = 1.0 |
|
./pkg/ecco/cost_drifter.F |
284 |
COST_DRIFTER |
if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
285 |
COST_DRIFTER |
if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
286 |
COST_DRIFTER |
if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
287 |
COST_DRIFTER |
if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
305 |
COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
306 |
COST_DRIFTER |
& mask6c(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
307 |
COST_DRIFTER |
& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))* |
|
./pkg/ecco/cost_drifter.F |
308 |
COST_DRIFTER |
& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj)) ) |
|
./pkg/ecco/cost_drifter.F |
309 |
COST_DRIFTER |
& + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
310 |
COST_DRIFTER |
& mask6c(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
311 |
COST_DRIFTER |
& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))* |
|
./pkg/ecco/cost_drifter.F |
312 |
COST_DRIFTER |
& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj)) ) |
|
./pkg/ecco/cost_drifter.F |
313 |
COST_DRIFTER |
if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_drifter.F |
314 |
COST_DRIFTER |
if ( wud(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_drifter.F |
315 |
COST_DRIFTER |
& num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_drifter.F |
316 |
COST_DRIFTER |
if ( wvd(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_drifter.F |
317 |
COST_DRIFTER |
& num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_drifter.F |
323 |
COST_DRIFTER |
objf_drift(bi,bj) = objf_drift(bi,bj) + fctile_drift |
|
./pkg/ecco/cost_drifter.F |
331 |
COST_DRIFTER |
& ' cost_drifter: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_drifter.F |
63 |
COST_DRIFTER |
integer bi,bj |
|
./pkg/ecco/cost_driftw.F |
106 |
COST_DRIFTW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_driftw.F |
110 |
COST_DRIFTW |
wfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_driftw.F |
111 |
COST_DRIFTW |
wlmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_driftw.F |
136 |
COST_DRIFTW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_driftw.F |
140 |
COST_DRIFTW |
wfmean(i,j,k,bi,bj) = wfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_driftw.F |
141 |
COST_DRIFTW |
& wbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_driftw.F |
161 |
COST_DRIFTW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_driftw.F |
165 |
COST_DRIFTW |
wlmean(i,j,k,bi,bj) = wlmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_driftw.F |
166 |
COST_DRIFTW |
& wbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_driftw.F |
177 |
COST_DRIFTW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_driftw.F |
188 |
COST_DRIFTW |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_driftw.F |
190 |
COST_DRIFTW |
& (2.5e11*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_driftw.F |
191 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_driftw.F |
192 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_driftw.F |
193 |
COST_DRIFTW |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_driftw.F |
194 |
COST_DRIFTW |
& num_wdrift(bi,bj) = num_wdrift(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_driftw.F |
203 |
COST_DRIFTW |
objf_wdrift(bi,bj) = objf_wdrift(bi,bj) + fctilew |
|
./pkg/ecco/cost_driftw.F |
211 |
COST_DRIFTW |
& ' cost_Driftw: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_driftw.F |
54 |
COST_DRIFTW |
integer bi,bj |
|
./pkg/ecco/cost_forcing_gen.F |
135 |
COST_FORCING_GEN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_forcing_gen.F |
138 |
COST_FORCING_GEN |
xx_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
141 |
COST_FORCING_GEN |
num_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
142 |
COST_FORCING_GEN |
num_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
143 |
COST_FORCING_GEN |
num_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
144 |
COST_FORCING_GEN |
objf_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
145 |
COST_FORCING_GEN |
objf_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
146 |
COST_FORCING_GEN |
objf_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
159 |
COST_FORCING_GEN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_forcing_gen.F |
162 |
COST_FORCING_GEN |
xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
163 |
COST_FORCING_GEN |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
175 |
COST_FORCING_GEN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_forcing_gen.F |
181 |
COST_FORCING_GEN |
xx_mean(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
182 |
COST_FORCING_GEN |
& = xx_mean(i,j,bi,bj)/float(nrec) |
|
./pkg/ecco/cost_forcing_gen.F |
183 |
COST_FORCING_GEN |
tmpx = xx_mean(i,j,bi,bj)/wmean_gen |
|
./pkg/ecco/cost_forcing_gen.F |
184 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
185 |
COST_FORCING_GEN |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_forcing_gen.F |
186 |
COST_FORCING_GEN |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_forcing_gen.F |
187 |
COST_FORCING_GEN |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ecco/cost_forcing_gen.F |
188 |
COST_FORCING_GEN |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
189 |
COST_FORCING_GEN |
& num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_forcing_gen.F |
193 |
COST_FORCING_GEN |
objf_gen_mean(bi,bj) = objf_gen_mean(bi,bj) + fctilem |
|
./pkg/ecco/cost_forcing_gen.F |
208 |
COST_FORCING_GEN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_forcing_gen.F |
215 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
217 |
COST_FORCING_GEN |
tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
220 |
COST_FORCING_GEN |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_forcing_gen.F |
221 |
COST_FORCING_GEN |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_forcing_gen.F |
223 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
226 |
COST_FORCING_GEN |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
229 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
230 |
COST_FORCING_GEN |
& num_gen_anom(bi,bj) = num_gen_anom(bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
236 |
COST_FORCING_GEN |
objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile |
|
./pkg/ecco/cost_forcing_gen.F |
258 |
COST_FORCING_GEN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_forcing_gen.F |
265 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
267 |
COST_FORCING_GEN |
& ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) ) |
|
./pkg/ecco/cost_forcing_gen.F |
268 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
269 |
COST_FORCING_GEN |
& + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ecco/cost_forcing_gen.F |
270 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
271 |
COST_FORCING_GEN |
& + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) ) |
|
./pkg/ecco/cost_forcing_gen.F |
272 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
273 |
COST_FORCING_GEN |
& + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ecco/cost_forcing_gen.F |
274 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
275 |
COST_FORCING_GEN |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_forcing_gen.F |
276 |
COST_FORCING_GEN |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_forcing_gen.F |
278 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
281 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
282 |
COST_FORCING_GEN |
& num_gen_smoo(bi,bj) = num_gen_smoo(bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
288 |
COST_FORCING_GEN |
objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_forcing_gen.F |
76 |
COST_FORCING_GEN |
integer bi,bj |
|
./pkg/ecco/cost_gen_transport.F |
49 |
COST_GEN_TRANSPORT |
integer bi,bj |
|
./pkg/ecco/cost_gen_transport.F |
76 |
COST_GEN_TRANSPORT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gen_transport.F |
77 |
COST_GEN_TRANSPORT |
ftmp = ftmp + transpbar(irec,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
33 |
COST_GENCOST_CUSTOMIZE |
integer bi,bj |
|
./pkg/ecco/cost_gencost_customize.F |
52 |
COST_GENCOST_CUSTOMIZE |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_customize.F |
58 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,1) = empmr(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
207 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
210 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
211 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
235 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
239 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
240 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
241 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
242 |
COST_GENCOST_SSHV4 |
& tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
243 |
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 |
247 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
248 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
249 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
250 |
COST_GENCOST_SSHV4 |
& ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
251 |
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 |
255 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
256 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
257 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
258 |
COST_GENCOST_SSHV4 |
& gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
259 |
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 |
271 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
274 |
COST_GENCOST_SSHV4 |
if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
275 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
276 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
277 |
COST_GENCOST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
278 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
279 |
COST_GENCOST_SSHV4 |
& mean_slaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
281 |
COST_GENCOST_SSHV4 |
mean_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
304 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
307 |
COST_GENCOST_SSHV4 |
if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
308 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
309 |
COST_GENCOST_SSHV4 |
tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
310 |
COST_GENCOST_SSHV4 |
& -mean_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
328 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
332 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
333 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
334 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
335 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
336 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
337 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
339 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
340 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
341 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
342 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
344 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
345 |
COST_GENCOST_SSHV4 |
mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
346 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
382 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
385 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
386 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj) / float(ndaysrec) |
|
./pkg/ecco/cost_gencost_sshv4.F |
388 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
389 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
390 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
391 |
COST_GENCOST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
392 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
393 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
394 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
395 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
396 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
400 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
401 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
402 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
403 |
COST_GENCOST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
404 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
405 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
406 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
407 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
408 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
412 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
413 |
COST_GENCOST_SSHV4 |
& gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
414 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
415 |
COST_GENCOST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
416 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
417 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
418 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
419 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
420 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
432 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
436 |
COST_GENCOST_SSHV4 |
if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
437 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
438 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
439 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
440 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
441 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
442 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
443 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
444 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
445 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
446 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
450 |
COST_GENCOST_SSHV4 |
if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
451 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
452 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
453 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
454 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
455 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
456 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
457 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
458 |
COST_GENCOST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
459 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
460 |
COST_GENCOST_SSHV4 |
mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
464 |
COST_GENCOST_SSHV4 |
if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
465 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
466 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
467 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
468 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
469 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_gencost_sshv4.F |
470 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
471 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
472 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
473 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
474 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
477 |
COST_GENCOST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
478 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
479 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
480 |
COST_GENCOST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
481 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
482 |
COST_GENCOST_SSHV4 |
& mean_slaobs2(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
483 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
484 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
485 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
486 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj)-tpmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
487 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
488 |
COST_GENCOST_SSHV4 |
offset=offset+mean_psMssh_all(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
489 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
490 |
COST_GENCOST_SSHV4 |
offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
492 |
COST_GENCOST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
493 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
494 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
526 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
530 |
COST_GENCOST_SSHV4 |
if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
531 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
532 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
534 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
535 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
536 |
COST_GENCOST_SSHV4 |
elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
537 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
538 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
540 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
541 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
543 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
546 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
547 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
584 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
587 |
COST_GENCOST_SSHV4 |
prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
604 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
607 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
608 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
609 |
COST_GENCOST_SSHV4 |
& *tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
610 |
COST_GENCOST_SSHV4 |
objf_gencost(igen_mdt,bi,bj) = objf_gencost(igen_mdt,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
612 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) num_gencost(igen_mdt,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
613 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_mdt,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
614 |
COST_GENCOST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
638 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
641 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
642 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
643 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
644 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
645 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
646 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
647 |
COST_GENCOST_SSHV4 |
anom_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
648 |
COST_GENCOST_SSHV4 |
anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
649 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
67 |
COST_GENCOST_SSHV4 |
integer bi,bj |
|
./pkg/ecco/cost_gencost_sshv4.F |
686 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
690 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
692 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
693 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
694 |
COST_GENCOST_SSHV4 |
& -mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
695 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
696 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
697 |
COST_GENCOST_SSHV4 |
& -mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
698 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
699 |
COST_GENCOST_SSHV4 |
& tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
700 |
COST_GENCOST_SSHV4 |
anom_psMtpobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
& anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
703 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
709 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
710 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
711 |
COST_GENCOST_SSHV4 |
& -mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
712 |
COST_GENCOST_SSHV4 |
anom_psMersobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
713 |
COST_GENCOST_SSHV4 |
& anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
714 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
715 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
716 |
COST_GENCOST_SSHV4 |
& -mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
717 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
718 |
COST_GENCOST_SSHV4 |
& ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
719 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
720 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
724 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
726 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
727 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
728 |
COST_GENCOST_SSHV4 |
& -mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
729 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
730 |
COST_GENCOST_SSHV4 |
& anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
731 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
732 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
733 |
COST_GENCOST_SSHV4 |
& -mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
734 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sshv4.F |
735 |
COST_GENCOST_SSHV4 |
& gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
736 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
737 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
748 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
752 |
COST_GENCOST_SSHV4 |
if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
753 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
754 |
COST_GENCOST_SSHV4 |
& anom_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
755 |
COST_GENCOST_SSHV4 |
& anom_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
759 |
COST_GENCOST_SSHV4 |
if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
760 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
761 |
COST_GENCOST_SSHV4 |
& anom_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
762 |
COST_GENCOST_SSHV4 |
& anom_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
766 |
COST_GENCOST_SSHV4 |
if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
767 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
768 |
COST_GENCOST_SSHV4 |
& anom_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
769 |
COST_GENCOST_SSHV4 |
& anom_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
772 |
COST_GENCOST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
773 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
774 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
775 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
776 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
777 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
778 |
COST_GENCOST_SSHV4 |
& anom_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_gencost_sshv4.F |
779 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
781 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
782 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
822 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
828 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
829 |
COST_GENCOST_SSHV4 |
objf_gencost(igen_lsc,bi,bj) = objf_gencost(igen_lsc,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
830 |
COST_GENCOST_SSHV4 |
& + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc) |
|
./pkg/ecco/cost_gencost_sshv4.F |
831 |
COST_GENCOST_SSHV4 |
& *maskc(i,j,1,bi,bj)/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sshv4.F |
832 |
COST_GENCOST_SSHV4 |
if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
833 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
834 |
COST_GENCOST_SSHV4 |
& (maskc(i,j,1,bi,bj) .ne. 0.) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
835 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
836 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |
|
./pkg/ecco/cost_gencost_sshv4.F |
868 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
871 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
872 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
873 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
874 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
875 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
876 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
883 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
887 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
889 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
890 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj) - tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
891 |
COST_GENCOST_SSHV4 |
& - mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
892 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
896 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
898 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
899 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj) - ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
900 |
COST_GENCOST_SSHV4 |
& - mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
901 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
905 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
907 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_gencost_sshv4.F |
908 |
COST_GENCOST_SSHV4 |
& psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
909 |
COST_GENCOST_SSHV4 |
& - mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
910 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
941 |
COST_GENCOST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sshv4.F |
946 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMtpobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
947 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_tp) |
|
./pkg/ecco/cost_gencost_sshv4.F |
948 |
COST_GENCOST_SSHV4 |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
949 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
950 |
COST_GENCOST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
951 |
COST_GENCOST_SSHV4 |
objf_gencost(igen_tp,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
952 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_tp,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_tp,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
955 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_tp,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
959 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMersobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
960 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_ers) |
|
./pkg/ecco/cost_gencost_sshv4.F |
961 |
COST_GENCOST_SSHV4 |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
962 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
963 |
COST_GENCOST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
964 |
COST_GENCOST_SSHV4 |
objf_gencost(igen_ers,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
965 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_ers,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
967 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_ers,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
968 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_ers,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
972 |
COST_GENCOST_SSHV4 |
junkweight = mean_psMgfoobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
973 |
COST_GENCOST_SSHV4 |
& *gencost_weight(i,j,bi,bj,igen_gfo) |
|
./pkg/ecco/cost_gencost_sshv4.F |
974 |
COST_GENCOST_SSHV4 |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
975 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
976 |
COST_GENCOST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
977 |
COST_GENCOST_SSHV4 |
objf_gencost(igen_gfo,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
978 |
COST_GENCOST_SSHV4 |
& objf_gencost(igen_gfo,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sshv4.F |
980 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_gfo,bi,bj) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
981 |
COST_GENCOST_SSHV4 |
& num_gencost(igen_gfo,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
144 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
147 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
148 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
149 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
150 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
195 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
198 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
207 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
210 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
211 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
212 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
213 |
COST_GENCOST_SSTV4 |
& sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
214 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+ |
|
./pkg/ecco/cost_gencost_sstv4.F |
215 |
COST_GENCOST_SSTV4 |
& tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
216 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
227 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
230 |
COST_GENCOST_SSTV4 |
if ( nb_sst(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
231 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
232 |
COST_GENCOST_SSTV4 |
& obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
233 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
234 |
COST_GENCOST_SSTV4 |
& anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
235 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
276 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
279 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
280 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_amsre_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
281 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
282 |
COST_GENCOST_SSTV4 |
objf_gencost(igen_amsre_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
283 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre_lsc,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
285 |
COST_GENCOST_SSTV4 |
if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
286 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
287 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
333 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
336 |
COST_GENCOST_SSTV4 |
tmp_sst(i,j,bi,bj) = spval |
|
./pkg/ecco/cost_gencost_sstv4.F |
345 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
348 |
COST_GENCOST_SSTV4 |
if ( (tmp_sst(i,j,bi,bj).GT.spval).AND. |
|
./pkg/ecco/cost_gencost_sstv4.F |
349 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
350 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
351 |
COST_GENCOST_SSTV4 |
& sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
352 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
354 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
355 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
371 |
COST_GENCOST_SSTV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_gencost_sstv4.F |
374 |
COST_GENCOST_SSTV4 |
junk = anom_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
375 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_amsre)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
376 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
377 |
COST_GENCOST_SSTV4 |
objf_gencost(igen_amsre,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
378 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
380 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
381 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
54 |
COST_GENCOST_SSTV4 |
integer bi,bj |
|
./pkg/ecco/cost_generic.F |
136 |
COST_GENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_generic.F |
137 |
COST_GENERIC |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
138 |
COST_GENERIC |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
142 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
151 |
COST_GENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_generic.F |
156 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
158 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
160 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
244 |
COST_GENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_generic.F |
258 |
COST_GENERIC |
do bi = itlo,ithi |
|
./pkg/ecco/cost_generic.F |
266 |
COST_GENERIC |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
267 |
COST_GENERIC |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/cost_generic.F |
268 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/cost_generic.F |
269 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/cost_generic.F |
279 |
COST_GENERIC |
localwww = localweight(i,j,k,bi,bj)*cmask(i,j,k) |
|
./pkg/ecco/cost_generic.F |
280 |
COST_GENERIC |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/ecco/cost_generic.F |
281 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_generic.F |
284 |
COST_GENERIC |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_generic.F |
289 |
COST_GENERIC |
objf_local(bi,bj) = objf_local(bi,bj) + localcost |
|
./pkg/ecco/cost_generic.F |
74 |
COST_GENERIC |
integer bi,bj |
|
./pkg/ecco/cost_kapgm.F |
101 |
COST_KAPGM |
do bi = itlo,ithi |
|
./pkg/ecco/cost_kapgm.F |
109 |
COST_KAPGM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_kapgm.F |
111 |
COST_KAPGM |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
114 |
COST_KAPGM |
& + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
124 |
COST_KAPGM |
objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile |
|
./pkg/ecco/cost_kapgm.F |
133 |
COST_KAPGM |
& ' cost_kapgm: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_kapgm.F |
42 |
COST_KAPGM |
integer bi,bj |
|
./pkg/ecco/cost_kapredi.F |
101 |
COST_KAPREDI |
do bi = itlo,ithi |
|
./pkg/ecco/cost_kapredi.F |
109 |
COST_KAPREDI |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_kapredi.F |
111 |
COST_KAPREDI |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
114 |
COST_KAPREDI |
& + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
124 |
COST_KAPREDI |
objf_kapredi(bi,bj) = objf_kapredi(bi,bj) + fctile |
|
./pkg/ecco/cost_kapredi.F |
133 |
COST_KAPREDI |
& ' cost_kapredi: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_kapredi.F |
42 |
COST_KAPREDI |
integer bi,bj |
|
./pkg/ecco/cost_mean_heatflux.F |
111 |
COST_MEAN_HEATFLUX |
do bi = itlo,ithi |
|
./pkg/ecco/cost_mean_heatflux.F |
115 |
COST_MEAN_HEATFLUX |
tmpx=tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_mean_heatflux.F |
116 |
COST_MEAN_HEATFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_heatflux.F |
118 |
COST_MEAN_HEATFLUX |
& + tmpx* _rA(i,j,bi,bj) |
|
./pkg/ecco/cost_mean_heatflux.F |
120 |
COST_MEAN_HEATFLUX |
& + _rA(i,j,bi,bj) |
|
./pkg/ecco/cost_mean_heatflux.F |
121 |
COST_MEAN_HEATFLUX |
num_hfluxmm(bi,bj) = num_hfluxmm(bi,bj) + 1 |
|
./pkg/ecco/cost_mean_heatflux.F |
49 |
COST_MEAN_HEATFLUX |
integer bi,bj |
|
./pkg/ecco/cost_mean_saltflux.F |
111 |
COST_MEAN_SALTFLUX |
do bi = itlo,ithi |
|
./pkg/ecco/cost_mean_saltflux.F |
115 |
COST_MEAN_SALTFLUX |
tmpx=tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_mean_saltflux.F |
116 |
COST_MEAN_SALTFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_saltflux.F |
118 |
COST_MEAN_SALTFLUX |
& + tmpx* _rA(i,j,bi,bj)/rhoConstFresh |
|
./pkg/ecco/cost_mean_saltflux.F |
120 |
COST_MEAN_SALTFLUX |
& + _rA(i,j,bi,bj) |
|
./pkg/ecco/cost_mean_saltflux.F |
121 |
COST_MEAN_SALTFLUX |
num_sfluxmm(bi,bj) = num_sfluxmm(bi,bj) + 1 |
|
./pkg/ecco/cost_mean_saltflux.F |
49 |
COST_MEAN_SALTFLUX |
integer bi,bj |
|
./pkg/ecco/cost_obcs_ageos.F |
152 |
COST_OBCS_AGEOS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcs_ageos.F |
155 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
156 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
157 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
158 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
161 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
162 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
163 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
171 |
COST_OBCS_AGEOS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcs_ageos.F |
174 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
214 |
COST_OBCS_AGEOS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcs_ageos.F |
222 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
225 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
227 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
228 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
229 |
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 |
230 |
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 |
231 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
239 |
COST_OBCS_AGEOS |
IF ( bi.NE.1 .OR. bj.NE.1 ) |
|
./pkg/ecco/cost_obcs_ageos.F |
243 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
244 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
246 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
251 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
252 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
253 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
254 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
263 |
COST_OBCS_AGEOS |
j = ob_jn(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
264 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
265 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
266 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
267 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
270 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
271 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
272 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
273 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
274 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
289 |
COST_OBCS_AGEOS |
j = ob_js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
291 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
294 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
295 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
296 |
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 |
297 |
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 |
298 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
308 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
310 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
316 |
COST_OBCS_AGEOS |
j = ob_js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
317 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
318 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
319 |
COST_OBCS_AGEOS |
& /(2.*dxc(i,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
326 |
COST_OBCS_AGEOS |
j = ob_js(i,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
328 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
329 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
337 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
338 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
339 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
340 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
353 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
358 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
359 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
360 |
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 |
361 |
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 |
362 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
371 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
372 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
379 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
381 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
382 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
383 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
390 |
COST_OBCS_AGEOS |
i = ob_iw(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
392 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
393 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
396 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
402 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
403 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
404 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
416 |
COST_OBCS_AGEOS |
i = ob_ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
418 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) =0. |
|
./pkg/ecco/cost_obcs_ageos.F |
421 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
422 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
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 |
424 |
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 |
425 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
434 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
435 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
437 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
442 |
COST_OBCS_AGEOS |
i = ob_ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
444 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
446 |
COST_OBCS_AGEOS |
& /(2.*dyc(i+ip1,j,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
453 |
COST_OBCS_AGEOS |
i = ob_ie(j,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
455 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
456 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
460 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
465 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
466 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
475 |
COST_OBCS_AGEOS |
objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile |
|
./pkg/ecco/cost_obcs_ageos.F |
483 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_obcs_ageos.F |
56 |
COST_OBCS_AGEOS |
integer bi,bj |
|
./pkg/ecco/cost_obcse.F |
122 |
COST_OBCSE |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcse.F |
129 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
132 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
133 |
COST_OBCSE |
& (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
134 |
COST_OBCSE |
& (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
140 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
159 |
COST_OBCSE |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcse.F |
166 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
169 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
170 |
COST_OBCSE |
& (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
171 |
COST_OBCSE |
& (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
177 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
195 |
COST_OBCSE |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcse.F |
202 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
205 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
206 |
COST_OBCSE |
& (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
207 |
COST_OBCSE |
& (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
213 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
232 |
COST_OBCSE |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcse.F |
239 |
COST_OBCSE |
i = OB_Ie(J,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
240 |
COST_OBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
242 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
243 |
COST_OBCSE |
& (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
244 |
COST_OBCSE |
& (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
250 |
COST_OBCSE |
objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile |
|
./pkg/ecco/cost_obcse.F |
52 |
COST_OBCSE |
integer bi,bj |
|
./pkg/ecco/cost_obcsn.F |
122 |
COST_OBCSN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsn.F |
129 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
130 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
132 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
133 |
COST_OBCSN |
& (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
134 |
COST_OBCSN |
& (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
140 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
159 |
COST_OBCSN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsn.F |
166 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
167 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
169 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
170 |
COST_OBCSN |
& (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
171 |
COST_OBCSN |
& (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
177 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
195 |
COST_OBCSN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsn.F |
202 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
205 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
206 |
COST_OBCSN |
& (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
207 |
COST_OBCSN |
& (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
213 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
232 |
COST_OBCSN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsn.F |
239 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
240 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
242 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
243 |
COST_OBCSN |
& (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
244 |
COST_OBCSN |
& (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
250 |
COST_OBCSN |
objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsn.F |
52 |
COST_OBCSN |
integer bi,bj |
|
./pkg/ecco/cost_obcss.F |
122 |
COST_OBCSS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcss.F |
129 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
130 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
132 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
133 |
COST_OBCSS |
& (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
134 |
COST_OBCSS |
& (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
140 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
159 |
COST_OBCSS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcss.F |
166 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
167 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
169 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
170 |
COST_OBCSS |
& (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
171 |
COST_OBCSS |
& (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
177 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
195 |
COST_OBCSS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcss.F |
202 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
205 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
206 |
COST_OBCSS |
& (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
207 |
COST_OBCSS |
& (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
213 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
232 |
COST_OBCSS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcss.F |
239 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
240 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
242 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
243 |
COST_OBCSS |
& (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
244 |
COST_OBCSS |
& (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
250 |
COST_OBCSS |
objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile |
|
./pkg/ecco/cost_obcss.F |
52 |
COST_OBCSS |
integer bi,bj |
|
./pkg/ecco/cost_obcsvol.F |
199 |
COST_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsvol.F |
206 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
208 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
211 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
241 |
COST_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsvol.F |
248 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
250 |
COST_OBCSVOL |
tmpx = tmpfldxz(i,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
253 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
284 |
COST_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsvol.F |
291 |
COST_OBCSVOL |
i = OB_Iw(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
293 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
327 |
COST_OBCSVOL |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsvol.F |
334 |
COST_OBCSVOL |
i = OB_Ie(j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
336 |
COST_OBCSVOL |
tmpy = tmpfldyz(j,1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
56 |
COST_OBCSVOL |
integer bi,bj |
|
./pkg/ecco/cost_obcsw.F |
122 |
COST_OBCSW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsw.F |
129 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
130 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
132 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
133 |
COST_OBCSW |
& (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
134 |
COST_OBCSW |
& (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
140 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
159 |
COST_OBCSW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsw.F |
166 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
167 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
169 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
170 |
COST_OBCSW |
& (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
171 |
COST_OBCSW |
& (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
177 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
195 |
COST_OBCSW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsw.F |
202 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
205 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
206 |
COST_OBCSW |
& (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
207 |
COST_OBCSW |
& (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
213 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
232 |
COST_OBCSW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_obcsw.F |
239 |
COST_OBCSW |
i = OB_Iw(J,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
240 |
COST_OBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
242 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
243 |
COST_OBCSW |
& (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
244 |
COST_OBCSW |
& (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
250 |
COST_OBCSW |
objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile |
|
./pkg/ecco/cost_obcsw.F |
52 |
COST_OBCSW |
integer bi,bj |
|
./pkg/ecco/cost_readargos.F |
45 |
COST_READARGOS |
integer bi,bj |
|
./pkg/ecco/cost_readargos.F |
88 |
COST_READARGOS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readargos.F |
92 |
COST_READARGOS |
argosobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readargot.F |
45 |
COST_READARGOT |
integer bi,bj |
|
./pkg/ecco/cost_readargot.F |
88 |
COST_READARGOT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readargot.F |
92 |
COST_READARGOT |
argotobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readers.F |
127 |
COST_READERS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readers.F |
131 |
COST_READERS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readers.F |
132 |
COST_READERS |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readers.F |
134 |
COST_READERS |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readers.F |
136 |
COST_READERS |
if (ersobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readers.F |
137 |
COST_READERS |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readers.F |
139 |
COST_READERS |
if (abs(ersobs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_readers.F |
140 |
COST_READERS |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readers.F |
144 |
COST_READERS |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_readers.F |
145 |
COST_READERS |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readers.F |
149 |
COST_READERS |
ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readers.F |
150 |
COST_READERS |
ersobs(i,j,bi,bj) = ersmask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_readers.F |
151 |
COST_READERS |
& ( ersobs(i,j,bi,bj) - |
|
./pkg/ecco/cost_readers.F |
46 |
COST_READERS |
integer bi,bj |
|
./pkg/ecco/cost_readgfo.F |
127 |
COST_READGFO |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readgfo.F |
131 |
COST_READGFO |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readgfo.F |
132 |
COST_READGFO |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
134 |
COST_READGFO |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
136 |
COST_READGFO |
if (gfoobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readgfo.F |
137 |
COST_READGFO |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
139 |
COST_READGFO |
if (abs(gfoobs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_readgfo.F |
140 |
COST_READGFO |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
143 |
COST_READGFO |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_readgfo.F |
144 |
COST_READGFO |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readgfo.F |
147 |
COST_READGFO |
gfomask(i,j,bi,bj) = gfomask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readgfo.F |
148 |
COST_READGFO |
gfoobs(i,j,bi,bj) = gfomask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_readgfo.F |
149 |
COST_READGFO |
& ( gfoobs(i,j,bi,bj) - |
|
./pkg/ecco/cost_readgfo.F |
46 |
COST_READGFO |
integer bi,bj |
|
./pkg/ecco/cost_readscatxfields.F |
123 |
COST_READSCATXFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readscatxfields.F |
127 |
COST_READSCATXFIELDS |
if (maskW(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readscatxfields.F |
128 |
COST_READSCATXFIELDS |
scatxmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatxfields.F |
130 |
COST_READSCATXFIELDS |
scatxmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readscatxfields.F |
132 |
COST_READSCATXFIELDS |
if (scatxdat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatxfields.F |
133 |
COST_READSCATXFIELDS |
scatxmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatxfields.F |
135 |
COST_READSCATXFIELDS |
if (scatxdat(i,j,bi,bj) .eq. 0. _d 0 ) then |
|
./pkg/ecco/cost_readscatxfields.F |
136 |
COST_READSCATXFIELDS |
scatxmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatxfields.F |
138 |
COST_READSCATXFIELDS |
scatxmask(i,j,bi,bj) = scatxmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readscatxfields.F |
139 |
COST_READSCATXFIELDS |
scatxdat(i,j,bi,bj) = scatxdat(i,j,bi,bj)* |
|
./pkg/ecco/cost_readscatxfields.F |
140 |
COST_READSCATXFIELDS |
& scatxmask(i,j,bi,bj) |
|
./pkg/ecco/cost_readscatxfields.F |
141 |
COST_READSCATXFIELDS |
nobs = nobs + int(scatxmask(i,j,bi,bj)) |
|
./pkg/ecco/cost_readscatxfields.F |
151 |
COST_READSCATXFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readscatxfields.F |
154 |
COST_READSCATXFIELDS |
vartile=vartile+scatxdat(i,j,bi,bj)*scatxdat(i,j,bi,bj) |
|
./pkg/ecco/cost_readscatxfields.F |
48 |
COST_READSCATXFIELDS |
integer bi,bj |
|
./pkg/ecco/cost_readscatyfields.F |
121 |
COST_READSCATYFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readscatyfields.F |
125 |
COST_READSCATYFIELDS |
if (maskS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readscatyfields.F |
126 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatyfields.F |
128 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readscatyfields.F |
130 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readscatyfields.F |
131 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatyfields.F |
133 |
COST_READSCATYFIELDS |
if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then |
|
./pkg/ecco/cost_readscatyfields.F |
134 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readscatyfields.F |
136 |
COST_READSCATYFIELDS |
scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readscatyfields.F |
137 |
COST_READSCATYFIELDS |
scatydat(i,j,bi,bj) = scatydat(i,j,bi,bj)* |
|
./pkg/ecco/cost_readscatyfields.F |
138 |
COST_READSCATYFIELDS |
& scatymask(i,j,bi,bj) |
|
./pkg/ecco/cost_readscatyfields.F |
139 |
COST_READSCATYFIELDS |
nobs = nobs + int(scatymask(i,j,bi,bj)) |
|
./pkg/ecco/cost_readscatyfields.F |
149 |
COST_READSCATYFIELDS |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readscatyfields.F |
152 |
COST_READSCATYFIELDS |
vartile=vartile+scatydat(i,j,bi,bj)*scatydat(i,j,bi,bj) |
|
./pkg/ecco/cost_readscatyfields.F |
48 |
COST_READSCATYFIELDS |
integer bi,bj |
|
./pkg/ecco/cost_readtopex.F |
125 |
COST_READTOPEX |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readtopex.F |
129 |
COST_READTOPEX |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readtopex.F |
130 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopex.F |
132 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readtopex.F |
134 |
COST_READTOPEX |
if (tpobs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_readtopex.F |
135 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopex.F |
137 |
COST_READTOPEX |
if (abs(tpobs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_readtopex.F |
138 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopex.F |
141 |
COST_READTOPEX |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_readtopex.F |
142 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopex.F |
145 |
COST_READTOPEX |
tpmask(i,j,bi,bj) = tpmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readtopex.F |
146 |
COST_READTOPEX |
tpobs(i,j,bi,bj) = tpmask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_readtopex.F |
147 |
COST_READTOPEX |
& ( tpobs(i,j,bi,bj) - |
|
./pkg/ecco/cost_readtopex.F |
46 |
COST_READTOPEX |
integer bi,bj |
|
./pkg/ecco/cost_readtopexmean.F |
47 |
COST_READTOPEXMEAN |
integer bi,bj |
|
./pkg/ecco/cost_readtopexmean.F |
74 |
COST_READTOPEXMEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_readtopexmean.F |
78 |
COST_READTOPEXMEAN |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readtopexmean.F |
79 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
81 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
83 |
COST_READTOPEXMEAN |
if (tpmean(i,j,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_readtopexmean.F |
84 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
86 |
COST_READTOPEXMEAN |
if (tpmean(i,j,bi,bj) .eq. 0. _d 0 ) then |
|
./pkg/ecco/cost_readtopexmean.F |
87 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
90 |
COST_READTOPEXMEAN |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_readtopexmean.F |
91 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
94 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = tpmeanmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readtopexmean.F |
95 |
COST_READTOPEXMEAN |
tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj)* |
|
./pkg/ecco/cost_readtopexmean.F |
96 |
COST_READTOPEXMEAN |
& tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_salt.F |
131 |
COST_SALT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_salt.F |
136 |
COST_SALT |
sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
138 |
COST_SALT |
sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
139 |
COST_SALT |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_salt.F |
141 |
COST_SALT |
sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
142 |
COST_SALT |
$ +sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
170 |
COST_SALT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_salt.F |
179 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt.F |
180 |
COST_SALT |
if (sdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_salt.F |
182 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_salt.F |
184 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_salt.F |
194 |
COST_SALT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_salt.F |
196 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
197 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_salt.F |
198 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_salt.F |
199 |
COST_SALT |
if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_salt.F |
200 |
COST_SALT |
& num_salt(bi,bj) = num_salt(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_salt.F |
201 |
COST_SALT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_salt.F |
202 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
203 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_salt.F |
204 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_salt.F |
206 |
COST_SALT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_salt.F |
219 |
COST_SALT |
objf_salt(bi,bj) = objf_salt(bi,bj) + fctile |
|
./pkg/ecco/cost_salt.F |
54 |
COST_SALT |
integer bi,bj |
|
./pkg/ecco/cost_salt0.F |
110 |
COST_SALT0 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_salt0.F |
118 |
COST_SALT0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt0.F |
119 |
COST_SALT0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
121 |
COST_SALT0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_salt0.F |
122 |
COST_SALT0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_salt0.F |
124 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
129 |
COST_SALT0 |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_salt0.F |
130 |
COST_SALT0 |
& num_salt0(bi,bj) = num_salt0(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_salt0.F |
136 |
COST_SALT0 |
objf_salt0(bi,bj) = objf_salt0(bi,bj) + fctile |
|
./pkg/ecco/cost_salt0.F |
152 |
COST_SALT0 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_salt0.F |
158 |
COST_SALT0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt0.F |
160 |
COST_SALT0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
161 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
162 |
COST_SALT0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
163 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
164 |
COST_SALT0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
165 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
166 |
COST_SALT0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
167 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
168 |
COST_SALT0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_salt0.F |
169 |
COST_SALT0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_salt0.F |
171 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
179 |
COST_SALT0 |
objf_salt0smoo(bi,bj) = objf_salt0smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_salt0.F |
51 |
COST_SALT0 |
integer bi,bj |
|
./pkg/ecco/cost_salt_ini_fin.F |
100 |
COST_SALT_INI_FIN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_salt_ini_fin.F |
108 |
COST_SALT_INI_FIN |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt_ini_fin.F |
109 |
COST_SALT_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
111 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
118 |
COST_SALT_INI_FIN |
objf_salt_ini_fin(bi,bj) = |
|
./pkg/ecco/cost_salt_ini_fin.F |
119 |
COST_SALT_INI_FIN |
& objf_salt_ini_fin(bi,bj) + fctile |
|
./pkg/ecco/cost_salt_ini_fin.F |
128 |
COST_SALT_INI_FIN |
& ' cost_salt_ini_fin: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_salt_ini_fin.F |
43 |
COST_SALT_INI_FIN |
integer bi,bj |
|
./pkg/ecco/cost_scat.F |
132 |
COST_SCAT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_scat.F |
136 |
COST_SCAT |
& *(tauxbar(i,j,bi,bj)+tauxbar(i+1,j,bi,bj)) |
|
./pkg/ecco/cost_scat.F |
138 |
COST_SCAT |
& *(tauybar(i,j,bi,bj)+tauybar(i,j+1,bi,bj)) |
|
./pkg/ecco/cost_scat.F |
139 |
COST_SCAT |
tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_scat.F |
140 |
COST_SCAT |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_scat.F |
141 |
COST_SCAT |
tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_scat.F |
142 |
COST_SCAT |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_scat.F |
150 |
COST_SCAT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_scat.F |
163 |
COST_SCAT |
tauxbar(i,j,bi,bj)=tmpU(i,j,bi,bj) |
|
./pkg/ecco/cost_scat.F |
164 |
COST_SCAT |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_scat.F |
166 |
COST_SCAT |
& wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
167 |
COST_SCAT |
& ( (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))* |
|
./pkg/ecco/cost_scat.F |
168 |
COST_SCAT |
& (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))* |
|
./pkg/ecco/cost_scat.F |
169 |
COST_SCAT |
& scatxmask(i,j,bi,bj) ) |
|
./pkg/ecco/cost_scat.F |
170 |
COST_SCAT |
if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
171 |
COST_SCAT |
& scatxmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_scat.F |
172 |
COST_SCAT |
& num_scatx(bi,bj) = num_scatx(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_scat.F |
183 |
COST_SCAT |
tauybar(i,j,bi,bj)=tmpV(i,j,bi,bj) |
|
./pkg/ecco/cost_scat.F |
184 |
COST_SCAT |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_scat.F |
186 |
COST_SCAT |
& wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
187 |
COST_SCAT |
& ( (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))* |
|
./pkg/ecco/cost_scat.F |
188 |
COST_SCAT |
& (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))* |
|
./pkg/ecco/cost_scat.F |
189 |
COST_SCAT |
& scatymask(i,j,bi,bj) ) |
|
./pkg/ecco/cost_scat.F |
190 |
COST_SCAT |
if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
191 |
COST_SCAT |
& scatymask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_scat.F |
192 |
COST_SCAT |
& num_scaty(bi,bj) = num_scaty(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_scat.F |
199 |
COST_SCAT |
objf_scatx(bi,bj) = objf_scatx(bi,bj) + fctile_scatx |
|
./pkg/ecco/cost_scat.F |
201 |
COST_SCAT |
objf_scaty(bi,bj) = objf_scaty(bi,bj) + fctile_scaty |
|
./pkg/ecco/cost_scat.F |
209 |
COST_SCAT |
& ' cost_scat: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_scat.F |
48 |
COST_SCAT |
integer bi,bj |
|
./pkg/ecco/cost_sla_read.F |
132 |
COST_SLA_READ |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sla_read.F |
136 |
COST_SLA_READ |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read.F |
137 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
139 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
141 |
COST_SLA_READ |
if (sla_obs(i,j,bi,bj) .le. spval) then |
|
./pkg/ecco/cost_sla_read.F |
142 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
144 |
COST_SLA_READ |
if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then |
|
./pkg/ecco/cost_sla_read.F |
145 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
149 |
COST_SLA_READ |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read.F |
150 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
154 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read.F |
155 |
COST_SLA_READ |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read.F |
156 |
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 |
116 |
COST_SLA_READ_YD |
do bi = itlo,ithi |
|
./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 |
sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_sla_read_yd.F |
140 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = sla_mask(i,j,bi,bj)*factor* |
|
./pkg/ecco/cost_sla_read_yd.F |
141 |
COST_SLA_READ_YD |
& sla_obs(i,j,bi,bj) |
|
./pkg/ecco/cost_sla_read_yd.F |
151 |
COST_SLA_READ_YD |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sla_read_yd.F |
154 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
155 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
44 |
COST_SLA_READ_YD |
integer bi,bj |
|
./pkg/ecco/cost_ssh.F |
126 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
129 |
COST_SSH |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
147 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
150 |
COST_SSH |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
151 |
COST_SSH |
& psbar(i,j,bi,bj)/ |
|
./pkg/ecco/cost_ssh.F |
167 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
171 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
172 |
COST_SSH |
& (tpmean(i,j,bi,bj) - psmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
174 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
204 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
207 |
COST_SSH |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
256 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
262 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
264 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
265 |
COST_SSH |
& tpobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
266 |
COST_SSH |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
267 |
COST_SSH |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
270 |
COST_SSH |
& num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
272 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
273 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
274 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
275 |
COST_SSH |
& (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
276 |
COST_SSH |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
277 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
278 |
COST_SSH |
num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
289 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
291 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
292 |
COST_SSH |
& ersobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
293 |
COST_SSH |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
294 |
COST_SSH |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
297 |
COST_SSH |
& num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
299 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
300 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
301 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
302 |
COST_SSH |
& (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
303 |
COST_SSH |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
304 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
305 |
COST_SSH |
num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
316 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
318 |
COST_SSH |
junk = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) - |
|
./pkg/ecco/cost_ssh.F |
319 |
COST_SSH |
& gfoobs(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh.F |
320 |
COST_SSH |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
321 |
COST_SSH |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
324 |
COST_SSH |
& num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
326 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
327 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
328 |
COST_SSH |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh.F |
329 |
COST_SSH |
& (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
330 |
COST_SSH |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
331 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
332 |
COST_SSH |
num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
346 |
COST_SSH |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh.F |
347 |
COST_SSH |
objf_h(bi,bj) = objf_h(bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
348 |
COST_SSH |
& objf_tp(bi,bj) + objf_ers(bi,bj) + objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
349 |
COST_SSH |
num_h(bi,bj) = num_h(bi,bj) + |
|
./pkg/ecco/cost_ssh.F |
350 |
COST_SSH |
& num_tp(bi,bj) + num_ers(bi,bj) + num_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh.F |
61 |
COST_SSH |
integer bi,bj |
|
./pkg/ecco/cost_ssh_mean.F |
118 |
COST_SSH_MEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_mean.F |
121 |
COST_SSH_MEAN |
if ( tpmeanmask(i,j,bi,bj) .gt. 0. ) then |
|
./pkg/ecco/cost_ssh_mean.F |
122 |
COST_SSH_MEAN |
misfit(i,j,bi,bj) = |
|
./pkg/ecco/cost_ssh_mean.F |
123 |
COST_SSH_MEAN |
& tpmean(i,j,bi,bj) - offset - psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
125 |
COST_SSH_MEAN |
misfit(i,j,bi,bj) = 0. |
|
./pkg/ecco/cost_ssh_mean.F |
137 |
COST_SSH_MEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_mean.F |
140 |
COST_SSH_MEAN |
misfitgl(i,j,bi,bj,1,1) = misfit(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
184 |
COST_SSH_MEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_mean.F |
189 |
COST_SSH_MEAN |
iglobe = i + sNx*(bi-1) + sNx*nSx*(ipx-1) |
|
./pkg/ecco/cost_ssh_mean.F |
191 |
COST_SSH_MEAN |
diffearth(iglobe,jglobe) = misfitgl(i,j,bi,bj,ipx,ipy) |
|
./pkg/ecco/cost_ssh_mean.F |
235 |
COST_SSH_MEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_mean.F |
238 |
COST_SSH_MEAN |
diff = psmean(i,j,bi,bj) - tpmean(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh_mean.F |
240 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
241 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
243 |
COST_SSH_MEAN |
diagnosfld(i,j,bi,bj) = diff*diff |
|
./pkg/ecco/cost_ssh_mean.F |
244 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
263 |
COST_SSH_MEAN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_mean.F |
266 |
COST_SSH_MEAN |
diff = psmean(i,j,bi,bj) - tpmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
267 |
COST_SSH_MEAN |
sumC0 = sumC0 + wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
269 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
271 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
272 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
274 |
COST_SSH_MEAN |
diagnosfld(i,j,bi,bj) = |
|
./pkg/ecco/cost_ssh_mean.F |
276 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
66 |
COST_SSH_MEAN |
integer bi,bj |
|
./pkg/ecco/cost_ssh_new.F |
129 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
132 |
COST_SSH_NEW |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
133 |
COST_SSH_NEW |
psmeantp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
134 |
COST_SSH_NEW |
psmeaners(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
135 |
COST_SSH_NEW |
psmeangfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
136 |
COST_SSH_NEW |
sumtp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
137 |
COST_SSH_NEW |
sumers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
138 |
COST_SSH_NEW |
sumgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
139 |
COST_SSH_NEW |
wwwtp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
140 |
COST_SSH_NEW |
wwwers1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
141 |
COST_SSH_NEW |
wwwgfo1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
142 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
143 |
COST_SSH_NEW |
wwwers2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
144 |
COST_SSH_NEW |
wwwgfo2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
178 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
181 |
COST_SSH_NEW |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
182 |
COST_SSH_NEW |
& psbar(i,j,bi,bj) / float(ndaysrec) |
|
./pkg/ecco/cost_ssh_new.F |
184 |
COST_SSH_NEW |
if ( tpmask(i,j,bi,bj)*wtp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
186 |
COST_SSH_NEW |
psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
187 |
COST_SSH_NEW |
& psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
188 |
COST_SSH_NEW |
sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
192 |
COST_SSH_NEW |
if ( ersmask(i,j,bi,bj)*wers(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
194 |
COST_SSH_NEW |
psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
195 |
COST_SSH_NEW |
& psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
196 |
COST_SSH_NEW |
sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
200 |
COST_SSH_NEW |
if ( gfomask(i,j,bi,bj)*wgfo(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
202 |
COST_SSH_NEW |
psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
203 |
COST_SSH_NEW |
& psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
204 |
COST_SSH_NEW |
sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
216 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
220 |
COST_SSH_NEW |
if ( sumtp(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
221 |
COST_SSH_NEW |
psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) / |
|
./pkg/ecco/cost_ssh_new.F |
222 |
COST_SSH_NEW |
& sumtp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
223 |
COST_SSH_NEW |
wwwtp1(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
227 |
COST_SSH_NEW |
if ( sumers(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
228 |
COST_SSH_NEW |
psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) / |
|
./pkg/ecco/cost_ssh_new.F |
229 |
COST_SSH_NEW |
& sumers(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
230 |
COST_SSH_NEW |
wwwers1(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
234 |
COST_SSH_NEW |
if ( sumgfo(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
235 |
COST_SSH_NEW |
psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) / |
|
./pkg/ecco/cost_ssh_new.F |
236 |
COST_SSH_NEW |
& sumgfo(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
237 |
COST_SSH_NEW |
wwwgfo1(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
252 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
256 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh_new.F |
257 |
COST_SSH_NEW |
& (tpmean(i,j,bi,bj) - psmean(i,j,bi,bj)) |
|
./pkg/ecco/cost_ssh_new.F |
259 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
289 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
292 |
COST_SSH_NEW |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
339 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
345 |
COST_SSH_NEW |
wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
346 |
COST_SSH_NEW |
& *wtp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
347 |
COST_SSH_NEW |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
348 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
350 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
351 |
COST_SSH_NEW |
& - psmeantp(i,j,bi,bj) - tpobs(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
352 |
COST_SSH_NEW |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
353 |
COST_SSH_NEW |
& + junk*junk*wwwtp2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
354 |
COST_SSH_NEW |
if ( wwwtp2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
355 |
COST_SSH_NEW |
& num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
357 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
358 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
359 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
360 |
COST_SSH_NEW |
& (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
361 |
COST_SSH_NEW |
objf_tp(bi,bj) = objf_tp(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
362 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
363 |
COST_SSH_NEW |
num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
374 |
COST_SSH_NEW |
wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
375 |
COST_SSH_NEW |
& *wers(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
376 |
COST_SSH_NEW |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
377 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
379 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
380 |
COST_SSH_NEW |
& - psmeaners(i,j,bi,bj) - ersobs(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
381 |
COST_SSH_NEW |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
382 |
COST_SSH_NEW |
& + junk*junk*wwwers2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
383 |
COST_SSH_NEW |
if ( wwwers2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
384 |
COST_SSH_NEW |
& num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
386 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
387 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
388 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
389 |
COST_SSH_NEW |
& (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
390 |
COST_SSH_NEW |
objf_ers(bi,bj) = objf_ers(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
391 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
392 |
COST_SSH_NEW |
num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
403 |
COST_SSH_NEW |
wwwgfo2(i,j,bi,bj) = wwwgfo1(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
404 |
COST_SSH_NEW |
& *wgfo(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
405 |
COST_SSH_NEW |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
406 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
408 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
409 |
COST_SSH_NEW |
& - psmeangfo(i,j,bi,bj) - gfoobs(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
410 |
COST_SSH_NEW |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
411 |
COST_SSH_NEW |
& + junk*junk*wwwgfo2(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
412 |
COST_SSH_NEW |
if ( wwwgfo2(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_new.F |
413 |
COST_SSH_NEW |
& num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
415 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
416 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
417 |
COST_SSH_NEW |
junk = ( psbar(i,j,bi,bj) - |
|
./pkg/ecco/cost_ssh_new.F |
418 |
COST_SSH_NEW |
& (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
419 |
COST_SSH_NEW |
objf_gfo(bi,bj) = objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
420 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
421 |
COST_SSH_NEW |
num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
435 |
COST_SSH_NEW |
do bi = itlo,ithi |
|
./pkg/ecco/cost_ssh_new.F |
436 |
COST_SSH_NEW |
objf_h(bi,bj) = objf_h(bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
437 |
COST_SSH_NEW |
& objf_tp(bi,bj) + objf_ers(bi,bj) + objf_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
438 |
COST_SSH_NEW |
num_h(bi,bj) = num_h(bi,bj) + |
|
./pkg/ecco/cost_ssh_new.F |
439 |
COST_SSH_NEW |
& num_tp(bi,bj) + num_ers(bi,bj) + num_gfo(bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
61 |
COST_SSH_NEW |
integer bi,bj |
|
./pkg/ecco/cost_sshv4.F |
187 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
190 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
191 |
COST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
215 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
219 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
220 |
COST_SSHV4 |
& wsshv4(i,j,2,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
221 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
222 |
COST_SSHV4 |
& tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
223 |
COST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
227 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
228 |
COST_SSHV4 |
& wsshv4(i,j,3,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
229 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
230 |
COST_SSHV4 |
& ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
231 |
COST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
235 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
236 |
COST_SSHV4 |
& wsshv4(i,j,4,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
237 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
238 |
COST_SSHV4 |
& gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
239 |
COST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
251 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
254 |
COST_SSHV4 |
if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
255 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
256 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
257 |
COST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
258 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
259 |
COST_SSHV4 |
& mean_slaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
261 |
COST_SSHV4 |
mean_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
284 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
287 |
COST_SSHV4 |
if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
288 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
289 |
COST_SSHV4 |
tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
290 |
COST_SSHV4 |
& -mean_slaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
308 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
312 |
COST_SSHV4 |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
313 |
COST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
314 |
COST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
315 |
COST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
316 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
317 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
319 |
COST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
320 |
COST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
321 |
COST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
322 |
COST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
324 |
COST_SSHV4 |
mean_psMtpobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
325 |
COST_SSHV4 |
mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
326 |
COST_SSHV4 |
mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
362 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
365 |
COST_SSHV4 |
psmean(i,j,bi,bj) = psmean(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
366 |
COST_SSHV4 |
& psbar(i,j,bi,bj) / float(ndaysrec) |
|
./pkg/ecco/cost_sshv4.F |
368 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*wsshv4(i,j,2,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
370 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
371 |
COST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
372 |
COST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
373 |
COST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
374 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
375 |
COST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
376 |
COST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
380 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
382 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
383 |
COST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
384 |
COST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
385 |
COST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
386 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
387 |
COST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
388 |
COST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
392 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*wsshv4(i,j,4,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
394 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
395 |
COST_SSHV4 |
& mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
396 |
COST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
397 |
COST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
398 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
399 |
COST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
400 |
COST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
412 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
416 |
COST_SSHV4 |
if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
417 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
418 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
419 |
COST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
420 |
COST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
421 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
422 |
COST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
423 |
COST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
424 |
COST_SSHV4 |
& mean_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
425 |
COST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
426 |
COST_SSHV4 |
mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
430 |
COST_SSHV4 |
if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
431 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
432 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
433 |
COST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
434 |
COST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
435 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
436 |
COST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
437 |
COST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
438 |
COST_SSHV4 |
& mean_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
439 |
COST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
440 |
COST_SSHV4 |
mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
444 |
COST_SSHV4 |
if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
445 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
446 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
447 |
COST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
448 |
COST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
449 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) + |
|
./pkg/ecco/cost_sshv4.F |
450 |
COST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
451 |
COST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
452 |
COST_SSHV4 |
& mean_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
453 |
COST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
454 |
COST_SSHV4 |
mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
457 |
COST_SSHV4 |
if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
458 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
459 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
460 |
COST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
461 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
462 |
COST_SSHV4 |
& mean_slaobs2(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
463 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
464 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
465 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
466 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj)-tpmean(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
467 |
COST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
468 |
COST_SSHV4 |
offset=offset+mean_psMssh_all(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
469 |
COST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
470 |
COST_SSHV4 |
offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
472 |
COST_SSHV4 |
mean_slaobs2(i,j,bi,bj) = 0.d0 |
|
./pkg/ecco/cost_sshv4.F |
473 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
474 |
COST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
506 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
510 |
COST_SSHV4 |
if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND. |
|
./pkg/ecco/cost_sshv4.F |
511 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
512 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
514 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
515 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_sshv4.F |
516 |
COST_SSHV4 |
elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
517 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
518 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
520 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
521 |
COST_SSHV4 |
& psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_sshv4.F |
523 |
COST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
526 |
COST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
527 |
COST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_sshv4.F |
564 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
567 |
COST_SSHV4 |
prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
584 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
587 |
COST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
588 |
COST_SSHV4 |
objf_sshv4cost(1,bi,bj) = objf_sshv4cost(1,bi,bj) + junk*junk |
|
./pkg/ecco/cost_sshv4.F |
589 |
COST_SSHV4 |
& *wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
590 |
COST_SSHV4 |
if ( wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
591 |
COST_SSHV4 |
& num_sshv4cost(1,bi,bj) = num_sshv4cost(1,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
592 |
COST_SSHV4 |
diagnosfld(i,j,bi,bj) = junk*junk |
|
./pkg/ecco/cost_sshv4.F |
593 |
COST_SSHV4 |
& * wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
617 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
620 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
621 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
622 |
COST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
623 |
COST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
624 |
COST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
625 |
COST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
626 |
COST_SSHV4 |
anom_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
627 |
COST_SSHV4 |
anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
628 |
COST_SSHV4 |
anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
65 |
COST_SSHV4 |
integer bi,bj |
|
./pkg/ecco/cost_sshv4.F |
665 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
669 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
671 |
COST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
672 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
673 |
COST_SSHV4 |
& -mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
674 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
675 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
676 |
COST_SSHV4 |
& -mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
677 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
678 |
COST_SSHV4 |
& tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
679 |
COST_SSHV4 |
anom_psMtpobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
680 |
COST_SSHV4 |
& anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
681 |
COST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
682 |
COST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
686 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
688 |
COST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
689 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
690 |
COST_SSHV4 |
& -mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
691 |
COST_SSHV4 |
anom_psMersobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
692 |
COST_SSHV4 |
& anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
693 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
694 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
695 |
COST_SSHV4 |
& -mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
696 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
697 |
COST_SSHV4 |
& ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
698 |
COST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
699 |
COST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
703 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
705 |
COST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
706 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
707 |
COST_SSHV4 |
& -mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
708 |
COST_SSHV4 |
anom_psMgfoobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
709 |
COST_SSHV4 |
& anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
710 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
711 |
COST_SSHV4 |
& psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
712 |
COST_SSHV4 |
& -mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
713 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+ |
|
./pkg/ecco/cost_sshv4.F |
714 |
COST_SSHV4 |
& gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
715 |
COST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
716 |
COST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
727 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
731 |
COST_SSHV4 |
if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
732 |
COST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
733 |
COST_SSHV4 |
& anom_psMtpobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
734 |
COST_SSHV4 |
& anom_psMtpobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
738 |
COST_SSHV4 |
if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
739 |
COST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
740 |
COST_SSHV4 |
& anom_psMersobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
741 |
COST_SSHV4 |
& anom_psMersobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
745 |
COST_SSHV4 |
if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then |
|
./pkg/ecco/cost_sshv4.F |
746 |
COST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
747 |
COST_SSHV4 |
& anom_psMgfoobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
748 |
COST_SSHV4 |
& anom_psMgfoobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
751 |
COST_SSHV4 |
if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
752 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
753 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
754 |
COST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
755 |
COST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
756 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
757 |
COST_SSHV4 |
& anom_slaobs(i,j,bi,bj) / |
|
./pkg/ecco/cost_sshv4.F |
758 |
COST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
760 |
COST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
761 |
COST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
801 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
807 |
COST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
808 |
COST_SSHV4 |
objf_sshv4cost(5,bi,bj) = objf_sshv4cost(5,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
809 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
811 |
COST_SSHV4 |
if ( (wsshv4(i,j,5,bi,bj).GT.0.).AND. |
|
./pkg/ecco/cost_sshv4.F |
812 |
COST_SSHV4 |
& (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND. |
|
./pkg/ecco/cost_sshv4.F |
813 |
COST_SSHV4 |
& (maskc(i,j,1,bi,bj) .ne. 0.) ) |
|
./pkg/ecco/cost_sshv4.F |
814 |
COST_SSHV4 |
& num_sshv4cost(5,bi,bj) = num_sshv4cost(5,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
847 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
850 |
COST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
851 |
COST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
852 |
COST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
853 |
COST_SSHV4 |
anom_tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
854 |
COST_SSHV4 |
anom_ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
855 |
COST_SSHV4 |
anom_gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
862 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
866 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_sshv4.F |
868 |
COST_SSHV4 |
anom_psMtpobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
869 |
COST_SSHV4 |
& psbar(i,j,bi,bj) - tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
870 |
COST_SSHV4 |
& - mean_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
871 |
COST_SSHV4 |
anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
875 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_sshv4.F |
877 |
COST_SSHV4 |
anom_psMersobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
878 |
COST_SSHV4 |
& psbar(i,j,bi,bj) - ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
879 |
COST_SSHV4 |
& - mean_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
880 |
COST_SSHV4 |
anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
884 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_sshv4.F |
886 |
COST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj)= |
|
./pkg/ecco/cost_sshv4.F |
887 |
COST_SSHV4 |
& psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
888 |
COST_SSHV4 |
& - mean_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
889 |
COST_SSHV4 |
anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
920 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
925 |
COST_SSHV4 |
junkweight = mean_psMtpobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
926 |
COST_SSHV4 |
& *wsshv4(i,j,2,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
927 |
COST_SSHV4 |
& *tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
928 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
929 |
COST_SSHV4 |
junk = anom_psMtpobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
930 |
COST_SSHV4 |
objf_sshv4cost(2,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
931 |
COST_SSHV4 |
& objf_sshv4cost(2,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
934 |
COST_SSHV4 |
& num_sshv4cost(2,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
935 |
COST_SSHV4 |
& num_sshv4cost(2,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
939 |
COST_SSHV4 |
junkweight = mean_psMersobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
940 |
COST_SSHV4 |
& *wsshv4(i,j,3,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
941 |
COST_SSHV4 |
& *ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
942 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
943 |
COST_SSHV4 |
junk = anom_psMersobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
944 |
COST_SSHV4 |
objf_sshv4cost(3,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
945 |
COST_SSHV4 |
& objf_sshv4cost(3,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
948 |
COST_SSHV4 |
& num_sshv4cost(3,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
949 |
COST_SSHV4 |
& num_sshv4cost(3,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
953 |
COST_SSHV4 |
junkweight = mean_psMgfoobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
954 |
COST_SSHV4 |
& *wsshv4(i,j,4,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
955 |
COST_SSHV4 |
& *gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
956 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
957 |
COST_SSHV4 |
junk = anom_psMgfoobs(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
958 |
COST_SSHV4 |
objf_sshv4cost(4,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
959 |
COST_SSHV4 |
& objf_sshv4cost(4,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
962 |
COST_SSHV4 |
& num_sshv4cost(4,bi,bj) = |
|
./pkg/ecco/cost_sshv4.F |
963 |
COST_SSHV4 |
& num_sshv4cost(4,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
981 |
COST_SSHV4 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_sshv4.F |
983 |
COST_SSHV4 |
objf_h(bi,bj) = objf_h(bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
984 |
COST_SSHV4 |
& + objf_sshv4cost(num_var,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
985 |
COST_SSHV4 |
num_h(bi,bj) = num_h(bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
986 |
COST_SSHV4 |
& + num_sshv4cost(num_var,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
106 |
COST_TAU_EDDY |
do bi = itlo,ithi |
|
./pkg/ecco/cost_tau_eddy.F |
112 |
COST_TAU_EDDY |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
113 |
COST_TAU_EDDY |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
116 |
COST_TAU_EDDY |
& + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
126 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
141 |
COST_TAU_EDDY |
do bi = itlo,ithi |
|
./pkg/ecco/cost_tau_eddy.F |
147 |
COST_TAU_EDDY |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
148 |
COST_TAU_EDDY |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
151 |
COST_TAU_EDDY |
& + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
161 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile |
|
./pkg/ecco/cost_tau_eddy.F |
170 |
COST_TAU_EDDY |
& ' cost_tau_eddy: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_tau_eddy.F |
218 |
COST_TAU_EDDY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ecco/cost_tau_eddy.F |
221 |
COST_TAU_EDDY |
act1 = bi - myBxLo(myThid) |
|
./pkg/ecco/cost_tau_eddy.F |
233 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
234 |
COST_TAU_EDDY |
& *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2 |
|
./pkg/ecco/cost_tau_eddy.F |
236 |
COST_TAU_EDDY |
locfc = locfc + maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
239 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
240 |
COST_TAU_EDDY |
& *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2 |
|
./pkg/ecco/cost_tau_eddy.F |
242 |
COST_TAU_EDDY |
locfc = locfc + maskS(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
249 |
COST_TAU_EDDY |
objf_eddytau(bi,bj) = locfc |
|
./pkg/ecco/cost_tau_eddy.F |
42 |
COST_TAU_EDDY |
integer bi,bj |
|
./pkg/ecco/cost_theta.F |
130 |
COST_THETA |
do bi = itlo,ithi |
|
./pkg/ecco/cost_theta.F |
135 |
COST_THETA |
tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
137 |
COST_THETA |
tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
138 |
COST_THETA |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_theta.F |
140 |
COST_THETA |
tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
141 |
COST_THETA |
$ +tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
169 |
COST_THETA |
do bi = itlo,ithi |
|
./pkg/ecco/cost_theta.F |
178 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta.F |
179 |
COST_THETA |
if (tdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_theta.F |
181 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_theta.F |
183 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_theta.F |
193 |
COST_THETA |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_theta.F |
195 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
196 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
197 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_theta.F |
198 |
COST_THETA |
if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_theta.F |
199 |
COST_THETA |
& num_temp(bi,bj) = num_temp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_theta.F |
200 |
COST_THETA |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_theta.F |
201 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
202 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
203 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_theta.F |
205 |
COST_THETA |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_theta.F |
218 |
COST_THETA |
objf_temp(bi,bj) = objf_temp(bi,bj) + fctile |
|
./pkg/ecco/cost_theta.F |
54 |
COST_THETA |
integer bi,bj |
|
./pkg/ecco/cost_theta0.F |
110 |
COST_THETA0 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_theta0.F |
118 |
COST_THETA0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta0.F |
119 |
COST_THETA0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
121 |
COST_THETA0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_theta0.F |
122 |
COST_THETA0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_theta0.F |
124 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
129 |
COST_THETA0 |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_theta0.F |
130 |
COST_THETA0 |
& num_temp0(bi,bj) = num_temp0(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_theta0.F |
136 |
COST_THETA0 |
objf_temp0(bi,bj) = objf_temp0(bi,bj) + fctile |
|
./pkg/ecco/cost_theta0.F |
152 |
COST_THETA0 |
do bi = itlo,ithi |
|
./pkg/ecco/cost_theta0.F |
158 |
COST_THETA0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta0.F |
160 |
COST_THETA0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
161 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
162 |
COST_THETA0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
163 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
164 |
COST_THETA0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
165 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
166 |
COST_THETA0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
167 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
168 |
COST_THETA0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. ) |
|
./pkg/ecco/cost_theta0.F |
169 |
COST_THETA0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. |
|
./pkg/ecco/cost_theta0.F |
171 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
179 |
COST_THETA0 |
objf_temp0smoo(bi,bj) = objf_temp0smoo(bi,bj) + fctile |
|
./pkg/ecco/cost_theta0.F |
51 |
COST_THETA0 |
integer bi,bj |
|
./pkg/ecco/cost_theta_ini_fin.F |
100 |
COST_THETA_INI_FIN |
do bi = itlo,ithi |
|
./pkg/ecco/cost_theta_ini_fin.F |
108 |
COST_THETA_INI_FIN |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta_ini_fin.F |
109 |
COST_THETA_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
111 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
118 |
COST_THETA_INI_FIN |
objf_theta_ini_fin(bi,bj) = |
|
./pkg/ecco/cost_theta_ini_fin.F |
119 |
COST_THETA_INI_FIN |
& objf_theta_ini_fin(bi,bj) + fctile |
|
./pkg/ecco/cost_theta_ini_fin.F |
128 |
COST_THETA_INI_FIN |
& ' cost_theta_ini_fin: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_theta_ini_fin.F |
43 |
COST_THETA_INI_FIN |
integer bi,bj |
|
./pkg/ecco/cost_trans_merid.F |
192 |
COST_TRANS_MERID |
do bi = itlo,ithi |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
197 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
198 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_merid.F |
199 |
COST_TRANS_MERID |
$ xc(i,j,bi,bj) .ge. beglon(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
200 |
COST_TRANS_MERID |
$ xc(i,j,bi,bj) .le. endlon(isect) ) then |
|
./pkg/ecco/cost_trans_merid.F |
201 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
202 |
COST_TRANS_MERID |
$ + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
203 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
204 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
206 |
COST_TRANS_MERID |
sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
207 |
COST_TRANS_MERID |
$ + sbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
208 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
209 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
211 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
212 |
COST_TRANS_MERID |
$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
213 |
COST_TRANS_MERID |
$ * _dxG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
214 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
48 |
COST_TRANS_MERID |
integer bi,bj |
|
./pkg/ecco/cost_trans_zonal.F |
181 |
COST_TRANS_ZONAL |
do bi = itlo,ithi |
|
./pkg/ecco/cost_trans_zonal.F |
185 |
COST_TRANS_ZONAL |
del_x = xc(i,j,bi,bj)-xc(i-1,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
186 |
COST_TRANS_ZONAL |
if ( xc(i,j,bi,bj) .ge. xlon(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
187 |
COST_TRANS_ZONAL |
$ xc(i,j,bi,bj) .lt. xlon(isect)+del_x .and. |
|
./pkg/ecco/cost_trans_zonal.F |
188 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .ge. beglat(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
189 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .le. endlat(isect) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
190 |
COST_TRANS_ZONAL |
tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
191 |
COST_TRANS_ZONAL |
$ + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
192 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
193 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
195 |
COST_TRANS_ZONAL |
su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
196 |
COST_TRANS_ZONAL |
$ + sbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
197 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
198 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
200 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
201 |
COST_TRANS_ZONAL |
$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
202 |
COST_TRANS_ZONAL |
$ * _dyG(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
203 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
48 |
COST_TRANS_ZONAL |
integer bi,bj |
|
./pkg/ecco/cost_xbt.F |
153 |
COST_XBT |
do bi = itlo,ithi |
|
./pkg/ecco/cost_xbt.F |
163 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
if ( xbtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_xbt.F |
165 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
166 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_xbt.F |
183 |
COST_XBT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_xbt.F |
185 |
COST_XBT |
$ xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/cost_xbt.F |
189 |
COST_XBT |
& (wtheta2(i,j,k,bi,bj)*cmask(i,j))* |
|
./pkg/ecco/cost_xbt.F |
190 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_xbt.F |
191 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/cost_xbt.F |
192 |
COST_XBT |
if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_xbt.F |
193 |
COST_XBT |
& num_xbt(bi,bj) = num_xbt(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_xbt.F |
201 |
COST_XBT |
objf_xbt(bi,bj) = objf_xbt(bi,bj) + fctile_xbt |
|
./pkg/ecco/cost_xbt.F |
208 |
COST_XBT |
& ' COST_XBT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_xbt.F |
49 |
COST_XBT |
integer bi,bj |
|
./pkg/ecco/ecco_cost_final.F |
324 |
ECCO_COST_FINAL |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_final.F |
327 |
ECCO_COST_FINAL |
& + mult_temp * objf_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
328 |
ECCO_COST_FINAL |
& + mult_salt * objf_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
329 |
ECCO_COST_FINAL |
& + mult_temp0 * ( objf_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
330 |
ECCO_COST_FINAL |
& +mult_smooth_ic*objf_temp0smoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
331 |
ECCO_COST_FINAL |
& + mult_salt0 * ( objf_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
332 |
ECCO_COST_FINAL |
& +mult_smooth_ic*objf_salt0smoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
333 |
ECCO_COST_FINAL |
& + mult_sst * objf_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
334 |
ECCO_COST_FINAL |
& + mult_tmi * objf_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
335 |
ECCO_COST_FINAL |
& + mult_sss * objf_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
336 |
ECCO_COST_FINAL |
& + mult_bp * objf_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
337 |
ECCO_COST_FINAL |
& + mult_tauu * ( objf_tauu(bi,bj)+objf_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
338 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_tauusmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
339 |
ECCO_COST_FINAL |
& + mult_tauv * ( objf_tauv(bi,bj)+objf_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
340 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_tauvsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
341 |
ECCO_COST_FINAL |
& + mult_hflux * ( objf_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
342 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_hfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
343 |
ECCO_COST_FINAL |
& + mult_sflux * ( objf_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
344 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_sfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
345 |
ECCO_COST_FINAL |
& + mult_h * ( mult_tp * objf_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
346 |
ECCO_COST_FINAL |
& + mult_ers * objf_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
347 |
ECCO_COST_FINAL |
& + mult_gfo * objf_gfo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
348 |
ECCO_COST_FINAL |
& + mult_atl * objf_atl(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
349 |
ECCO_COST_FINAL |
& + mult_ctdt * objf_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
350 |
ECCO_COST_FINAL |
& + mult_ctds * objf_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
351 |
ECCO_COST_FINAL |
& + mult_ctdtclim* objf_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
352 |
ECCO_COST_FINAL |
& + mult_ctdsclim* objf_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
353 |
ECCO_COST_FINAL |
& + mult_xbt * objf_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
354 |
ECCO_COST_FINAL |
& + mult_argot * objf_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
355 |
ECCO_COST_FINAL |
& + mult_argos * objf_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
356 |
ECCO_COST_FINAL |
& + mult_drift * objf_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
357 |
ECCO_COST_FINAL |
& + mult_sdrift * objf_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
358 |
ECCO_COST_FINAL |
& + mult_tdrift * objf_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
359 |
ECCO_COST_FINAL |
& + mult_wdrift * objf_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
360 |
ECCO_COST_FINAL |
& + mult_scatx * objf_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
361 |
ECCO_COST_FINAL |
& + mult_scaty * objf_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
362 |
ECCO_COST_FINAL |
& + mult_scatx * objf_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
363 |
ECCO_COST_FINAL |
& + mult_scaty * objf_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
364 |
ECCO_COST_FINAL |
& + mult_uwind * ( objf_uwind(bi,bj)+objf_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
365 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_uwindsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
366 |
ECCO_COST_FINAL |
& + mult_vwind * ( objf_vwind(bi,bj)+objf_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
367 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_vwindsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
368 |
ECCO_COST_FINAL |
& + mult_atemp * ( objf_atemp(bi,bj)+objf_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
369 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_atempsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
370 |
ECCO_COST_FINAL |
& + mult_aqh * ( objf_aqh(bi,bj)+objf_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
371 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_aqhsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
372 |
ECCO_COST_FINAL |
& + mult_precip * ( objf_precip(bi,bj)+objf_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
373 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_precipsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
374 |
ECCO_COST_FINAL |
& + mult_swflux * ( objf_swflux(bi,bj)+objf_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
375 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_swfluxsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
376 |
ECCO_COST_FINAL |
& + mult_swdown * ( objf_swdown(bi,bj)+objf_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
377 |
ECCO_COST_FINAL |
& +mult_smooth_bc*objf_swdownsmoo(bi,bj) ) |
|
./pkg/ecco/ecco_cost_final.F |
378 |
ECCO_COST_FINAL |
& + mult_obcsn * objf_obcsn(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
379 |
ECCO_COST_FINAL |
& + mult_obcss * objf_obcss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
380 |
ECCO_COST_FINAL |
& + mult_obcsw * objf_obcsw(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
381 |
ECCO_COST_FINAL |
& + mult_obcse * objf_obcse(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
382 |
ECCO_COST_FINAL |
& + mult_curmtr * objf_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
383 |
ECCO_COST_FINAL |
& + mult_ageos * objf_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
384 |
ECCO_COST_FINAL |
& + mult_kapgm * objf_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
385 |
ECCO_COST_FINAL |
& + mult_kapredi * objf_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
386 |
ECCO_COST_FINAL |
& + mult_diffkr * objf_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
387 |
ECCO_COST_FINAL |
& + mult_ini_fin *(objf_theta_ini_fin(bi,bj) + |
|
./pkg/ecco/ecco_cost_final.F |
388 |
ECCO_COST_FINAL |
& objf_salt_ini_fin(bi,bj)) |
|
./pkg/ecco/ecco_cost_final.F |
389 |
ECCO_COST_FINAL |
& + mult_edtau * objf_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
390 |
ECCO_COST_FINAL |
& + mult_bottomdrag * objf_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
396 |
ECCO_COST_FINAL |
& *objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
404 |
ECCO_COST_FINAL |
& *objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
411 |
ECCO_COST_FINAL |
& *objf_usercost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
418 |
ECCO_COST_FINAL |
& *objf_sshv4cost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
421 |
ECCO_COST_FINAL |
f_temp = f_temp + objf_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
422 |
ECCO_COST_FINAL |
f_salt = f_salt + objf_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
423 |
ECCO_COST_FINAL |
f_temp0 = f_temp0 + objf_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
424 |
ECCO_COST_FINAL |
f_salt0 = f_salt0 + objf_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
425 |
ECCO_COST_FINAL |
f_temp0smoo = f_temp0smoo + objf_temp0smoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
426 |
ECCO_COST_FINAL |
f_salt0smoo = f_salt0smoo + objf_salt0smoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
427 |
ECCO_COST_FINAL |
f_tauu = f_tauu + objf_tauu(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
428 |
ECCO_COST_FINAL |
f_tauum = f_tauum + objf_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
429 |
ECCO_COST_FINAL |
f_tauusmoo = f_tauusmoo + objf_tauusmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
430 |
ECCO_COST_FINAL |
f_tauv = f_tauv + objf_tauv(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
431 |
ECCO_COST_FINAL |
f_tauvm = f_tauvm + objf_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
432 |
ECCO_COST_FINAL |
f_tauvsmoo = f_tauvsmoo + objf_tauvsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
433 |
ECCO_COST_FINAL |
f_hflux = f_hflux + objf_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
434 |
ECCO_COST_FINAL |
f_hfluxsmoo = f_hfluxsmoo + objf_hfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
435 |
ECCO_COST_FINAL |
f_sflux = f_sflux + objf_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
436 |
ECCO_COST_FINAL |
f_sfluxsmoo = f_sfluxsmoo + objf_sfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
437 |
ECCO_COST_FINAL |
f_uwind = f_uwind + objf_uwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
438 |
ECCO_COST_FINAL |
f_vwind = f_vwind + objf_vwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
439 |
ECCO_COST_FINAL |
f_atemp = f_atemp + objf_atemp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
440 |
ECCO_COST_FINAL |
f_aqh = f_aqh + objf_aqh(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
441 |
ECCO_COST_FINAL |
f_precip = f_precip + objf_precip(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
442 |
ECCO_COST_FINAL |
f_swflux = f_swflux + objf_swflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
443 |
ECCO_COST_FINAL |
f_swdown = f_swdown + objf_swdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
444 |
ECCO_COST_FINAL |
f_uwindm = f_uwindm + objf_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
445 |
ECCO_COST_FINAL |
f_vwindm = f_vwindm + objf_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
446 |
ECCO_COST_FINAL |
f_atempm = f_atempm + objf_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
447 |
ECCO_COST_FINAL |
f_aqhm = f_aqhm + objf_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
448 |
ECCO_COST_FINAL |
f_precipm = f_precipm + objf_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
449 |
ECCO_COST_FINAL |
f_swfluxm = f_swfluxm + objf_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
450 |
ECCO_COST_FINAL |
f_swdownm = f_swdownm + objf_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
451 |
ECCO_COST_FINAL |
f_uwindsmoo = f_uwindsmoo + objf_uwindsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
452 |
ECCO_COST_FINAL |
f_vwindsmoo = f_vwindsmoo + objf_vwindsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
453 |
ECCO_COST_FINAL |
f_atempsmoo = f_atempsmoo + objf_atempsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
454 |
ECCO_COST_FINAL |
f_aqhsmoo = f_aqhsmoo + objf_aqhsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
455 |
ECCO_COST_FINAL |
f_precipsmoo = f_precipsmoo + objf_precipsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
456 |
ECCO_COST_FINAL |
f_swfluxsmoo = f_swfluxsmoo + objf_swfluxsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
457 |
ECCO_COST_FINAL |
f_swdownsmoo = f_swdownsmoo + objf_swdownsmoo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
458 |
ECCO_COST_FINAL |
f_ssh = f_ssh + objf_h(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
459 |
ECCO_COST_FINAL |
f_tp = f_tp + objf_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
460 |
ECCO_COST_FINAL |
f_ers = f_ers + objf_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
461 |
ECCO_COST_FINAL |
f_gfo = f_gfo + objf_gfo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
462 |
ECCO_COST_FINAL |
f_sst = f_sst + objf_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
463 |
ECCO_COST_FINAL |
f_tmi = f_tmi + objf_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
464 |
ECCO_COST_FINAL |
f_sss = f_sss + objf_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
465 |
ECCO_COST_FINAL |
f_bp = f_bp + objf_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
466 |
ECCO_COST_FINAL |
f_atl = f_atl + objf_atl(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
467 |
ECCO_COST_FINAL |
f_ctdt = f_ctdt + objf_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
468 |
ECCO_COST_FINAL |
f_ctds = f_ctds + objf_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
469 |
ECCO_COST_FINAL |
f_ctdtclim = f_ctdtclim + objf_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
470 |
ECCO_COST_FINAL |
f_ctdsclim = f_ctdsclim + objf_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
471 |
ECCO_COST_FINAL |
f_xbt = f_xbt + objf_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
472 |
ECCO_COST_FINAL |
f_argot = f_argot + objf_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
473 |
ECCO_COST_FINAL |
f_argos = f_argos + objf_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
474 |
ECCO_COST_FINAL |
f_drifter = f_drifter + objf_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
475 |
ECCO_COST_FINAL |
f_sdrift = f_sdrift + objf_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
476 |
ECCO_COST_FINAL |
f_tdrift = f_tdrift + objf_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
477 |
ECCO_COST_FINAL |
f_wdrift = f_wdrift + objf_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
478 |
ECCO_COST_FINAL |
f_scatx = f_scatx + objf_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
479 |
ECCO_COST_FINAL |
f_scaty = f_scaty + objf_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
480 |
ECCO_COST_FINAL |
f_scatxm = f_scatxm + objf_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
481 |
ECCO_COST_FINAL |
f_scatym = f_scatym + objf_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
482 |
ECCO_COST_FINAL |
f_curmtr = f_curmtr + objf_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
483 |
ECCO_COST_FINAL |
f_ageos = f_ageos + objf_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
484 |
ECCO_COST_FINAL |
f_kapgm = f_kapgm + objf_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
485 |
ECCO_COST_FINAL |
f_kapredi = f_kapredi + objf_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
486 |
ECCO_COST_FINAL |
f_diffkr = f_diffkr + objf_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
488 |
ECCO_COST_FINAL |
& objf_theta_ini_fin(bi,bj) + objf_salt_ini_fin(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
489 |
ECCO_COST_FINAL |
f_eddytau = f_eddytau + objf_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
490 |
ECCO_COST_FINAL |
f_bottomdrag = f_bottomdrag + objf_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
491 |
ECCO_COST_FINAL |
f_obcsn = f_obcsn + objf_obcsn(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
492 |
ECCO_COST_FINAL |
f_obcss = f_obcss + objf_obcss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
493 |
ECCO_COST_FINAL |
f_obcsw = f_obcsw + objf_obcsw(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
494 |
ECCO_COST_FINAL |
f_obcse = f_obcse + objf_obcse(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
499 |
ECCO_COST_FINAL |
& +objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
506 |
ECCO_COST_FINAL |
& +objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
50 |
ECCO_COST_FINAL |
integer bi,bj |
|
./pkg/ecco/ecco_cost_final.F |
512 |
ECCO_COST_FINAL |
& +objf_usercost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
518 |
ECCO_COST_FINAL |
& +objf_sshv4cost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
521 |
ECCO_COST_FINAL |
no_temp = no_temp + num_temp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
522 |
ECCO_COST_FINAL |
no_salt = no_salt + num_salt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
523 |
ECCO_COST_FINAL |
no_temp0 = no_temp0 + num_temp0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
524 |
ECCO_COST_FINAL |
no_salt0 = no_salt0 + num_salt0(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
525 |
ECCO_COST_FINAL |
no_tauu = no_tauu + num_tauu(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
526 |
ECCO_COST_FINAL |
no_tauum = no_tauum + num_tauum(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
527 |
ECCO_COST_FINAL |
no_tauv = no_tauv + num_tauv(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
528 |
ECCO_COST_FINAL |
no_tauvm = no_tauvm + num_tauvm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
529 |
ECCO_COST_FINAL |
no_hflux= no_hflux + num_hflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
530 |
ECCO_COST_FINAL |
no_hfluxmm = no_hfluxmm + num_hfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
531 |
ECCO_COST_FINAL |
no_sflux= no_sflux + num_sflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
532 |
ECCO_COST_FINAL |
no_sfluxmm = no_sfluxmm + num_sfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
533 |
ECCO_COST_FINAL |
no_atemp = no_atemp + num_atemp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
534 |
ECCO_COST_FINAL |
no_aqh = no_aqh + num_aqh(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
535 |
ECCO_COST_FINAL |
no_precip = no_precip + num_precip(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
536 |
ECCO_COST_FINAL |
no_swflux = no_swflux + num_swflux(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
537 |
ECCO_COST_FINAL |
no_swdown = no_swdown + num_swdown(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
538 |
ECCO_COST_FINAL |
no_uwind = no_uwind + num_uwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
539 |
ECCO_COST_FINAL |
no_vwind = no_vwind + num_vwind(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
540 |
ECCO_COST_FINAL |
no_atempm = no_atempm + num_atempm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
541 |
ECCO_COST_FINAL |
no_aqhm = no_aqhm + num_aqhm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
542 |
ECCO_COST_FINAL |
no_precipm = no_precipm + num_precipm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
543 |
ECCO_COST_FINAL |
no_swfluxm = no_swfluxm + num_swfluxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
544 |
ECCO_COST_FINAL |
no_swdownm = no_swdownm + num_swdownm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
545 |
ECCO_COST_FINAL |
no_uwindm = no_uwindm + num_uwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
546 |
ECCO_COST_FINAL |
no_vwindm = no_vwindm + num_vwindm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
547 |
ECCO_COST_FINAL |
no_ssh = no_ssh + num_h(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
548 |
ECCO_COST_FINAL |
no_tp = no_tp + num_tp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
549 |
ECCO_COST_FINAL |
no_ers = no_ers + num_ers(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
550 |
ECCO_COST_FINAL |
no_gfo = no_gfo + num_gfo(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
551 |
ECCO_COST_FINAL |
no_sst = no_sst + num_sst(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
552 |
ECCO_COST_FINAL |
no_tmi = no_tmi + num_tmi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
553 |
ECCO_COST_FINAL |
no_sss = no_sss + num_sss(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
554 |
ECCO_COST_FINAL |
no_bp = no_bp + num_bp(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
555 |
ECCO_COST_FINAL |
no_ctdt = no_ctdt + num_ctdt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
556 |
ECCO_COST_FINAL |
no_ctds = no_ctds + num_ctds(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
557 |
ECCO_COST_FINAL |
no_ctdtclim = no_ctdtclim + num_ctdtclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
558 |
ECCO_COST_FINAL |
no_ctdsclim = no_ctdsclim + num_ctdsclim(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
559 |
ECCO_COST_FINAL |
no_xbt = no_xbt + num_xbt(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
560 |
ECCO_COST_FINAL |
no_argot = no_argot + num_argot(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
561 |
ECCO_COST_FINAL |
no_argos = no_argos + num_argos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
562 |
ECCO_COST_FINAL |
no_drifter = no_drifter + num_drift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
563 |
ECCO_COST_FINAL |
no_sdrift = no_sdrift + num_sdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
564 |
ECCO_COST_FINAL |
no_tdrift = no_tdrift + num_tdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
565 |
ECCO_COST_FINAL |
no_wdrift = no_wdrift + num_wdrift(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
566 |
ECCO_COST_FINAL |
no_scatx = no_scatx + num_scatx(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
567 |
ECCO_COST_FINAL |
no_scaty = no_scaty + num_scaty(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
568 |
ECCO_COST_FINAL |
no_scatxm = no_scatxm + num_scatxm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
569 |
ECCO_COST_FINAL |
no_scatym = no_scatym + num_scatym(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
570 |
ECCO_COST_FINAL |
no_curmtr = no_curmtr + num_curmtr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
571 |
ECCO_COST_FINAL |
no_ageos = no_ageos + num_ageos(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
572 |
ECCO_COST_FINAL |
no_kapgm = no_kapgm + num_kapgm(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
573 |
ECCO_COST_FINAL |
no_kapredi = no_kapredi + num_kapredi(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
574 |
ECCO_COST_FINAL |
no_diffkr = no_diffkr + num_diffkr(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
576 |
ECCO_COST_FINAL |
& num_theta_ini_fin(bi,bj) + num_salt_ini_fin(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
577 |
ECCO_COST_FINAL |
no_eddytau = no_eddytau + num_eddytau(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
578 |
ECCO_COST_FINAL |
no_bottomdrag = no_bottomdrag + num_bottomdrag(bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
583 |
ECCO_COST_FINAL |
& +num_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
590 |
ECCO_COST_FINAL |
& +num_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
596 |
ECCO_COST_FINAL |
& +num_usercost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
602 |
ECCO_COST_FINAL |
& +num_sshv4cost(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
111 |
ECCO_COST_INIT_BARFILES |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
114 |
ECCO_COST_INIT_BARFILES |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
120 |
ECCO_COST_INIT_BARFILES |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
124 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
134 |
ECCO_COST_INIT_BARFILES |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
137 |
ECCO_COST_INIT_BARFILES |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
138 |
ECCO_COST_INIT_BARFILES |
tmpfldyz2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
144 |
ECCO_COST_INIT_BARFILES |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
147 |
ECCO_COST_INIT_BARFILES |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
148 |
ECCO_COST_INIT_BARFILES |
tmpfldxz2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
47 |
ECCO_COST_INIT_BARFILES |
integer bi,bj |
|
./pkg/ecco/ecco_cost_init_varia.F |
100 |
ECCO_COST_INIT_VARIA |
objf_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
101 |
ECCO_COST_INIT_VARIA |
objf_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
102 |
ECCO_COST_INIT_VARIA |
objf_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
103 |
ECCO_COST_INIT_VARIA |
objf_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
104 |
ECCO_COST_INIT_VARIA |
objf_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
105 |
ECCO_COST_INIT_VARIA |
objf_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
106 |
ECCO_COST_INIT_VARIA |
objf_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
107 |
ECCO_COST_INIT_VARIA |
objf_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
108 |
ECCO_COST_INIT_VARIA |
objf_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
109 |
ECCO_COST_INIT_VARIA |
objf_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
110 |
ECCO_COST_INIT_VARIA |
objf_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
111 |
ECCO_COST_INIT_VARIA |
objf_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
112 |
ECCO_COST_INIT_VARIA |
objf_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
113 |
ECCO_COST_INIT_VARIA |
objf_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
114 |
ECCO_COST_INIT_VARIA |
objf_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
115 |
ECCO_COST_INIT_VARIA |
objf_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
116 |
ECCO_COST_INIT_VARIA |
objf_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
117 |
ECCO_COST_INIT_VARIA |
objf_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
118 |
ECCO_COST_INIT_VARIA |
objf_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
119 |
ECCO_COST_INIT_VARIA |
objf_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
120 |
ECCO_COST_INIT_VARIA |
objf_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
121 |
ECCO_COST_INIT_VARIA |
objf_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
122 |
ECCO_COST_INIT_VARIA |
objf_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
123 |
ECCO_COST_INIT_VARIA |
objf_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
124 |
ECCO_COST_INIT_VARIA |
objf_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
125 |
ECCO_COST_INIT_VARIA |
objf_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
126 |
ECCO_COST_INIT_VARIA |
objf_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
127 |
ECCO_COST_INIT_VARIA |
objf_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
128 |
ECCO_COST_INIT_VARIA |
objf_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
129 |
ECCO_COST_INIT_VARIA |
objf_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
130 |
ECCO_COST_INIT_VARIA |
objf_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
131 |
ECCO_COST_INIT_VARIA |
objf_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
132 |
ECCO_COST_INIT_VARIA |
objf_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
133 |
ECCO_COST_INIT_VARIA |
objf_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
134 |
ECCO_COST_INIT_VARIA |
objf_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
135 |
ECCO_COST_INIT_VARIA |
objf_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
136 |
ECCO_COST_INIT_VARIA |
objf_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
137 |
ECCO_COST_INIT_VARIA |
objf_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
138 |
ECCO_COST_INIT_VARIA |
objf_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
151 |
ECCO_COST_INIT_VARIA |
num_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
152 |
ECCO_COST_INIT_VARIA |
num_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
153 |
ECCO_COST_INIT_VARIA |
num_hfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
154 |
ECCO_COST_INIT_VARIA |
num_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
155 |
ECCO_COST_INIT_VARIA |
num_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
num_sfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
157 |
ECCO_COST_INIT_VARIA |
num_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
158 |
ECCO_COST_INIT_VARIA |
num_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
num_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
160 |
ECCO_COST_INIT_VARIA |
num_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
161 |
ECCO_COST_INIT_VARIA |
num_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
162 |
ECCO_COST_INIT_VARIA |
num_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
163 |
ECCO_COST_INIT_VARIA |
num_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
164 |
ECCO_COST_INIT_VARIA |
num_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
165 |
ECCO_COST_INIT_VARIA |
num_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
166 |
ECCO_COST_INIT_VARIA |
num_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
167 |
ECCO_COST_INIT_VARIA |
num_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
168 |
ECCO_COST_INIT_VARIA |
num_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
169 |
ECCO_COST_INIT_VARIA |
num_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
170 |
ECCO_COST_INIT_VARIA |
num_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
171 |
ECCO_COST_INIT_VARIA |
num_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
172 |
ECCO_COST_INIT_VARIA |
num_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
173 |
ECCO_COST_INIT_VARIA |
num_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
174 |
ECCO_COST_INIT_VARIA |
num_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
175 |
ECCO_COST_INIT_VARIA |
num_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
176 |
ECCO_COST_INIT_VARIA |
num_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
177 |
ECCO_COST_INIT_VARIA |
num_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
178 |
ECCO_COST_INIT_VARIA |
num_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
179 |
ECCO_COST_INIT_VARIA |
num_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
180 |
ECCO_COST_INIT_VARIA |
num_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
181 |
ECCO_COST_INIT_VARIA |
num_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
182 |
ECCO_COST_INIT_VARIA |
num_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
183 |
ECCO_COST_INIT_VARIA |
num_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
184 |
ECCO_COST_INIT_VARIA |
num_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
185 |
ECCO_COST_INIT_VARIA |
num_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
186 |
ECCO_COST_INIT_VARIA |
num_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
187 |
ECCO_COST_INIT_VARIA |
num_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
188 |
ECCO_COST_INIT_VARIA |
num_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
189 |
ECCO_COST_INIT_VARIA |
num_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
190 |
ECCO_COST_INIT_VARIA |
num_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
191 |
ECCO_COST_INIT_VARIA |
num_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
192 |
ECCO_COST_INIT_VARIA |
num_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
193 |
ECCO_COST_INIT_VARIA |
num_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
194 |
ECCO_COST_INIT_VARIA |
num_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
195 |
ECCO_COST_INIT_VARIA |
num_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
196 |
ECCO_COST_INIT_VARIA |
num_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
num_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
198 |
ECCO_COST_INIT_VARIA |
num_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
199 |
ECCO_COST_INIT_VARIA |
num_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
200 |
ECCO_COST_INIT_VARIA |
num_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
201 |
ECCO_COST_INIT_VARIA |
num_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
202 |
ECCO_COST_INIT_VARIA |
num_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
203 |
ECCO_COST_INIT_VARIA |
num_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
204 |
ECCO_COST_INIT_VARIA |
num_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
205 |
ECCO_COST_INIT_VARIA |
num_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
218 |
ECCO_COST_INIT_VARIA |
num_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
224 |
ECCO_COST_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
231 |
ECCO_COST_INIT_VARIA |
tpmeanmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
233 |
ECCO_COST_INIT_VARIA |
tpmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
237 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
239 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
241 |
ECCO_COST_INIT_VARIA |
tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
244 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
245 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
247 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
252 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
253 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
255 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
257 |
ECCO_COST_INIT_VARIA |
gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
260 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
261 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
263 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
268 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
270 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
274 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
275 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
277 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
282 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
284 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
286 |
ECCO_COST_INIT_VARIA |
bpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
41 |
ECCO_COST_INIT_VARIA |
integer bi,bj |
|
./pkg/ecco/ecco_cost_init_varia.F |
81 |
ECCO_COST_INIT_VARIA |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_init_varia.F |
82 |
ECCO_COST_INIT_VARIA |
objf_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
83 |
ECCO_COST_INIT_VARIA |
objf_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
84 |
ECCO_COST_INIT_VARIA |
objf_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
85 |
ECCO_COST_INIT_VARIA |
objf_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
86 |
ECCO_COST_INIT_VARIA |
objf_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
87 |
ECCO_COST_INIT_VARIA |
objf_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
88 |
ECCO_COST_INIT_VARIA |
objf_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
89 |
ECCO_COST_INIT_VARIA |
objf_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
90 |
ECCO_COST_INIT_VARIA |
objf_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
91 |
ECCO_COST_INIT_VARIA |
objf_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
92 |
ECCO_COST_INIT_VARIA |
objf_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
93 |
ECCO_COST_INIT_VARIA |
objf_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
94 |
ECCO_COST_INIT_VARIA |
objf_temp0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
95 |
ECCO_COST_INIT_VARIA |
objf_salt0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
96 |
ECCO_COST_INIT_VARIA |
objf_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
97 |
ECCO_COST_INIT_VARIA |
objf_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
98 |
ECCO_COST_INIT_VARIA |
objf_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
99 |
ECCO_COST_INIT_VARIA |
objf_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1000 |
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 |
1023 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1027 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1028 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1031 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3. |
|
./pkg/ecco/ecco_cost_weights.F |
1032 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1037 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = whflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1058 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1062 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1066 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1067 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0) |
|
./pkg/ecco/ecco_cost_weights.F |
1092 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1096 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1097 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1100 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3. |
|
./pkg/ecco/ecco_cost_weights.F |
1101 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
1103 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m) |
|
./pkg/ecco/ecco_cost_weights.F |
1106 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = wsflux0*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1127 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1131 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1132 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1135 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1136 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0) |
|
./pkg/ecco/ecco_cost_weights.F |
114 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1159 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1164 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1167 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1168 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
117 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
118 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1191 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1195 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1196 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1199 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
119 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1200 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1223 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1227 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1228 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1231 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1232 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1255 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1259 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1260 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1263 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1264 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0) |
|
./pkg/ecco/ecco_cost_weights.F |
126 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
127 |
ECCO_COST_WEIGHTS |
wprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1287 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
128 |
ECCO_COST_WEIGHTS |
wswflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1291 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1292 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1295 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1296 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0) |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
wswdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
wsnowprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1319 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wlwflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1323 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1324 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1327 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1328 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1329 |
ECCO_COST_WEIGHTS |
& max(wsnowprecip(i,j,bi,bj),wsnowprecip0) |
|
./pkg/ecco/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wlwdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1352 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1356 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1357 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
135 |
ECCO_COST_WEIGHTS |
wrunoff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1360 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1361 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0) |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
137 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1384 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1388 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1389 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
138 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1392 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1393 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1394 |
ECCO_COST_WEIGHTS |
& max(wapressure(i,j,bi,bj),wapressure0) |
|
./pkg/ecco/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1417 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1421 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1422 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1425 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1426 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0) |
|
./pkg/ecco/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1441 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1445 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1446 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1463 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1468 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1469 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1487 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1492 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1493 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1511 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1516 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1517 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1535 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
153 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1540 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1541 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1543 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
155 |
ECCO_COST_WEIGHTS |
wbottomdrag (i,j,bi,bj) = wbottomdrag0 |
|
./pkg/ecco/ecco_cost_weights.F |
1561 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1565 |
ECCO_COST_WEIGHTS |
if (gencost_weight(i,j,bi,bj,k) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1566 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1580 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1583 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1584 |
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 |
1586 |
ECCO_COST_WEIGHTS |
if (wers(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1587 |
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 |
1589 |
ECCO_COST_WEIGHTS |
if (wgfo(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1590 |
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 |
1592 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1593 |
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 |
1595 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1596 |
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 |
1598 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1600 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1601 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1602 |
ECCO_COST_WEIGHTS |
& 1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1604 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1606 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1607 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1608 |
ECCO_COST_WEIGHTS |
& 1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1610 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1612 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1613 |
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 |
1615 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1617 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1618 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1619 |
ECCO_COST_WEIGHTS |
& 1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1621 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1623 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1624 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1625 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1627 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1629 |
ECCO_COST_WEIGHTS |
if (whflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1630 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1631 |
ECCO_COST_WEIGHTS |
& 1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1633 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1635 |
ECCO_COST_WEIGHTS |
if (whfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1636 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1637 |
ECCO_COST_WEIGHTS |
& 1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1639 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1641 |
ECCO_COST_WEIGHTS |
if (wsflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1642 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1643 |
ECCO_COST_WEIGHTS |
& 1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1645 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1647 |
ECCO_COST_WEIGHTS |
if (wsfluxm(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1648 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1649 |
ECCO_COST_WEIGHTS |
& 1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1651 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1653 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1654 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1655 |
ECCO_COST_WEIGHTS |
& 1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1657 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1659 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1660 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1661 |
ECCO_COST_WEIGHTS |
& 1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1663 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1665 |
ECCO_COST_WEIGHTS |
if (watemp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1666 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1667 |
ECCO_COST_WEIGHTS |
& 1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1669 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1671 |
ECCO_COST_WEIGHTS |
if (waqh(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1672 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1673 |
ECCO_COST_WEIGHTS |
& 1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1675 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1677 |
ECCO_COST_WEIGHTS |
if (wprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1678 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
& 1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
167 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1681 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1683 |
ECCO_COST_WEIGHTS |
if (wswflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1684 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
& 1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1687 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1689 |
ECCO_COST_WEIGHTS |
if (wswdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
168 |
ECCO_COST_WEIGHTS |
wkapgm (k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1690 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1691 |
ECCO_COST_WEIGHTS |
& 1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1693 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1695 |
ECCO_COST_WEIGHTS |
if (wlwflux(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1696 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1697 |
ECCO_COST_WEIGHTS |
& 1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1699 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wkapredi (k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1701 |
ECCO_COST_WEIGHTS |
if (wlwdown(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1702 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1703 |
ECCO_COST_WEIGHTS |
& 1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1705 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1707 |
ECCO_COST_WEIGHTS |
if (wevap(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1708 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1709 |
ECCO_COST_WEIGHTS |
& 1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
170 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1711 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1713 |
ECCO_COST_WEIGHTS |
if (wsnowprecip(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1714 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1715 |
ECCO_COST_WEIGHTS |
& 1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1717 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1719 |
ECCO_COST_WEIGHTS |
if (wapressure(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
171 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1720 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1721 |
ECCO_COST_WEIGHTS |
& 1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1723 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1725 |
ECCO_COST_WEIGHTS |
if (wrunoff(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1726 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1727 |
ECCO_COST_WEIGHTS |
& 1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1729 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1731 |
ECCO_COST_WEIGHTS |
if (wbottomdrag(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1732 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1733 |
ECCO_COST_WEIGHTS |
& 1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1735 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
if (wsfluxmm(bi,bj).ne.0.) |
|
./pkg/ecco/ecco_cost_weights.F |
1738 |
ECCO_COST_WEIGHTS |
& wsfluxmm(bi,bj) = 1./wsfluxmm(bi,bj)*wsfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1739 |
ECCO_COST_WEIGHTS |
if (whfluxmm(bi,bj).ne.0.) |
|
./pkg/ecco/ecco_cost_weights.F |
1740 |
ECCO_COST_WEIGHTS |
& whfluxmm(bi,bj) = 1./whfluxmm(bi,bj)*whfluxmm(bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1743 |
ECCO_COST_WEIGHTS |
if (whflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1744 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1745 |
ECCO_COST_WEIGHTS |
& 1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1747 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1749 |
ECCO_COST_WEIGHTS |
if (wsflux2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
174 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1750 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1751 |
ECCO_COST_WEIGHTS |
& 1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1753 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1755 |
ECCO_COST_WEIGHTS |
if (wtauu2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1756 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1757 |
ECCO_COST_WEIGHTS |
& 1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1759 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1761 |
ECCO_COST_WEIGHTS |
if (wtauv2(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1762 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
1763 |
ECCO_COST_WEIGHTS |
& 1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1765 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1770 |
ECCO_COST_WEIGHTS |
if (gencost_weight(i,j,bi,bj,k) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1771 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
& 1./gencost_weight(i,j,bi,bj,k)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1773 |
ECCO_COST_WEIGHTS |
& gencost_weight(i,j,bi,bj,k) |
|
./pkg/ecco/ecco_cost_weights.F |
1775 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wkapgm2 (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wkapredi2 (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1825 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
1827 |
ECCO_COST_WEIGHTS |
if (wdiffkr(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1828 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1830 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
if (wkapgm(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1833 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1835 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1837 |
ECCO_COST_WEIGHTS |
if (wkapredi(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
183 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1840 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1842 |
ECCO_COST_WEIGHTS |
if (wedtaux(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1843 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1845 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1847 |
ECCO_COST_WEIGHTS |
if (wedtauy(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1848 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wkapgmFld (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1854 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1855 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1858 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
185 |
ECCO_COST_WEIGHTS |
wkaprediFld (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1860 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1863 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1864 |
ECCO_COST_WEIGHTS |
& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1866 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1868 |
ECCO_COST_WEIGHTS |
wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1870 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1871 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1872 |
ECCO_COST_WEIGHTS |
& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1874 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1878 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1879 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
187 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1880 |
ECCO_COST_WEIGHTS |
& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1884 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1886 |
ECCO_COST_WEIGHTS |
if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1887 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1890 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1892 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
242 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
247 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
285 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
287 |
ECCO_COST_WEIGHTS |
wsfluxmm(bi,bj) = 1. |
|
./pkg/ecco/ecco_cost_weights.F |
288 |
ECCO_COST_WEIGHTS |
whfluxmm(bi,bj) = 1. |
|
./pkg/ecco/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
296 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
298 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
299 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
301 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
303 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
304 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
345 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
350 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
351 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
354 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
363 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
368 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
386 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
391 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
394 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
395 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
404 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
408 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
409 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
432 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
437 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
438 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
439 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
441 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
442 |
ECCO_COST_WEIGHTS |
$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
451 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
455 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
456 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
479 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
484 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
485 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
486 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
488 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
489 |
ECCO_COST_WEIGHTS |
$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
498 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
49 |
ECCO_COST_WEIGHTS |
integer bi,bj |
|
./pkg/ecco/ecco_cost_weights.F |
502 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
503 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
505 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
506 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
539 |
ECCO_COST_WEIGHTS |
if (wsst(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
540 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
541 |
ECCO_COST_WEIGHTS |
& ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
545 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
549 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
550 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
558 |
ECCO_COST_WEIGHTS |
if (wsss(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
559 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
560 |
ECCO_COST_WEIGHTS |
& ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
565 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
569 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
595 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
598 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
600 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
601 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
602 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
603 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
604 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
613 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
616 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
632 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
639 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
640 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
641 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
643 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./pkg/ecco/ecco_cost_weights.F |
645 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./pkg/ecco/ecco_cost_weights.F |
647 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wers(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
671 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
677 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
679 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
681 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
685 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
691 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
692 |
ECCO_COST_WEIGHTS |
if ( wers(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
693 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
696 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
697 |
ECCO_COST_WEIGHTS |
if ( wgfo(i,j,bi,bj) .EQ. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
698 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0.1 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
708 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
712 |
ECCO_COST_WEIGHTS |
if ( xC(i,j,bi,bj) .GT. 120. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
713 |
ECCO_COST_WEIGHTS |
& xC(i,j,bi,bj) .LT. 130. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
714 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .GT. -10. .AND. |
|
./pkg/ecco/ecco_cost_weights.F |
715 |
ECCO_COST_WEIGHTS |
& yC(i,j,bi,bj) .LT. 10. ) then |
|
./pkg/ecco/ecco_cost_weights.F |
716 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
717 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = wers(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
718 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
738 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
741 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
749 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
752 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
760 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
763 |
ECCO_COST_WEIGHTS |
if (wsshv4tmp(i,j,bi,bj).ne.0) then |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
765 |
ECCO_COST_WEIGHTS |
& ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
766 |
ECCO_COST_WEIGHTS |
wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
786 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
789 |
ECCO_COST_WEIGHTS |
if (wbp(i,j,bi,bj).ne.0) |
|
./pkg/ecco/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
791 |
ECCO_COST_WEIGHTS |
& ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
811 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
816 |
ECCO_COST_WEIGHTS |
if (wscatx(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
817 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
819 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
820 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
821 |
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 |
823 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
824 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
826 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
827 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
828 |
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 |
847 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
852 |
ECCO_COST_WEIGHTS |
if (wtauum(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
853 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
855 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
858 |
ECCO_COST_WEIGHTS |
if (wtauvm(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
859 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
861 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m) |
|
./pkg/ecco/ecco_cost_weights.F |
881 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
886 |
ECCO_COST_WEIGHTS |
if (wtauu(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
887 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
889 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1 |
|
./pkg/ecco/ecco_cost_weights.F |
890 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
892 |
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 |
895 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
898 |
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 |
900 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
920 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
925 |
ECCO_COST_WEIGHTS |
if (wuwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
926 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
928 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
929 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
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 |
952 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
956 |
ECCO_COST_WEIGHTS |
if (wtauv(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
957 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
959 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1 |
|
./pkg/ecco/ecco_cost_weights.F |
960 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0) |
|
./pkg/ecco/ecco_cost_weights.F |
962 |
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 |
965 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
968 |
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 |
970 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
991 |
ECCO_COST_WEIGHTS |
do bi = itlo,ithi |
|
./pkg/ecco/ecco_cost_weights.F |
995 |
ECCO_COST_WEIGHTS |
if (wvwind(i,j,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
999 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0) |
|
./pkg/ecco/the_main_loop.F |
201 |
THE_MAIN_LOOP |
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 |
60 |
EXCH2_CHECK_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(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_eeboot.F |
135 |
W2_EEBOOT |
bi = 1 + MOD(ii,nSx) |
|
./pkg/exch2/w2_eeboot.F |
138 |
W2_EEBOOT |
W2_procTileList(bi,bj,np) = I |
|
./pkg/exch2/w2_eeboot.F |
139 |
W2_EEBOOT |
IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I |
|
./pkg/exch2/w2_eeboot.F |
151 |
W2_EEBOOT |
DO bi=1,nSx |
|
./pkg/exch2/w2_eeboot.F |
152 |
W2_EEBOOT |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_eeboot.F |
181 |
W2_EEBOOT |
DO bi=1,nSx |
|
./pkg/exch2/w2_eeboot.F |
182 |
W2_EEBOOT |
myTileId = W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_eeboot.F |
209 |
W2_EEBOOT |
W2_myCommFlag(J,bi,bj) = commFlag |
|
./pkg/exch2/w2_eeboot.F |
46 |
W2_EEBOOT |
INTEGER np, ii, jj, bi, bj |
|
./pkg/exch2/w2_print_comm_sequence.F |
123 |
W2_PRINT_COMM_SEQUENCE |
DO bi=1,nSx |
|
./pkg/exch2/w2_print_comm_sequence.F |
124 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exch2/w2_print_comm_sequence.F |
55 |
W2_PRINT_COMM_SEQUENCE |
INTEGER bi, bj, N |
|
./pkg/exch2/w2_print_comm_sequence.F |
67 |
W2_PRINT_COMM_SEQUENCE |
DO bi=1,nSx |
|
./pkg/exch2/w2_print_comm_sequence.F |
68 |
W2_PRINT_COMM_SEQUENCE |
myTileId=W2_myTileList(bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
175 |
EXF_BULKFORMULAE |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_bulkformulae.F |
249 |
EXF_BULKFORMULAE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
256 |
EXF_BULKFORMULAE |
act1 = bi - myBxLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
280 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
282 |
EXF_BULKFORMULAE |
Tsf = theta(i,j,ksrf,bi,bj) + cen2kel |
|
./pkg/exf/exf_bulkformulae.F |
285 |
EXF_BULKFORMULAE |
& *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) ) |
|
./pkg/exf/exf_bulkformulae.F |
286 |
EXF_BULKFORMULAE |
& * maskC(i,j,ksrfp1,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
292 |
EXF_BULKFORMULAE |
deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf |
|
./pkg/exf/exf_bulkformulae.F |
293 |
EXF_BULKFORMULAE |
delq(i,j) = aqh(i,j,bi,bj) - ssq |
|
./pkg/exf/exf_bulkformulae.F |
308 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
316 |
EXF_BULKFORMULAE |
windStress = wStress(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
343 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
362 |
EXF_BULKFORMULAE |
t0 = atemp(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
363 |
EXF_BULKFORMULAE |
& (exf_one + humid_fac*aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
365 |
EXF_BULKFORMULAE |
& qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj)) |
|
./pkg/exf/exf_bulkformulae.F |
417 |
EXF_BULKFORMULAE |
usn = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp ) |
|
./pkg/exf/exf_bulkformulae.F |
424 |
EXF_BULKFORMULAE |
usn = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh) |
|
./pkg/exf/exf_bulkformulae.F |
437 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
439 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
463 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
479 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
480 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
484 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
495 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
496 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
502 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
503 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
505 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
506 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
507 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
508 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
wsm = sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
519 |
EXF_BULKFORMULAE |
& uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
520 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
521 |
EXF_BULKFORMULAE |
& vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
102 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
108 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
111 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
117 |
EXF_CHECK_RANGE |
if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
118 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
121 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
126 |
EXF_CHECK_RANGE |
if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
130 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
136 |
EXF_CHECK_RANGE |
if ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
137 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
138 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
141 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
147 |
EXF_CHECK_RANGE |
if ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
148 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
153 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
158 |
EXF_CHECK_RANGE |
if ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
159 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
160 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
163 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
168 |
EXF_CHECK_RANGE |
if ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
169 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
173 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
178 |
EXF_CHECK_RANGE |
if ( (snowprecip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
179 |
EXF_CHECK_RANGE |
& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
180 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
184 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, snowprecip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
191 |
EXF_CHECK_RANGE |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
192 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
193 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
196 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
203 |
EXF_CHECK_RANGE |
if ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
204 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
205 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
208 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
33 |
EXF_CHECK_RANGE |
integer bi,bj |
|
./pkg/exf/exf_check_range.F |
73 |
EXF_CHECK_RANGE |
do bi = itlo,ithi |
|
./pkg/exf/exf_check_range.F |
79 |
EXF_CHECK_RANGE |
if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
80 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
81 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
84 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
89 |
EXF_CHECK_RANGE |
if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
90 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
93 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
98 |
EXF_CHECK_RANGE |
if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
99 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
100 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
44 |
EXF_FILTER_RL |
integer bi,bj |
|
./pkg/exf/exf_filter_rl.F |
61 |
EXF_FILTER_RL |
do bi = itlo,ithi |
|
./pkg/exf/exf_filter_rl.F |
79 |
EXF_FILTER_RL |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
80 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
89 |
EXF_FILTER_RL |
if ( maskW(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rl.F |
90 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
99 |
EXF_FILTER_RL |
if ( maskS(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
100 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
44 |
EXF_FILTER_RS |
integer bi,bj |
|
./pkg/exf/exf_filter_rs.F |
61 |
EXF_FILTER_RS |
do bi = itlo,ithi |
|
./pkg/exf/exf_filter_rs.F |
79 |
EXF_FILTER_RS |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
80 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
89 |
EXF_FILTER_RS |
if ( maskW(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_filter_rs.F |
90 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
99 |
EXF_FILTER_RS |
if ( maskS(i,j,1,bi,bj) .eq. 0. ) then |
|
./pkg/exf/exf_getclim.F |
148 |
EXF_GETCLIM |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_getclim.F |
154 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
159 |
EXF_GETCLIM |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
164 |
EXF_GETCLIM |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
167 |
EXF_GETCLIM |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_getclim.F |
170 |
EXF_GETCLIM |
if ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_getclim.F |
171 |
EXF_GETCLIM |
& theta(i,j,1,bi,bj) .EQ. 0. ) then |
|
./pkg/exf/exf_getclim.F |
172 |
EXF_GETCLIM |
print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_getclim.F |
64 |
EXF_GETCLIM |
integer bi, bj, i, j |
|
./pkg/exf/exf_getclim.F |
84 |
EXF_GETCLIM |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getclim.F |
87 |
EXF_GETCLIM |
if (climsst(i,j,bi,bj) .lt. climtempfreeze) then |
|
./pkg/exf/exf_getclim.F |
88 |
EXF_GETCLIM |
climsst(i,j,bi,bj) = climtempfreeze |
|
./pkg/exf/exf_getffields.F |
138 |
EXF_GETFFIELDS |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getffields.F |
141 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 * |
|
./pkg/exf/exf_getffields.F |
142 |
EXF_GETFFIELDS |
& (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
143 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 * |
|
./pkg/exf/exf_getffields.F |
144 |
EXF_GETFFIELDS |
& (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj)) |
|
./pkg/exf/exf_getffields.F |
191 |
EXF_GETFFIELDS |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getffields.F |
194 |
EXF_GETFFIELDS |
atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp |
|
./pkg/exf/exf_getffields.F |
470 |
EXF_GETFFIELDS |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getffields.F |
473 |
EXF_GETFFIELDS |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
474 |
EXF_GETFFIELDS |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
475 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
476 |
EXF_GETFFIELDS |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
48 |
EXF_GETFFIELDS |
integer i, j, bi, bj, interp_method |
|
./pkg/exf/exf_getffields.F |
498 |
EXF_GETFFIELDS |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getffields.F |
501 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
502 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
152 |
EXF_GETFORCING |
integer bi,bj |
|
./pkg/exf/exf_getforcing.F |
198 |
EXF_GETFORCING |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getforcing.F |
204 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = |
|
./pkg/exf/exf_getforcing.F |
205 |
EXF_GETFORCING |
& - hs(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
206 |
EXF_GETFORCING |
& - hl(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
207 |
EXF_GETFORCING |
& + lwflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
209 |
EXF_GETFORCING |
& + swflux(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
215 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
218 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
219 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
264 |
EXF_GETFORCING |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getforcing.F |
267 |
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 bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
110 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
111 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
112 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
113 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
144 |
EXF_GETSURFACEFLUXES |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_getsurfacefluxes.F |
147 |
EXF_GETSURFACEFLUXES |
ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
148 |
EXF_GETSURFACEFLUXES |
vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj) |
|
./pkg/exf/exf_getsurfacefluxes.F |
62 |
EXF_GETSURFACEFLUXES |
integer i,j,bi,bj |
|
./pkg/exf/exf_init.F |
377 |
EXF_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_init.F |
383 |
EXF_INIT |
& theta(i,j,1,bi,bj) = climsst(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
388 |
EXF_INIT |
& salt(i,j,1,bi,bj) = climsss(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
393 |
EXF_INIT |
& uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
396 |
EXF_INIT |
& vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
398 |
EXF_INIT |
if ( maskC(i,j,1,bi,bj) .NE. 0. .AND. |
|
./pkg/exf/exf_init.F |
399 |
EXF_INIT |
& theta(i,j,1,bi,bj) .EQ. 0. ) then |
|
./pkg/exf/exf_init.F |
400 |
EXF_INIT |
print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj) |
|
./pkg/exf/exf_init.F |
44 |
EXF_INIT |
INTEGER i,j,bi,bj |
|
./pkg/exf/exf_init.F |
50 |
EXF_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/exf/exf_init.F |
53 |
EXF_INIT |
wStress(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init.F |
54 |
EXF_INIT |
cw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init.F |
55 |
EXF_INIT |
sw(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init.F |
56 |
EXF_INIT |
sh(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init.F |
58 |
EXF_INIT |
hs(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_init.F |
59 |
EXF_INIT |
hl(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
112 |
EXF_INTERP |
do bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_interp.F |
115 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
117 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+mod(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp.F |
189 |
EXF_INTERP |
do bi = mybxlo(mythid), mybxhi(mythid) |
|
./pkg/exf/exf_interp.F |
196 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
197 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
198 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
199 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
202 |
EXF_INTERP |
print*,'i,j,bi,bj' ,i,j,bi,bj |
|
./pkg/exf/exf_interp.F |
203 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
217 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
218 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
220 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
259 |
EXF_INTERP |
if (yG(i,j,bi,bj) .lt. y_in(s_ind(i,j))) then |
|
./pkg/exf/exf_interp.F |
282 |
EXF_INTERP |
if (yG(i,j,bi,bj) .ge. y_in(s_ind(i,j)+1)) then |
|
./pkg/exf/exf_interp.F |
304 |
EXF_INTERP |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
312 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
314 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
315 |
EXF_INTERP |
arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
316 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
322 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
324 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
326 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
327 |
EXF_INTERP |
arrayout(i,j,bi,bj)= |
|
./pkg/exf/exf_interp.F |
328 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
329 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
339 |
EXF_INTERP |
arrayout(i,j,bi,bj) = 0. |
|
./pkg/exf/exf_interp.F |
348 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
350 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
352 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
354 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
355 |
EXF_INTERP |
arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
361 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
363 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
365 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
370 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
374 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
376 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
379 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
381 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
383 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
385 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
388 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
390 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
392 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
394 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
395 |
EXF_INTERP |
arrayout(i,j,bi,bj)= |
|
./pkg/exf/exf_interp.F |
396 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
& +ew_val3*lagran(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
399 |
EXF_INTERP |
& +ew_val4*lagran(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
98 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_mapfields.F |
100 |
EXF_MAPFIELDS |
qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
106 |
EXF_MAPFIELDS |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - |
|
./pkg/exf/exf_mapfields.F |
116 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
123 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
136 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
137 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
146 |
EXF_MAPFIELDS |
if (ustress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
147 |
EXF_MAPFIELDS |
ustress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
154 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
161 |
EXF_MAPFIELDS |
fu(i,j,bi,bj) = exf_outscal_ustress* |
|
./pkg/exf/exf_mapfields.F |
162 |
EXF_MAPFIELDS |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
163 |
EXF_MAPFIELDS |
& *exf_half*maskW(i,j,1,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
174 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).gt.windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
175 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=windstressmax |
|
./pkg/exf/exf_mapfields.F |
184 |
EXF_MAPFIELDS |
if (vstress(i,j,bi,bj).lt.-windstressmax) then |
|
./pkg/exf/exf_mapfields.F |
185 |
EXF_MAPFIELDS |
vstress(i,j,bi,bj)=-windstressmax |
|
./pkg/exf/exf_mapfields.F |
192 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
199 |
EXF_MAPFIELDS |
fv(i,j,bi,bj) = exf_outscal_vstress* |
|
./pkg/exf/exf_mapfields.F |
200 |
EXF_MAPFIELDS |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj)) |
|
./pkg/exf/exf_mapfields.F |
201 |
EXF_MAPFIELDS |
& *exf_half*maskS(i,j,1,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
210 |
EXF_MAPFIELDS |
qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
218 |
EXF_MAPFIELDS |
sst(i,j,bi,bj) = exf_outscal_sst*climsst(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
226 |
EXF_MAPFIELDS |
sss(i,j,bi,bj) = exf_outscal_sss*climsss(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
234 |
EXF_MAPFIELDS |
pload(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
72 |
EXF_MAPFIELDS |
integer bi,bj |
|
./pkg/exf/exf_mapfields.F |
82 |
EXF_MAPFIELDS |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_mapfields.F |
85 |
EXF_MAPFIELDS |
act1 = bi - myBxLo(myThid) |
|
./pkg/exf/exf_radiation.F |
121 |
EXF_RADIATION |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_radiation.F |
126 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |
|
./pkg/exf/exf_radiation.F |
127 |
EXF_RADIATION |
& (1.0-zen_albedo(i,j,bi,bj)) |
|
./pkg/exf/exf_radiation.F |
129 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |
|
./pkg/exf/exf_radiation.F |
133 |
EXF_RADIATION |
swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) * |
|
./pkg/exf/exf_radiation.F |
41 |
EXF_RADIATION |
INTEGER bi,bj |
|
./pkg/exf/exf_radiation.F |
63 |
EXF_RADIATION |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_radiation.F |
68 |
EXF_RADIATION |
Tsf = theta(i,j,1,bi,bj) + cen2kel |
|
./pkg/exf/exf_radiation.F |
70 |
EXF_RADIATION |
& *( theta(i,j,1,bi,bj)-theta(i,j,2,bi,bj) ) |
|
./pkg/exf/exf_radiation.F |
71 |
EXF_RADIATION |
& * maskC(i,j,2,bi,bj) |
|
./pkg/exf/exf_radiation.F |
74 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_radiation.F |
76 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_radiation.F |
82 |
EXF_RADIATION |
lwflux(i,j,bi,bj) = |
|
./pkg/exf/exf_radiation.F |
84 |
EXF_RADIATION |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_radiation.F |
85 |
EXF_RADIATION |
& - lwdown(i,j,bi,bj) |
|
./pkg/exf/exf_set_gen.F |
194 |
EXF_SET_GEN |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_gen.F |
198 |
EXF_SET_GEN |
genfld(i,j,bi,bj) = exf_inscal_gen * ( |
|
./pkg/exf/exf_set_gen.F |
199 |
EXF_SET_GEN |
& fac * gen0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_gen.F |
200 |
EXF_SET_GEN |
& (exf_one - fac) * gen1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_gen.F |
201 |
EXF_SET_GEN |
genfld(i,j,bi,bj) = |
|
./pkg/exf/exf_set_gen.F |
202 |
EXF_SET_GEN |
& genfld(i,j,bi,bj) - |
|
./pkg/exf/exf_set_gen.F |
279 |
EXF_INIT_GEN |
integer bi, bj, i, j, count |
|
./pkg/exf/exf_set_gen.F |
284 |
EXF_INIT_GEN |
do bi = mybxlo(mythid), mybxhi(mythid) |
|
./pkg/exf/exf_set_gen.F |
287 |
EXF_INIT_GEN |
genfld(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
288 |
EXF_INIT_GEN |
gen0(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
289 |
EXF_INIT_GEN |
gen1(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_gen.F |
324 |
EXF_INIT_GEN |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_gen.F |
327 |
EXF_INIT_GEN |
genfld(i,j,bi,bj) = |
|
./pkg/exf/exf_set_gen.F |
328 |
EXF_INIT_GEN |
& exf_inscal_gen * genfld(i,j,bi,bj) |
|
./pkg/exf/exf_set_gen.F |
83 |
EXF_SET_GEN |
integer bi, bj, i, j |
|
./pkg/exf/exf_set_obcs.F |
100 |
EXF_SET_OBCS_XZ |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
103 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
104 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
105 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
170 |
EXF_SET_OBCS_YZ |
INTEGER bi, bj |
|
./pkg/exf/exf_set_obcs.F |
203 |
EXF_SET_OBCS_YZ |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
206 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
207 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
208 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
273 |
EXF_SET_OBCS_X |
INTEGER bi, bj, i |
|
./pkg/exf/exf_set_obcs.F |
305 |
EXF_SET_OBCS_X |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
307 |
EXF_SET_OBCS_X |
obcs_fld_x(i,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
308 |
EXF_SET_OBCS_X |
& fac * obcs_x_0(i,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
309 |
EXF_SET_OBCS_X |
& (exf_one - fac) * obcs_x_1(i,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
372 |
EXF_SET_OBCS_Y |
INTEGER bi, bj, j |
|
./pkg/exf/exf_set_obcs.F |
404 |
EXF_SET_OBCS_Y |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_set_obcs.F |
406 |
EXF_SET_OBCS_Y |
obcs_fld_y(j,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
407 |
EXF_SET_OBCS_Y |
& fac *obcs_y_0(j,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
408 |
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_runoff.F |
143 |
EXF_SET_RUNOFF |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_runoff.F |
147 |
EXF_SET_RUNOFF |
genfld(i,j,bi,bj) = exf_inscal_gen * ( |
|
./pkg/exf/exf_set_runoff.F |
148 |
EXF_SET_RUNOFF |
& fac * gen0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_runoff.F |
149 |
EXF_SET_RUNOFF |
& (exf_one - fac) * gen1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_runoff.F |
150 |
EXF_SET_RUNOFF |
genfld(i,j,bi,bj) = |
|
./pkg/exf/exf_set_runoff.F |
151 |
EXF_SET_RUNOFF |
& genfld(i,j,bi,bj) - |
|
./pkg/exf/exf_set_runoff.F |
207 |
EXF_INIT_RUNOFF |
integer bi, bj, i, j, count |
|
./pkg/exf/exf_set_runoff.F |
212 |
EXF_INIT_RUNOFF |
do bi = mybxlo(mythid), mybxhi(mythid) |
|
./pkg/exf/exf_set_runoff.F |
215 |
EXF_INIT_RUNOFF |
genfld(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_runoff.F |
216 |
EXF_INIT_RUNOFF |
gen0(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_runoff.F |
217 |
EXF_INIT_RUNOFF |
gen1(i,j,bi,bj) = genconst |
|
./pkg/exf/exf_set_runoff.F |
239 |
EXF_INIT_RUNOFF |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_runoff.F |
242 |
EXF_INIT_RUNOFF |
genfld(i,j,bi,bj) = |
|
./pkg/exf/exf_set_runoff.F |
243 |
EXF_INIT_RUNOFF |
& exf_inscal_gen * genfld(i,j,bi,bj) |
|
./pkg/exf/exf_set_runoff.F |
58 |
EXF_SET_RUNOFF |
integer bi, bj, i, j |
|
./pkg/exf/exf_set_uv.F |
147 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
150 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
151 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
152 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
153 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
160 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
161 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
162 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
163 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
166 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
168 |
EXF_SET_UV |
vvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
169 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
170 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
174 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
176 |
EXF_SET_UV |
uvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
177 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
178 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
227 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
230 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
231 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
232 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
233 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
240 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
241 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
242 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
243 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
246 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
248 |
EXF_SET_UV |
vvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
249 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
250 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
254 |
EXF_SET_UV |
& cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
256 |
EXF_SET_UV |
uvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
257 |
EXF_SET_UV |
& (tmp_u(i,j,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
258 |
EXF_SET_UV |
& tmp_v(i,j,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
277 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
280 |
EXF_SET_UV |
uvec(i,j,bi,bj) = exf_inscal_uvec * ( |
|
./pkg/exf/exf_set_uv.F |
281 |
EXF_SET_UV |
& fac * uvec0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_uv.F |
282 |
EXF_SET_UV |
& (exf_one - fac) * uvec1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_uv.F |
283 |
EXF_SET_UV |
vvec(i,j,bi,bj) = exf_inscal_vvec * ( |
|
./pkg/exf/exf_set_uv.F |
284 |
EXF_SET_UV |
& fac * vvec0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_uv.F |
285 |
EXF_SET_UV |
& (exf_one - fac) * vvec1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_uv.F |
93 |
EXF_SET_UV |
integer i, j, bi, bj |
|
./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) |
|
./pkg/exf/exf_swapffields.F |
107 |
EXF_SWAPFFIELDS_3D |
integer bi |
|
./pkg/exf/exf_swapffields.F |
123 |
EXF_SWAPFFIELDS_3D |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
128 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
170 |
EXF_SWAPFFIELDS_XZ |
integer bi, bj |
|
./pkg/exf/exf_swapffields.F |
183 |
EXF_SWAPFFIELDS_XZ |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
187 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
228 |
EXF_SWAPFFIELDS_YZ |
integer bi, bj |
|
./pkg/exf/exf_swapffields.F |
241 |
EXF_SWAPFFIELDS_YZ |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
245 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
285 |
EXF_SWAPFFIELDS_X |
integer bi, bj, i, itlo,ithi, jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
295 |
EXF_SWAPFFIELDS_X |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
297 |
EXF_SWAPFFIELDS_X |
ffld0(i,bi,bj) = ffld1(i,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
298 |
EXF_SWAPFFIELDS_X |
ffld1(i,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
337 |
EXF_SWAPFFIELDS_Y |
integer bi, bj, j, itlo,ithi, jtlo,jthi |
|
./pkg/exf/exf_swapffields.F |
347 |
EXF_SWAPFFIELDS_Y |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
349 |
EXF_SWAPFFIELDS_Y |
ffld0(j,bi,bj) = ffld1(j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
350 |
EXF_SWAPFFIELDS_Y |
ffld1(j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
49 |
EXF_SWAPFFIELDS |
integer bi |
|
./pkg/exf/exf_swapffields.F |
64 |
EXF_SWAPFFIELDS |
do bi = itlo,ithi |
|
./pkg/exf/exf_swapffields.F |
67 |
EXF_SWAPFFIELDS |
ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
68 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
102 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
103 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
111 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
122 |
EXF_WIND |
usSq = ( ustress(i, j,bi,bj)*ustress(i ,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
123 |
EXF_WIND |
& +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
& +vstress(i,j, bi,bj)*vstress(i,j ,bi,bj) |
|
./pkg/exf/exf_wind.F |
125 |
EXF_WIND |
& +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj) |
|
./pkg/exf/exf_wind.F |
128 |
EXF_WIND |
usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
129 |
EXF_WIND |
& +vstress(i,j,bi,bj)*vstress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
132 |
EXF_WIND |
wStress(i,j,bi,bj) = SQRT(usSq) |
|
./pkg/exf/exf_wind.F |
134 |
EXF_WIND |
cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
135 |
EXF_WIND |
sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
137 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
138 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
139 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
155 |
EXF_WIND |
ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA |
|
./pkg/exf/exf_wind.F |
179 |
EXF_WIND |
wspeed(i,j,bi,bj) = wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
187 |
EXF_WIND |
uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
188 |
EXF_WIND |
vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
200 |
EXF_WIND |
sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin) |
|
./pkg/exf/exf_wind.F |
45 |
EXF_WIND |
INTEGER bi,bj |
|
./pkg/exf/exf_wind.F |
63 |
EXF_WIND |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_wind.F |
66 |
EXF_WIND |
act1 = bi - myBxLo(myThid) |
|
./pkg/exf/exf_wind.F |
82 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
83 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
84 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
85 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
94 |
EXF_WIND |
wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
95 |
EXF_WIND |
& + vwind(i,j,bi,bj)*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j) |
|
./pkg/exf/exf_zenithangle.F |
121 |
EXF_ZENITHANGLE |
if ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) then |
|
./pkg/exf/exf_zenithangle.F |
127 |
EXF_ZENITHANGLE |
iLat1= zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
128 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
163 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
164 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
231 |
EXF_ZENITHANGLE |
zen_albedo (i,j,bi,bj) = |
|
./pkg/exf/exf_zenithangle.F |
245 |
EXF_ZENITHANGLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_zenithangle.F |
269 |
EXF_ZENITHANGLE |
SJ = SIN(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
270 |
EXF_ZENITHANGLE |
CJ = COS(yC(i,j,bi,bj) * deg2rad) |
|
./pkg/exf/exf_zenithangle.F |
274 |
EXF_ZENITHANGLE |
& cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
277 |
EXF_ZENITHANGLE |
zen_fsol_diurnal (i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
279 |
EXF_ZENITHANGLE |
H0 = -tan( yC(i,j,bi,bj) *deg2rad ) * tan( DECLI ) |
|
./pkg/exf/exf_zenithangle.F |
285 |
EXF_ZENITHANGLE |
zen_fsol_daily (i,j,bi,bj) = FSOL |
|
./pkg/exf/exf_zenithangle.F |
44 |
EXF_ZENITHANGLE |
INTEGER bi,bj |
|
./pkg/exf/exf_zenithangle.F |
99 |
EXF_ZENITHANGLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_zenithangle_table.F |
130 |
EXF_ZENITHANGLE_TABLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_zenithangle_table.F |
133 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
138 |
EXF_ZENITHANGLE_TABLE |
zen_albedo_pointer(i,j,bi,bj)=LLLAT |
|
./pkg/exf/exf_zenithangle_table.F |
40 |
EXF_ZENITHANGLE_TABLE |
INTEGER bi,bj |
|
./pkg/fizhi/AtoC.F |
40 |
ATOC |
integer i, j, L, bi, bj |
|
./pkg/fizhi/AtoC.F |
51 |
ATOC |
do bi = myBxLo(myThid), myBxHi(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 |
53 |
CTOA |
do bi = myBxLo(myThid), myBxHi(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. |