File |
Line number |
Procedure |
Code |
./pkg/shelfice/shelfice_cost_shifwflx.F |
100 |
SHELFICE_COST_SHIFWFLX |
endrec = ncvarrecsend(45) |
./pkg/shelfice/shelfice_cost_shifwflx.F |
107 |
SHELFICE_COST_SHIFWFLX |
nrec = endrec-startrec+1 |
./pkg/shelfice/shelfice_cost_shifwflx.F |
71 |
SHELFICE_COST_SHIFWFLX |
integer endrec |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
111 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=endrec |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
116 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
118 |
CTRL_MAP_INI_GENTIM2D |
& int(float(endrec)/float(replicated_nrec)) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
119 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.LT.endrec) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
121 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.GT.endrec) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
180 |
CTRL_MAP_INI_GENTIM2D |
IF (krec.LE.endrec) THEN |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
58 |
CTRL_MAP_INI_GENTIM2D |
integer endrec |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
82 |
CTRL_MAP_INI_GENTIM2D |
endrec=0 |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
93 |
CTRL_MAP_INI_GENTIM2D |
O diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_cost_driver.F |
42 |
CTRL_COST_DRIVER |
integer endrec |
./pkg/ctrl/ctrl_cost_driver.F |
68 |
CTRL_COST_DRIVER |
endrec = ncvarrecsend(300+iarr) |
./pkg/ctrl/ctrl_cost_driver.F |
72 |
CTRL_COST_DRIVER |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
./pkg/ctrl/ctrl_cost_driver.F |
77 |
CTRL_COST_DRIVER |
& startrec, endrec, |
./pkg/ctrl/ctrl_cost_gen.F |
137 |
CTRL_COST_GEN2D |
nrec = endrec-startrec+1 |
./pkg/ctrl/ctrl_cost_gen.F |
22 |
CTRL_COST_GEN2D |
I endrec, |
./pkg/ctrl/ctrl_cost_gen.F |
66 |
CTRL_COST_GEN2D |
integer endrec |
./pkg/ctrl/ctrl_init.F |
195 |
CTRL_INIT |
O xx_hfluxstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
198 |
CTRL_INIT |
& xx_hflux_file, 3, 103, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
205 |
CTRL_INIT |
O xx_atempstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
208 |
CTRL_INIT |
& xx_atemp_file, 7, 107, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
225 |
CTRL_INIT |
O xx_sfluxstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
228 |
CTRL_INIT |
& xx_sflux_file, 4, 104, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
235 |
CTRL_INIT |
O xx_aqhstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
238 |
CTRL_INIT |
& xx_aqh_file, 8, 108, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
258 |
CTRL_INIT |
O xx_tauustartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
261 |
CTRL_INIT |
& xx_tauu_file, 5, 105, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
286 |
CTRL_INIT |
O xx_uwindstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
289 |
CTRL_INIT |
& xx_uwind_file, 9, 109, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
305 |
CTRL_INIT |
O xx_tauvstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
308 |
CTRL_INIT |
& xx_tauv_file, 6, 106, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
333 |
CTRL_INIT |
O xx_vwindstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
336 |
CTRL_INIT |
& xx_vwind_file, 10, 110, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
355 |
CTRL_INIT |
O xx_obcsnstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
358 |
CTRL_INIT |
& xx_obcsn_file, 11, 111, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
368 |
CTRL_INIT |
O xx_obcssstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
371 |
CTRL_INIT |
& xx_obcss_file, 12, 112, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
381 |
CTRL_INIT |
O xx_obcswstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
384 |
CTRL_INIT |
& xx_obcsw_file, 13, 113, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
394 |
CTRL_INIT |
O xx_obcsestartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
397 |
CTRL_INIT |
& xx_obcse_file, 14, 114, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
462 |
CTRL_INIT |
O xx_sststartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
465 |
CTRL_INIT |
& xx_sst_file, 18, 118, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
480 |
CTRL_INIT |
O xx_sssstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
483 |
CTRL_INIT |
& xx_sss_file, 19, 119, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
591 |
CTRL_INIT |
O xx_precipstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
594 |
CTRL_INIT |
& xx_precip_file, 32, 132, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
605 |
CTRL_INIT |
O xx_swfluxstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
608 |
CTRL_INIT |
& xx_swflux_file, 33, 133, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
619 |
CTRL_INIT |
O xx_swdownstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
622 |
CTRL_INIT |
& xx_swdown_file, 34, 134, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
633 |
CTRL_INIT |
O xx_lwfluxstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
636 |
CTRL_INIT |
& xx_lwflux_file, 35, 135, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
63 |
CTRL_INIT |
integer endrec |
./pkg/ctrl/ctrl_init.F |
647 |
CTRL_INIT |
O xx_lwdownstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
650 |
CTRL_INIT |
& xx_lwdown_file, 36, 136, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
661 |
CTRL_INIT |
O xx_evapstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
664 |
CTRL_INIT |
& xx_evap_file, 37, 137, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
676 |
CTRL_INIT |
O xx_snowprecipstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
679 |
CTRL_INIT |
& xx_snowprecip_file, 38, 138, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
691 |
CTRL_INIT |
O xx_apressurestartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
694 |
CTRL_INIT |
& xx_apressure_file, 39, 139, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
705 |
CTRL_INIT |
O xx_runoffstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
708 |
CTRL_INIT |
& xx_runoff_file, 40, 140, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
721 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
722 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
./pkg/ctrl/ctrl_init.F |
724 |
CTRL_INIT |
& xx_siarea_file, 41, 141, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
737 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
738 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
./pkg/ctrl/ctrl_init.F |
740 |
CTRL_INIT |
& xx_siheff_file, 42, 142, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
753 |
CTRL_INIT |
endrec = 1 |
./pkg/ctrl/ctrl_init.F |
754 |
CTRL_INIT |
diffrec = endrec - startrec + 1 |
./pkg/ctrl/ctrl_init.F |
756 |
CTRL_INIT |
& xx_sihsnow_file, 43, 143, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
777 |
CTRL_INIT |
O xx_shifwflxstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
780 |
CTRL_INIT |
& xx_shifwflx_file, 45, 145, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
872 |
CTRL_INIT |
O diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init.F |
889 |
CTRL_INIT |
endrecFull=endrec |
./pkg/ctrl/ctrl_init.F |
894 |
CTRL_INIT |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
./pkg/ctrl/ctrl_init.F |
920 |
CTRL_INIT |
& diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init_rec.F |
103 |
CTRL_INIT_REC |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
./pkg/ctrl/ctrl_init_rec.F |
108 |
CTRL_INIT_REC |
endrec = endrec*nfac |
./pkg/ctrl/ctrl_init_rec.F |
112 |
CTRL_INIT_REC |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
./pkg/ctrl/ctrl_init_rec.F |
115 |
CTRL_INIT_REC |
diffrec = endrec - startrec + 1 |
./pkg/ctrl/ctrl_init_rec.F |
11 |
CTRL_INIT_REC |
O fldstartdate, diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_init_rec.F |
123 |
CTRL_INIT_REC |
& 'CTRL_INIT_REC: startrec = ',startrec,', endrec = ',endrec |
./pkg/ctrl/ctrl_init_rec.F |
57 |
CTRL_INIT_REC |
integer endrec |
./pkg/ctrl/ctrl_init_rec.F |
86 |
CTRL_INIT_REC |
endrec = 0 |
./pkg/ctrl/ctrl_init_rec.F |
90 |
CTRL_INIT_REC |
endrec = 12*nfac |
./pkg/ctrl/ctrl_init_rec.F |
93 |
CTRL_INIT_REC |
endrec = 1*nfac |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
101 |
CTRL_MAP_INI_GENTIM2D |
endrec=0 |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
114 |
CTRL_MAP_INI_GENTIM2D |
O diffrec, startrec, endrec, |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
150 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=endrec |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
155 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
157 |
CTRL_MAP_INI_GENTIM2D |
& int(float(endrec)/float(replicated_nrec)) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
158 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.LT.endrec) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
160 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.GT.endrec) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
172 |
CTRL_MAP_INI_GENTIM2D |
IF (krec.LE.endrec) THEN |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
192 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=endrec |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
197 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
199 |
CTRL_MAP_INI_GENTIM2D |
& int(float(endrec)/float(replicated_nrec)) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
200 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.LT.endrec) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
202 |
CTRL_MAP_INI_GENTIM2D |
if (replicated_ntimes*replicated_nrec.GT.endrec) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
214 |
CTRL_MAP_INI_GENTIM2D |
nyearsINT=1+int((endrec-replicated_nrec)/replicated_nrec) |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
261 |
CTRL_MAP_INI_GENTIM2D |
IF (krec.LE.endrec) THEN |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
292 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, endrec |
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
58 |
CTRL_MAP_INI_GENTIM2D |
integer endrec |
./pkg/ctrl/ctrl_mask_set_xz.F |
54 |
CTRL_MASK_SET_XZ |
integer endrec |
./pkg/ctrl/ctrl_mask_set_yz.F |
54 |
CTRL_MASK_SET_YZ |
integer endrec |
./pkg/ctrl/ctrl_readparms.F |
54 |
CTRL_READPARMS |
integer endrec |
./pkg/ecco/cost_forcing.F |
100 |
COST_FORCING |
endrec = ncvarrecsend(7) |
./pkg/ecco/cost_forcing.F |
102 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
120 |
COST_FORCING |
endrec = ncvarrecsend(4) |
./pkg/ecco/cost_forcing.F |
122 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
138 |
COST_FORCING |
endrec = ncvarrecsend(8) |
./pkg/ecco/cost_forcing.F |
140 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
159 |
COST_FORCING |
endrec = ncvarrecsend(5) |
./pkg/ecco/cost_forcing.F |
161 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
180 |
COST_FORCING |
endrec = ncvarrecsend(9) |
./pkg/ecco/cost_forcing.F |
182 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
201 |
COST_FORCING |
endrec = ncvarrecsend(6) |
./pkg/ecco/cost_forcing.F |
203 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
222 |
COST_FORCING |
endrec = ncvarrecsend(10) |
./pkg/ecco/cost_forcing.F |
224 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
243 |
COST_FORCING |
endrec = ncvarrecsend(32) |
./pkg/ecco/cost_forcing.F |
245 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
263 |
COST_FORCING |
endrec = ncvarrecsend(33) |
./pkg/ecco/cost_forcing.F |
265 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
283 |
COST_FORCING |
endrec = ncvarrecsend(34) |
./pkg/ecco/cost_forcing.F |
285 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
303 |
COST_FORCING |
endrec = ncvarrecsend(35) |
./pkg/ecco/cost_forcing.F |
305 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
323 |
COST_FORCING |
endrec = ncvarrecsend(36) |
./pkg/ecco/cost_forcing.F |
325 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
343 |
COST_FORCING |
endrec = ncvarrecsend(37) |
./pkg/ecco/cost_forcing.F |
345 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
362 |
COST_FORCING |
endrec = ncvarrecsend(38) |
./pkg/ecco/cost_forcing.F |
364 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
381 |
COST_FORCING |
endrec = ncvarrecsend(39) |
./pkg/ecco/cost_forcing.F |
383 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
400 |
COST_FORCING |
endrec = ncvarrecsend(40) |
./pkg/ecco/cost_forcing.F |
402 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_forcing.F |
63 |
COST_FORCING |
integer endrec |
./pkg/ecco/cost_forcing.F |
82 |
COST_FORCING |
endrec = ncvarrecsend(3) |
./pkg/ecco/cost_forcing.F |
84 |
COST_FORCING |
& startrec, endrec, |
./pkg/ecco/cost_obcs.F |
55 |
COST_OBCS |
integer endrec |
./pkg/ecco/cost_obcs.F |
64 |
COST_OBCS |
endrec = ncvarrecsend(11 ) |
./pkg/ecco/cost_obcs.F |
66 |
COST_OBCS |
& startrec,endrec, mythid ) |
./pkg/ecco/cost_obcs.F |
73 |
COST_OBCS |
endrec = ncvarrecsend(12 ) |
./pkg/ecco/cost_obcs.F |
75 |
COST_OBCS |
& startrec,endrec, mythid ) |
./pkg/ecco/cost_obcs.F |
82 |
COST_OBCS |
endrec = ncvarrecsend(13 ) |
./pkg/ecco/cost_obcs.F |
84 |
COST_OBCS |
& startrec,endrec, mythid ) |
./pkg/ecco/cost_obcs.F |
91 |
COST_OBCS |
endrec = ncvarrecsend(14 ) |
./pkg/ecco/cost_obcs.F |
93 |
COST_OBCS |
& startrec,endrec, mythid ) |
./pkg/ecco/cost_obcs.F |
99 |
COST_OBCS |
& startrec, endrec, mythid) |
./pkg/ecco/cost_obcse.F |
125 |
COST_OBCSE |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcse.F |
16 |
COST_OBCSE |
I endrec, |
./pkg/ecco/cost_obcse.F |
64 |
COST_OBCSE |
integer endrec |
./pkg/ecco/cost_obcsn.F |
123 |
COST_OBCSN |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcsn.F |
16 |
COST_OBCSN |
I endrec, |
./pkg/ecco/cost_obcsn.F |
64 |
COST_OBCSN |
integer endrec |
./pkg/ecco/cost_obcss.F |
123 |
COST_OBCSS |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcss.F |
16 |
COST_OBCSS |
I endrec, |
./pkg/ecco/cost_obcss.F |
64 |
COST_OBCSS |
integer endrec |
./pkg/ecco/cost_obcsvol.F |
129 |
COST_OBCSVOL |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcsvol.F |
13 |
COST_OBCSVOL |
I endrec, |
./pkg/ecco/cost_obcsvol.F |
58 |
COST_OBCSVOL |
integer endrec |
./pkg/ecco/cost_obcsw.F |
123 |
COST_OBCSW |
nrec = endrec-startrec+1 |
./pkg/ecco/cost_obcsw.F |
16 |
COST_OBCSW |
I endrec, |
./pkg/ecco/cost_obcsw.F |
64 |
COST_OBCSW |
integer endrec |