| File |
Line number |
Procedure |
Code |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
179 |
CTRL_MAP_INI_GENTIM2D |
krec=replicated_nrec*(jrec-1)+irec |
|
./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 |
184 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_WRITE_XY( fnamegenOut, xx_gen, krec, optimcycle, |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
171 |
CTRL_MAP_INI_GENTIM2D |
krec=replicated_nrec*(jrec-1)+irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
172 |
CTRL_MAP_INI_GENTIM2D |
IF (krec.LE.endrec) THEN |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
181 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_WRITE_XY( fnamegenOut, xx_gen, krec, optimcycle, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
227 |
CTRL_MAP_INI_GENTIM2D |
krec=irec+(jrec-1)*replicated_nrec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
229 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_READ_XY( fnamegenOut, xx_gen_tmp, krec, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
233 |
CTRL_MAP_INI_GENTIM2D |
CALL READ_REC_XY_RL( fnamegenOut, xx_gen_tmp, krec, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
260 |
CTRL_MAP_INI_GENTIM2D |
krec=replicated_nrec*(jrec-1)+irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
261 |
CTRL_MAP_INI_GENTIM2D |
IF (krec.LE.endrec) THEN |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./pkg/ecco/cost_gencost_sshv4.F |
1219 |
COST_GENCOST_SSHV4 |
krec = irec + (ndaysave/2) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1222 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, etaday, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1252 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1257 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1262 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
71 |
COST_GENCOST_SSHV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_sshv4.F |
936 |
COST_GENCOST_SSHV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
939 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, etaday, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
969 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
974 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
979 |
COST_GENCOST_SSHV4 |
& krec, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
190 |
COST_GENCOST_SSTV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
194 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, mybar, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
202 |
COST_GENCOST_SSTV4 |
daytime = FLOAT(secondsperday*(krec-1)) + modelstart |
|
./pkg/ecco/cost_gencost_sstv4.F |
203 |
COST_GENCOST_SSTV4 |
dayiter = hoursperday*(krec-1)+modeliter0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
56 |
COST_GENCOST_SSTV4 |
integer irec,jrec,krec |