| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_bypassad.F |
113 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
131 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
149 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
167 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
33 |
ADMTLM_BYPASSAD |
integer imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
60 |
ADMTLM_BYPASSAD |
imax = snx |
|
./pkg/admtlm/admtlm_bypassad.F |
73 |
ADMTLM_BYPASSAD |
DO i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
96 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/exf/exf_check_range.F |
42 |
EXF_CHECK_RANGE |
integer imax |
|
./pkg/exf/exf_check_range.F |
56 |
EXF_CHECK_RANGE |
imax = snx+olx |
|
./pkg/exf/exf_check_range.F |
62 |
EXF_CHECK_RANGE |
do i = imin,imax |
|
./pkg/exf/exf_check.F |
42 |
EXF_CHECK |
integer imax |
|
./pkg/exf/exf_check.F |
53 |
EXF_CHECK |
imax = snx+olx |
|
./pkg/exf/exf_mapfields.F |
112 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
124 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
138 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
149 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
156 |
EXF_MAPFIELDS |
do i = imin+1,imax |
|
./pkg/exf/exf_mapfields.F |
172 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
183 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
190 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
205 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
213 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
221 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
229 |
EXF_MAPFIELDS |
do i = imin,imax |
|
./pkg/exf/exf_mapfields.F |
82 |
EXF_MAPFIELDS |
integer imax |
|
./pkg/exf/exf_mapfields.F |
93 |
EXF_MAPFIELDS |
imax = snx+olx |
|
./pkg/flt/flt_traj.F |
109 |
FLT_TRAJ |
do ip=7,imax |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_traj.F |
160 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_traj.F |
39 |
FLT_TRAJ |
INTEGER bi, bj, imax |
|
./pkg/flt/flt_traj.F |
40 |
FLT_TRAJ |
parameter (imax=10) |
|
./pkg/flt/flt_traj.F |
51 |
FLT_TRAJ |
_RL tmp(imax) |
|
./pkg/flt/flt_traj.F |
84 |
FLT_TRAJ |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_init.F |
195 |
FLT_INIT |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_init.F |
208 |
FLT_INIT |
& imax,tmp,bi,bj,ip+1,mythid) |
|
./pkg/flt/flt_init.F |
43 |
FLT_INIT |
INTEGER imax |
|
./pkg/flt/flt_init.F |
44 |
FLT_INIT |
parameter(imax=9) |
|
./pkg/flt/flt_init.F |
45 |
FLT_INIT |
_RL tmp(imax) |
|
./pkg/flt/flt_up.F |
110 |
FLT_UP |
do ip=7,imax |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_up.F |
200 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_up.F |
44 |
FLT_UP |
integer imax |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
parameter (imax=(6+4*Nr)) |
|
./pkg/flt/flt_up.F |
52 |
FLT_UP |
_RL tmp(imax) |
|
./pkg/flt/flt_up.F |
85 |
FLT_UP |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_exchg.F |
125 |
FLT_EXCHG |
ic=(icountW-1)*imax |
|
./pkg/flt/flt_exchg.F |
168 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
198 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
266 |
FLT_EXCHG |
ic=(icountN-1)*imax |
|
./pkg/flt/flt_exchg.F |
295 |
FLT_EXCHG |
ic=(icountS-1)*imax |
|
./pkg/flt/flt_exchg.F |
339 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
369 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
48 |
FLT_EXCHG |
INTEGER imax, imax2, m, iG, jG |
|
./pkg/flt/flt_exchg.F |
50 |
FLT_EXCHG |
parameter(imax=9) |
|
./pkg/flt/flt_exchg.F |
51 |
FLT_EXCHG |
parameter(imax2=imax*max_npart_exch) |
|
./pkg/flt/flt_exchg.F |
95 |
FLT_EXCHG |
ic=(icountE-1)*imax |
|
./pkg/flt/flt_restart.F |
35 |
FLT_RESTART |
INTEGER bi, bj, imax |
|
./pkg/flt/flt_restart.F |
36 |
FLT_RESTART |
parameter(imax=9) |
|
./pkg/flt/flt_restart.F |
41 |
FLT_RESTART |
_RL tmp(imax) |
|
./pkg/flt/flt_restart.F |
60 |
FLT_RESTART |
call MDSWRITEVECTOR(flt_file,64,.false.,'RL',imax,tmp, |
|
./pkg/flt/flt_restart.F |
79 |
FLT_RESTART |
call MDSWRITEVECTOR(flt_file,64,.false.,'RL',imax,tmp, |
|
./model/src/ini_eos.F |
298 |
CHECK_EOS |
INTEGER imin, imax, jmin, jmax |
|
./model/src/ini_eos.F |
367 |
CHECK_EOS |
imax = 1 |
|
./model/src/ini_eos.F |
397 |
CHECK_EOS |
& bi, bj, imin, imax, jmin, jmax, k, k, |
|
./model/src/swfrac.F |
100 |
SWFRAC |
DO i = 1,imax |
|
./model/src/swfrac.F |
11 |
SWFRAC |
I imax, fact, |
|
./model/src/swfrac.F |
45 |
SWFRAC |
INTEGER imax |
|
./model/src/swfrac.F |
53 |
SWFRAC |
_RL swdk(imax) |
|
./pkg/dic/car_flux.F |
33 |
CAR_FLUX |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/car_flux.F |
60 |
CAR_FLUX |
DO i=imin,imax |
|
./pkg/dic/car_flux.F |
9 |
CAR_FLUX |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/phos_flux.F |
38 |
PHOS_FLUX |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/phos_flux.F |
62 |
PHOS_FLUX |
DO i=imin,imax |
|
./pkg/dic/phos_flux.F |
9 |
PHOS_FLUX |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/fe_chem.F |
59 |
FE_CHEM |
DO i=imin,imax |
|
./pkg/dic/bio_export.F |
13 |
BIO_EXPORT |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/bio_export.F |
42 |
BIO_EXPORT |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/bio_export.F |
63 |
BIO_EXPORT |
DO i=imin,imax |
|
./pkg/dic/o2_surfforcing.F |
131 |
O2_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/o2_surfforcing.F |
77 |
O2_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/carbon_chem.F |
693 |
CARBON_COEFFS |
do i=imin,imax |
|
./pkg/dic/carbon_chem.F |
962 |
CARBON_COEFFS_PRESSURE_DEP |
do i=imin,imax |
|
./pkg/dic/alk_surfforcing.F |
50 |
ALK_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/alk_surfforcing.F |
9 |
ALK_SURFFORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_surfforcing.F |
106 |
DIC_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/dic_surfforcing.F |
126 |
DIC_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/dic_surfforcing.F |
13 |
DIC_SURFFORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_surfforcing.F |
188 |
DIC_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/dic_surfforcing.F |
79 |
DIC_SURFFORCING |
DO i=imin,imax |
|
./pkg/dic/calcite_saturation.F |
37 |
CALCITE_SATURATION |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/calcite_saturation.F |
81 |
CALCITE_SATURATION |
DO i=imin,imax |
|
./pkg/dic/calcite_saturation.F |
9 |
CALCITE_SATURATION |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_surfforcing_init.F |
129 |
DIC_SURFFORCING_INIT |
DO i=imin,imax |
|
./pkg/dic/dic_surfforcing_init.F |
158 |
DIC_SURFFORCING_INIT |
DO i=imin,imax |
|
./pkg/dic/dic_surfforcing_init.F |
167 |
DIC_SURFFORCING_INIT |
DO i=imin,imax |
|
./pkg/dic/dic_biotic_forcing.F |
126 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
131 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
136 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
152 |
DIC_BIOTIC_FORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
157 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
168 |
DIC_BIOTIC_FORCING |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
16 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
173 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
178 |
DIC_BIOTIC_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/dic/dic_biotic_forcing.F |
185 |
DIC_BIOTIC_FORCING |
DO i=imin,imax |
|
./pkg/dic/dic_biotic_forcing.F |
223 |
DIC_BIOTIC_FORCING |
DO i=imin,imax |
|
./pkg/dic/dic_biotic_forcing.F |
255 |
DIC_BIOTIC_FORCING |
DO i=imin,imax |
|
./pkg/dic/dic_biotic_forcing.F |
54 |
DIC_BIOTIC_FORCING |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/dic/dic_biotic_forcing.F |
98 |
DIC_BIOTIC_FORCING |
imax=sNx |
|
./pkg/dic/car_flux_omega_top.F |
35 |
CAR_FLUX_OMEGA_TOP |
INTEGER imin, imax, jmin, jmax, bi, bj |
|
./pkg/dic/car_flux_omega_top.F |
79 |
CAR_FLUX_OMEGA_TOP |
DO i=imin,imax |
|
./pkg/dic/car_flux_omega_top.F |
9 |
CAR_FLUX_OMEGA_TOP |
I bi,bj,imin,imax,jmin,jmax, |
|
./pkg/fizhi/fizhi_fillnegs.F |
223 |
TRACER_FILL |
call MAXVAL1 (array,6,-qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
225 |
TRACER_FILL |
if( imax.eq.0 ) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
243 |
TRACER_FILL |
if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) + |
|
./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 |
247 |
TRACER_FILL |
if( imax.eq.3 ) pq(i,j+1,L) = pq(i,j+1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
249 |
TRACER_FILL |
if( imax.eq.4 ) pq(i,j-1,L) = pq(i,j-1,L) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
251 |
TRACER_FILL |
if( imax.eq.5 ) pq(i,j,L-1) = pq(i,j,L-1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
253 |
TRACER_FILL |
if( imax.eq.6 ) pq(i,j,L+1) = pq(i,j,L+1) + |
|
./pkg/fizhi/fizhi_fillnegs.F |
269 |
MAXVAL1 |
subroutine MAXVAL1 (q,im,qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
289 |
MAXVAL1 |
integer im, i, imax |
|
./pkg/fizhi/fizhi_fillnegs.F |
292 |
MAXVAL1 |
imax = 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
296 |
MAXVAL1 |
imax = i |
|
./pkg/fizhi/fizhi_fillnegs.F |
89 |
TRACER_FILL |
integer i,j,l,im1,ip1,imax,m |
|
./verification/flt_example/extra/cvprofiles.F |
150 |
NO PROCEDURE |
imax=(6+4*Nr) |
|
./verification/flt_example/extra/cvprofiles.F |
151 |
NO PROCEDURE |
ilen=imax*8 |
|
./verification/flt_example/extra/cvprofiles.F |
153 |
NO PROCEDURE |
allocate (tmp(imax)) |
|
./verification/flt_example/extra/cvfloat.F |
147 |
NO PROCEDURE |
allocate (tmp(imax)) |
|
./verification/flt_example/extra/cvfloat.F |
33 |
NO PROCEDURE |
parameter(imax=10) |
|
./model/src/calc_ivdc.F |
50 |
CALC_IVDC |
DO i=iMin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
108 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
187 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
208 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
321 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
339 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
360 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
378 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
403 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
423 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
446 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
466 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
485 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
510 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
53 |
ECCO_COST_WEIGHTS |
integer imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
542 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
561 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
621 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
676 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
710 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
753 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
784 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
827 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
859 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
86 |
ECCO_COST_WEIGHTS |
imax = snx+olx |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
895 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
927 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
963 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
982 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
108 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
207 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
320 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
338 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
359 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
377 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
402 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
422 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
445 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
465 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
484 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
509 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
53 |
ECCO_COST_WEIGHTS |
integer imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
541 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
560 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
618 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
673 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
707 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
750 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
781 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
824 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
856 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
86 |
ECCO_COST_WEIGHTS |
imax = snx+olx |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
892 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
924 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
960 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
979 |
ECCO_COST_WEIGHTS |
do i = imin,imax |
|
./pkg/kpp/kpp_calc.F |
140 |
KPP_CALC |
integer imin ,imax ,jmin ,jmax |
|
./pkg/kpp/kpp_calc.F |
142 |
KPP_CALC |
parameter(imin=1 ,imax=sNx ,jmin=1 ,jmax=sNy ) |
|
./pkg/kpp/kpp_calc.F |
144 |
KPP_CALC |
parameter(imin=2-OLx,imax=sNx+OLx-1,jmin=2-OLy,jmax=sNy+OLy-1) |
|
./pkg/kpp/kpp_calc.F |
362 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
376 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
521 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
562 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
605 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_calc.F |
673 |
KPP_CALC |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
1011 |
SMOOTH_HORIZ |
integer imin , imax , jmin , jmax |
|
./pkg/kpp/kpp_routines.F |
1012 |
SMOOTH_HORIZ |
parameter(imin=2-OLx, imax=sNx+OLx-1, jmin=2-OLy, jmax=sNy+OLy-1) |
|
./pkg/kpp/kpp_routines.F |
1020 |
SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
1053 |
SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
930 |
KPP_SMOOTH_HORIZ |
integer imin , imax , jmin , jmax |
|
./pkg/kpp/kpp_routines.F |
931 |
KPP_SMOOTH_HORIZ |
parameter( imin=ibot+1, imax=itop-1, jmin=jbot+1, jmax=jtop-1 ) |
|
./pkg/kpp/kpp_routines.F |
939 |
KPP_SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/kpp/kpp_routines.F |
972 |
KPP_SMOOTH_HORIZ |
DO i = imin, imax |
|
./pkg/cfc/cfc11_forcing.F |
130 |
CFC11_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc11_forcing.F |
14 |
CFC11_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc11_forcing.F |
40 |
CFC11_FORCING |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/cfc/cfc12_forcing.F |
130 |
CFC12_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc12_forcing.F |
14 |
CFC12_FORCING |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/cfc/cfc12_forcing.F |
40 |
CFC12_FORCING |
INTEGER bi, bj, imin, imax, jmin, jmax |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
327 |
OBCS_SPONGE_V |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
361 |
OBCS_SPONGE_V |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
559 |
OBCS_SPONGE_T |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
602 |
OBCS_SPONGE_T |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
802 |
OBCS_SPONGE_S |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/obcs/obcs_sponge.F |
846 |
OBCS_SPONGE_S |
IF ((i.ge.imin).and.(i.le.imax)) THEN |
|
./pkg/grdchk/grdchk_get_position.F |
58 |
GRDCHK_GET_POSITION |
integer imin,imax |
|
./pkg/grdchk/grdchk_get_position.F |
74 |
GRDCHK_GET_POSITION |
imax = snx |
|
./pkg/grdchk/grdchk_loc.F |
74 |
GRDCHK_LOC |
integer imin,imax |
|
./pkg/grdchk/grdchk_loc.F |
87 |
GRDCHK_LOC |
imax = snx |
|
./pkg/grdchk/grdchk_main.F |
144 |
GRDCHK_MAIN |
imax = snx |
|
./pkg/grdchk/grdchk_main.F |
169 |
GRDCHK_MAIN |
do i = imin, imax |
|
./pkg/grdchk/grdchk_main.F |
99 |
GRDCHK_MAIN |
integer i, imin, imax |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
102 |
GRDCHK_GET_OBCS_MASK |
do i = imin,imax |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
43 |
GRDCHK_GET_OBCS_MASK |
integer imin,imax |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
63 |
GRDCHK_GET_OBCS_MASK |
imax = snx |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
79 |
GRDCHK_GET_OBCS_MASK |
do i = imin,imax |
|
./pkg/grdchk/grdchk_readparms.F |
43 |
GRDCHK_READPARMS |
integer imin,imax |
|
./pkg/grdchk/grdchk_readparms.F |
81 |
GRDCHK_READPARMS |
imax = snx+olx |
|
./pkg/grdchk/grdchk_init.F |
45 |
GRDCHK_INIT |
integer imin,imax |
|
./pkg/grdchk/grdchk_init.F |
59 |
GRDCHK_INIT |
imax = snx |
|
./pkg/gchem/gchem_calc_tendency.F |
106 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
|
./pkg/gchem/gchem_calc_tendency.F |
110 |
GCHEM_CALC_TENDENCY |
& bi, bj, imin, imax, jmin, jmax, |
|
./pkg/gchem/gchem_calc_tendency.F |
51 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/gchem/gchem_add_tendency.F |
42 |
GCHEM_ADD_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/gchem/gchem_forcing_sep.F |
104 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/gchem/gchem_forcing_sep.F |
41 |
GCHEM_FORCING_SEP |
INTEGER bi,bj,imin,imax,jmin,jmax |
|
./pkg/gchem/gchem_forcing_sep.F |
96 |
GCHEM_FORCING_SEP |
& bi,bj,imin,imax,jmin,jmax, |
|
./pkg/ecco/cost_mean_heatflux.F |
111 |
COST_MEAN_HEATFLUX |
do i = imin,imax |
|
./pkg/ecco/cost_mean_heatflux.F |
52 |
COST_MEAN_HEATFLUX |
integer imin,imax |
|
./pkg/ecco/cost_mean_heatflux.F |
83 |
COST_MEAN_HEATFLUX |
imax = snx |
|
./pkg/ecco/cost_curmtr.F |
165 |
COST_CURMTR |
do i = imin,imax |
|
./pkg/ecco/cost_curmtr.F |
208 |
COST_CURMTR |
do i = imin,imax |
|
./pkg/ecco/cost_curmtr.F |
253 |
COST_CURMTR |
do i = imin,imax |
|
./pkg/ecco/cost_curmtr.F |
53 |
COST_CURMTR |
integer imin,imax |
|
./pkg/ecco/cost_curmtr.F |
94 |
COST_CURMTR |
imax = snx |
|
./pkg/ecco/cost_theta.F |
132 |
COST_THETA |
do i = imin,imax |
|
./pkg/ecco/cost_theta.F |
176 |
COST_THETA |
do i = imin,imax |
|
./pkg/ecco/cost_theta.F |
191 |
COST_THETA |
do i = imin,imax |
|
./pkg/ecco/cost_theta.F |
58 |
COST_THETA |
integer imin,imax |
|
./pkg/ecco/cost_theta.F |
97 |
COST_THETA |
imax = snx |
|
./pkg/ecco/cost_scat.F |
133 |
COST_SCAT |
do i = imin,imax |
|
./pkg/ecco/cost_scat.F |
152 |
COST_SCAT |
do i = imin,imax |
|
./pkg/ecco/cost_scat.F |
52 |
COST_SCAT |
integer imin,imax |
|
./pkg/ecco/cost_scat.F |
85 |
COST_SCAT |
imax = snx |
|
./pkg/ecco/cost_readtopexmean.F |
50 |
COST_READTOPEXMEAN |
integer imin,imax |
|
./pkg/ecco/cost_readtopexmean.F |
63 |
COST_READTOPEXMEAN |
imax = snx |
|
./pkg/ecco/cost_readtopexmean.F |
76 |
COST_READTOPEXMEAN |
do i = imin,imax |
|
./pkg/ecco/cost_ctdt.F |
156 |
COST_CTDT |
do i = imin,imax |
|
./pkg/ecco/cost_ctdt.F |
53 |
COST_CTDT |
integer imin,imax |
|
./pkg/ecco/cost_ctdt.F |
97 |
COST_CTDT |
imax = snx |
|
./pkg/ecco/cost_readscatxfields.F |
125 |
COST_READSCATXFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_readscatxfields.F |
154 |
COST_READSCATXFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_readscatxfields.F |
52 |
COST_READSCATXFIELDS |
integer imin,imax |
|
./pkg/ecco/cost_readscatxfields.F |
86 |
COST_READSCATXFIELDS |
imax = snx |
|
./pkg/ecco/cost_driftw.F |
115 |
COST_DRIFTW |
do i = imin,imax |
|
./pkg/ecco/cost_driftw.F |
141 |
COST_DRIFTW |
do i = imin,imax |
|
./pkg/ecco/cost_driftw.F |
166 |
COST_DRIFTW |
do i = imin,imax |
|
./pkg/ecco/cost_driftw.F |
189 |
COST_DRIFTW |
do i = imin,imax |
|
./pkg/ecco/cost_driftw.F |
58 |
COST_DRIFTW |
integer imin,imax |
|
./pkg/ecco/cost_driftw.F |
87 |
COST_DRIFTW |
imax = snx |
|
./pkg/ecco/cost_readargot.F |
49 |
COST_READARGOT |
integer imin,imax |
|
./pkg/ecco/cost_readargot.F |
70 |
COST_READARGOT |
imax = snx |
|
./pkg/ecco/cost_readargot.F |
90 |
COST_READARGOT |
do i = imin,imax |
|
./pkg/ecco/cost_readscatyfields.F |
123 |
COST_READSCATYFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_readscatyfields.F |
152 |
COST_READSCATYFIELDS |
do i = imin,imax |
|
./pkg/ecco/cost_readscatyfields.F |
52 |
COST_READSCATYFIELDS |
integer imin,imax |
|
./pkg/ecco/cost_readscatyfields.F |
86 |
COST_READSCATYFIELDS |
imax = snx |
|
./pkg/ecco/cost_obcsn.F |
126 |
COST_OBCSN |
do i = imin,imax |
|
./pkg/ecco/cost_obcsn.F |
163 |
COST_OBCSN |
do i = imin,imax |
|
./pkg/ecco/cost_obcsn.F |
199 |
COST_OBCSN |
do i = imin,imax |
|
./pkg/ecco/cost_obcsn.F |
236 |
COST_OBCSN |
do i = imin,imax |
|
./pkg/ecco/cost_obcsn.F |
55 |
COST_OBCSN |
integer imin,imax |
|
./pkg/ecco/cost_obcsn.F |
91 |
COST_OBCSN |
imax = snx |
|
./pkg/ecco/cost_ssh_mean.F |
108 |
COST_SSH_MEAN |
imax = snx |
|
./pkg/ecco/cost_ssh_mean.F |
118 |
COST_SSH_MEAN |
do i = imin,imax |
|
./pkg/ecco/cost_ssh_mean.F |
137 |
COST_SSH_MEAN |
do i = imin,imax |
|
./pkg/ecco/cost_ssh_mean.F |
185 |
COST_SSH_MEAN |
do i = imin,imax |
|
./pkg/ecco/cost_ssh_mean.F |
234 |
COST_SSH_MEAN |
do i = imin,imax |
|
./pkg/ecco/cost_ssh_mean.F |
70 |
COST_SSH_MEAN |
integer imin,imax |
|
./pkg/ecco/cost_obcsvol.F |
102 |
COST_OBCSVOL |
imax = snx |
|
./pkg/ecco/cost_obcsvol.F |
203 |
COST_OBCSVOL |
do i = imin,imax |
|
./pkg/ecco/cost_obcsvol.F |
245 |
COST_OBCSVOL |
do i = imin,imax |
|
./pkg/ecco/cost_obcsvol.F |
59 |
COST_OBCSVOL |
integer imin,imax |
|
./pkg/ecco/cost_ssh.F |
101 |
COST_SSH |
do i = imin, imax |
|
./pkg/ecco/cost_ssh.F |
124 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
145 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
258 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
285 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
312 |
COST_SSH |
do i = imin,imax |
|
./pkg/ecco/cost_ssh.F |
62 |
COST_SSH |
integer imin,imax |
|
./pkg/ecco/cost_ssh.F |
95 |
COST_SSH |
imax = snx |
|
./pkg/ecco/cost_forcing_gen.F |
115 |
COST_FORCING_GEN |
imax = snx |
|
./pkg/ecco/cost_forcing_gen.F |
136 |
COST_FORCING_GEN |
do i = imin,imax |
|
./pkg/ecco/cost_forcing_gen.F |
159 |
COST_FORCING_GEN |
do i = imin,imax |
|
./pkg/ecco/cost_forcing_gen.F |
178 |
COST_FORCING_GEN |
do i = imin,imax |
|
./pkg/ecco/cost_forcing_gen.F |
212 |
COST_FORCING_GEN |
do i = imin,imax |
|
./pkg/ecco/cost_forcing_gen.F |
256 |
COST_FORCING_GEN |
do i = imin,imax |
|
./pkg/ecco/cost_forcing_gen.F |
80 |
COST_FORCING_GEN |
integer imin,imax |
|
./pkg/ecco/cost_mean_saltflux.F |
114 |
COST_MEAN_SALTFLUX |
do i = imin,imax |
|
./pkg/ecco/cost_mean_saltflux.F |
52 |
COST_MEAN_SALTFLUX |
integer imin,imax |
|
./pkg/ecco/cost_mean_saltflux.F |
86 |
COST_MEAN_SALTFLUX |
imax = snx |
|
./pkg/ecco/cost_readgfo.F |
129 |
COST_READGFO |
do i = imin,imax |
|
./pkg/ecco/cost_readgfo.F |
50 |
COST_READGFO |
integer imin,imax |
|
./pkg/ecco/cost_readgfo.F |
84 |
COST_READGFO |
imax = snx |
|
./pkg/ecco/cost_salt0.F |
116 |
COST_SALT0 |
do i = imin,imax |
|
./pkg/ecco/cost_salt0.F |
151 |
COST_SALT0 |
do i = imin,imax |
|
./pkg/ecco/cost_salt0.F |
55 |
COST_SALT0 |
integer imin,imax |
|
./pkg/ecco/cost_salt0.F |
85 |
COST_SALT0 |
imax = snx |
|
./pkg/ecco/cost_kapgm.F |
120 |
COST_KAPGM |
do i = imin,imax |
|
./pkg/ecco/cost_kapgm.F |
59 |
COST_KAPGM |
integer imin,imax |
|
./pkg/ecco/cost_kapgm.F |
89 |
COST_KAPGM |
imax = snx |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
do i = imin,imax |
|
./pkg/ecco/ecco_cost_init_varia.F |
43 |
ECCO_COST_INIT_VARIA |
integer imin, imax |
|
./pkg/ecco/ecco_c |