| File |
Line number |
Procedure |
Code |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
174 |
CTRL_MAP_INI_GENTIM2D |
DO jrec = 1, replicated_ntimes |
|
./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 |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./pkg/autodiff/adread_adwrite.F |
137 |
ADREAD |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
189 |
ADREAD |
jrec=irec |
|
./pkg/autodiff/adread_adwrite.F |
192 |
ADREAD |
jrec=tapeFileCounter+tapeMaxCounter*(irec-1) |
|
./pkg/autodiff/adread_adwrite.F |
197 |
ADREAD |
& 1,var(j2d),jrec,tapeSingleCpuIO,tapeBufferIO,myThid) |
|
./pkg/autodiff/adread_adwrite.F |
336 |
ADWRITE |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
388 |
ADWRITE |
jrec=irec |
|
./pkg/autodiff/adread_adwrite.F |
391 |
ADWRITE |
jrec=tapeFileCounter+tapeMaxCounter*(irec-1) |
|
./pkg/autodiff/adread_adwrite.F |
406 |
ADWRITE |
& 1,var(j2d),jrec,tapeSingleCpuIO,tapeBufferIO,myThid) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
166 |
CTRL_MAP_INI_GENTIM2D |
DO jrec = 1, replicated_ntimes+1 |
|
./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 |
223 |
CTRL_MAP_INI_GENTIM2D |
do jrec=1,nyearsINT |
|
./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 |
255 |
CTRL_MAP_INI_GENTIM2D |
DO jrec = 1, replicated_ntimes+1 |
|
./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 |
306 |
CTRL_MAP_INI_GENTIM2D |
jrec=1 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
308 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight') jrec=irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
312 |
CTRL_MAP_INI_GENTIM2D |
& dummyRS,jrec,myThid ) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./pkg/ecco/cost_gencost_seaicev4.F |
202 |
COST_GENCOST_SEAICEV4 |
jrec=1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
203 |
COST_GENCOST_SEAICEV4 |
if( dovarwei ) jrec = irec |
|
./pkg/ecco/cost_gencost_seaicev4.F |
205 |
COST_GENCOST_SEAICEV4 |
& jrec, localstartdate, localperiod, fname1, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
78 |
COST_GENCOST_SEAICEV4 |
integer irec, jrec |
|
./pkg/ecco/cost_gencost_sshv4.F |
1006 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1018 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
71 |
COST_GENCOST_SSHV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_sshv4.F |
934 |
COST_GENCOST_SSHV4 |
do jrec=1,ndaysave |
|
./pkg/ecco/cost_gencost_sshv4.F |
936 |
COST_GENCOST_SSHV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
994 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
188 |
COST_GENCOST_SSTV4 |
do jrec=1,ndaysave |
|
./pkg/ecco/cost_gencost_sstv4.F |
190 |
COST_GENCOST_SSTV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
56 |
COST_GENCOST_SSTV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_transp.F |
69 |
COST_GENCOST_TRANSP |
integer obsrec,irec,jrec |
|
./pkg/ecco/cost_generic.F |
239 |
COST_GENLOOP |
integer irec, jrec |
|
./pkg/ecco/cost_generic.F |
335 |
COST_GENLOOP |
jrec=1 |
|
./pkg/ecco/cost_generic.F |
336 |
COST_GENLOOP |
if( dovarwei ) jrec = irec |
|
./pkg/ecco/cost_generic.F |
338 |
COST_GENLOOP |
& jrec, localstartdate, localperiod, fname1, |