| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
46 |
MAKE_PHYS_GRID |
integer im1,im2,jm1,jm2,Nr,Nsx,Nsy,Nrphys |
|
./pkg/gridalt/make_phys_grid.F |
49 |
MAKE_PHYS_GRID |
_RL hfacC(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
4 |
MAKE_PHYS_GRID |
subroutine MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr, |
|
./pkg/gridalt/make_phys_grid.F |
50 |
MAKE_PHYS_GRID |
_RL dpphys(im1:im2,jm1:jm2,Nrphys,Nsx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
52 |
MAKE_PHYS_GRID |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
53 |
MAKE_PHYS_GRID |
integer nlperdyn(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
45 |
DYN2PHYS |
integer im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy, flg |
|
./pkg/gridalt/dyn2phys.F |
47 |
DYN2PHYS |
_RL qdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
48 |
DYN2PHYS |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
49 |
DYN2PHYS |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
4 |
DYN2PHYS |
subroutine DYN2PHYS(qdyn,pedyn,im1,im2,jm1,jm2,lmdyn,Nsx,Nsy, |
|
./pkg/gridalt/dyn2phys.F |
50 |
DYN2PHYS |
_RL windphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
51 |
DYN2PHYS |
integer nlperdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
52 |
DYN2PHYS |
_RL qphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
53 |
DYN2PHYS |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
55 |
DYN2PHYS |
_RL weights(im1:im2,jm1:jm2,lmphy) |
|
./pkg/gridalt/gridalt_initialise.F |
31 |
GRIDALT_INITIALISE |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/gridalt/gridalt_initialise.F |
33 |
GRIDALT_INITIALISE |
im1 = 1-OLx |
|
./pkg/gridalt/gridalt_initialise.F |
47 |
GRIDALT_INITIALISE |
call MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/gridalt/phys2dyn.F |
41 |
PHYS2DYN |
integer im1, im2, jm1, jm2, lmdyn, lmphy, Nsx, Nsy |
|
./pkg/gridalt/phys2dyn.F |
43 |
PHYS2DYN |
_RL qphy(im1:im2,jm1:jm2,lmphy,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
44 |
PHYS2DYN |
_RL pedyn(im1:im2,jm1:jm2,lmdyn+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
45 |
PHYS2DYN |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
46 |
PHYS2DYN |
integer nlperdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
47 |
PHYS2DYN |
_RL qdyn(im1:im2,jm1:jm2,lmdyn,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
48 |
PHYS2DYN |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
4 |
PHYS2DYN |
subroutine PHYS2DYN(qphy,pephy,im1,im2,jm1,jm2,lmphy,Nsx,Nsy, |
|
./pkg/gridalt/gridalt_update.F |
29 |
GRIDALT_UPDATE |
integer im1,im2,jm1,jm2 |
|
./pkg/gridalt/gridalt_update.F |
36 |
GRIDALT_UPDATE |
im1 = 1-OLx |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
120 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
130 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
42 |
UPDATE_EARTH_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
53 |
UPDATE_EARTH_EXPORTS |
im1 = 1 |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
64 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
74 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
124 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
integer im1, im2, jm1, jm2, idim2, jdim2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
51 |
FIZHI_INIT_FIXED |
im1 = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
75 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
93 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
109 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
157 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
174 |
GETSICE |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
181 |
GETSST |
subroutine GETSST(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
229 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
250 |
GETSST |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
29 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
64 |
UPDATE_OCEAN_EXPORTS |
im1 = 1 |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
81 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./verification/fizhi-cs-aqualev10/code/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
170 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
179 |
DO_FIZHI |
do i=im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
189 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
201 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
265 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
283 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
294 |
DO_FIZHI |
do i = im1,im2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
311 |
DO_FIZHI |
. im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,bi,bj,ntracer) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./verification/fizhi-cs-aqualev10/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 |
118 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./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 |
51 |
FIZHI_INIT_FIXED |
im1 = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
69 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
87 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./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 |
122 |
GETSICE |
do i = im1,im2 |
|
./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 |
182 |
GETSST |
do i = im1,im2 |
|
./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 |
34 |
UPDATE_OCEAN_EXPORTS |
im1 = 1 |
|
./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 |
57 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
69 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,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 |
197 |
FIZHI_INIT_VARS |
do i = im1,im2 |
|
./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 |
53 |
FIZHI_INIT_VARS |
im1 = 1-OLx |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
171 |
DO_FIZHI |
do i = im1,im2 |
|
./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 |
5 |
DO_FIZHI |
. idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/kpp/kpp_calc.F |
193 |
KPP_CALC |
integer i, j, k, kp1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
517 |
KPP_CALC |
im1 = i - 1 |
|
./pkg/kpp/kpp_calc.F |
538 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
539 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
540 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
541 |
KPP_CALC |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
558 |
KPP_CALC |
im1 = i - 1 |
|
./pkg/kpp/kpp_calc.F |
579 |
KPP_CALC |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
580 |
KPP_CALC |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
581 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
582 |
KPP_CALC |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
601 |
KPP_CALC |
im1 = i - 1 |
|
./pkg/kpp/kpp_calc.F |
622 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
623 |
KPP_CALC |
$ (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
624 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
625 |
KPP_CALC |
$ (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_routines.F |
1007 |
SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
1021 |
SMOOTH_HORIZ |
im1 = i-1 |
|
./pkg/kpp/kpp_routines.F |
1025 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1029 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1030 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1036 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1040 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1041 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
926 |
KPP_SMOOTH_HORIZ |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_routines.F |
940 |
KPP_SMOOTH_HORIZ |
im1 = i-1 |
|
./pkg/kpp/kpp_routines.F |
944 |
KPP_SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
948 |
KPP_SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
949 |
KPP_SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
955 |
KPP_SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
959 |
KPP_SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
960 |
KPP_SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
106 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
117 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
132 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./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 |
144 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
156 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
171 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
182 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
193 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
209 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
222 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
236 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
250 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
263 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
276 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
287 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
298 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
309 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
320 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
335 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
341 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
348 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
359 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
365 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
372 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
383 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
389 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
397 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
408 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
414 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
421 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
52 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
73 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
84 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
95 |
FIZHI_STEP_DIAG |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_step_diag.F |
9 |
FIZHI_STEP_DIAG |
. im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer) |
|
./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 |
38 |
STEP_FIZHI_FG |
im1 = 1 |
|
./pkg/fizhi/step_fizhi_fg.F |
55 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./pkg/fizhi/step_fizhi_fg.F |
63 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./pkg/fizhi/step_fizhi_fg.F |
71 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./pkg/fizhi/step_fizhi_fg.F |
79 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./pkg/fizhi/step_fizhi_fg.F |
87 |
STEP_FIZHI_FG |
call QCHECK (idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2, |
|
./pkg/fizhi/step_fizhi_fg.F |
94 |
STEP_FIZHI_FG |
do i = im1,im2 |
|
./pkg/fizhi/update_earth_exports.F |
120 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./pkg/fizhi/update_earth_exports.F |
130 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./pkg/fizhi/update_earth_exports.F |
42 |
UPDATE_EARTH_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/update_earth_exports.F |
53 |
UPDATE_EARTH_EXPORTS |
im1 = 1 |
|
./pkg/fizhi/update_earth_exports.F |
64 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./pkg/fizhi/update_earth_exports.F |
74 |
UPDATE_EARTH_EXPORTS |
do i = im1,im2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
129 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
41 |
FIZHI_INIT_FIXED |
integer im1, im2, jm1, jm2, idim2, jdim2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
52 |
FIZHI_INIT_FIXED |
im1 = 1 |
|
./pkg/fizhi/fizhi_init_fixed.F |
76 |
FIZHI_INIT_FIXED |
do i = im1,im2 |
|
./pkg/fizhi/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
do i=im1,im2 |
|
./pkg/fizhi/update_ocean_exports.F |
109 |
GETSICE |
subroutine GETSICE(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./pkg/fizhi/update_ocean_exports.F |
156 |
GETSICE |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
29 |
UPDATE_OCEAN_EXPORTS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/update_ocean_exports.F |
336 |
GETSICE |
do i = im1,im2 |
|
./pkg/fizhi/update_ocean_exports.F |
351 |
GETSICE |
do i = im1,im2 |
|
./pkg/fizhi/update_ocean_exports.F |
361 |
GETSST |
subroutine GETSST(iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2, |
|
./pkg/fizhi/update_ocean_exports.F |
408 |
GETSST |
integer iunit,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSumx,nSumy |
|
./pkg/fizhi/update_ocean_exports.F |
589 |
GETSST |
do i = im1,im2 |
|
./pkg/fizhi/update_ocean_exports.F |
64 |
UPDATE_OCEAN_EXPORTS |
im1 = 1 |
|
./pkg/fizhi/update_ocean_exports.F |
81 |
UPDATE_OCEAN_EXPORTS |
call GETSST(ksst,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./pkg/fizhi/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
call GETSICE(kice,idim1,idim2,jdim1,jdim2,im1,im2,jm1,jm2,nSx, |
|
./pkg/fizhi/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
do i=im1,im2 |
|
./pkg/fizhi/step_fizhi_corr.F |
134 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
143 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
152 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
161 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
171 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/step_fizhi_corr.F |
195 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
204 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
214 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
223 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
232 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
248 |
STEP_FIZHI_CORR |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
288 |
STEP_FIZHI_CORR |
call QCHECK (im1,im2,jm1,jm2,Nrphys,Nsx,Nsy,idim1,idim2, |
|
./pkg/fizhi/step_fizhi_corr.F |
50 |
STEP_FIZHI_CORR |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/step_fizhi_corr.F |
55 |
STEP_FIZHI_CORR |
im1 = 1-OLx |
|
./pkg/fizhi/fizhi_fillnegs.F |
146 |
TRACER_FILL |
im1 = im |
|
./pkg/fizhi/fizhi_fillnegs.F |
148 |
TRACER_FILL |
dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5 |
|
./pkg/fizhi/fizhi_fillnegs.F |
149 |
TRACER_FILL |
im1 = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
192 |
TRACER_FILL |
im1 = im-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
245 |
TRACER_FILL |
if( imax.eq.2 ) pq(im1,j,L) = pq(im1,j,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
246 |
TRACER_FILL |
. pq(i,j,L)*d2p(i,j)/d2p(im1,j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
260 |
TRACER_FILL |
im1 = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
26 |
QCHECK |
integer idim1,idim2,jdim1,jdim2,Ldim,im1,im2,jm1,jm2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
39 |
QCHECK |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
50 |
QCHECK |
do i=im1,im2 |
|
./pkg/fizhi/fizhi_fillnegs.F |
5 |
QCHECK |
SUBROUTINE QCHECK ( idim1,idim2,jdim1,jdim2,ldim,Nsx,Nsy,im1,im2, |
|
./pkg/fizhi/fizhi_fillnegs.F |
89 |
TRACER_FILL |
integer i,j,l,im1,ip1,imax,m |
|
./pkg/fizhi/update_chemistry_exports.F |
36 |
UPDATE_CHEMISTRY_EXPORTS |
integer im1, im2, jm1, jm2 |
|
./pkg/fizhi/update_chemistry_exports.F |
42 |
UPDATE_CHEMISTRY_EXPORTS |
im1 = 1 |
|
./pkg/fizhi/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
153 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
197 |
FIZHI_INIT_VARS |
do i = im1,im2 |
|
./pkg/fizhi/fizhi_init_vars.F |
49 |
FIZHI_INIT_VARS |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/fizhi_init_vars.F |
53 |
FIZHI_INIT_VARS |
im1 = 1-OLx |
|
./pkg/fizhi/CtoA.F |
33 |
CTOA |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
|
./pkg/fizhi/CtoA.F |
63 |
CTOA |
do i = im1,im2 |
|
./pkg/fizhi/CtoA.F |
6 |
CTOA |
. jdim1,jdim2,numlevs,Nsx,Nsy,im1,im2,jm1,jm2,fieldout1,fieldout2) |
|
./pkg/fizhi/step_physics.F |
13 |
STEP_PHYSICS |
integer im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./pkg/fizhi/step_physics.F |
29 |
STEP_PHYSICS |
do i = im1,im2 |
|
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/AtoC.F |
33 |
ATOC |
integer idim1, idim2, jdim1, jdim2, im1, im2, jm1, jm2 |
|
./pkg/fizhi/AtoC.F |
59 |
ATOC |
do i = im1,im2 |
|
./pkg/fizhi/AtoC.F |
6 |
ATOC |
. jdim1,jdim2,numlevs,Nsx,Nsy,im1,im2,jm1,jm2,fieldout1,fieldout2) |
|
./pkg/fizhi/fizhi_wrapper.F |
138 |
FIZHI_WRAPPER |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
179 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
197 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
207 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,guphy,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
47 |
FIZHI_WRAPPER |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
|
./pkg/fizhi/fizhi_wrapper.F |
54 |
FIZHI_WRAPPER |
im1 = 1 |
|
./pkg/fizhi/do_fizhi.F |
169 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
178 |
DO_FIZHI |
do i=im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
188 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
200 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
264 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
282 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
293 |
DO_FIZHI |
do i = im1,im2 |
|
./pkg/fizhi/do_fizhi.F |
310 |
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 |
5 |
DO_FIZHI |
. idim1,idim2,jdim1,jdim2,Nrphin,Nsxin,Nsyin,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/ctrl/ctrl_smooth.F |
25 |
CTRL_SMOOTH |
integer i, j, im1, ip1, jm1, jp1 |
|
./pkg/ctrl/ctrl_smooth.F |
45 |
CTRL_SMOOTH |
im1 = i-1 |
|
./pkg/ctrl/ctrl_smooth.F |
49 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& p0625 * ( mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
60 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |