| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
140 |
KPPMIX |
integer i, k, md |
|
./pkg/kpp/kpp_routines.F |
1445 |
ENHANCE |
integer ki, i, md |
|
./pkg/kpp/kpp_routines.F |
1452 |
ENHANCE |
do md = 1, mdiff |
|
./pkg/kpp/kpp_routines.F |
1453 |
ENHANCE |
dkmp5 = casea(i) * diffus(i,ki,md) + |
|
./pkg/kpp/kpp_routines.F |
1454 |
ENHANCE |
1 (1.- casea(i)) * blmc (i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
1455 |
ENHANCE |
dstar = (1.- delta)**2 * dkm1(i,md) |
|
./pkg/kpp/kpp_routines.F |
1457 |
ENHANCE |
blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md) |
|
./pkg/kpp/kpp_routines.F |
174 |
KPPMIX |
do md = 1, mdiff |
|
./pkg/kpp/kpp_routines.F |
177 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/opps/opps_calc.F |
1005 |
NLOPPS |
mda(k2) = (md(k2)*dz(k2)+md(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
345 |
OPPS_CALC |
mda(k2) = (md(k2)*drF(k2)+md(k2+1)*drF(k2+1))/ |
|
./pkg/seaice/seaice_cost_concentration.F |
105 |
SEAICE_COST_CONCENTRATION |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_concentration.F |
172 |
SEAICE_COST_CONCENTRATION |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
183 |
SEAICE_COST_CONCENTRATION |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sss.F |
106 |
SEAICE_COST_SSS |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sss.F |
190 |
SEAICE_COST_SSS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
201 |
SEAICE_COST_SSS |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sst.F |
104 |
SEAICE_COST_SST |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sst.F |
185 |
SEAICE_COST_SST |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
196 |
SEAICE_COST_SST |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/diagnostics/diagnostics_check.F |
152 |
DIAGNOSTICS_CHECK |
DO md = 1,nfields(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
153 |
DIAGNOSTICS_CHECK |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_check.F |
31 |
DIAGNOSTICS_CHECK |
INTEGER ld,md,nd |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
103 |
DIAGNOSTICS_INTERP_VERT |
& 'fails to interpolate diag.(#', ndId,'): ',flds(md,listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
12 |
DIAGNOSTICS_INTERP_VERT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
48 |
DIAGNOSTICS_INTERP_VERT |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_list_check.F |
13 |
DIAGNOSTICS_LIST_CHECK |
I ld, md, |
|
./pkg/diagnostics/diagnostics_list_check.F |
37 |
DIAGNOSTICS_LIST_CHECK |
INTEGER ld, md, nbLists |
|
./pkg/diagnostics/diagnostics_list_check.F |
57 |
DIAGNOSTICS_LIST_CHECK |
m1 = md |
|
./pkg/diagnostics/diagnostics_out.F |
311 |
DIAGNOSTICS_OUT |
DO md = 1,nfields(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
312 |
DIAGNOSTICS_OUT |
ndId = jdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
323 |
DIAGNOSTICS_OUT |
IF ( idiag(md,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
332 |
DIAGNOSTICS_OUT |
ip = ABS(idiag(md,listId)) + kdiag(ndId)*(lm-1) |
|
./pkg/diagnostics/diagnostics_out.F |
333 |
DIAGNOSTICS_OUT |
im = mdiag(md,listId) |
|
./pkg/diagnostics/diagnostics_out.F |
346 |
DIAGNOSTICS_OUT |
& '- WARNING - diag.#',ndId, ' : ',flds(md,listId), |
|
./pkg/diagnostics/diagnostics_out.F |
347 |
DIAGNOSTICS_OUT |
& ' (#',md,' ) in outp.Stream: ',fnames(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
439 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
452 |
DIAGNOSTICS_OUT |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_out.F |
464 |
DIAGNOSTICS_OUT |
nRec = lm + (md-1)*averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
69 |
DIAGNOSTICS_OUT |
INTEGER md, ndId, ip, im |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
132 |
DIAGNOSTICS_SET_POINTERS |
DO md=1,nActive(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
133 |
DIAGNOSTICS_SET_POINTERS |
IF (mdiag(md,ld).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
135 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
140 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
141 |
DIAGNOSTICS_SET_POINTERS |
mdiag(md,ld) = ABS(idiag(i,j)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
146 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
165 |
DIAGNOSTICS_SET_POINTERS |
DO md=1,nfields(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
166 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
207 |
DIAGNOSTICS_SET_POINTERS |
DO md=1,nfields(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
208 |
DIAGNOSTICS_SET_POINTERS |
nd = jdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
36 |
DIAGNOSTICS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
47 |
DIAGNOSTICS_SET_POINTERS |
DO md=1,numperlist |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
48 |
DIAGNOSTICS_SET_POINTERS |
idiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
49 |
DIAGNOSTICS_SET_POINTERS |
jdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
50 |
DIAGNOSTICS_SET_POINTERS |
mdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
61 |
DIAGNOSTICS_SET_POINTERS |
DO md=1,nfields(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
66 |
DIAGNOSTICS_SET_POINTERS |
IF ( flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
67 |
DIAGNOSTICS_SET_POINTERS |
CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
69 |
DIAGNOSTICS_SET_POINTERS |
jdiag(md,ld) = nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
75 |
DIAGNOSTICS_SET_POINTERS |
I ld, md, nlists, nfields, flds, myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
78 |
DIAGNOSTICS_SET_POINTERS |
& flds(md,ld),' is not a Diagnostic' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
87 |
DIAGNOSTICS_SET_POINTERS |
idiag(mm,ld) = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
12 |
DIAGNOSTICS_SUM_LEVELS |
I listId, md, ndId, ip, im, lm, |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
46 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER listId, md, ndId, ip, im, lm |
|
./pkg/diagnostics/diagnostics_summary.F |
112 |
DIAGNOSTICS_SUMMARY |
DO md=1,nActive(ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
114 |
DIAGNOSTICS_SUMMARY |
& jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |', |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
& mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
116 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(idiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
122 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
im = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
198 |
DIAGNOSTICS_SUMMARY |
DO md=1,diagSt_nbActv(ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
200 |
DIAGNOSTICS_SUMMARY |
& jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld), |
|
./pkg/diagnostics/diagnostics_summary.F |
201 |
DIAGNOSTICS_SUMMARY |
& ' |', mSdiag(md,ld),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
202 |
DIAGNOSTICS_SUMMARY |
ipt = ABS(iSdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
209 |
DIAGNOSTICS_SUMMARY |
im = mSdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
33 |
DIAGNOSTICS_SUMMARY |
INTEGER md, ld, ipt, im |
|
./pkg/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
37 |
DIAGSTATS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagstats_set_pointers.F |
48 |
DIAGSTATS_SET_POINTERS |
DO md=1,numperlist |
|
./pkg/diagnostics/diagstats_set_pointers.F |
49 |
DIAGSTATS_SET_POINTERS |
iSdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagstats_set_pointers.F |
50 |
DIAGSTATS_SET_POINTERS |
jSdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagstats_set_pointers.F |
51 |
DIAGSTATS_SET_POINTERS |
mSdiag(md,ld) = 0 |
|
./pkg/diagnostics/diagstats_set_pointers.F |
61 |
DIAGSTATS_SET_POINTERS |
DO md=1,diagSt_nbFlds(ld) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
66 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(md,ld).EQ.cdiag(nd) ) THEN |
|
./pkg/diagnostics/diagstats_set_pointers.F |
67 |
DIAGSTATS_SET_POINTERS |
CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
69 |
DIAGSTATS_SET_POINTERS |
jSdiag(md,ld) = nd |
|
./pkg/diagnostics/diagstats_set_pointers.F |
75 |
DIAGSTATS_SET_POINTERS |
I ld,md, diagSt_nbLists, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
79 |
DIAGSTATS_SET_POINTERS |
& diagSt_Flds(md,ld),' is not a Diagnostic' |
|
./pkg/ecco/cost_gencost_sstv4.F |
172 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
310 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
93 |
COST_GENCOST_SSTV4 |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_generic.F |
109 |
COST_GENERIC |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_generic.F |
202 |
COST_GENERIC |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readers.F |
66 |
COST_READERS |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readers.F |
94 |
COST_READERS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readgfo.F |
66 |
COST_READGFO |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readgfo.F |
94 |
COST_READGFO |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readtopex.F |
66 |
COST_READTOPEX |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readtopex.F |
94 |
COST_READTOPEX |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read.F |
71 |
COST_SLA_READ |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_sla_read.F |
99 |
COST_SLA_READ |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read_yd.F |
72 |
COST_SLA_READ_YD |
integer md, dd, sd, ld, wd |