| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
1020 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1025 |
ECCO_COST_WEIGHTS |
& wtauv, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1058 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
& nnz, wvwind, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1091 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1095 |
ECCO_COST_WEIGHTS |
& nnz, whflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1130 |
ECCO_COST_WEIGHTS |
& nnz, watemp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1159 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
& nnz, wsflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1194 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1198 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1226 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1230 |
ECCO_COST_WEIGHTS |
& nnz, wprecip, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1258 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1262 |
ECCO_COST_WEIGHTS |
& nnz, wswflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1290 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1294 |
ECCO_COST_WEIGHTS |
& nnz, wswdown, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1322 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1326 |
ECCO_COST_WEIGHTS |
& nnz, wlwflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1354 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1358 |
ECCO_COST_WEIGHTS |
& nnz, wlwdown, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1386 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1390 |
ECCO_COST_WEIGHTS |
& nnz, wsnowprecip, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1419 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1423 |
ECCO_COST_WEIGHTS |
& nnz, wevap, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1451 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1455 |
ECCO_COST_WEIGHTS |
& nnz, wapressure, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1484 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1488 |
ECCO_COST_WEIGHTS |
& nnz, wrunoff, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1513 |
ECCO_COST_WEIGHTS |
& nnz, wbottomdrag, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
637 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
640 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
65 |
ECCO_COST_WEIGHTS |
integer irec,nnz |
|
./pkg/ecco/ecco_cost_weights.F |
676 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
679 |
ECCO_COST_WEIGHTS |
& nnz, wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
708 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
713 |
ECCO_COST_WEIGHTS |
& wers, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
718 |
ECCO_COST_WEIGHTS |
& wgfo, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
879 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
882 |
ECCO_COST_WEIGHTS |
& wscatx, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
885 |
ECCO_COST_WEIGHTS |
& wscaty, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
918 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
951 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
955 |
ECCO_COST_WEIGHTS |
& nnz, wtauu, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
989 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
993 |
ECCO_COST_WEIGHTS |
& nnz, wuwind, irec, mythid ) |
|
./pkg/ecco/ecco_toolbox.F |
1147 |
ECCO_READBAR |
& irec, doglobalread, |
|
./pkg/ecco/ecco_toolbox.F |
1152 |
ECCO_READBAR |
& irec, doglobalread, |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
170 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
171 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
181 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
182 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
192 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
193 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
203 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
204 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
212 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 2 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
213 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
221 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 3 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
222 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
230 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 4 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
231 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
239 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 5 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
240 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
248 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 6 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
249 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
257 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 7 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
258 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
266 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 3*Nrphys + 8 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
267 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
323 |
FIZHI_READ_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
385 |
FIZHI_READ_VEGTILES |
irec = 0 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
421 |
FIZHI_READ_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
422 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
432 |
FIZHI_READ_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
433 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
443 |
FIZHI_READ_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
444 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
454 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
455 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
463 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 2 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
464 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
472 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 3 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
473 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
481 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 4 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
482 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
490 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 5 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
491 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
499 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 6 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
500 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
508 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 7 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
509 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
517 |
FIZHI_READ_VEGTILES |
irec = 4 + 3*Nrphys + 8 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
518 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
51 |
FIZHI_WRITE_VEGTILES |
integer bi,bj,irec,fileprec |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
43 |
GRDCHK_GET_OBCS_MASK |
integer irec,iobcs |
|
./pkg/grdchk/grdchk_get_position.F |
126 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
127 |
GRDCHK_GET_POSITION |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_get_position.F |
139 |
GRDCHK_GET_POSITION |
icvrec = irec |
|
./pkg/grdchk/grdchk_get_position.F |
209 |
GRDCHK_GET_POSITION |
& irec .EQ. icvrec ) then |
|
./pkg/grdchk/grdchk_get_position.F |
66 |
GRDCHK_GET_POSITION |
integer irec, irecwrk |
|
./pkg/grdchk/grdchk_init.F |
45 |
GRDCHK_INIT |
integer irec |
|
./pkg/grdchk/grdchk_loc.F |
153 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
155 |
GRDCHK_LOC |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_loc.F |
183 |
GRDCHK_LOC |
icvrec = irec |
|
./pkg/grdchk/grdchk_loc.F |
81 |
GRDCHK_LOC |
integer irec, irecwrk |
|
./pkg/mdsio/mdsio_facef_read.F |
122 |
MDS_FACEF_READ_RS |
READ(dUnit, rec=irec) ioBuf4 |
|
./pkg/mdsio/mdsio_facef_read.F |
132 |
MDS_FACEF_READ_RS |
READ(dUnit, rec=irec) ioBuf8 |
|
./pkg/mdsio/mdsio_facef_read.F |
17 |
MDS_FACEF_READ_RS |
I fName, fPrec, irec, |
|
./pkg/mdsio/mdsio_facef_read.F |
43 |
MDS_FACEF_READ_RS |
INTEGER irec |
|
./pkg/mdsio/mdsio_facef_read.F |
84 |
MDS_FACEF_READ_RS |
jBase=(irec-1)*(dNy+1) |
|
./pkg/mdsio/mdsio_gl.F |
1058 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1063 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1066 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1083 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1144 |
MDSREADFIELD_2D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1146 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1156 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1394 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1404 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1414 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1487 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1504 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1521 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
271 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
279 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
296 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
357 |
MDSREADFIELD_3D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
359 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
369 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
605 |
MDSWRITEFIELD_3D_GL |
irec=k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
615 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
625 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
698 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
715 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
732 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
180 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
182 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
199 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
420 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
422 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
439 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
643 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
660 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
677 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
884 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
901 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
918 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_read_field.F |
112 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
295 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
297 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
302 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
432 |
MDS_READ_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
486 |
MDS_READ_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_read_field.F |
490 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
492 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_section.F |
211 |
MDS_READ_SEC_XZ |
irec = 1 + ( tGx-1 |
|
./pkg/mdsio/mdsio_read_section.F |
217 |
MDS_READ_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
223 |
MDS_READ_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
226 |
MDS_READ_SEC_XZ |
READ(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_read_section.F |
243 |
MDS_READ_SEC_XZ |
READ(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
489 |
MDS_READ_SEC_YZ |
irec = 1 + ( tGy-1 |
|
./pkg/mdsio/mdsio_read_section.F |
495 |
MDS_READ_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
501 |
MDS_READ_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
504 |
MDS_READ_SEC_YZ |
READ(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_read_section.F |
521 |
MDS_READ_SEC_YZ |
READ(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_whalos.F |
169 |
MDS_READ_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_read_whalos.F |
16 |
MDS_READ_WHALOS |
I irec, |
|
./pkg/mdsio/mdsio_read_whalos.F |
213 |
MDS_READ_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_read_whalos.F |
61 |
MDS_READ_WHALOS |
integer irec |
|
./pkg/mdsio/mdsio_write_field.F |
129 |
MDS_WRITE_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
345 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
350 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
355 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
479 |
MDS_WRITE_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_write_field.F |
485 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
487 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
511 |
MDS_WRITE_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_write_field.F |
515 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
517 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_section.F |
182 |
MDS_WRITE_SEC_XZ |
irec = 1 + ( tGx-1 |
|
./pkg/mdsio/mdsio_write_section.F |
188 |
MDS_WRITE_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
194 |
MDS_WRITE_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
212 |
MDS_WRITE_SEC_XZ |
WRITE(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_write_section.F |
229 |
MDS_WRITE_SEC_XZ |
WRITE(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
435 |
MDS_WRITE_SEC_YZ |
irec = 1 + ( tGy-1 |
|
./pkg/mdsio/mdsio_write_section.F |
441 |
MDS_WRITE_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
447 |
MDS_WRITE_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
465 |
MDS_WRITE_SEC_YZ |
WRITE(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_write_section.F |
482 |
MDS_WRITE_SEC_YZ |
WRITE(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_whalos.F |
16 |
MDS_WRITE_WHALOS |
I irec, |
|
./pkg/mdsio/mdsio_write_whalos.F |
176 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
220 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
61 |
MDS_WRITE_WHALOS |
integer irec |
|
./pkg/mdsio/mdsio_writelocal.F |
116 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
333 |
MDS_WRITELOCAL |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_writelocal.F |
339 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
341 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
365 |
MDS_WRITELOCAL |
irec = irecord |
|
./pkg/mdsio/mdsio_writelocal.F |
369 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
371 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/profiles/active_file_control_profiles.F |
101 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
128 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
143 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
160 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
182 |
ACTIVE_READ_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
208 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
219 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
21 |
ACTIVE_READ_PROFILE_RL |
I irec, |
|
./pkg/profiles/active_file_control_profiles.F |
250 |
ACTIVE_WRITE_PROFILE_RL |
I irec, |
|
./pkg/profiles/active_file_control_profiles.F |
281 |
ACTIVE_WRITE_PROFILE_RL |
integer ivar, irec, irecglob,active_varnum |
|
./pkg/profiles/active_file_control_profiles.F |
309 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
337 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
347 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
369 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
384 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
396 |
ACTIVE_WRITE_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
419 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
441 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
460 |
ACTIVE_WRITE_PROFILE_RL |
write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_control_profiles.F |
54 |
ACTIVE_READ_PROFILE_RL |
integer irec, irecglob,active_varnum |
|
./pkg/profiles/active_file_control_profiles.F |
76 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
92 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_profiles.F |
131 |
ACTIVE_WRITE_PROFILE |
integer irec |
|
./pkg/profiles/active_file_profiles.F |
141 |
ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
29 |
ACTIVE_READ_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles.F |
65 |
ACTIVE_READ_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles.F |
76 |
ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
95 |
ACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_ad.F |
128 |
ADACTIVE_WRITE_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_ad.F |
141 |
ADACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
26 |
ADACTIVE_READ_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_ad.F |
63 |
ADACTIVE_READ_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_ad.F |
73 |
ADACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
90 |
ADACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_g.F |
102 |
G_ACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_g.F |
139 |
G_ACTIVE_WRITE_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_g.F |
150 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
156 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
26 |
G_ACTIVE_READ_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_g.F |
67 |
G_ACTIVE_READ_PROFILE |
integer irec,active_varnum,active_num_file |
|
./pkg/profiles/active_file_profiles_g.F |
78 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
84 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/profiles_init_ncfile.F |
32 |
PROFILES_INIT_NCFILE |
integer irec, num_var,num_file |
|
./pkg/profiles/profiles_init_ncfile.F |
77 |
PROFILES_INIT_NCFILE |
do irec=1,Zlength+1 |
|
./pkg/profiles/profiles_init_ncfile.F |
78 |
PROFILES_INIT_NCFILE |
tmp_vec(irec)=0 |
|
./pkg/profiles/profiles_init_ncfile.F |
83 |
PROFILES_INIT_NCFILE |
do irec=length,1,-1 |
|
./pkg/profiles/profiles_init_ncfile.F |
85 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
87 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
125 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
12 |
PROFILES_READVECTOR |
SUBROUTINE PROFILES_READVECTOR(fNb, vNb, irec, |
|
./pkg/profiles/profiles_readvector.F |
131 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
30 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
45 |
PROFILES_READVECTOR |
if ( (irec.LT.profiles_minind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
46 |
PROFILES_READVECTOR |
& (irec.GT.profiles_maxind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
53 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-500+1) |
|
./pkg/profiles/profiles_readvector.F |
54 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500) |
|
./pkg/profiles/profiles_readvector.F |
55 |
PROFILES_READVECTOR |
elseif (irec.LT.profiles_minind_buff(bi,bj)) then |
|
./pkg/profiles/profiles_readvector.F |
57 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-999) |
|
./pkg/profiles/profiles_readvector.F |
58 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
61 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
62 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999) |
|
./pkg/profiles/profiles_readvector.F |
70 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/seaice/seaice_cost_concentration.F |
167 |
SEAICE_COST_CONCENTRATION |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_concentration.F |
170 |
SEAICE_COST_CONCENTRATION |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_concentration.F |
174 |
SEAICE_COST_CONCENTRATION |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_concentration.F |
180 |
SEAICE_COST_CONCENTRATION |
obsrec = irec |
|
./pkg/seaice/seaice_cost_concentration.F |
182 |
SEAICE_COST_CONCENTRATION |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_concentration.F |
183 |
SEAICE_COST_CONCENTRATION |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_concentration.F |
95 |
SEAICE_COST_CONCENTRATION |
integer irec |
|
./pkg/seaice/seaice_cost_sss.F |
171 |
SEAICE_COST_SSS |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_sss.F |
174 |
SEAICE_COST_SSS |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
178 |
SEAICE_COST_SSS |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
185 |
SEAICE_COST_SSS |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
189 |
SEAICE_COST_SSS |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
195 |
SEAICE_COST_SSS |
obsrec = irec |
|
./pkg/seaice/seaice_cost_sss.F |
197 |
SEAICE_COST_SSS |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_sss.F |
198 |
SEAICE_COST_SSS |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_sss.F |
93 |
SEAICE_COST_SSS |
integer irec |
|
./pkg/seaice/seaice_cost_sst.F |
172 |
SEAICE_COST_SST |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_sst.F |
175 |
SEAICE_COST_SST |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
179 |
SEAICE_COST_SST |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
185 |
SEAICE_COST_SST |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
189 |
SEAICE_COST_SST |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
195 |
SEAICE_COST_SST |
obsrec = irec |
|
./pkg/seaice/seaice_cost_sst.F |
197 |
SEAICE_COST_SST |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_sst.F |
198 |
SEAICE_COST_SST |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_sst.F |
91 |
SEAICE_COST_SST |
integer irec |
|
./pkg/seaice/seaice_cost_weights.F |
102 |
SEAICE_COST_WEIGHTS |
irec = 1 |
|
./pkg/seaice/seaice_cost_weights.F |
107 |
SEAICE_COST_WEIGHTS |
& wsmrarea, irec, 0, mythid ) |
|
./pkg/seaice/seaice_cost_weights.F |
53 |
SEAICE_COST_WEIGHTS |
integer irec,nnz |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
136 |
SHELFICE_COST_SHIFWFLX |
do irec = 1,nrec |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
139 |
SHELFICE_COST_SHIFWFLX |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
175 |
SHELFICE_COST_SHIFWFLX |
& ' shelfice_cost_shifwflx: irec = ',irec |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
68 |
SHELFICE_COST_SHIFWFLX |
integer irec |
|
./verification/flt_example/extra/cvprofiles.F |
268 |
NO PROCEDURE |
do irec=2,imaxrecord+1 |
|
./verification/flt_example/extra/cvprofiles.F |
270 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
553 |
NO PROCEDURE |
do irec=2,imaxrecord+1 |
|
./verification/flt_example/extra/cvprofiles.F |
555 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
583 |
NO PROCEDURE |
do irec=2,imaxrecord+1 |
|
./verification/flt_example/extra/cvprofiles.F |
585 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
613 |
NO PROCEDURE |
do irec=2,imaxrecord+1 |
|
./verification/flt_example/extra/cvprofiles.F |
615 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
127 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, replicated_nrec |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
132 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_READ_XY( fnamegenIn, xx_gen, irec, |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
139 |
CTRL_MAP_INI_GENTIM2D |
& 1, wgentim2d(1-Olx,1-Oly,1,1,iarr), irec, myThid ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
168 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_WRITE_XY( fnamegenOut, xx_gen, irec, optimcycle, |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
175 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, replicated_nrec |
|
./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 |
181 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_READ_XY( fnamegenOut, xx_gen, irec, |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./verification/natl_box/results/comp_orig.F |
15 |
NO PROCEDURE |
integer lbuffer1, lbuffer2, i, j, k, irec |
|
./verification/natl_box/results/comp_orig.F |
26 |
NO PROCEDURE |
irec=0 |
|
./verification/natl_box/results/comp_orig.F |
29 |
NO PROCEDURE |
irec=irec+1 |
|
./verification/natl_box/results/comp_orig.F |
30 |
NO PROCEDURE |
read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
31 |
NO PROCEDURE |
read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
75 |
ADMTLM_DSVD2MODEL |
integer irec |
|
./pkg/admtlm/admtlm_model2dsvd.F |
73 |
ADMTLM_MODEL2DSVD |
integer irec |
|
./pkg/autodiff/adread_adwrite.F |
120 |
ADREAD |
INTEGER irec |
|
./pkg/autodiff/adread_adwrite.F |
176 |
ADREAD |
& ' tid,vid, irec, length, prec(x2)=', tid, vid, irec, |
|
./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 |
233 |
ADREAD |
& useSingleCpuIO, irec, myThid ) |
|
./pkg/autodiff/adread_adwrite.F |
239 |
ADREAD |
& useSingleCpuIO, irec, myThid ) |
|
./pkg/autodiff/adread_adwrite.F |
269 |
ADWRITE |
I irec |
|
./pkg/autodiff/adread_adwrite.F |
318 |
ADWRITE |
INTEGER irec |
|
./pkg/autodiff/adread_adwrite.F |
375 |
ADWRITE |
& ' tid,vid, irec, length, prec(x2)=', tid, vid, irec, |
|
./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 |
429 |
ADWRITE |
& useSingleCpuIO, irec, 0, myThid ) |
|
./pkg/autodiff/adread_adwrite.F |
435 |
ADWRITE |
& useSingleCpuIO, irec, 0, myThid ) |
|
./pkg/autodiff/adread_adwrite.F |
72 |
ADREAD |
I irec |
|
./pkg/ctrl/ctrl_cost_gen.F |
166 |
CTRL_COST_GEN2D |
do irec = 1,nrec |
|
./pkg/ctrl/ctrl_cost_gen.F |
170 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
212 |
CTRL_COST_GEN2D |
do irec = 1,nrec |
|
./pkg/ctrl/ctrl_cost_gen.F |
216 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
230 |
CTRL_COST_GEN2D |
& xx_gen_remo_slope*(irec-1)*xx_gen_period ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
270 |
CTRL_COST_GEN2D |
do irec = 1,nrec |
|
./pkg/ctrl/ctrl_cost_gen.F |
274 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
295 |
CTRL_COST_GEN2D |
& xx_gen_remo_slope*(irec-1)*xx_gen_period ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
334 |
CTRL_COST_GEN2D |
do irec = 1,nrec |
|
./pkg/ctrl/ctrl_cost_gen.F |
338 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
463 |
CTRL_COST_GEN3D |
integer irec |
|
./pkg/ctrl/ctrl_cost_gen.F |
507 |
CTRL_COST_GEN3D |
irec = 1 |
|
./pkg/ctrl/ctrl_cost_gen.F |
510 |
CTRL_COST_GEN3D |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
97 |
CTRL_COST_GEN2D |
integer irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
167 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, replicated_nrec |
|
./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 |
174 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_READ_XY( fnamegenIn, xx_gen, irec, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
219 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, replicated_nrec |
|
./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 |
256 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, replicated_nrec |
|
./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 |
292 |
CTRL_MAP_INI_GENTIM2D |
DO irec = 1, endrec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
298 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_READ_XY( fnamegenOut, xx_gen, irec, |
|
./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 |
346 |
CTRL_MAP_INI_GENTIM2D |
call ACTIVE_WRITE_XY( fnamegenOut, xx_gen, irec, optimcycle, |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
60 |
CTRL_MAP_INI_GENTIM2D |
integer irec, jrec, krec |
|
./pkg/ctrl/ctrl_pack.F |
87 |
CTRL_PACK |
integer irec |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
100 |
CTRL_SET_GLOBFLD_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
103 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
106 |
CTRL_SET_GLOBFLD_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
52 |
CTRL_SET_GLOBFLD_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
97 |
CTRL_SET_GLOBFLD_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
47 |
CTRL_SET_GLOBFLD_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
80 |
CTRL_SET_GLOBFLD_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
83 |
CTRL_SET_GLOBFLD_XYZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
104 |
CTRL_SET_GLOBFLD_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
107 |
CTRL_SET_GLOBFLD_XZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
110 |
CTRL_SET_GLOBFLD_XZ |
do irec = nrec_nl*Ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
113 |
CTRL_SET_GLOBFLD_XZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
52 |
CTRL_SET_GLOBFLD_XZ |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
105 |
CTRL_SET_GLOBFLD_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
108 |
CTRL_SET_GLOBFLD_YZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
112 |
CTRL_SET_GLOBFLD_YZ |
do irec = nrec_nl*Nx+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
115 |
CTRL_SET_GLOBFLD_YZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
52 |
CTRL_SET_GLOBFLD_YZ |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
177 |
CTRL_SET_PACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
180 |
CTRL_SET_PACK_XY |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
182 |
CTRL_SET_PACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
270 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
273 |
CTRL_SET_PACK_XY |
& 1, globfld3d(1,1,1,1,1,1,1), irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
281 |
CTRL_SET_PACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
379 |
CTRL_SET_PACK_XY |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
449 |
CTRL_SET_PACK_XY |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
453 |
CTRL_SET_PACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
502 |
CTRL_SET_PACK_XY |
& 1, fld2dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
504 |
CTRL_SET_PACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
52 |
CTRL_SET_PACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
188 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
191 |
CTRL_SET_PACK_XYZ |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
199 |
CTRL_SET_PACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
292 |
CTRL_SET_PACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
364 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
368 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
421 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
423 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
55 |
CTRL_SET_PACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
185 |
CTRL_SET_PACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
187 |
CTRL_SET_PACK_XZ |
& nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
189 |
CTRL_SET_PACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
195 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
261 |
CTRL_SET_PACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
264 |
CTRL_SET_PACK_XZ |
& nr, globfldxz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
270 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
58 |
CTRL_SET_PACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
185 |
CTRL_SET_PACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
189 |
CTRL_SET_PACK_YZ |
& nr, globfld3D, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
192 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
198 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
263 |
CTRL_SET_PACK_YZ |
do irec = nrec_nl*nx+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
265 |
CTRL_SET_PACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
268 |
CTRL_SET_PACK_YZ |
& nr, globfldyz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
274 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
58 |
CTRL_SET_PACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
178 |
CTRL_SET_UNPACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
180 |
CTRL_SET_UNPACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
284 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
288 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
301 |
CTRL_SET_UNPACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
394 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
413 |
CTRL_SET_UNPACK_XY |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
483 |
CTRL_SET_UNPACK_XY |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
53 |
CTRL_SET_UNPACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
610 |
CTRL_SET_UNPACK_XY |
& 1, fld2dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
612 |
CTRL_SET_UNPACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
617 |
CTRL_SET_UNPACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
197 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
210 |
CTRL_SET_UNPACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
302 |
CTRL_SET_UNPACK_XYZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
321 |
CTRL_SET_UNPACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
393 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
523 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
525 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
530 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
55 |
CTRL_SET_UNPACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
190 |
CTRL_SET_UNPACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
193 |
CTRL_SET_UNPACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
272 |
CTRL_SET_UNPACK_XZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
278 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
280 |
CTRL_SET_UNPACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
292 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
353 |
CTRL_SET_UNPACK_XZ |
& Nr, globfldxz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
59 |
CTRL_SET_UNPACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
190 |
CTRL_SET_UNPACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
193 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
205 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
278 |
CTRL_SET_UNPACK_YZ |
do irec = nrec_nl*nx+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
280 |
CTRL_SET_UNPACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
292 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
347 |
CTRL_SET_UNPACK_YZ |
& Nr, globfldyz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
59 |
CTRL_SET_UNPACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_unpack.F |
90 |
CTRL_UNPACK |
integer irec |
|
./pkg/ecco/cost_averagesinit.F |
295 |
COST_AVERAGESINIT |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_averagesinit.F |
296 |
COST_AVERAGESINIT |
transpbar(irec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
62 |
COST_AVERAGESINIT |
integer irec |
|
./pkg/ecco/cost_bp_read.F |
102 |
COST_BP_READ |
& + irec |
|
./pkg/ecco/cost_bp_read.F |
106 |
COST_BP_READ |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_bp_read.F |
107 |
COST_BP_READ |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_bp_read.F |
10 |
COST_BP_READ |
I irec,myThid) |
|
./pkg/ecco/cost_bp_read.F |
46 |
COST_BP_READ |
integer irec |
|
./pkg/ecco/cost_gencal.F |
112 |
COST_GENCAL |
obsrec = irec |
|
./pkg/ecco/cost_gencal.F |
115 |
COST_GENCAL |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_gencal.F |
116 |
COST_GENCAL |
localrec = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_gencal.F |
12 |
COST_GENCAL |
I irec, localstartdate, localperiod, |
|
./pkg/ecco/cost_gencal.F |
43 |
COST_GENCAL |
integer mythid, irec, localstartdate(4) |
|
./pkg/ecco/cost_gencal.F |
86 |
COST_GENCAL |
localrec = irec |
|
./pkg/ecco/cost_gencal.F |
87 |
COST_GENCAL |
obsrec = irec |
|
./pkg/ecco/cost_gencal.F |
91 |
COST_GENCAL |
obsrec = irec |
|
./pkg/ecco/cost_gencal.F |
92 |
COST_GENCAL |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_gencal.F |
93 |
COST_GENCAL |
dayiter = hoursperday*(irec-1) + modeliter0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
103 |
COST_GENCOST_BOXMEAN |
do irec = 1,nrecloc |
|
./pkg/ecco/cost_gencost_boxmean.F |
107 |
COST_GENCOST_BOXMEAN |
call ACTIVE_READ_XY( myfname, mybar, irec, |
|
./pkg/ecco/cost_gencost_boxmean.F |
160 |
COST_GENCOST_BOXMEAN |
& 'boxmean/horflux :',irec,' ',tmpSumGlo |
|
./pkg/ecco/cost_gencost_boxmean.F |
51 |
COST_GENCOST_BOXMEAN |
integer nrecloc,irec,il,ioUnit |
|
./pkg/ecco/cost_gencost_bpv4.F |
154 |
COST_GENCOST_BPV4 |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_gencost_bpv4.F |
158 |
COST_GENCOST_BPV4 |
call ACTIVE_READ_XY( fname, locbpbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_bpv4.F |
168 |
COST_GENCOST_BPV4 |
& locbpdat, locbpmask, irec, mythid ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
209 |
COST_GENCOST_BPV4 |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_gencost_bpv4.F |
211 |
COST_GENCOST_BPV4 |
call ACTIVE_READ_XY( fname, locbpbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_bpv4.F |
221 |
COST_GENCOST_BPV4 |
& locbpdat, locbpmask, irec, mythid ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
284 |
COST_GENCOST_BPV4 |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
287 |
COST_GENCOST_BPV4 |
& 1,bpdatanom,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
303 |
COST_GENCOST_BPV4 |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
306 |
COST_GENCOST_BPV4 |
& 1,bpdatanom,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
51 |
COST_GENCOST_BPV4 |
integer irec |
|
./pkg/ecco/cost_gencost_glbmean.F |
135 |
COST_GENCOST_GLBMEAN |
do irec = 1, N1DDATA |
|
./pkg/ecco/cost_gencost_glbmean.F |
136 |
COST_GENCOST_GLBMEAN |
dataglbmean(irec) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
137 |
COST_GENCOST_GLBMEAN |
locmask(irec) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
140 |
COST_GENCOST_GLBMEAN |
do irec = 1, locnrec |
|
./pkg/ecco/cost_gencost_glbmean.F |
141 |
COST_GENCOST_GLBMEAN |
dataglbmean(irec) = gencost_1DDATA(irec,kgen) |
|
./pkg/ecco/cost_gencost_glbmean.F |
142 |
COST_GENCOST_GLBMEAN |
if ( gencost_1DDATA(irec,kgen).gt.gencost_spmin(kgen) .and. |
|
./pkg/ecco/cost_gencost_glbmean.F |
143 |
COST_GENCOST_GLBMEAN |
& gencost_1DDATA(irec,kgen).lt.gencost_spmax(kgen) .and. |
|
./pkg/ecco/cost_gencost_glbmean.F |
144 |
COST_GENCOST_GLBMEAN |
& gencost_1DDATA(irec,kgen).ne.gencost_spzero(kgen) ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
145 |
COST_GENCOST_GLBMEAN |
locmask(irec) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
146 |
COST_GENCOST_GLBMEAN |
meandataglbmean = meandataglbmean + dataglbmean(irec) |
|
./pkg/ecco/cost_gencost_glbmean.F |
154 |
COST_GENCOST_GLBMEAN |
do irec = 1, locnrec |
|
./pkg/ecco/cost_gencost_glbmean.F |
155 |
COST_GENCOST_GLBMEAN |
if(locmask(irec).EQ.1. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
156 |
COST_GENCOST_GLBMEAN |
dataglbmean(irec) = dataglbmean(irec) |
|
./pkg/ecco/cost_gencost_glbmean.F |
173 |
COST_GENCOST_GLBMEAN |
do irec = 1, locnrec |
|
./pkg/ecco/cost_gencost_glbmean.F |
175 |
COST_GENCOST_GLBMEAN |
if(locmask(irec) .NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
177 |
COST_GENCOST_GLBMEAN |
call ACTIVE_READ_XY( fname, locbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_glbmean.F |
216 |
COST_GENCOST_GLBMEAN |
do irec = 1, locnrec |
|
./pkg/ecco/cost_gencost_glbmean.F |
218 |
COST_GENCOST_GLBMEAN |
if(locmask(irec) .NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
219 |
COST_GENCOST_GLBMEAN |
call ACTIVE_READ_XY( fname, locbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_glbmean.F |
261 |
COST_GENCOST_GLBMEAN |
& ( locmask(irec) .NE. 0. _d 0 ) .AND. |
|
./pkg/ecco/cost_gencost_glbmean.F |
263 |
COST_GENCOST_GLBMEAN |
junk=locbarglbmean/locbarglbmean_sum - dataglbmean(irec) |
|
./pkg/ecco/cost_gencost_glbmean.F |
270 |
COST_GENCOST_GLBMEAN |
WRITE(msgBuf,'(A,i6,2e16.5)') gencost_name(kgen)(1:10),irec, |
|
./pkg/ecco/cost_gencost_glbmean.F |
271 |
COST_GENCOST_GLBMEAN |
& locbarglbmean/locbarglbmean_sum, dataglbmean(irec) |
|
./pkg/ecco/cost_gencost_glbmean.F |
52 |
COST_GENCOST_GLBMEAN |
integer irec |
|
./pkg/ecco/cost_gencost_seaicev4.F |
196 |
COST_GENCOST_SEAICEV4 |
do irec = 1, nrecloc |
|
./pkg/ecco/cost_gencost_seaicev4.F |
203 |
COST_GENCOST_SEAICEV4 |
if( dovarwei ) jrec = irec |
|
./pkg/ecco/cost_gencost_seaicev4.F |
235 |
COST_GENCOST_SEAICEV4 |
& irec,localstartdate,localperiod,fname1, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
237 |
COST_GENCOST_SEAICEV4 |
call COST_GENREAD(fname1,areabar,localtmp,irec,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
245 |
COST_GENCOST_SEAICEV4 |
& irec,localstartdate,localperiod,fname1, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
247 |
COST_GENCOST_SEAICEV4 |
call COST_GENREAD(fname1,deconcbar,localtmp,irec,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
256 |
COST_GENCOST_SEAICEV4 |
& irec,localstartdate,localperiod,fname1, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
258 |
COST_GENCOST_SEAICEV4 |
call COST_GENREAD(fname1,exconcbar,localtmp,irec,nnzbar, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
78 |
COST_GENCOST_SEAICEV4 |
integer irec, jrec |
|
./pkg/ecco/cost_gencost_sshv4.F |
1131 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1135 |
COST_GENCOST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1155 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1159 |
COST_GENCOST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1193 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs_SUB,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1197 |
COST_GENCOST_SSHV4 |
& 1,anom_slaobs_SUB,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1219 |
COST_GENCOST_SSHV4 |
krec = irec + (ndaysave/2) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1318 |
COST_GENCOST_SSHV4 |
& 1,anom_psMtpobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1321 |
COST_GENCOST_SSHV4 |
& 1,anom_tpobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1327 |
COST_GENCOST_SSHV4 |
& 1,anom_psMersobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1330 |
COST_GENCOST_SSHV4 |
& 1,anom_ersobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1336 |
COST_GENCOST_SSHV4 |
& 1,anom_psMgfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1339 |
COST_GENCOST_SSHV4 |
& 1,anom_gfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
535 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gencost_sshv4.F |
538 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, etaday, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
569 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
574 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
579 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
71 |
COST_GENCOST_SSHV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_sshv4.F |
914 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec-ndaysave+1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
936 |
COST_GENCOST_SSHV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
170 |
COST_GENCOST_SSTV4 |
do irec = 1, ndaysrec-ndaysave+1, 7 |
|
./pkg/ecco/cost_gencost_sstv4.F |
190 |
COST_GENCOST_SSTV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
294 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
298 |
COST_GENCOST_SSTV4 |
& 1,obs_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
314 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
318 |
COST_GENCOST_SSTV4 |
& 1,obs_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
348 |
COST_GENCOST_SSTV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gencost_sstv4.F |
352 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, mybar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
360 |
COST_GENCOST_SSTV4 |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_gencost_sstv4.F |
361 |
COST_GENCOST_SSTV4 |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
430 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
56 |
COST_GENCOST_SSTV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_transp.F |
203 |
COST_GENCOST_TRANSP |
do irec = 1,nrecloc |
|
./pkg/ecco/cost_gencost_transp.F |
214 |
COST_GENCOST_TRANSP |
& irec,localstartdate,localperiod,fname1, |
|
./pkg/ecco/cost_gencost_transp.F |
216 |
COST_GENCOST_TRANSP |
call COST_GENREAD(fname1,mybar,localtmp,irec,nnzbar, |
|
./pkg/ecco/cost_gencost_transp.F |
278 |
COST_GENCOST_TRANSP |
& irec,' ',tmpMeanGlo,tmpNumGlo |
|
./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 |
331 |
COST_GENLOOP |
do irec = 1, nrecloop |
|
./pkg/ecco/cost_generic.F |
336 |
COST_GENLOOP |
if( dovarwei ) jrec = irec |
|
./pkg/ecco/cost_generic.F |
347 |
COST_GENLOOP |
& irec, localstartdate, localperiod, fname1, |
|
./pkg/ecco/cost_generic.F |
352 |
COST_GENLOOP |
call COST_GENREAD( fname1, localbar, localtmp, irec, nnzbar, |
|
./pkg/ecco/cost_generic.F |
394 |
COST_GENLOOP |
& WRITE_REC_XY_RL( fname3, localdif,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
396 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL( fname3, localdif,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
430 |
COST_GENLOOP |
& WRITE_REC_XY_RL( fname3, localweight,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_generic.F |
432 |
COST_GENLOOP |
& WRITE_REC_XYZ_RL( fname3, localweight,irec, eccoiter, mythid ) |
|
./pkg/ecco/cost_genread.F |
66 |
COST_GENREAD |
nyearsINT=int((nrecloc-irec)/preproc_i(1))+1 |
|
./pkg/ecco/cost_genread.F |
72 |
COST_GENREAD |
imon=irec+(iyear-1)*preproc_i(1) |
|
./pkg/ecco/cost_genread.F |
82 |
COST_GENREAD |
& irec, nnzbar, dummy, mythid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
190 |
COST_OBCS_AGEOS |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcs_ageos.F |
193 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
199 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
205 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
211 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
507 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_obcs_ageos.F |
530 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec = ',irec |
|
./pkg/ecco/cost_obcs_ageos.F |
71 |
COST_OBCS_AGEOS |
integer irec |
|
./pkg/ecco/cost_obcse.F |
155 |
COST_OBCSE |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcse.F |
157 |
COST_OBCSE |
call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread, |
|
./pkg/ecco/cost_obcse.F |
162 |
COST_OBCSE |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcse.F |
164 |
COST_OBCSE |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcse.F |
205 |
COST_OBCSE |
& ' cost_obcse: irec = ',irec |
|
./pkg/ecco/cost_obcse.F |
83 |
COST_OBCSE |
integer irec |
|
./pkg/ecco/cost_obcsn.F |
153 |
COST_OBCSN |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcsn.F |
155 |
COST_OBCSN |
call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread, |
|
./pkg/ecco/cost_obcsn.F |
160 |
COST_OBCSN |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsn.F |
162 |
COST_OBCSN |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsn.F |
204 |
COST_OBCSN |
& ' cost_obcsn: irec = ',irec |
|
./pkg/ecco/cost_obcsn.F |
83 |
COST_OBCSN |
integer irec |
|
./pkg/ecco/cost_obcss.F |
153 |
COST_OBCSS |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcss.F |
155 |
COST_OBCSS |
call ACTIVE_READ_XZ( fnamefld, tmpfield, irec, doglobalread, |
|
./pkg/ecco/cost_obcss.F |
160 |
COST_OBCSS |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcss.F |
162 |
COST_OBCSS |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcss.F |
206 |
COST_OBCSS |
& ' cost_obcss: irec = ',irec |
|
./pkg/ecco/cost_obcss.F |
83 |
COST_OBCSS |
integer irec |
|
./pkg/ecco/cost_obcsvol.F |
184 |
COST_OBCSVOL |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcsvol.F |
188 |
COST_OBCSVOL |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsvol.F |
190 |
COST_OBCSVOL |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsvol.F |
196 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnamefldn, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
239 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnameflds, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
282 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
325 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
70 |
COST_OBCSVOL |
integer irec |
|
./pkg/ecco/cost_obcsw.F |
153 |
COST_OBCSW |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcsw.F |
155 |
COST_OBCSW |
call ACTIVE_READ_YZ( fnamefld, tmpfield, irec, doglobalread, |
|
./pkg/ecco/cost_obcsw.F |
160 |
COST_OBCSW |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsw.F |
162 |
COST_OBCSW |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
& ' cost_obcsw: irec = ',irec |
|
./pkg/ecco/cost_obcsw.F |
83 |
COST_OBCSW |
integer irec |
|
./pkg/ecco/cost_sla_read.F |
10 |
COST_SLA_READ |
I irec, mythid ) |
|
./pkg/ecco/cost_sla_read.F |
168 |
COST_SLA_READ |
& ( sla_intercept + sla_slope*irec*hoursperday ) ) |
|
./pkg/ecco/cost_sla_read.F |
38 |
COST_SLA_READ |
integer irec |
|
./pkg/ecco/cost_sla_read.F |
97 |
COST_SLA_READ |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_sla_read.F |
98 |
COST_SLA_READ |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_ssh.F |
166 |
COST_SSH |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh.F |
169 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
274 |
COST_SSH |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh.F |
276 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
284 |
COST_SSH |
& irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
291 |
COST_SSH |
& irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
298 |
COST_SSH |
& irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
72 |
COST_SSH |
integer irec |
|
./pkg/ecco/ecco_check.F |
712 |
ECCO_CHECK_FILES |
INTEGER irec, mody, modm, yday, locy, il |
|
./pkg/ecco/ecco_check.F |
748 |
ECCO_CHECK_FILES |
DO irec = 1, nmonsrec |
|
./pkg/ecco/ecco_check.F |
751 |
ECCO_CHECK_FILES |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
167 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
169 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamepsbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
185 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
187 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamebpbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
202 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
204 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamesigmaRbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
223 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
225 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
237 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
239 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
255 |
ECCO_COST_INIT_BARFILES |
do irec = 1,ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
257 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesstbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
276 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
278 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
291 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
293 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
318 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
320 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
322 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
336 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
338 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
360 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
362 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
365 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauxbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
367 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauybar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
382 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nyearsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
384 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamehfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
398 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nyearsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
400 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
412 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
414 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnameiestaubar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
448 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
450 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrareabar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
452 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrsstbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
454 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrsssbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
476 |
ECCO_COST_INIT_BARFILES |
do irec = 1,gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
479 |
ECCO_COST_INIT_BARFILES |
& call ACTIVE_WRITE_XY( adfname_gencostbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
482 |
ECCO_COST_INIT_BARFILES |
& call ACTIVE_WRITE_XYZ( adfname_gencostbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
66 |
ECCO_COST_INIT_BARFILES |
integer ilps, ils, ilt, irec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
241 |
ECCO_COST_INIT_FIXED |
do irec = 1, N1DDATA |
|
./pkg/ecco/ecco_cost_init_fixed.F |
242 |
ECCO_COST_INIT_FIXED |
gencost_1DDATA(irec,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
259 |
ECCO_COST_INIT_FIXED |
do irec = 1, gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
260 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) gencost_1DDATA(irec,k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
301 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
302 |
ECCO_COST_INIT_FIXED |
wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
303 |
ECCO_COST_INIT_FIXED |
transpobs(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
315 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
320 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) transpobs(irec), dummy, wtransp(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
322 |
ECCO_COST_INIT_FIXED |
if ( wtransp(irec) .NE. 0. ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
323 |
ECCO_COST_INIT_FIXED |
& wtransp(irec) =1.0/(wtransp(irec)*wtransp(irec)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
325 |
ECCO_COST_INIT_FIXED |
if ( transpobs(irec) .EQ. missingObsFlag ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
326 |
ECCO_COST_INIT_FIXED |
& wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
336 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
337 |
ECCO_COST_INIT_FIXED |
tpTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
338 |
ECCO_COST_INIT_FIXED |
ersTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
339 |
ECCO_COST_INIT_FIXED |
gfoTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
353 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
354 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) tpTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
368 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
369 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) ersTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
383 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
384 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) gfoTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
389 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
391 |
ECCO_COST_INIT_FIXED |
& ( tpTimeMask(irec).NE.0. .AND. tpTimeMask(irec).NE.1. ) .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
392 |
ECCO_COST_INIT_FIXED |
& ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
393 |
ECCO_COST_INIT_FIXED |
& ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
397 |
ECCO_COST_INIT_FIXED |
& 'for irec (=day) ', irec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
69 |
ECCO_COST_INIT_FIXED |
integer irec |