File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_atemp.F |
41 |
COST_ATEMP |
integer endrec |
./pkg/ecco/cost_atemp.F |
88 |
COST_ATEMP |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_atemp.F |
9 |
COST_ATEMP |
I endrec, |
./pkg/ecco/cost_heatflux.F |
101 |
COST_HEATFLUX |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_heatflux.F |
10 |
COST_HEATFLUX |
I endrec, |
./pkg/ecco/cost_heatflux.F |
49 |
COST_HEATFLUX |
integer endrec |
./pkg/ecco/cost_uwind.F |
41 |
COST_UWIND |
integer endrec |
./pkg/ecco/cost_uwind.F |
88 |
COST_UWIND |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_uwind.F |
9 |
COST_UWIND |
I endrec, |
./pkg/ecco/cost_forcing.F |
101 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
108 |
COST_FORCING |
endrec = ncvarrecsend(6) |
./pkg/ecco/cost_forcing.F |
110 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
115 |
COST_FORCING |
endrec = ncvarrecsend(10) |
./pkg/ecco/cost_forcing.F |
117 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
50 |
COST_FORCING |
integer endrec |
./pkg/ecco/cost_forcing.F |
60 |
COST_FORCING |
endrec = ncvarrecsend(3) |
./pkg/ecco/cost_forcing.F |
62 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
67 |
COST_FORCING |
endrec = ncvarrecsend(7) |
./pkg/ecco/cost_forcing.F |
69 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
76 |
COST_FORCING |
endrec = ncvarrecsend(4) |
./pkg/ecco/cost_forcing.F |
78 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
83 |
COST_FORCING |
endrec = ncvarrecsend(8) |
./pkg/ecco/cost_forcing.F |
85 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
92 |
COST_FORCING |
endrec = ncvarrecsend(5) |
./pkg/ecco/cost_forcing.F |
94 |
COST_FORCING |
& startrec, endrec, mythid ) |
./pkg/ecco/cost_forcing.F |
99 |
COST_FORCING |
endrec = ncvarrecsend(9) |
./pkg/ecco/cost_zonstress.F |
101 |
COST_ZONSTRESS |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_zonstress.F |
10 |
COST_ZONSTRESS |
I endrec, |
./pkg/ecco/cost_zonstress.F |
49 |
COST_ZONSTRESS |
integer endrec |
./pkg/ecco/cost_obcsvol.F |
111 |
COST_OBCSVOL |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcsvol.F |
11 |
COST_OBCSVOL |
I endrec, |
./pkg/ecco/cost_obcsvol.F |
50 |
COST_OBCSVOL |
integer endrec |
./pkg/ecco/cost_saltflux.F |
101 |
COST_SALTFLUX |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_saltflux.F |
10 |
COST_SALTFLUX |
I endrec, |
./pkg/ecco/cost_saltflux.F |
49 |
COST_SALTFLUX |
integer endrec |
./pkg/ecco/cost_aqh.F |
41 |
COST_AQH |
integer endrec |
./pkg/ecco/cost_aqh.F |
88 |
COST_AQH |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_aqh.F |
9 |
COST_AQH |
I endrec, |
./pkg/ecco/cost_merstress.F |
101 |
COST_MERSTRESS |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_merstress.F |
10 |
COST_MERSTRESS |
I endrec, |
./pkg/ecco/cost_merstress.F |
49 |
COST_MERSTRESS |
integer endrec |
./pkg/ecco/cost_vwind.F |
41 |
COST_VWIND |
integer endrec |
./pkg/ecco/cost_vwind.F |
88 |
COST_VWIND |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_vwind.F |
9 |
COST_VWIND |
I endrec, |
./pkg/ctrl/ctrl_mask_set_yz.F |
55 |
CTRL_MASK_SET_YZ |
integer endrec |
./pkg/ctrl/ctrl_init.F |
170 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
174 |
CTRL_INIT |
endrec = 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 |
192 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
196 |
CTRL_INIT |
endrec = 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 |
224 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
228 |
CTRL_INIT |
endrec = 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 |
246 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
250 |
CTRL_INIT |
endrec = 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 |
278 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
282 |
CTRL_INIT |
endrec = 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 |
300 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
304 |
CTRL_INIT |
endrec = 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 |
332 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
336 |
CTRL_INIT |
endrec = 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 |
354 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init.F |
358 |
CTRL_INIT |
endrec = 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 |
391 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcsnperiod) + 2 |
./pkg/ctrl/ctrl_init.F |
392 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
./pkg/ctrl/ctrl_init.F |
395 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
397 |
CTRL_INIT |
diffrec = endrec |
./pkg/ctrl/ctrl_init.F |
399 |
CTRL_INIT |
& xx_obcsn_file, 11, 111, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
417 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcssperiod) + 2 |
./pkg/ctrl/ctrl_init.F |
418 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
./pkg/ctrl/ctrl_init.F |
421 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
423 |
CTRL_INIT |
diffrec = endrec |
./pkg/ctrl/ctrl_init.F |
425 |
CTRL_INIT |
& xx_obcss_file, 12, 112, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
443 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcswperiod) + 2 |
./pkg/ctrl/ctrl_init.F |
444 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
./pkg/ctrl/ctrl_init.F |
447 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
449 |
CTRL_INIT |
diffrec = endrec |
./pkg/ctrl/ctrl_init.F |
451 |
CTRL_INIT |
& xx_obcsw_file, 13, 113, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
469 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcseperiod) + 2 |
./pkg/ctrl/ctrl_init.F |
470 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
./pkg/ctrl/ctrl_init.F |
473 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
475 |
CTRL_INIT |
diffrec = endrec |
./pkg/ctrl/ctrl_init.F |
477 |
CTRL_INIT |
& xx_obcse_file, 14, 114, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
92 |
CTRL_INIT |
integer endrec |
./pkg/ctrl/ctrl_readparms.F |
53 |
CTRL_READPARMS |
integer endrec |
./pkg/ctrl/ctrl_mask_set_xz.F |
55 |
CTRL_MASK_SET_XZ |
integer endrec |