| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/AtoC.F |
33 |
ATOC |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
|
./pkg/fizhi/AtoC.F |
60 |
ATOC |
do j = jm1,jm2 |
|
./pkg/fizhi/AtoC.F |
6 |
ATOC |
. jdim1,jdim2,numlevs,Nsx,Nsy,im1,im2,jm1,jm2,fieldout1,fieldout2) |
|
./pkg/fizhi/CtoA.F |
33 |
CTOA |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
|
./pkg/fizhi/CtoA.F |
62 |
CTOA |
do j = jm1,jm2 |
|
./pkg/fizhi/CtoA.F |
6 |
CTOA |
. jdim1,jdim2,numlevs,Nsx,Nsy,im1,im2,jm1,jm2,fieldout1,fieldout2) |
|
./pkg/fizhi/do_fizhi.F |
169 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
178 |
DO_FIZHI |
call ASTRO ( 20040321,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./pkg/fizhi/do_fizhi.F |
180 |
DO_FIZHI |
call ASTRO ( nymd,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./pkg/fizhi/do_fizhi.F |
182 |
DO_FIZHI |
do j=jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
192 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
204 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
234 |
DO_FIZHI |
call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/do_fizhi.F |
269 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
287 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
298 |
DO_FIZHI |
do j = jm1,jm2 |
|
./pkg/fizhi/do_fizhi.F |
316 |
DO_FIZHI |
& im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer) |
|
./pkg/fizhi/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./pkg/fizhi/do_fizhi.F |
51 |
DO_FIZHI |
_RL tgz(im2,jm2,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
54 |
DO_FIZHI |
_RL phis_var(im2,jm2,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
55 |
DO_FIZHI |
INTEGER landtype(im2,jm2,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
56 |
DO_FIZHI |
_RL fracland(im2,jm2,nSxIn,nSyIn),emiss(im2,jm2,10,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
57 |
DO_FIZHI |
_RL albvisdr(im2,jm2,nSxIn,nSyIn),albvisdf(im2,jm2,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
58 |
DO_FIZHI |
_RL albnirdr(im2,jm2,nSxIn,nSyIn),albnirdf(im2,jm2,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
5 |
DO_FIZHI |
& idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/do_fizhi.F |
67 |
DO_FIZHI |
_RL o3(im2,jm2,Nrphin,nSxIn,nSyIn) |
|
./pkg/fizhi/do_fizhi.F |
68 |
DO_FIZHI |
_RL qstr(im2,jm2,Nrphin,nSxIn,nSyIn) |
|
./pkg/fizhi/fizhi_fillnegs.F |
26 |
QCHECK |
integer idim1,idim2,jdim1,jdim2,Ldim,im1,im2,jm1,jm2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
38 |
QCHECK |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
49 |
QCHECK |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
6 |
QCHECK |
. jm1,jm2,bi,bj,dp,qz) |
|
./pkg/fizhi/fizhi_init_fixed.F |
104 |
FIZHI_INIT_FIXED |
call FIZHI_INIT_VEG ( myThid, vegdata,im2,jm2,nSx,nSy, |
|
./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 |
113 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
155 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
45 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
67 |
FIZHI_INIT_FIXED |
jm2 = sNy |
|
./pkg/fizhi/fizhi_init_fixed.F |
87 |
FIZHI_INIT_FIXED |
do j = jm1,jm2 |
|
./pkg/fizhi/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
182 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
191 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./pkg/fizhi/fizhi_init_vars.F |
215 |
FIZHI_INIT_VARS |
do j = jm1,jm2 |
|
./pkg/fizhi/fizhi_init_vars.F |
61 |
FIZHI_INIT_VARS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/fizhi_init_vars.F |
76 |
FIZHI_INIT_VARS |
jm2 = sNy+OLy |
|
./pkg/fizhi/fizhi_step_diag.F |
103 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
114 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
129 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./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 |
141 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
14 |
FIZHI_STEP_DIAG |
_RL p(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
153 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
15 |
FIZHI_STEP_DIAG |
_RL uphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
168 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
16 |
FIZHI_STEP_DIAG |
_RL vphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
179 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
17 |
FIZHI_STEP_DIAG |
_RL thphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
18 |
FIZHI_STEP_DIAG |
_RL sphy(im2,jm2,Nrphys) |
|
./pkg/fizhi/fizhi_step_diag.F |
190 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
19 |
FIZHI_STEP_DIAG |
_RL qq(im2,jm2,Nrphys,Nbi,Nbj),pk(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
206 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
20 |
FIZHI_STEP_DIAG |
_RL dp(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
219 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
21 |
FIZHI_STEP_DIAG |
_RL radswt(im2,jm2,Nbi,Nbj),radswg(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
22 |
FIZHI_STEP_DIAG |
_RL swgclr(im2,jm2,Nbi,Nbj),osr(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
233 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
23 |
FIZHI_STEP_DIAG |
_RL osrclr(im2,jm2,Nbi,Nbj),st4(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
247 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
24 |
FIZHI_STEP_DIAG |
_RL dst4(im2,jm2,Nbi,Nbj),tgz(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
25 |
FIZHI_STEP_DIAG |
_RL tg0(im2,jm2,Nbi,Nbj),radlwg(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
260 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
26 |
FIZHI_STEP_DIAG |
_RL lwgclr(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
273 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
27 |
FIZHI_STEP_DIAG |
_RL turbu(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
284 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
28 |
FIZHI_STEP_DIAG |
_RL turbv(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
295 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
29 |
FIZHI_STEP_DIAG |
_RL turbt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
306 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
30 |
FIZHI_STEP_DIAG |
_RL turbq(im2,jm2,Nrphys,ntracer,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
317 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
31 |
FIZHI_STEP_DIAG |
_RL moistu(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
32 |
FIZHI_STEP_DIAG |
_RL moistv(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
332 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
338 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
33 |
FIZHI_STEP_DIAG |
_RL moistt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
345 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
34 |
FIZHI_STEP_DIAG |
_RL moistq(im2,jm2,Nrphys,ntracer,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
356 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
35 |
FIZHI_STEP_DIAG |
_RL lwdt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
362 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
369 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
36 |
FIZHI_STEP_DIAG |
_RL swdt(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
37 |
FIZHI_STEP_DIAG |
_RL lwdtclr(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
380 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
386 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
38 |
FIZHI_STEP_DIAG |
_RL swdtclr(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
394 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
39 |
FIZHI_STEP_DIAG |
_RL dlwdtg(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
405 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
411 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
418 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
431 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
437 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
43 |
FIZHI_STEP_DIAG |
_RL pinv(im2,jm2), qbar(im2,jm2),tmpdiag(im2,jm2) |
|
./pkg/fizhi/fizhi_step_diag.F |
444 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
52 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
70 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
81 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
92 |
FIZHI_STEP_DIAG |
do j=jm1,jm2 |
|
./pkg/fizhi/fizhi_step_diag.F |
9 |
FIZHI_STEP_DIAG |
& im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer) |
|
./pkg/fizhi/fizhi_wrapper.F |
229 |
FIZHI_WRAPPER |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
& idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
332 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,guphy,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
54 |
FIZHI_WRAPPER |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/fizhi_wrapper.F |
65 |
FIZHI_WRAPPER |
jm2 = sNy |
|
./pkg/fizhi/step_fizhi_corr.F |
146 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
155 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
164 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
173 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
183 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/step_fizhi_corr.F |
207 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
216 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
226 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
235 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
244 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
260 |
STEP_FIZHI_CORR |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dtfake,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
264 |
STEP_FIZHI_CORR |
call QCHECK (im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2, |
|
./pkg/fizhi/step_fizhi_corr.F |
285 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
297 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
309 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
321 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
344 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
358 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
372 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
383 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
426 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
436 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
473 |
STEP_FIZHI_CORR |
do j=jm1,jm2 |
|
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
57 |
STEP_FIZHI_CORR |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/step_fizhi_corr.F |
67 |
STEP_FIZHI_CORR |
jm2 = sNy+OLy |
|
./pkg/fizhi/step_fizhi_fg.F |
28 |
STEP_FIZHI_FG |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/step_fizhi_fg.F |
41 |
STEP_FIZHI_FG |
jm2 = sNy |
|
./pkg/fizhi/step_fizhi_fg.F |
54 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_fizhi_fg.F |
62 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_fizhi_fg.F |
70 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_fizhi_fg.F |
78 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_fizhi_fg.F |
88 |
STEP_FIZHI_FG |
. jm1,jm2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
93 |
STEP_FIZHI_FG |
do j = jm1,jm2 |
|
./pkg/fizhi/step_physics.F |
13 |
STEP_PHYSICS |
integer im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./pkg/fizhi/step_physics.F |
28 |
STEP_PHYSICS |
do j = jm1,jm2 |
|
./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 |
36 |
UPDATE_CHEMISTRY_EXPORTS |
integer im1, im2, jm1, jm2 |
|
./pkg/fizhi/update_chemistry_exports.F |
45 |
UPDATE_CHEMISTRY_EXPORTS |
jm2 = sNy |
|
./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 |
110 |
UPDATE_EARTH_EXPORTS |
call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
112 |
UPDATE_EARTH_EXPORTS |
call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
125 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile, |
|
./pkg/fizhi/update_earth_exports.F |
127 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
136 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./pkg/fizhi/update_earth_exports.F |
145 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
146 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./pkg/fizhi/update_earth_exports.F |
54 |
UPDATE_EARTH_EXPORTS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/update_earth_exports.F |
68 |
UPDATE_EARTH_EXPORTS |
jm2 = sNy |
|
./pkg/fizhi/update_earth_exports.F |
75 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./pkg/fizhi/update_earth_exports.F |
82 |
UPDATE_EARTH_EXPORTS |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac, |
|
./pkg/fizhi/update_earth_exports.F |
85 |
UPDATE_EARTH_EXPORTS |
do j = jm1,jm2 |
|
./pkg/fizhi/update_ocean_exports.F |
102 |
UPDATE_OCEAN_EXPORTS |
do j=jm1,jm2 |
|
./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 |
164 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
352 |
GETSICE |
do j = jm1,jm2 |
|
./pkg/fizhi/update_ocean_exports.F |
35 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/update_ocean_exports.F |
367 |
GETSICE |
do j = jm1,jm2 |
|
./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 |
425 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
614 |
GETSST |
do j = jm1,jm2 |
|
./pkg/fizhi/update_ocean_exports.F |
75 |
UPDATE_OCEAN_EXPORTS |
jm2 = sNy |
|
./pkg/fizhi/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/gridalt/dyn2phys.F |
46 |
DYN2PHYS |
integer im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy, flg |
|
./pkg/gridalt/dyn2phys.F |
48 |
DYN2PHYS |
_RL qdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
49 |
DYN2PHYS |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
50 |
DYN2PHYS |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
51 |
DYN2PHYS |
_RL windphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
52 |
DYN2PHYS |
integer nlperdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
53 |
DYN2PHYS |
_RL qphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
54 |
DYN2PHYS |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
56 |
DYN2PHYS |
_RL weights(im1:im2,jm1:jm2,lmphy) |
|
./pkg/gridalt/dyn2phys.F |
57 |
DYN2PHYS |
_RL pphy(im1:im2,jm1:jm2,lmphy) |
|
./pkg/gridalt/dyn2phys.F |
6 |
DYN2PHYS |
subroutine DYN2PHYS(qdyn,pedyn,im1,im2,jm1,jm2,lmdyn,Nsx,Nsy, |
|
./pkg/gridalt/gridalt_initialise.F |
31 |
GRIDALT_INITIALISE |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/gridalt/gridalt_initialise.F |
36 |
GRIDALT_INITIALISE |
jm2 = sNy+OLy |
|
./pkg/gridalt/gridalt_initialise.F |
47 |
GRIDALT_INITIALISE |
call MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/gridalt/gridalt_update.F |
29 |
GRIDALT_UPDATE |
integer im1,im2,jm1,jm2 |
|
./pkg/gridalt/gridalt_update.F |
39 |
GRIDALT_UPDATE |
jm2 = sNy+OLy |
|
./pkg/gridalt/make_phys_grid.F |
47 |
MAKE_PHYS_GRID |
integer im1,im2,jm1,jm2,Nr,nSx,nSy,Nrphys |
|
./pkg/gridalt/make_phys_grid.F |
50 |
MAKE_PHYS_GRID |
_RS hfacC(im1:im2,jm1:jm2,Nr,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
51 |
MAKE_PHYS_GRID |
_RL dpphys(im1:im2,jm1:jm2,Nrphys,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
53 |
MAKE_PHYS_GRID |
integer Lbot(im1:im2,jm1:jm2,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
54 |
MAKE_PHYS_GRID |
integer nlperdyn(im1:im2,jm1:jm2,Nr,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
6 |
MAKE_PHYS_GRID |
SUBROUTINE MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr, |
|
./pkg/gridalt/phys2dyn.F |
42 |
PHYS2DYN |
integer im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy |
|
./pkg/gridalt/phys2dyn.F |
44 |
PHYS2DYN |
_RL qphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
45 |
PHYS2DYN |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
46 |
PHYS2DYN |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
47 |
PHYS2DYN |
integer nlperdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
48 |
PHYS2DYN |
_RL qdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
49 |
PHYS2DYN |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
6 |
PHYS2DYN |
subroutine PHYS2DYN(qphy,pephy,im1,im2,jm1,jm2,lmphy,Nsx,Nsy, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
123 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
54 |
FIZHI_INIT_FIXED |
jm2 = sNy |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
74 |
FIZHI_INIT_FIXED |
do j = jm1,jm2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
83 |
FIZHI_INIT_FIXED |
call FIZHI_INIT_VEG ( myThid, vegdata,im2,jm2,nSx,nSy, |
|
./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 |
92 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
102 |
UPDATE_OCEAN_EXPORTS |
do j=jm1,jm2 |
|
./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 |
165 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
182 |
GETSICE |
do j = jm1,jm2 |
|
./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 |
238 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
266 |
GETSST |
do j = jm1,jm2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
35 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
75 |
UPDATE_OCEAN_EXPORTS |
jm2 = sNy |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
171 |
DO_FIZHI |
do j = jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
51 |
DO_FIZHI |
_RL tgz(im2,jm2,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
54 |
DO_FIZHI |
_RL phis_var(im2,jm2,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
55 |
DO_FIZHI |
INTEGER landtype(im2,jm2,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
56 |
DO_FIZHI |
_RL fracland(im2,jm2,nSxin,nSyin),emiss(im2,jm2,10,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
57 |
DO_FIZHI |
_RL albvisdr(im2,jm2,nSxin,nSyin),albvisdf(im2,jm2,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
58 |
DO_FIZHI |
_RL albnirdr(im2,jm2,nSxin,nSyin),albnirdf(im2,jm2,nSxin,nSyin) |
|
./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/do_fizhi.F |
67 |
DO_FIZHI |
_RL o3(im2,jm2,Nrphin,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
68 |
DO_FIZHI |
_RL qstr(im2,jm2,Nrphin,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
123 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
INTEGER im1, im2, jm1, jm2, idim2, jdim2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
54 |
FIZHI_INIT_FIXED |
jm2 = sNy |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
74 |
FIZHI_INIT_FIXED |
do j = jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
83 |
FIZHI_INIT_FIXED |
call FIZHI_INIT_VEG ( myThid, vegdata,im2,jm2,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
90 |
FIZHI_INIT_FIXED |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
92 |
FIZHI_INIT_FIXED |
do j=jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
153 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,nSx,nSy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
196 |
FIZHI_INIT_VARS |
do j = jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
49 |
FIZHI_INIT_VARS |
INTEGER im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
56 |
FIZHI_INIT_VARS |
jm2 = sNy+OLy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
114 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
121 |
GETSICE |
do j = jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
129 |
GETSST |
subroutine GETSST(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
174 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
181 |
GETSST |
do j = jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
37 |
UPDATE_OCEAN_EXPORTS |
jm2 = sNy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
47 |
UPDATE_OCEAN_EXPORTS |
bjglobal=bj+(myYGlobalLo-1)/jm2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
49 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
51 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
56 |
UPDATE_OCEAN_EXPORTS |
do j=jm1,jm2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
69 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |