| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
104 |
SEAICE_COST_CONCENTRATION |
integer middate(4) |
|
./pkg/seaice/seaice_cost_concentration.F |
193 |
SEAICE_COST_CONCENTRATION |
middate(1) = smrareastartdate(1) |
|
./pkg/seaice/seaice_cost_concentration.F |
195 |
SEAICE_COST_CONCENTRATION |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_concentration.F |
197 |
SEAICE_COST_CONCENTRATION |
middate(2) = 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
198 |
SEAICE_COST_CONCENTRATION |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_concentration.F |
199 |
SEAICE_COST_CONCENTRATION |
middate(4) = modelstartdate(4) |
|
./pkg/seaice/seaice_cost_concentration.F |
202 |
SEAICE_COST_CONCENTRATION |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
208 |
SEAICE_COST_CONCENTRATION |
print *,'middate(1,2) ',middate(1),middate(2) |
|
./pkg/seaice/seaice_cost_concentration.F |
209 |
SEAICE_COST_CONCENTRATION |
print *,'middate(3,4) ', middate(3),middate(4) |
|
./pkg/seaice/seaice_cost_sss.F |
105 |
SEAICE_COST_SSS |
integer middate(4) |
|
./pkg/seaice/seaice_cost_sss.F |
211 |
SEAICE_COST_SSS |
middate(1) = smrareastartdate(1) |
|
./pkg/seaice/seaice_cost_sss.F |
213 |
SEAICE_COST_SSS |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sss.F |
215 |
SEAICE_COST_SSS |
middate(2) = 0 |
|
./pkg/seaice/seaice_cost_sss.F |
216 |
SEAICE_COST_SSS |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_sss.F |
217 |
SEAICE_COST_SSS |
middate(4) = modelstartdate(4) |
|
./pkg/seaice/seaice_cost_sss.F |
220 |
SEAICE_COST_SSS |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
226 |
SEAICE_COST_SSS |
print *,'middate(1,2) ',middate(1),middate(2) |
|
./pkg/seaice/seaice_cost_sss.F |
227 |
SEAICE_COST_SSS |
print *,'middate(3,4) ', middate(3),middate(4) |
|
./pkg/seaice/seaice_cost_sst.F |
103 |
SEAICE_COST_SST |
integer middate(4) |
|
./pkg/seaice/seaice_cost_sst.F |
211 |
SEAICE_COST_SST |
middate(1) = smrareastartdate(1) |
|
./pkg/seaice/seaice_cost_sst.F |
213 |
SEAICE_COST_SST |
middate(1) = yday*10000+100+1 |
|
./pkg/seaice/seaice_cost_sst.F |
215 |
SEAICE_COST_SST |
middate(2) = 0 |
|
./pkg/seaice/seaice_cost_sst.F |
216 |
SEAICE_COST_SST |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_sst.F |
217 |
SEAICE_COST_SST |
middate(4) = modelstartdate(4) |
|
./pkg/seaice/seaice_cost_sst.F |
220 |
SEAICE_COST_SST |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
226 |
SEAICE_COST_SST |
print *,'middate(1,2) ',middate(1),middate(2) |
|
./pkg/seaice/seaice_cost_sst.F |
227 |
SEAICE_COST_SST |
print *,'middate(3,4) ', middate(3),middate(4) |
|
./pkg/cal/cal_getmonthsrec.F |
116 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( startofmonth, midtime, middate, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
155 |
CAL_GETMONTHSREC |
middate1(1) = middate(1) |
|
./pkg/cal/cal_getmonthsrec.F |
156 |
CAL_GETMONTHSREC |
middate1(2) = middate(2) |
|
./pkg/cal/cal_getmonthsrec.F |
157 |
CAL_GETMONTHSREC |
middate1(3) = middate(3) |
|
./pkg/cal/cal_getmonthsrec.F |
158 |
CAL_GETMONTHSREC |
middate1(4) = middate(4) |
|
./pkg/cal/cal_getmonthsrec.F |
170 |
CAL_GETMONTHSREC |
middate0(1) = middate(1) |
|
./pkg/cal/cal_getmonthsrec.F |
171 |
CAL_GETMONTHSREC |
middate0(2) = middate(2) |
|
./pkg/cal/cal_getmonthsrec.F |
172 |
CAL_GETMONTHSREC |
middate0(3) = middate(3) |
|
./pkg/cal/cal_getmonthsrec.F |
173 |
CAL_GETMONTHSREC |
middate0(4) = middate(4) |
|
./pkg/cal/cal_getmonthsrec.F |
53 |
CAL_GETMONTHSREC |
integer middate(4) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
114 |
COST_GENCOST_SEAICEV4 |
integer middate(4) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
275 |
COST_GENCOST_SEAICEV4 |
middate(1) = modelstartdate(1) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
277 |
COST_GENCOST_SEAICEV4 |
middate(1) = yday*10000+100+1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
279 |
COST_GENCOST_SEAICEV4 |
middate(2) = 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
280 |
COST_GENCOST_SEAICEV4 |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
281 |
COST_GENCOST_SEAICEV4 |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
282 |
COST_GENCOST_SEAICEV4 |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
100 |
COST_GENCOST_SSTV4 |
integer middate(4) |
|
./pkg/ecco/cost_gencost_sstv4.F |
191 |
COST_GENCOST_SSTV4 |
middate(1)=1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
192 |
COST_GENCOST_SSTV4 |
call CAL_FULLDATE(locstartdate(1),0,middate,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
194 |
COST_GENCOST_SSTV4 |
middate(1)=1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
196 |
COST_GENCOST_SSTV4 |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
198 |
COST_GENCOST_SSTV4 |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
213 |
COST_GENCOST_SSTV4 |
CALL CAL_PRINTDATE(middate,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
343 |
COST_GENCOST_SSTV4 |
middate(1)=1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
344 |
COST_GENCOST_SSTV4 |
call CAL_FULLDATE(locstartdate(1),0,middate,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
346 |
COST_GENCOST_SSTV4 |
middate(1)=1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
348 |
COST_GENCOST_SSTV4 |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
350 |
COST_GENCOST_SSTV4 |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
365 |
COST_GENCOST_SSTV4 |
CALL CAL_PRINTDATE(middate,mythid) |
|
./pkg/ecco/cost_generic.F |
107 |
COST_GENERIC |
integer middate(4) |
|
./pkg/ecco/cost_generic.F |
205 |
COST_GENERIC |
middate(k)=0 |
|
./pkg/ecco/cost_generic.F |
209 |
COST_GENERIC |
call CAL_FULLDATE( localstartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_generic.F |
211 |
COST_GENERIC |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_generic.F |
213 |
COST_GENERIC |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readers.F |
102 |
COST_READERS |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_readers.F |
105 |
COST_READERS |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readers.F |
55 |
COST_READERS |
integer middate(4) |
|
./pkg/ecco/cost_readers.F |
99 |
COST_READERS |
call CAL_FULLDATE( ersstartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_readgfo.F |
102 |
COST_READGFO |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_readgfo.F |
105 |
COST_READGFO |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readgfo.F |
55 |
COST_READGFO |
integer middate(4) |
|
./pkg/ecco/cost_readgfo.F |
99 |
COST_READGFO |
call CAL_FULLDATE( gfostartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_readscatxfields.F |
130 |
COST_READSCATXFIELDS |
call CAL_FULLDATE( scatxstartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_readscatxfields.F |
133 |
COST_READSCATXFIELDS |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_readscatxfields.F |
135 |
COST_READSCATXFIELDS |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readscatxfields.F |
72 |
COST_READSCATXFIELDS |
integer middate(4) |
|
./pkg/ecco/cost_readscatyfields.F |
130 |
COST_READSCATYFIELDS |
call CAL_FULLDATE( scatystartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_readscatyfields.F |
133 |
COST_READSCATYFIELDS |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_readscatyfields.F |
135 |
COST_READSCATYFIELDS |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readscatyfields.F |
72 |
COST_READSCATYFIELDS |
integer middate(4) |
|
./pkg/ecco/cost_readtopex.F |
108 |
COST_READTOPEX |
call CAL_FULLDATE( topexstartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_readtopex.F |
111 |
COST_READTOPEX |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_readtopex.F |
114 |
COST_READTOPEX |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_readtopex.F |
127 |
COST_READTOPEX |
CALL CAL_PRINTDATE(middate,mythid) |
|
./pkg/ecco/cost_readtopex.F |
144 |
COST_READTOPEX |
CALL CAL_PRINTDATE(middate,mythid) |
|
./pkg/ecco/cost_readtopex.F |
55 |
COST_READTOPEX |
integer middate(4) |
|
./pkg/ecco/cost_sla_read.F |
104 |
COST_SLA_READ |
call CAL_FULLDATE( sla_startdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_sla_read.F |
107 |
COST_SLA_READ |
call CAL_FULLDATE( tempDate_1, 0, middate, mythid) |
|
./pkg/ecco/cost_sla_read.F |
110 |
COST_SLA_READ |
call CAL_TIMEPASSED( middate, daydate, difftime, mythid ) |
|
./pkg/ecco/cost_sla_read.F |
52 |
COST_SLA_READ |
integer middate(4) |
|
./pkg/ecco/cost_sla_read_yd.F |
60 |
COST_SLA_READ_YD |
integer middate(4) |