| File |
Line number |
Procedure |
Code |
|
./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 |
184 |
SEAICE_COST_CONCENTRATION |
print *,'ld,wd ', ld,wd |
|
./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 |
202 |
SEAICE_COST_SSS |
print *,'ld,wd ', ld,wd |
|
./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 |
197 |
SEAICE_COST_SST |
print *,'ld,wd ', ld,wd |
|
./pkg/diagnostics/diagnostics_check.F |
103 |
DIAGNOSTICS_CHECK |
& ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
118 |
DIAGNOSTICS_CHECK |
DO ld = 1,nlists |
|
./pkg/diagnostics/diagnostics_check.F |
119 |
DIAGNOSTICS_CHECK |
IF ( fflags(ld)(2:2).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
124 |
DIAGNOSTICS_CHECK |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
125 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
126 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
127 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld).LE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
130 |
DIAGNOSTICS_CHECK |
& 'Vertical Interp. for list l=', ld, |
|
./pkg/diagnostics/diagnostics_check.F |
131 |
DIAGNOSTICS_CHECK |
& ', filename: ', fnames(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
134 |
DIAGNOSTICS_CHECK |
& ' lev(k=', k, ') p=', levs(k,ld), |
|
./pkg/diagnostics/diagnostics_check.F |
146 |
DIAGNOSTICS_CHECK |
& ' for list l=', ld, ', filename: ', fnames(ld) |
|
./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 |
154 |
DIAGNOSTICS_CHECK |
CALL DIAGNOSTICS_GET_POINTERS( 'RSURF ', ld, |
|
./pkg/diagnostics/diagnostics_check.F |
158 |
DIAGNOSTICS_CHECK |
CALL DIAGNOSTICS_GET_POINTERS('FIZPRES ', ld, |
|
./pkg/diagnostics/diagnostics_check.F |
161 |
DIAGNOSTICS_CHECK |
CALL DIAGNOSTICS_GET_POINTERS('RCENTER ', ld, |
|
./pkg/diagnostics/diagnostics_check.F |
166 |
DIAGNOSTICS_CHECK |
& 'to interpolate diags from output list:', ld |
|
./pkg/diagnostics/diagnostics_check.F |
31 |
DIAGNOSTICS_CHECK |
INTEGER ld,md,nd |
|
./pkg/diagnostics/diagnostics_check.F |
76 |
DIAGNOSTICS_CHECK |
DO ld = 2,nlists |
|
./pkg/diagnostics/diagnostics_check.F |
77 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
78 |
DIAGNOSTICS_CHECK |
IF ( fnames(ld).EQ.fnames(m) ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
86 |
DIAGNOSTICS_CHECK |
& ' 2nd (n=', ld, ' ): ', fnames(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
93 |
DIAGNOSTICS_CHECK |
DO ld = 2,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_check.F |
94 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
95 |
DIAGNOSTICS_CHECK |
IF ( diagSt_Fname(ld).EQ.diagSt_Fname(m) ) THEN |
|
./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 |
58 |
DIAGNOSTICS_LIST_CHECK |
DO n = ld,nbLists |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
131 |
DIAGNOSTICS_SET_POINTERS |
DO ld=1,nlists |
|
./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 |
161 |
DIAGNOSTICS_SET_POINTERS |
DO ld=1,nlists |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
162 |
DIAGNOSTICS_SET_POINTERS |
IF ( nlevels(ld).EQ.-1 ) 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 |
172 |
DIAGNOSTICS_SET_POINTERS |
& ' setting levs of list l=',ld,', fnames=', fnames(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
181 |
DIAGNOSTICS_SET_POINTERS |
& ' setting levs of list l=',ld,', fnames=', fnames(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
185 |
DIAGNOSTICS_SET_POINTERS |
nlevels(ld) = kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
187 |
DIAGNOSTICS_SET_POINTERS |
levs(k,ld) = k |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
190 |
DIAGNOSTICS_SET_POINTERS |
& 'Set levels for Outp.Stream: ',fnames(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
194 |
DIAGNOSTICS_SET_POINTERS |
IF ( fflags(ld)(2:2).EQ.'I' ) suffix = ' Sum Levels:' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
195 |
DIAGNOSTICS_SET_POINTERS |
DO k1=1,nlevels(ld),20 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
196 |
DIAGNOSTICS_SET_POINTERS |
k2 = MIN(nlevels(ld),k1+19) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
197 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
201 |
DIAGNOSTICS_SET_POINTERS |
ELSEIF ( fflags(ld)(2:2).NE.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./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 |
216 |
DIAGNOSTICS_SET_POINTERS |
& ' in list l=', ld, ', filename: ', fnames(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
36 |
DIAGNOSTICS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
46 |
DIAGNOSTICS_SET_POINTERS |
DO ld=1,numlists |
|
./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 |
59 |
DIAGNOSTICS_SET_POINTERS |
DO ld=1,nlists |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
60 |
DIAGNOSTICS_SET_POINTERS |
nActive(ld) = nfields(ld) |
|
./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 |
84 |
DIAGNOSTICS_SET_POINTERS |
mm = nActive(ld) + 1 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
86 |
DIAGNOSTICS_SET_POINTERS |
jdiag(mm,ld) = mate |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
87 |
DIAGNOSTICS_SET_POINTERS |
idiag(mm,ld) = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
88 |
DIAGNOSTICS_SET_POINTERS |
flds (mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
90 |
DIAGNOSTICS_SET_POINTERS |
nActive(ld) = mm |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
94 |
DIAGNOSTICS_SET_POINTERS |
nActiveMax = MAX(nActive(ld),nActiveMax) |
|
./pkg/diagnostics/diagnostics_summary.F |
100 |
DIAGNOSTICS_SUMMARY |
IF ( fflags(ld)(2:2).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
101 |
DIAGNOSTICS_SUMMARY |
DO k1=1,nlevels(ld),10 |
|
./pkg/diagnostics/diagnostics_summary.F |
102 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+9) |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
106 |
DIAGNOSTICS_SUMMARY |
DO k1=1,nlevels(ld),25 |
|
./pkg/diagnostics/diagnostics_summary.F |
107 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+24) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./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 |
117 |
DIAGNOSTICS_SUMMARY |
IF (ipt.NE.0 .AND. averageCycle(ld).GT.1) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
121 |
DIAGNOSTICS_SUMMARY |
DO l=1,averageCycle(ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
122 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
123 |
DIAGNOSTICS_SUMMARY |
IF (l.EQ.averageCycle(ld)) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
im = mdiag(md,ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
177 |
DIAGNOSTICS_SUMMARY |
DO ld=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_summary.F |
178 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(diagSt_Fname(ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
179 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I4,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
180 |
DIAGNOSTICS_SUMMARY |
& ' ; file name: ',diagSt_Fname(ld)(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
183 |
DIAGNOSTICS_SUMMARY |
& diagSt_nbFlds(ld), ' |',diagSt_nbActv(ld), ' |', |
|
./pkg/diagnostics/diagnostics_summary.F |
184 |
DIAGNOSTICS_SUMMARY |
& diagSt_freq(ld), diagSt_phase(ld), ' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
188 |
DIAGNOSTICS_SUMMARY |
IF ( diagSt_region(j,ld).GE.1 |
|
./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/diagnostics_summary.F |
92 |
DIAGNOSTICS_SUMMARY |
DO ld=1,nlists |
|
./pkg/diagnostics/diagnostics_summary.F |
93 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(fnames(ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
94 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I5,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
95 |
DIAGNOSTICS_SUMMARY |
& ' ; file name: ',fnames(ld)(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
98 |
DIAGNOSTICS_SUMMARY |
& nfields(ld), ' |',nActive(ld), ' |', |
|
./pkg/diagnostics/diagnostics_summary.F |
99 |
DIAGNOSTICS_SUMMARY |
& freq(ld), phase(ld), ' |', nlevels(ld) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
102 |
DIAGSTATS_SET_POINTERS |
mm = diagSt_nbActv(ld) + 1 |
|
./pkg/diagnostics/diagstats_set_pointers.F |
104 |
DIAGSTATS_SET_POINTERS |
iSdiag(mm,ld) = SIGN(mSdiag(md,ld),mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
106 |
DIAGSTATS_SET_POINTERS |
jSdiag(mm,ld) = mate |
|
./pkg/diagnostics/diagstats_set_pointers.F |
107 |
DIAGSTATS_SET_POINTERS |
diagSt_Flds(mm,ld) = cdiag(mate) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
109 |
DIAGSTATS_SET_POINTERS |
diagSt_nbActv(ld) = mm |
|
./pkg/diagnostics/diagstats_set_pointers.F |
113 |
DIAGSTATS_SET_POINTERS |
nActiveMax = MAX(diagSt_nbActv(ld),nActiveMax) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
37 |
DIAGSTATS_SET_POINTERS |
INTEGER md,ld,nd |
|
./pkg/diagnostics/diagstats_set_pointers.F |
47 |
DIAGSTATS_SET_POINTERS |
DO ld=1,numlists |
|
./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 |
59 |
DIAGSTATS_SET_POINTERS |
DO ld=1,diagSt_nbLists |
|
./pkg/diagnostics/diagstats_set_pointers.F |
60 |
DIAGSTATS_SET_POINTERS |
diagSt_nbActv(ld) = diagSt_nbFlds(ld) |
|
./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/diagnostics/diagstats_set_pointers.F |
87 |
DIAGSTATS_SET_POINTERS |
DO l=1,ld-1 |
|
./pkg/diagnostics/diagstats_set_pointers.F |
95 |
DIAGSTATS_SET_POINTERS |
& .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld)) |
|
./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 |