| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atemp.F |
40 |
COST_ATEMP |
integer startrec |
|
./pkg/ecco/cost_atemp.F |
88 |
COST_ATEMP |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_atemp.F |
8 |
COST_ATEMP |
I startrec, |
|
./pkg/ecco/cost_heatflux.F |
101 |
COST_HEATFLUX |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_heatflux.F |
48 |
COST_HEATFLUX |
integer startrec |
|
./pkg/ecco/cost_heatflux.F |
9 |
COST_HEATFLUX |
I startrec, |
|
./pkg/ecco/cost_uwind.F |
40 |
COST_UWIND |
integer startrec |
|
./pkg/ecco/cost_uwind.F |
88 |
COST_UWIND |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_uwind.F |
8 |
COST_UWIND |
I startrec, |
|
./pkg/ecco/cost_forcing.F |
101 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
107 |
COST_FORCING |
startrec = ncvarrecstart(6) |
|
./pkg/ecco/cost_forcing.F |
110 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
114 |
COST_FORCING |
startrec = ncvarrecstart(10) |
|
./pkg/ecco/cost_forcing.F |
117 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
49 |
COST_FORCING |
integer startrec |
|
./pkg/ecco/cost_forcing.F |
59 |
COST_FORCING |
startrec = ncvarrecstart(3) |
|
./pkg/ecco/cost_forcing.F |
62 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
66 |
COST_FORCING |
startrec = ncvarrecstart(7) |
|
./pkg/ecco/cost_forcing.F |
69 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
75 |
COST_FORCING |
startrec = ncvarrecstart(4) |
|
./pkg/ecco/cost_forcing.F |
78 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
82 |
COST_FORCING |
startrec = ncvarrecstart(8) |
|
./pkg/ecco/cost_forcing.F |
85 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
91 |
COST_FORCING |
startrec = ncvarrecstart(5) |
|
./pkg/ecco/cost_forcing.F |
94 |
COST_FORCING |
& startrec, endrec, mythid ) |
|
./pkg/ecco/cost_forcing.F |
98 |
COST_FORCING |
startrec = ncvarrecstart(9) |
|
./pkg/ecco/cost_zonstress.F |
101 |
COST_ZONSTRESS |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_zonstress.F |
48 |
COST_ZONSTRESS |
integer startrec |
|
./pkg/ecco/cost_zonstress.F |
9 |
COST_ZONSTRESS |
I startrec, |
|
./pkg/ecco/cost_obcsvol.F |
10 |
COST_OBCSVOL |
I startrec, |
|
./pkg/ecco/cost_obcsvol.F |
111 |
COST_OBCSVOL |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_obcsvol.F |
49 |
COST_OBCSVOL |
integer startrec |
|
./pkg/ecco/cost_saltflux.F |
101 |
COST_SALTFLUX |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_saltflux.F |
48 |
COST_SALTFLUX |
integer startrec |
|
./pkg/ecco/cost_saltflux.F |
9 |
COST_SALTFLUX |
I startrec, |
|
./pkg/ecco/cost_aqh.F |
40 |
COST_AQH |
integer startrec |
|
./pkg/ecco/cost_aqh.F |
88 |
COST_AQH |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_aqh.F |
8 |
COST_AQH |
I startrec, |
|
./pkg/ecco/cost_merstress.F |
101 |
COST_MERSTRESS |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_merstress.F |
48 |
COST_MERSTRESS |
integer startrec |
|
./pkg/ecco/cost_merstress.F |
9 |
COST_MERSTRESS |
I startrec, |
|
./pkg/ecco/cost_vwind.F |
40 |
COST_VWIND |
integer startrec |
|
./pkg/ecco/cost_vwind.F |
88 |
COST_VWIND |
nrec = endrec-startrec+1 |
|
./pkg/ecco/cost_vwind.F |
8 |
COST_VWIND |
I startrec, |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
54 |
CTRL_MASK_SET_YZ |
integer startrec |
|
./pkg/ctrl/ctrl_init.F |
168 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
173 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
176 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
178 |
CTRL_INIT |
& xx_hflux_file, 3, 103, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
190 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
195 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
198 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
200 |
CTRL_INIT |
& xx_atemp_file, 7, 107, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
222 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
227 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
230 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
232 |
CTRL_INIT |
& xx_sflux_file, 4, 104, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
244 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
249 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
252 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
254 |
CTRL_INIT |
& xx_aqh_file, 8, 108, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
276 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
281 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
284 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
286 |
CTRL_INIT |
& xx_tauu_file, 5, 105, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
298 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
303 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
306 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
308 |
CTRL_INIT |
& xx_uwind_file, 9, 109, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
330 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
335 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
338 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
340 |
CTRL_INIT |
& xx_tauv_file, 6, 106, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
352 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
357 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
360 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
362 |
CTRL_INIT |
& xx_vwind_file, 10, 110, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
367 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
|
./pkg/ctrl/ctrl_init.F |
389 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcsnperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
390 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
392 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
394 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
399 |
CTRL_INIT |
& xx_obcsn_file, 11, 111, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
415 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcssperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
416 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
418 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
420 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
425 |
CTRL_INIT |
& xx_obcss_file, 12, 112, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
441 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcswperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
442 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
444 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
446 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
451 |
CTRL_INIT |
& xx_obcsw_file, 13, 113, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
467 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcseperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
468 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
470 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
472 |
CTRL_INIT |
startrec = 1 |
|
./pkg/ctrl/ctrl_init.F |
477 |
CTRL_INIT |
& xx_obcse_file, 14, 114, diffrec, startrec, endrec, |
|
./pkg/ctrl/ctrl_init.F |
91 |
CTRL_INIT |
integer startrec |
|
./pkg/ctrl/ctrl_readparms.F |
52 |
CTRL_READPARMS |
integer startrec |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
54 |
CTRL_MASK_SET_XZ |
integer startrec |