| File |
Line number |
Procedure |
Code |
|
./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 |
40 |
GRDCHK_GET_OBCS_MASK |
integer irec,iobcs |
|
./pkg/grdchk/grdchk_get_position.F |
116 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
117 |
GRDCHK_GET_POSITION |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_get_position.F |
127 |
GRDCHK_GET_POSITION |
icvrec = irec |
|
./pkg/grdchk/grdchk_get_position.F |
185 |
GRDCHK_GET_POSITION |
& irec .EQ. icvrec ) then |
|
./pkg/grdchk/grdchk_get_position.F |
56 |
GRDCHK_GET_POSITION |
integer irec, irecwrk |
|
./pkg/grdchk/grdchk_init.F |
42 |
GRDCHK_INIT |
integer irec |
|
./pkg/grdchk/grdchk_loc.F |
157 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
159 |
GRDCHK_LOC |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_loc.F |
185 |
GRDCHK_LOC |
icvrec = irec |
|
./pkg/grdchk/grdchk_loc.F |
80 |
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 |
1023 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1031 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1046 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1105 |
MDSREADFIELD_2D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1107 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1117 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1346 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1356 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1366 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1439 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1454 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1469 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
262 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
267 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
270 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
344 |
MDSREADFIELD_3D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
346 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
356 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
583 |
MDSWRITEFIELD_3D_GL |
irec=k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
603 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
691 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
706 |
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 |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
171 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
173 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
398 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
400 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
415 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
608 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
623 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
638 |
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 |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
836 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
851 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
866 |
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 |
280 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
282 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
287 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
417 |
MDS_READ_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx |
|
./pkg/mdsio/mdsio_read_field.F |
423 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
425 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
471 |
MDS_READ_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_read_field.F |
475 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
477 |
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 |
135 |
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 |
59 |
MDS_READ_WHALOS |
integer irec |
|
./pkg/mdsio/mdsio_readvector.F |
188 |
MDSREADVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_readvector.F |
193 |
MDSREADVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_readvector.F |
197 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
200 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
285 |
MDSREADVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_readvector.F |
287 |
MDSREADVECTOR |
READ(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_readvector.F |
299 |
MDSREADVECTOR |
READ(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
129 |
MDS_WRITE_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
319 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
324 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
329 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
453 |
MDS_WRITE_FIELD |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_write_field.F |
459 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
461 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
485 |
MDS_WRITE_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_write_field.F |
489 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
491 |
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 |
155 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
16 |
MDS_WRITE_WHALOS |
I irec, |
|
./pkg/mdsio/mdsio_write_whalos.F |
59 |
MDS_WRITE_WHALOS |
integer irec |
|
./pkg/mdsio/mdsio_writelocal.F |
116 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
329 |
MDS_WRITELOCAL |
irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx |
|
./pkg/mdsio/mdsio_writelocal.F |
335 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
337 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
361 |
MDS_WRITELOCAL |
irec = irecord |
|
./pkg/mdsio/mdsio_writelocal.F |
365 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
367 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writevector.F |
175 |
MDSWRITEVECTOR |
irec=irecord |
|
./pkg/mdsio/mdsio_writevector.F |
187 |
MDSWRITEVECTOR |
WRITE(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_writevector.F |
199 |
MDSWRITEVECTOR |
WRITE(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_writevector.F |
280 |
MDSWRITEVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_writevector.F |
285 |
MDSWRITEVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_writevector.F |
289 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
292 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
69 |
MDSWRITEVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/profiles/active_file_control_profiles.F |
126 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
140 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
156 |
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 |
178 |
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 |
204 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
214 |
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 |
245 |
ACTIVE_WRITE_PROFILE_RL |
I irec, |
|
./pkg/profiles/active_file_control_profiles.F |
275 |
ACTIVE_WRITE_PROFILE_RL |
integer ivar, irec, irecglob,active_varnum |
|
./pkg/profiles/active_file_control_profiles.F |
303 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
330 |
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 |
340 |
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 |
362 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
376 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
387 |
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 |
410 |
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 |
432 |
ACTIVE_WRITE_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
450 |
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 |
53 |
ACTIVE_READ_PROFILE_RL |
integer irec, irecglob,active_varnum |
|
./pkg/profiles/active_file_control_profiles.F |
75 |
ACTIVE_READ_PROFILE_RL |
vec_start(2)=irec |
|
./pkg/profiles/active_file_control_profiles.F |
90 |
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 |
99 |
ACTIVE_READ_PROFILE_RL |
read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj) |
|
./pkg/profiles/active_file_profiles.F |
129 |
ACTIVE_WRITE_PROFILE |
integer irec |
|
./pkg/profiles/active_file_profiles.F |
139 |
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 |
64 |
ACTIVE_READ_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles.F |
75 |
ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles.F |
94 |
ACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_ad.F |
126 |
ADACTIVE_WRITE_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_ad.F |
139 |
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 |
62 |
ADACTIVE_READ_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_ad.F |
72 |
ADACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_ad.F |
89 |
ADACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_g.F |
101 |
G_ACTIVE_WRITE_PROFILE |
I irec, |
|
./pkg/profiles/active_file_profiles_g.F |
137 |
G_ACTIVE_WRITE_PROFILE |
integer irec,active_varnum |
|
./pkg/profiles/active_file_profiles_g.F |
148 |
G_ACTIVE_WRITE_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
154 |
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 |
66 |
G_ACTIVE_READ_PROFILE |
integer irec,active_varnum,active_num_file |
|
./pkg/profiles/active_file_profiles_g.F |
77 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/active_file_profiles_g.F |
83 |
G_ACTIVE_READ_PROFILE |
& irec, prof_ind_glob(active_num_file,irec,bi,bj), |
|
./pkg/profiles/profiles_init_ncfile.F |
31 |
PROFILES_INIT_NCFILE |
integer irec, num_var,num_file |
|
./pkg/profiles/profiles_init_ncfile.F |
76 |
PROFILES_INIT_NCFILE |
do irec=1,Zlength+1 |
|
./pkg/profiles/profiles_init_ncfile.F |
77 |
PROFILES_INIT_NCFILE |
tmp_vec(irec)=0 |
|
./pkg/profiles/profiles_init_ncfile.F |
82 |
PROFILES_INIT_NCFILE |
do irec=length,1,-1 |
|
./pkg/profiles/profiles_init_ncfile.F |
84 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
86 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
112 |
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 |
28 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
40 |
PROFILES_READVECTOR |
if ( (irec.LT.profiles_minind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
41 |
PROFILES_READVECTOR |
& (irec.GT.profiles_maxind_buff(bi,bj)).OR. |
|
./pkg/profiles/profiles_readvector.F |
48 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-500+1) |
|
./pkg/profiles/profiles_readvector.F |
49 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500) |
|
./pkg/profiles/profiles_readvector.F |
50 |
PROFILES_READVECTOR |
elseif (irec.LT.profiles_minind_buff(bi,bj)) then |
|
./pkg/profiles/profiles_readvector.F |
52 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=max(1,irec-999) |
|
./pkg/profiles/profiles_readvector.F |
53 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
56 |
PROFILES_READVECTOR |
profiles_minind_buff(bi,bj)=irec |
|
./pkg/profiles/profiles_readvector.F |
57 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999) |
|
./pkg/profiles/profiles_readvector.F |
63 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/seaice/seaice_cost_concentration.F |
153 |
SEAICE_COST_CONCENTRATION |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_concentration.F |
156 |
SEAICE_COST_CONCENTRATION |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_concentration.F |
160 |
SEAICE_COST_CONCENTRATION |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_concentration.F |
166 |
SEAICE_COST_CONCENTRATION |
obsrec = irec |
|
./pkg/seaice/seaice_cost_concentration.F |
168 |
SEAICE_COST_CONCENTRATION |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_concentration.F |
169 |
SEAICE_COST_CONCENTRATION |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_concentration.F |
78 |
SEAICE_COST_CONCENTRATION |
integer irec |
|
./pkg/seaice/seaice_cost_sss.F |
160 |
SEAICE_COST_SSS |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_sss.F |
163 |
SEAICE_COST_SSS |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
167 |
SEAICE_COST_SSS |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
174 |
SEAICE_COST_SSS |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
178 |
SEAICE_COST_SSS |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sss.F |
184 |
SEAICE_COST_SSS |
obsrec = irec |
|
./pkg/seaice/seaice_cost_sss.F |
186 |
SEAICE_COST_SSS |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_sss.F |
187 |
SEAICE_COST_SSS |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_sss.F |
79 |
SEAICE_COST_SSS |
integer irec |
|
./pkg/seaice/seaice_cost_sst.F |
156 |
SEAICE_COST_SST |
do irec = 1, nrecloc |
|
./pkg/seaice/seaice_cost_sst.F |
159 |
SEAICE_COST_SST |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
163 |
SEAICE_COST_SST |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
169 |
SEAICE_COST_SST |
call ACTIVE_READ_XY( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
173 |
SEAICE_COST_SST |
call ACTIVE_READ_XYZ( fname3, areabar, irec, doglobalread, |
|
./pkg/seaice/seaice_cost_sst.F |
179 |
SEAICE_COST_SST |
obsrec = irec |
|
./pkg/seaice/seaice_cost_sst.F |
181 |
SEAICE_COST_SST |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/seaice/seaice_cost_sst.F |
182 |
SEAICE_COST_SST |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/seaice/seaice_cost_sst.F |
77 |
SEAICE_COST_SST |
integer irec |
|
./pkg/seaice/seaice_cost_weights.F |
102 |
SEAICE_COST_WEIGHTS |
& wsmrarea, irec, 0, mythid ) |
|
./pkg/seaice/seaice_cost_weights.F |
48 |
SEAICE_COST_WEIGHTS |
integer irec,nnz |
|
./pkg/seaice/seaice_cost_weights.F |
97 |
SEAICE_COST_WEIGHTS |
irec = 1 |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
69 |
CTRL_PACK |
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/global1x1_tot/code/ecco_cost_weights.F |
504 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
506 |
ECCO_COST_WEIGHTS |
& wp, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
554 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
556 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
56 |
ECCO_COST_WEIGHTS |
integer irec,nnz |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
612 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
614 |
ECCO_COST_WEIGHTS |
& wscatx, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
616 |
ECCO_COST_WEIGHTS |
& wscaty, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
667 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
700 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
704 |
ECCO_COST_WEIGHTS |
& wtauu, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
747 |
ECCO_COST_WEIGHTS |
& wuwind, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
774 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
779 |
ECCO_COST_WEIGHTS |
& wtauv, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
817 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
822 |
ECCO_COST_WEIGHTS |
& wvwind, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
850 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
854 |
ECCO_COST_WEIGHTS |
& whflux, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
886 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
890 |
ECCO_COST_WEIGHTS |
& watemp, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
918 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
922 |
ECCO_COST_WEIGHTS |
& wsflux, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
954 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
958 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
502 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
504 |
ECCO_COST_WEIGHTS |
& wp, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
552 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
554 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
55 |
ECCO_COST_WEIGHTS |
integer irec,nnz |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
608 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
610 |
ECCO_COST_WEIGHTS |
& wscatx, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
612 |
ECCO_COST_WEIGHTS |
& wscaty, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
663 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
696 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
700 |
ECCO_COST_WEIGHTS |
& wtauu, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
739 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
743 |
ECCO_COST_WEIGHTS |
& wuwind, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
770 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
775 |
ECCO_COST_WEIGHTS |
& wtauv, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
813 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
818 |
ECCO_COST_WEIGHTS |
& wvwind, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
846 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
850 |
ECCO_COST_WEIGHTS |
& whflux, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
882 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
886 |
ECCO_COST_WEIGHTS |
& watemp, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
914 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
918 |
ECCO_COST_WEIGHTS |
& wsflux, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
950 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
954 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./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 |
74 |
ADMTLM_DSVD2MODEL |
integer irec |
|
./pkg/admtlm/admtlm_model2dsvd.F |
71 |
ADMTLM_MODEL2DSVD |
integer irec |
|
./pkg/autodiff/active_file.F |
100 |
ACTIVE_READ_XY |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file.F |
114 |
ACTIVE_READ_XYZ |
I irec, |
|
./pkg/autodiff/active_file.F |
153 |
ACTIVE_READ_XYZ |
integer irec |
|
./pkg/autodiff/active_file.F |
169 |
ACTIVE_READ_XYZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file.F |
184 |
ACTIVE_READ_XZ |
I irec, |
|
./pkg/autodiff/active_file.F |
223 |
ACTIVE_READ_XZ |
integer irec |
|
./pkg/autodiff/active_file.F |
239 |
ACTIVE_READ_XZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file.F |
254 |
ACTIVE_READ_YZ |
I irec, |
|
./pkg/autodiff/active_file.F |
293 |
ACTIVE_READ_YZ |
integer irec |
|
./pkg/autodiff/active_file.F |
309 |
ACTIVE_READ_YZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file.F |
323 |
ACTIVE_WRITE_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
355 |
ACTIVE_WRITE_XY |
integer irec |
|
./pkg/autodiff/active_file.F |
372 |
ACTIVE_WRITE_XY |
& irec, mynr, |
|
./pkg/autodiff/active_file.F |
386 |
ACTIVE_WRITE_XYZ |
I irec, |
|
./pkg/autodiff/active_file.F |
418 |
ACTIVE_WRITE_XYZ |
integer irec |
|
./pkg/autodiff/active_file.F |
434 |
ACTIVE_WRITE_XYZ |
& irec, mynr, |
|
./pkg/autodiff/active_file.F |
448 |
ACTIVE_WRITE_XZ |
I irec, |
|
./pkg/autodiff/active_file.F |
45 |
ACTIVE_READ_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
480 |
ACTIVE_WRITE_XZ |
integer irec |
|
./pkg/autodiff/active_file.F |
497 |
ACTIVE_WRITE_XZ |
& irec, mynr, |
|
./pkg/autodiff/active_file.F |
511 |
ACTIVE_WRITE_YZ |
I irec, |
|
./pkg/autodiff/active_file.F |
543 |
ACTIVE_WRITE_YZ |
integer irec |
|
./pkg/autodiff/active_file.F |
560 |
ACTIVE_WRITE_YZ |
& irec, mynr, |
|
./pkg/autodiff/active_file.F |
571 |
ACTIVE_READ_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
613 |
ACTIVE_READ_TILE_XY |
integer irec |
|
./pkg/autodiff/active_file.F |
633 |
ACTIVE_READ_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
649 |
ACTIVE_READ_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file.F |
691 |
ACTIVE_READ_TILE_XYZ |
integer irec |
|
./pkg/autodiff/active_file.F |
712 |
ACTIVE_READ_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file.F |
728 |
ACTIVE_WRITE_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
768 |
ACTIVE_WRITE_TILE_XY |
integer irec |
|
./pkg/autodiff/active_file.F |
788 |
ACTIVE_WRITE_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file.F |
804 |
ACTIVE_WRITE_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file.F |
844 |
ACTIVE_WRITE_TILE_XYZ |
integer irec |
|
./pkg/autodiff/active_file.F |
84 |
ACTIVE_READ_XY |
integer irec |
|
./pkg/autodiff/active_file.F |
863 |
ACTIVE_WRITE_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
118 |
ADACTIVE_READ_XY |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
129 |
ADACTIVE_READ_XYZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
140 |
ADACTIVE_READ_XYZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
176 |
ADACTIVE_READ_XYZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
205 |
ADACTIVE_READ_XYZ |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
216 |
ADACTIVE_READ_XZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
227 |
ADACTIVE_READ_XZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
263 |
ADACTIVE_READ_XZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
292 |
ADACTIVE_READ_XZ |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
303 |
ADACTIVE_READ_YZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
314 |
ADACTIVE_READ_YZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
350 |
ADACTIVE_READ_YZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
379 |
ADACTIVE_READ_YZ |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
390 |
ADACTIVE_WRITE_XY |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
400 |
ADACTIVE_WRITE_XY |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
41 |
ADACTIVE_READ_XY |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
432 |
ADACTIVE_WRITE_XY |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
463 |
ADACTIVE_WRITE_XY |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
474 |
ADACTIVE_WRITE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
484 |
ADACTIVE_WRITE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
516 |
ADACTIVE_WRITE_XYZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
52 |
ADACTIVE_READ_XY |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
547 |
ADACTIVE_WRITE_XYZ |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
558 |
ADACTIVE_WRITE_XZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
568 |
ADACTIVE_WRITE_XZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
599 |
ADACTIVE_WRITE_XZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
630 |
ADACTIVE_WRITE_XZ |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
641 |
ADACTIVE_WRITE_YZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
651 |
ADACTIVE_WRITE_YZ |
I irec, |
|
./pkg/autodiff/active_file_ad.F |
683 |
ADACTIVE_WRITE_YZ |
integer irec |
|
./pkg/autodiff/active_file_ad.F |
714 |
ADACTIVE_WRITE_YZ |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_ad.F |
89 |
ADACTIVE_READ_XY |
integer irec |
|
./pkg/autodiff/active_file_control.F |
140 |
ACTIVE_READ_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
167 |
ACTIVE_READ_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
191 |
ACTIVE_READ_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
217 |
ACTIVE_READ_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
253 |
ACTIVE_READ_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
275 |
ACTIVE_WRITE_RL |
I irec, |
|
./pkg/autodiff/active_file_control.F |
318 |
ACTIVE_WRITE_RL |
integer irec |
|
./pkg/autodiff/active_file_control.F |
355 |
ACTIVE_WRITE_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
377 |
ACTIVE_WRITE_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
402 |
ACTIVE_WRITE_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
40 |
ACTIVE_READ_RL |
I irec, |
|
./pkg/autodiff/active_file_control.F |
425 |
ACTIVE_WRITE_RL |
& irec, |
|
./pkg/autodiff/active_file_control.F |
447 |
ACTIVE_READ_TILE_RL |
I irec, |
|
./pkg/autodiff/active_file_control.F |
507 |
ACTIVE_READ_TILE_RL |
integer irec |
|
./pkg/autodiff/active_file_control.F |
569 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
593 |
ACTIVE_READ_TILE_RL |
& mynr, active_var, irec, mythid ) |
|
./pkg/autodiff/active_file_control.F |
610 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
635 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
659 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
704 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
728 |
ACTIVE_READ_TILE_RL |
& mynr, active_var, irec, mythid ) |
|
./pkg/autodiff/active_file_control.F |
748 |
ACTIVE_WRITE_TILE_RL |
I irec, |
|
./pkg/autodiff/active_file_control.F |
803 |
ACTIVE_WRITE_TILE_RL |
integer irec |
|
./pkg/autodiff/active_file_control.F |
856 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
86 |
ACTIVE_READ_RL |
integer irec |
|
./pkg/autodiff/active_file_control.F |
880 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
902 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
938 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control_slice.F |
126 |
ACTIVE_READ_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
151 |
ACTIVE_READ_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
175 |
ACTIVE_READ_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
199 |
ACTIVE_READ_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
233 |
ACTIVE_READ_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
254 |
ACTIVE_WRITE_XZ_RL |
I irec, |
|
./pkg/autodiff/active_file_control_slice.F |
288 |
ACTIVE_WRITE_XZ_RL |
integer irec |
|
./pkg/autodiff/active_file_control_slice.F |
31 |
ACTIVE_READ_XZ_RL |
I irec, |
|
./pkg/autodiff/active_file_control_slice.F |
324 |
ACTIVE_WRITE_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
346 |
ACTIVE_WRITE_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
369 |
ACTIVE_WRITE_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
392 |
ACTIVE_WRITE_XZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
415 |
ACTIVE_READ_YZ_RL |
I irec, |
|
./pkg/autodiff/active_file_control_slice.F |
453 |
ACTIVE_READ_YZ_RL |
integer irec |
|
./pkg/autodiff/active_file_control_slice.F |
510 |
ACTIVE_READ_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
535 |
ACTIVE_READ_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
559 |
ACTIVE_READ_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
583 |
ACTIVE_READ_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
617 |
ACTIVE_READ_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
638 |
ACTIVE_WRITE_YZ_RL |
I irec, |
|
./pkg/autodiff/active_file_control_slice.F |
672 |
ACTIVE_WRITE_YZ_RL |
integer irec |
|
./pkg/autodiff/active_file_control_slice.F |
69 |
ACTIVE_READ_XZ_RL |
integer irec |
|
./pkg/autodiff/active_file_control_slice.F |
708 |
ACTIVE_WRITE_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
730 |
ACTIVE_WRITE_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
753 |
ACTIVE_WRITE_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_control_slice.F |
776 |
ACTIVE_WRITE_YZ_RL |
& irec, |
|
./pkg/autodiff/active_file_g.F |
112 |
G_ACTIVE_READ_XY |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
116 |
G_ACTIVE_READ_XY |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
131 |
G_ACTIVE_READ_XYZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
171 |
G_ACTIVE_READ_XYZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
197 |
G_ACTIVE_READ_XYZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
201 |
G_ACTIVE_READ_XYZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
217 |
G_ACTIVE_READ_XZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
257 |
G_ACTIVE_READ_XZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
283 |
G_ACTIVE_READ_XZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
287 |
G_ACTIVE_READ_XZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
303 |
G_ACTIVE_READ_YZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
343 |
G_ACTIVE_READ_YZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
369 |
G_ACTIVE_READ_YZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
373 |
G_ACTIVE_READ_YZ |
& lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
388 |
G_ACTIVE_WRITE_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
422 |
G_ACTIVE_WRITE_XY |
integer irec |
|
./pkg/autodiff/active_file_g.F |
449 |
G_ACTIVE_WRITE_XY |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
453 |
G_ACTIVE_WRITE_XY |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
468 |
G_ACTIVE_WRITE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
46 |
G_ACTIVE_READ_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
502 |
G_ACTIVE_WRITE_XYZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
529 |
G_ACTIVE_WRITE_XYZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
533 |
G_ACTIVE_WRITE_XYZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
548 |
G_ACTIVE_WRITE_XZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
582 |
G_ACTIVE_WRITE_XZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
609 |
G_ACTIVE_WRITE_XZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
613 |
G_ACTIVE_WRITE_XZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
628 |
G_ACTIVE_WRITE_YZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
662 |
G_ACTIVE_WRITE_YZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
689 |
G_ACTIVE_WRITE_YZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
693 |
G_ACTIVE_WRITE_YZ |
& irec, mynr, |
|
./pkg/autodiff/active_file_g.F |
704 |
G_ACTIVE_READ_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
746 |
G_ACTIVE_READ_TILE_XY |
integer irec |
|
./pkg/autodiff/active_file_g.F |
766 |
G_ACTIVE_READ_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
782 |
G_ACTIVE_READ_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
824 |
G_ACTIVE_READ_TILE_XYZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
845 |
G_ACTIVE_READ_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
861 |
G_ACTIVE_WRITE_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
86 |
G_ACTIVE_READ_XY |
integer irec |
|
./pkg/autodiff/active_file_g.F |
901 |
G_ACTIVE_WRITE_TILE_XY |
integer irec |
|
./pkg/autodiff/active_file_g.F |
921 |
G_ACTIVE_WRITE_TILE_XY |
I irec, |
|
./pkg/autodiff/active_file_g.F |
937 |
G_ACTIVE_WRITE_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_g.F |
977 |
G_ACTIVE_WRITE_TILE_XYZ |
integer irec |
|
./pkg/autodiff/active_file_g.F |
996 |
G_ACTIVE_WRITE_TILE_XYZ |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
113 |
ACTIVE_READ_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
150 |
ACTIVE_READ_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
166 |
ACTIVE_READ_XYZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
181 |
ACTIVE_READ_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
218 |
ACTIVE_READ_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
234 |
ACTIVE_READ_XZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
249 |
ACTIVE_READ_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
286 |
ACTIVE_READ_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
302 |
ACTIVE_READ_YZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
316 |
ACTIVE_WRITE_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
346 |
ACTIVE_WRITE_XY_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
363 |
ACTIVE_WRITE_XY_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
377 |
ACTIVE_WRITE_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
407 |
ACTIVE_WRITE_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
423 |
ACTIVE_WRITE_XYZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
437 |
ACTIVE_WRITE_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
467 |
ACTIVE_WRITE_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
46 |
ACTIVE_READ_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
484 |
ACTIVE_WRITE_XZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
498 |
ACTIVE_WRITE_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc.F |
528 |
ACTIVE_WRITE_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
545 |
ACTIVE_WRITE_YZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc.F |
83 |
ACTIVE_READ_XY_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc.F |
99 |
ACTIVE_READ_XY_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
118 |
ADACTIVE_READ_XY_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
129 |
ADACTIVE_READ_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
140 |
ADACTIVE_READ_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
176 |
ADACTIVE_READ_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
205 |
ADACTIVE_READ_XYZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
216 |
ADACTIVE_READ_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
227 |
ADACTIVE_READ_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
263 |
ADACTIVE_READ_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
292 |
ADACTIVE_READ_XZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
303 |
ADACTIVE_READ_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
314 |
ADACTIVE_READ_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
350 |
ADACTIVE_READ_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
379 |
ADACTIVE_READ_YZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
390 |
ADACTIVE_WRITE_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
400 |
ADACTIVE_WRITE_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
41 |
ADACTIVE_READ_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
431 |
ADACTIVE_WRITE_XY_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
462 |
ADACTIVE_WRITE_XY_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
473 |
ADACTIVE_WRITE_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
483 |
ADACTIVE_WRITE_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
514 |
ADACTIVE_WRITE_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
52 |
ADACTIVE_READ_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
545 |
ADACTIVE_WRITE_XYZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
556 |
ADACTIVE_WRITE_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
566 |
ADACTIVE_WRITE_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
597 |
ADACTIVE_WRITE_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
628 |
ADACTIVE_WRITE_XZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
639 |
ADACTIVE_WRITE_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
649 |
ADACTIVE_WRITE_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_ad.F |
680 |
ADACTIVE_WRITE_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_ad.F |
711 |
ADACTIVE_WRITE_YZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_ad.F |
89 |
ADACTIVE_READ_XY_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control.F |
126 |
ACTIVE_READ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
153 |
ACTIVE_READ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
177 |
ACTIVE_READ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
203 |
ACTIVE_READ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
239 |
ACTIVE_READ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
261 |
ACTIVE_WRITE_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control.F |
300 |
ACTIVE_WRITE_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control.F |
30 |
ACTIVE_READ_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control.F |
337 |
ACTIVE_WRITE_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
359 |
ACTIVE_WRITE_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
384 |
ACTIVE_WRITE_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
407 |
ACTIVE_WRITE_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control.F |
72 |
ACTIVE_READ_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control_slice.F |
122 |
ACTIVE_READ_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
147 |
ACTIVE_READ_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
171 |
ACTIVE_READ_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
195 |
ACTIVE_READ_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
229 |
ACTIVE_READ_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
250 |
ACTIVE_WRITE_XZ_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
280 |
ACTIVE_WRITE_XZ_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control_slice.F |
316 |
ACTIVE_WRITE_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
31 |
ACTIVE_READ_XZ_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
338 |
ACTIVE_WRITE_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
361 |
ACTIVE_WRITE_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
384 |
ACTIVE_WRITE_XZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
407 |
ACTIVE_READ_YZ_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
441 |
ACTIVE_READ_YZ_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control_slice.F |
498 |
ACTIVE_READ_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
523 |
ACTIVE_READ_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
547 |
ACTIVE_READ_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
571 |
ACTIVE_READ_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
605 |
ACTIVE_READ_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
626 |
ACTIVE_WRITE_YZ_RL_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
656 |
ACTIVE_WRITE_YZ_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control_slice.F |
65 |
ACTIVE_READ_XZ_RL_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_control_slice.F |
692 |
ACTIVE_WRITE_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
714 |
ACTIVE_WRITE_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
737 |
ACTIVE_WRITE_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_control_slice.F |
760 |
ACTIVE_WRITE_YZ_RL_LOC |
& irec, |
|
./pkg/autodiff/active_file_loc_g.F |
111 |
G_ACTIVE_READ_XY_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
115 |
G_ACTIVE_READ_XY_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
129 |
G_ACTIVE_READ_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
168 |
G_ACTIVE_READ_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
194 |
G_ACTIVE_READ_XYZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
198 |
G_ACTIVE_READ_XYZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
213 |
G_ACTIVE_READ_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
252 |
G_ACTIVE_READ_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
278 |
G_ACTIVE_READ_XZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
282 |
G_ACTIVE_READ_XZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
297 |
G_ACTIVE_READ_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
336 |
G_ACTIVE_READ_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
362 |
G_ACTIVE_READ_YZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
366 |
G_ACTIVE_READ_YZ_LOC |
& doglobalread, lAdInit, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
380 |
G_ACTIVE_WRITE_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
413 |
G_ACTIVE_WRITE_XY_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
440 |
G_ACTIVE_WRITE_XY_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
444 |
G_ACTIVE_WRITE_XY_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
458 |
G_ACTIVE_WRITE_XYZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
46 |
G_ACTIVE_READ_XY_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
491 |
G_ACTIVE_WRITE_XYZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
518 |
G_ACTIVE_WRITE_XYZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
522 |
G_ACTIVE_WRITE_XYZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
536 |
G_ACTIVE_WRITE_XZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
569 |
G_ACTIVE_WRITE_XZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
596 |
G_ACTIVE_WRITE_XZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
600 |
G_ACTIVE_WRITE_XZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
614 |
G_ACTIVE_WRITE_YZ_LOC |
I irec, |
|
./pkg/autodiff/active_file_loc_g.F |
647 |
G_ACTIVE_WRITE_YZ_LOC |
integer irec |
|
./pkg/autodiff/active_file_loc_g.F |
674 |
G_ACTIVE_WRITE_YZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
678 |
G_ACTIVE_WRITE_YZ_LOC |
& globalfile, irec, mynr, |
|
./pkg/autodiff/active_file_loc_g.F |
85 |
G_ACTIVE_READ_XY_LOC |
integer irec |
|
./pkg/autodiff/adread_adwrite.F |
122 |
ADREAD |
integer irec |
|
./pkg/autodiff/adread_adwrite.F |
175 |
ADREAD |
& 0,n2d,var,irec,mythid) |
|
./pkg/autodiff/adread_adwrite.F |
206 |
ADREAD |
& 'ADREAD: ph', length, bx, by, irec |
|
./pkg/autodiff/adread_adwrite.F |
212 |
ADREAD |
& length, var, bx, by, irec, mythid ) |
|
./pkg/autodiff/adread_adwrite.F |
241 |
ADWRITE |
I irec |
|
./pkg/autodiff/adread_adwrite.F |
289 |
ADWRITE |
integer irec |
|
./pkg/autodiff/adread_adwrite.F |
351 |
ADWRITE |
& 0,n2d,var,irec,mythid) |
|
./pkg/autodiff/adread_adwrite.F |
369 |
ADWRITE |
& 'ADWRITE: ph', length, bx, by, irec |
|
./pkg/autodiff/adread_adwrite.F |
375 |
ADWRITE |
& length, var, bx, by, irec, 0, mythid ) |
|
./pkg/autodiff/adread_adwrite.F |
75 |
ADREAD |
I irec |
|
./pkg/ctrl/ctrl_obcsbal.F |
62 |
CTRL_OBCSBAL |
integer irec |
|
./pkg/ctrl/ctrl_obcsvol.F |
59 |
CTRL_OBCSVOL |
integer irec |
|
./pkg/ctrl/ctrl_pack.F |
69 |
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 |
105 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)+1 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
109 |
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 |
112 |
CTRL_SET_GLOBFLD_XZ |
do irec = nrec_nl*Ny+1, ncvarrecs(ivartype) +1 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
116 |
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 |
114 |
CTRL_SET_GLOBFLD_YZ |
do irec = nrec_nl*Nx+1, ncvarrecs(ivartype)+1 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
118 |
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 |
159 |
CTRL_SET_PACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
162 |
CTRL_SET_PACK_XY |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
164 |
CTRL_SET_PACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
244 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
247 |
CTRL_SET_PACK_XY |
& 1, globfld3d(1,1,1,1,1,1,1), irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
255 |
CTRL_SET_PACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
345 |
CTRL_SET_PACK_XY |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
400 |
CTRL_SET_PACK_XY |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
404 |
CTRL_SET_PACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
447 |
CTRL_SET_PACK_XY |
& 1, fld2dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
449 |
CTRL_SET_PACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
55 |
CTRL_SET_PACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
168 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
171 |
CTRL_SET_PACK_XYZ |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
179 |
CTRL_SET_PACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
272 |
CTRL_SET_PACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
331 |
CTRL_SET_PACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
335 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
388 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
390 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
56 |
CTRL_SET_PACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
205 |
CTRL_SET_PACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
& nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
209 |
CTRL_SET_PACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
237 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
301 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
304 |
CTRL_SET_PACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
307 |
CTRL_SET_PACK_XZ |
& nr, globfldxz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
335 |
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 |
203 |
CTRL_SET_PACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
208 |
CTRL_SET_PACK_YZ |
& nr, globfld3D, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
211 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
239 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
306 |
CTRL_SET_PACK_YZ |
do irec = nrec_nl*nx+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
309 |
CTRL_SET_PACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
312 |
CTRL_SET_PACK_YZ |
& nr, globfldyz, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
340 |
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 |
161 |
CTRL_SET_UNPACK_XY |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
163 |
CTRL_SET_UNPACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
265 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
269 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
282 |
CTRL_SET_UNPACK_XY |
irectrue = irec |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
373 |
CTRL_SET_UNPACK_XY |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
392 |
CTRL_SET_UNPACK_XY |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
447 |
CTRL_SET_UNPACK_XY |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
568 |
CTRL_SET_UNPACK_XY |
& 1, fld2dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
56 |
CTRL_SET_UNPACK_XY |
integer irec,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
570 |
CTRL_SET_UNPACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
575 |
CTRL_SET_UNPACK_XY |
& 1, fld2dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
176 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
189 |
CTRL_SET_UNPACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
281 |
CTRL_SET_UNPACK_XYZ |
& irec, optimcycle, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
300 |
CTRL_SET_UNPACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
359 |
CTRL_SET_UNPACK_XYZ |
do irec = 1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
489 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
491 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
496 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
56 |
CTRL_SET_UNPACK_XYZ |
integer irec |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
208 |
CTRL_SET_UNPACK_XZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
212 |
CTRL_SET_UNPACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
224 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
291 |
CTRL_SET_UNPACK_XZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
299 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
302 |
CTRL_SET_UNPACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
314 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
375 |
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 |
208 |
CTRL_SET_UNPACK_YZ |
do irec = 1, nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
212 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
224 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
291 |
CTRL_SET_UNPACK_YZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
299 |
CTRL_SET_UNPACK_YZ |
do irec = nrec_nl*nx+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
300 |
CTRL_SET_UNPACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
312 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
367 |
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 |
72 |
CTRL_UNPACK |
integer irec |
|
./pkg/ctrl/ctrl_volflux.F |
65 |
CTRL_VOLFLUX |
integer irec |
|
./pkg/ecco/cost_argo_salt.F |
122 |
COST_ARGO_SALT |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_argo_salt.F |
125 |
COST_ARGO_SALT |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_argo_salt.F |
131 |
COST_ARGO_SALT |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_argo_salt.F |
132 |
COST_ARGO_SALT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_salt.F |
139 |
COST_ARGO_SALT |
imonth = irec |
|
./pkg/ecco/cost_argo_salt.F |
188 |
COST_ARGO_SALT |
& ' COST_ARGO_SALT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_argo_salt.F |
210 |
COST_ARGO_SALT |
& ' cost_ARGOT: irec = ',irec |
|
./pkg/ecco/cost_argo_salt.F |
56 |
COST_ARGO_SALT |
integer irec |
|
./pkg/ecco/cost_argo_theta.F |
125 |
COST_ARGO_THETA |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_argo_theta.F |
128 |
COST_ARGO_THETA |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_argo_theta.F |
134 |
COST_ARGO_THETA |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_argo_theta.F |
135 |
COST_ARGO_THETA |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_argo_theta.F |
142 |
COST_ARGO_THETA |
imonth = irec |
|
./pkg/ecco/cost_argo_theta.F |
194 |
COST_ARGO_THETA |
& ' COST_ARGO_THETA: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_argo_theta.F |
216 |
COST_ARGO_THETA |
& ' cost_ARGOT: irec = ',irec |
|
./pkg/ecco/cost_argo_theta.F |
56 |
COST_ARGO_THETA |
integer irec |
|
./pkg/ecco/cost_averagesinit.F |
249 |
COST_AVERAGESINIT |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_averagesinit.F |
250 |
COST_AVERAGESINIT |
transpbar(irec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
52 |
COST_AVERAGESINIT |
integer irec |
|
./pkg/ecco/cost_bottomdrag.F |
127 |
COST_BOTTOMDRAG |
& ' cost_bottomdrag: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_bottomdrag.F |
146 |
COST_BOTTOMDRAG |
& ' cost_bottomdrag: irec = ',irec |
|
./pkg/ecco/cost_bottomdrag.F |
46 |
COST_BOTTOMDRAG |
integer irec |
|
./pkg/ecco/cost_bottomdrag.F |
80 |
COST_BOTTOMDRAG |
irec = 1 |
|
./pkg/ecco/cost_bottomdrag.F |
92 |
COST_BOTTOMDRAG |
call ACTIVE_READ_XY( fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_bp.F |
122 |
COST_BP |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_bp.F |
125 |
COST_BP |
call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread, |
|
./pkg/ecco/cost_bp.F |
129 |
COST_BP |
call COST_BP_READ( irec, mythid ) |
|
./pkg/ecco/cost_bp.F |
170 |
COST_BP |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_bp.F |
172 |
COST_BP |
call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread, |
|
./pkg/ecco/cost_bp.F |
176 |
COST_BP |
call COST_BP_READ( irec, mythid ) |
|
./pkg/ecco/cost_bp.F |
239 |
COST_BP |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
242 |
COST_BP |
& 1,bpdatanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
252 |
COST_BP |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
255 |
COST_BP |
& 1,bpdatanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
59 |
COST_BP |
integer irec |
|
./pkg/ecco/cost_bp_read.F |
38 |
COST_BP_READ |
integer irec |
|
./pkg/ecco/cost_bp_read.F |
88 |
COST_BP_READ |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_bp_read.F |
89 |
COST_BP_READ |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_bp_read.F |
8 |
COST_BP_READ |
I irec, |
|
./pkg/ecco/cost_bp_read.F |
97 |
COST_BP_READ |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
122 |
COST_CTDS |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_ctds.F |
125 |
COST_CTDS |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_ctds.F |
130 |
COST_CTDS |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_ctds.F |
131 |
COST_CTDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctds.F |
138 |
COST_CTDS |
imonth = irec |
|
./pkg/ecco/cost_ctds.F |
191 |
COST_CTDS |
& ' COST_CTDS: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctds.F |
213 |
COST_CTDS |
& ' cost_CTDS: irec = ',irec |
|
./pkg/ecco/cost_ctds.F |
55 |
COST_CTDS |
integer irec |
|
./pkg/ecco/cost_ctdsclim.F |
121 |
COST_CTDSCLIM |
do irec = 1,12 |
|
./pkg/ecco/cost_ctdsclim.F |
122 |
COST_CTDSCLIM |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_ctdsclim.F |
125 |
COST_CTDSCLIM |
mrec=irec+(iyear-1)*12 |
|
./pkg/ecco/cost_ctdsclim.F |
153 |
COST_CTDSCLIM |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_ctdsclim.F |
156 |
COST_CTDSCLIM |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_ctdsclim.F |
163 |
COST_CTDSCLIM |
levmon = (irec-1) + levoff |
|
./pkg/ecco/cost_ctdsclim.F |
215 |
COST_CTDSCLIM |
& ' cost_Ctdsclim: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdsclim.F |
238 |
COST_CTDSCLIM |
& ' cost_Ctdsclim: irec = ',irec |
|
./pkg/ecco/cost_ctdsclim.F |
66 |
COST_CTDSCLIM |
integer irec |
|
./pkg/ecco/cost_ctdt.F |
123 |
COST_CTDT |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_ctdt.F |
126 |
COST_CTDT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_ctdt.F |
131 |
COST_CTDT |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_ctdt.F |
132 |
COST_CTDT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_ctdt.F |
139 |
COST_CTDT |
imonth = irec |
|
./pkg/ecco/cost_ctdt.F |
195 |
COST_CTDT |
& ' COST_CTDT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdt.F |
217 |
COST_CTDT |
& ' cost_CTDT: irec = ',irec |
|
./pkg/ecco/cost_ctdt.F |
56 |
COST_CTDT |
integer irec |
|
./pkg/ecco/cost_ctdtclim.F |
120 |
COST_CTDTCLIM |
do irec = 1,12 |
|
./pkg/ecco/cost_ctdtclim.F |
121 |
COST_CTDTCLIM |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_ctdtclim.F |
124 |
COST_CTDTCLIM |
mrec=irec+(iyear-1)*12 |
|
./pkg/ecco/cost_ctdtclim.F |
152 |
COST_CTDTCLIM |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_ctdtclim.F |
155 |
COST_CTDTCLIM |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_ctdtclim.F |
162 |
COST_CTDTCLIM |
levmon = (irec-1) + levoff |
|
./pkg/ecco/cost_ctdtclim.F |
215 |
COST_CTDTCLIM |
& ' cost_Ctdtclim: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_ctdtclim.F |
238 |
COST_CTDTCLIM |
& ' cost_Ctdtclim: irec = ',irec |
|
./pkg/ecco/cost_ctdtclim.F |
66 |
COST_CTDTCLIM |
integer irec |
|
./pkg/ecco/cost_curmtr.F |
133 |
COST_CURMTR |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_curmtr.F |
137 |
COST_CURMTR |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_curmtr.F |
143 |
COST_CURMTR |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_curmtr.F |
149 |
COST_CURMTR |
& irec, mythid) |
|
./pkg/ecco/cost_curmtr.F |
152 |
COST_CURMTR |
& irec, mythid) |
|
./pkg/ecco/cost_curmtr.F |
296 |
COST_CURMTR |
& ' COST_curmtr: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_curmtr.F |
318 |
COST_CURMTR |
& ' cost_Curmtr: irec = ',irec |
|
./pkg/ecco/cost_curmtr.F |
56 |
COST_CURMTR |
integer irec |
|
./pkg/ecco/cost_diffkr.F |
130 |
COST_DIFFKR |
& ' cost_diffkr: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_diffkr.F |
149 |
COST_DIFFKR |
& ' cost_diffkr: irec = ',irec |
|
./pkg/ecco/cost_diffkr.F |
46 |
COST_DIFFKR |
integer irec |
|
./pkg/ecco/cost_diffkr.F |
80 |
COST_DIFFKR |
irec = 1 |
|
./pkg/ecco/cost_diffkr.F |
92 |
COST_DIFFKR |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_drift.F |
142 |
COST_DRIFT |
do irec = 1,minrec |
|
./pkg/ecco/cost_drift.F |
145 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_drift.F |
150 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_drift.F |
173 |
COST_DRIFT |
do irec = nmonsrec-minrec+1, nmonsrec |
|
./pkg/ecco/cost_drift.F |
176 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_drift.F |
181 |
COST_DRIFT |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_drift.F |
57 |
COST_DRIFT |
integer irec |
|
./pkg/ecco/cost_drifter.F |
147 |
COST_DRIFTER |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_drifter.F |
150 |
COST_DRIFTER |
call ACTIVE_READ_XYZ( fnameud, ubar, irec, |
|
./pkg/ecco/cost_drifter.F |
155 |
COST_DRIFTER |
call ACTIVE_READ_XYZ( fnamevd, vbar, irec, |
|
./pkg/ecco/cost_drifter.F |
162 |
COST_DRIFTER |
if(irec.eq.1)then |
|
./pkg/ecco/cost_drifter.F |
165 |
COST_DRIFTER |
elseif(irec.eq.nmonsrec)then |
|
./pkg/ecco/cost_drifter.F |
331 |
COST_DRIFTER |
& ' cost_drifter: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_drifter.F |
351 |
COST_DRIFTER |
& ' cost_drift: irec = ',irec |
|
./pkg/ecco/cost_drifter.F |
71 |
COST_DRIFTER |
integer irec |
|
./pkg/ecco/cost_driftw.F |
126 |
COST_DRIFTW |
do irec = 1,minrec |
|
./pkg/ecco/cost_driftw.F |
129 |
COST_DRIFTW |
call ACTIVE_READ_XYZ( fnamew, wbar, irec, |
|
./pkg/ecco/cost_driftw.F |
150 |
COST_DRIFTW |
do irec = nmonsrec-minrec+1, nmonsrec |
|
./pkg/ecco/cost_driftw.F |
153 |
COST_DRIFTW |
call ACTIVE_READ_XYZ( fnamew, wbar, irec, |
|
./pkg/ecco/cost_driftw.F |
211 |
COST_DRIFTW |
& ' cost_Driftw: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_driftw.F |
234 |
COST_DRIFTW |
& ' cost_Driftw: irec = ',irec |
|
./pkg/ecco/cost_driftw.F |
60 |
COST_DRIFTW |
integer irec |
|
./pkg/ecco/cost_forcing_gen.F |
151 |
COST_FORCING_GEN |
do irec = 1,nrec |
|
./pkg/ecco/cost_forcing_gen.F |
154 |
COST_FORCING_GEN |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_forcing_gen.F |
165 |
COST_FORCING_GEN |
& xx_gen_remo_slope*(irec-1)*xx_gen_period ) |
|
./pkg/ecco/cost_forcing_gen.F |
200 |
COST_FORCING_GEN |
do irec = 1,nrec |
|
./pkg/ecco/cost_forcing_gen.F |
203 |
COST_FORCING_GEN |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_forcing_gen.F |
219 |
COST_FORCING_GEN |
& xx_gen_remo_slope*(irec-1)*xx_gen_period ) |
|
./pkg/ecco/cost_forcing_gen.F |
248 |
COST_FORCING_GEN |
do irec = 1,nrec |
|
./pkg/ecco/cost_forcing_gen.F |
251 |
COST_FORCING_GEN |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ecco/cost_forcing_gen.F |
83 |
COST_FORCING_GEN |
integer irec |
|
./pkg/ecco/cost_gen_transport.F |
52 |
COST_GEN_TRANSPORT |
integer irec |
|
./pkg/ecco/cost_gen_transport.F |
72 |
COST_GEN_TRANSPORT |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gen_transport.F |
77 |
COST_GEN_TRANSPORT |
ftmp = ftmp + transpbar(irec,bi,bj) |
|
./pkg/ecco/cost_gen_transport.F |
88 |
COST_GEN_TRANSPORT |
if ( ftmp.NE.0. .AND. wtransp(irec).NE.0. ) then |
|
./pkg/ecco/cost_gen_transport.F |
90 |
COST_GEN_TRANSPORT |
& wtransp(irec)*( ftmp - transpobs(irec) )**2 |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
366 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
372 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
378 |
COST_GENCOST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
635 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec-ndaysave+1, 7 |
|
./pkg/ecco/cost_gencost_sshv4.F |
660 |
COST_GENCOST_SSHV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sshv4.F |
73 |
COST_GENCOST_SSHV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_gencost_sshv4.F |
795 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
799 |
COST_GENCOST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
811 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
815 |
COST_GENCOST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
851 |
COST_GENCOST_SSHV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gencost_sshv4.F |
853 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
858 |
COST_GENCOST_SSHV4 |
call COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
861 |
COST_GENCOST_SSHV4 |
call COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
864 |
COST_GENCOST_SSHV4 |
call COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
921 |
COST_GENCOST_SSHV4 |
& 1,anom_psMtpobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
924 |
COST_GENCOST_SSHV4 |
& 1,anom_psMersobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
927 |
COST_GENCOST_SSHV4 |
& 1,anom_psMgfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
931 |
COST_GENCOST_SSHV4 |
& 1,anom_tpobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
934 |
COST_GENCOST_SSHV4 |
& 1,anom_ersobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
937 |
COST_GENCOST_SSHV4 |
& 1,anom_gfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
141 |
COST_GENCOST_SSTV4 |
do irec = 1, ndaysrec-ndaysave+1, 7 |
|
./pkg/ecco/cost_gencost_sstv4.F |
161 |
COST_GENCOST_SSTV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
249 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
253 |
COST_GENCOST_SSTV4 |
& 1,obs_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
265 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
269 |
COST_GENCOST_SSTV4 |
& 1,obs_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
299 |
COST_GENCOST_SSTV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_gencost_sstv4.F |
302 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, sstbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
307 |
COST_GENCOST_SSTV4 |
daytime = FLOAT(secondsperday*(irec-1)) |
|
./pkg/ecco/cost_gencost_sstv4.F |
308 |
COST_GENCOST_SSTV4 |
dayiter = hoursperday*(irec-1) |
|
./pkg/ecco/cost_gencost_sstv4.F |
365 |
COST_GENCOST_SSTV4 |
& 1,anom_sst,irec,1,mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
60 |
COST_GENCOST_SSTV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_generic.F |
183 |
COST_GENERIC |
do irec = 1, nrecloc |
|
./pkg/ecco/cost_generic.F |
186 |
COST_GENERIC |
call ACTIVE_READ_XY( fname1, localbar, irec, doglobalread, |
|
./pkg/ecco/cost_generic.F |
190 |
COST_GENERIC |
call ACTIVE_READ_XYZ( fname1, localbar, irec, doglobalread, |
|
./pkg/ecco/cost_generic.F |
198 |
COST_GENERIC |
obsrec = irec |
|
./pkg/ecco/cost_generic.F |
199 |
COST_GENERIC |
daytime = FLOAT(secondsperday*(irec-1)) |
|
./pkg/ecco/cost_generic.F |
200 |
COST_GENERIC |
dayiter = hoursperday*(irec-1) |
|
./pkg/ecco/cost_generic.F |
223 |
COST_GENERIC |
& + irec |
|
./pkg/ecco/cost_generic.F |
226 |
COST_GENERIC |
yday = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_generic.F |
227 |
COST_GENERIC |
localrec = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_generic.F |
80 |
COST_GENERIC |
integer irec |
|
./pkg/ecco/cost_kapgm.F |
133 |
COST_KAPGM |
& ' cost_kapgm: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_kapgm.F |
152 |
COST_KAPGM |
& ' cost_kapgm: irec = ',irec |
|
./pkg/ecco/cost_kapgm.F |
49 |
COST_KAPGM |
integer irec |
|
./pkg/ecco/cost_kapgm.F |
83 |
COST_KAPGM |
irec = 1 |
|
./pkg/ecco/cost_kapgm.F |
95 |
COST_KAPGM |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_kapredi.F |
133 |
COST_KAPREDI |
& ' cost_kapredi: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_kapredi.F |
152 |
COST_KAPREDI |
& ' cost_kapredi: irec = ',irec |
|
./pkg/ecco/cost_kapredi.F |
49 |
COST_KAPREDI |
integer irec |
|
./pkg/ecco/cost_kapredi.F |
83 |
COST_KAPREDI |
irec = 1 |
|
./pkg/ecco/cost_kapredi.F |
95 |
COST_KAPREDI |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_mean_heatflux.F |
100 |
COST_MEAN_HEATFLUX |
do irec = 1, MAX(1,nyearsrec) |
|
./pkg/ecco/cost_mean_heatflux.F |
103 |
COST_MEAN_HEATFLUX |
call ACTIVE_READ_XY( fnamehflux, tmpfld2d, irec, |
|
./pkg/ecco/cost_mean_heatflux.F |
142 |
COST_MEAN_HEATFLUX |
& ' --> bal_hfluxmm =', irec, |
|
./pkg/ecco/cost_mean_heatflux.F |
55 |
COST_MEAN_HEATFLUX |
integer irec |
|
./pkg/ecco/cost_mean_saltflux.F |
100 |
COST_MEAN_SALTFLUX |
do irec = 1, MAX(1,nyearsrec) |
|
./pkg/ecco/cost_mean_saltflux.F |
103 |
COST_MEAN_SALTFLUX |
call ACTIVE_READ_XY( fnamesflux, tmpfld2d, irec, |
|
./pkg/ecco/cost_mean_saltflux.F |
142 |
COST_MEAN_SALTFLUX |
& ' --> bal_sfluxmm =', irec, |
|
./pkg/ecco/cost_mean_saltflux.F |
55 |
COST_MEAN_SALTFLUX |
integer irec |
|
./pkg/ecco/cost_obcs_ageos.F |
181 |
COST_OBCS_AGEOS |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcs_ageos.F |
184 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
190 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
196 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
202 |
COST_OBCS_AGEOS |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcs_ageos.F |
483 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_obcs_ageos.F |
506 |
COST_OBCS_AGEOS |
& ' cost_Theta: irec = ',irec |
|
./pkg/ecco/cost_obcs_ageos.F |
62 |
COST_OBCS_AGEOS |
integer irec |
|
./pkg/ecco/cost_obcse.F |
105 |
COST_OBCSE |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcse.F |
113 |
COST_OBCSE |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcse.F |
119 |
COST_OBCSE |
& nr, OBEt, irec, mythid) |
|
./pkg/ecco/cost_obcse.F |
150 |
COST_OBCSE |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcse.F |
156 |
COST_OBCSE |
& nr, OBEs, irec, mythid) |
|
./pkg/ecco/cost_obcse.F |
187 |
COST_OBCSE |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcse.F |
193 |
COST_OBCSE |
& nr, OBEu, irec, mythid) |
|
./pkg/ecco/cost_obcse.F |
223 |
COST_OBCSE |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcse.F |
229 |
COST_OBCSE |
& nr, OBEv, irec, mythid) |
|
./pkg/ecco/cost_obcse.F |
261 |
COST_OBCSE |
& ' cost_obcse: irec = ',irec |
|
./pkg/ecco/cost_obcse.F |
58 |
COST_OBCSE |
integer irec |
|
./pkg/ecco/cost_obcsn.F |
105 |
COST_OBCSN |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcsn.F |
113 |
COST_OBCSN |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcsn.F |
119 |
COST_OBCSN |
& nr, OBNt, irec, mythid) |
|
./pkg/ecco/cost_obcsn.F |
150 |
COST_OBCSN |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcsn.F |
156 |
COST_OBCSN |
& nr, OBNs, irec, mythid) |
|
./pkg/ecco/cost_obcsn.F |
187 |
COST_OBCSN |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcsn.F |
193 |
COST_OBCSN |
& nr, OBNu, irec, mythid) |
|
./pkg/ecco/cost_obcsn.F |
223 |
COST_OBCSN |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcsn.F |
229 |
COST_OBCSN |
& nr, OBNv, irec, mythid) |
|
./pkg/ecco/cost_obcsn.F |
261 |
COST_OBCSN |
& ' cost_obcsn: irec = ',irec |
|
./pkg/ecco/cost_obcsn.F |
58 |
COST_OBCSN |
integer irec |
|
./pkg/ecco/cost_obcss.F |
105 |
COST_OBCSS |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcss.F |
113 |
COST_OBCSS |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcss.F |
119 |
COST_OBCSS |
& nr, OBSt, irec, mythid) |
|
./pkg/ecco/cost_obcss.F |
150 |
COST_OBCSS |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcss.F |
156 |
COST_OBCSS |
& nr, OBSs, irec, mythid) |
|
./pkg/ecco/cost_obcss.F |
187 |
COST_OBCSS |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcss.F |
193 |
COST_OBCSS |
& nr, OBSu, irec, mythid) |
|
./pkg/ecco/cost_obcss.F |
223 |
COST_OBCSS |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcss.F |
229 |
COST_OBCSS |
& nr, OBSv, irec, mythid) |
|
./pkg/ecco/cost_obcss.F |
261 |
COST_OBCSS |
& ' cost_obcss: irec = ',irec |
|
./pkg/ecco/cost_obcss.F |
58 |
COST_OBCSS |
integer irec |
|
./pkg/ecco/cost_obcsvol.F |
171 |
COST_OBCSVOL |
do irec = 1,nrec |
|
./pkg/ecco/cost_obcsvol.F |
175 |
COST_OBCSVOL |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsvol.F |
177 |
COST_OBCSVOL |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsvol.F |
185 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnamefldn, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
228 |
COST_OBCSVOL |
call ACTIVE_READ_XZ( fnameflds, tmpfldxz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
271 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnamefldw, tmpfldyz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
314 |
COST_OBCSVOL |
call ACTIVE_READ_YZ( fnameflde, tmpfldyz, irec, doglobalread, |
|
./pkg/ecco/cost_obcsvol.F |
62 |
COST_OBCSVOL |
integer irec |
|
./pkg/ecco/cost_obcsw.F |
105 |
COST_OBCSW |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_obcsw.F |
113 |
COST_OBCSW |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_obcsw.F |
119 |
COST_OBCSW |
& nr, OBWt, irec, mythid) |
|
./pkg/ecco/cost_obcsw.F |
150 |
COST_OBCSW |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_obcsw.F |
156 |
COST_OBCSW |
& nr, OBWs, irec, mythid) |
|
./pkg/ecco/cost_obcsw.F |
187 |
COST_OBCSW |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_obcsw.F |
193 |
COST_OBCSW |
& nr, OBWu, irec, mythid) |
|
./pkg/ecco/cost_obcsw.F |
223 |
COST_OBCSW |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_obcsw.F |
229 |
COST_OBCSW |
& nr, OBWv, irec, mythid) |
|
./pkg/ecco/cost_obcsw.F |
261 |
COST_OBCSW |
& ' cost_obcsw: irec = ',irec |
|
./pkg/ecco/cost_obcsw.F |
58 |
COST_OBCSW |
integer irec |
|
./pkg/ecco/cost_readargos.F |
40 |
COST_READARGOS |
integer irec |
|
./pkg/ecco/cost_readargos.F |
77 |
COST_READARGOS |
& mod(argosstartdate(1)/100,100) + irec |
|
./pkg/ecco/cost_readargos.F |
81 |
COST_READARGOS |
& 1) + mod(modelstartdate(1)/100,100) - 1 + irec |
|
./pkg/ecco/cost_readargos.F |
8 |
COST_READARGOS |
I irec, |
|
./pkg/ecco/cost_readargot.F |
40 |
COST_READARGOT |
integer irec |
|
./pkg/ecco/cost_readargot.F |
77 |
COST_READARGOT |
& mod(argotstartdate(1)/100,100) + irec |
|
./pkg/ecco/cost_readargot.F |
81 |
COST_READARGOT |
& 1) + mod(modelstartdate(1)/100,100) - 1 + irec |
|
./pkg/ecco/cost_readargot.F |
8 |
COST_READARGOT |
I irec, |
|
./pkg/ecco/cost_readers.F |
116 |
COST_READERS |
sshrec = irec |
|
./pkg/ecco/cost_readers.F |
152 |
COST_READERS |
& ( ersintercept + ersslope*irec*hoursperday ) ) |
|
./pkg/ecco/cost_readers.F |
40 |
COST_READERS |
integer irec |
|
./pkg/ecco/cost_readers.F |
7 |
COST_READERS |
subroutine COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_readers.F |
91 |
COST_READERS |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_readers.F |
92 |
COST_READERS |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_readgfo.F |
116 |
COST_READGFO |
sshrec = irec |
|
./pkg/ecco/cost_readgfo.F |
150 |
COST_READGFO |
& ( gfointercept + gfoslope*irec*hoursperday ) ) |
|
./pkg/ecco/cost_readgfo.F |
40 |
COST_READGFO |
integer irec |
|
./pkg/ecco/cost_readgfo.F |
7 |
COST_READGFO |
subroutine COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_readgfo.F |
91 |
COST_READGFO |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_readgfo.F |
92 |
COST_READGFO |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_readscatxfields.F |
104 |
COST_READSCATXFIELDS |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_readscatxfields.F |
105 |
COST_READSCATXFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatxfields.F |
113 |
COST_READSCATXFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatxfields.F |
43 |
COST_READSCATXFIELDS |
integer irec |
|
./pkg/ecco/cost_readscatxfields.F |
8 |
COST_READSCATXFIELDS |
I irec, |
|
./pkg/ecco/cost_readscatyfields.F |
103 |
COST_READSCATYFIELDS |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_readscatyfields.F |
104 |
COST_READSCATYFIELDS |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_readscatyfields.F |
112 |
COST_READSCATYFIELDS |
imonth = irec |
|
./pkg/ecco/cost_readscatyfields.F |
43 |
COST_READSCATYFIELDS |
integer irec |
|
./pkg/ecco/cost_readscatyfields.F |
8 |
COST_READSCATYFIELDS |
I irec, |
|
./pkg/ecco/cost_readtopex.F |
116 |
COST_READTOPEX |
sshrec = irec |
|
./pkg/ecco/cost_readtopex.F |
148 |
COST_READTOPEX |
& ( topexintercept + topexslope*irec*hoursperday ) ) |
|
./pkg/ecco/cost_readtopex.F |
40 |
COST_READTOPEX |
integer irec |
|
./pkg/ecco/cost_readtopex.F |
7 |
COST_READTOPEX |
subroutine COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_readtopex.F |
91 |
COST_READTOPEX |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_readtopex.F |
92 |
COST_READTOPEX |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_salt.F |
120 |
COST_SALT |
do irec = 1,min(nmonsrec,12) |
|
./pkg/ecco/cost_salt.F |
121 |
COST_SALT |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_salt.F |
123 |
COST_SALT |
mrec=irec+(iyear-1)*12 |
|
./pkg/ecco/cost_salt.F |
152 |
COST_SALT |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_salt.F |
154 |
COST_SALT |
irectmp=irec |
|
./pkg/ecco/cost_salt.F |
156 |
COST_SALT |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_salt.F |
216 |
COST_SALT |
& diagnosfld3d, irec, optimcycle, mythid ) |
|
./pkg/ecco/cost_salt.F |
60 |
COST_SALT |
integer irec, irectmp |
|
./pkg/ecco/cost_salt0.F |
104 |
COST_SALT0 |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt0.F |
145 |
COST_SALT0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_salt0.F |
58 |
COST_SALT0 |
integer irec |
|
./pkg/ecco/cost_salt0.F |
94 |
COST_SALT0 |
irec = 1 |
|
./pkg/ecco/cost_salt_ini_fin.F |
128 |
COST_SALT_INI_FIN |
& ' cost_salt_ini_fin: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_salt_ini_fin.F |
147 |
COST_SALT_INI_FIN |
& ' cost_: irec = ',irec |
|
./pkg/ecco/cost_salt_ini_fin.F |
50 |
COST_SALT_INI_FIN |
integer irec |
|
./pkg/ecco/cost_salt_ini_fin.F |
84 |
COST_SALT_INI_FIN |
irec = 1 |
|
./pkg/ecco/cost_salt_ini_fin.F |
94 |
COST_SALT_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_scat.F |
115 |
COST_SCAT |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_scat.F |
117 |
COST_SCAT |
do irec = 1,ndaysrec |
|
./pkg/ecco/cost_scat.F |
120 |
COST_SCAT |
call ACTIVE_READ_XY( fnametaux, tauxbar, irec, |
|
./pkg/ecco/cost_scat.F |
125 |
COST_SCAT |
call ACTIVE_READ_XY( fnametauy, tauybar, irec, |
|
./pkg/ecco/cost_scat.F |
159 |
COST_SCAT |
call COST_READSCATXFIELDS( irec, mythid ) |
|
./pkg/ecco/cost_scat.F |
179 |
COST_SCAT |
call COST_READSCATYFIELDS( irec, mythid ) |
|
./pkg/ecco/cost_scat.F |
209 |
COST_SCAT |
& ' cost_scat: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_scat.F |
229 |
COST_SCAT |
& ' cost_scatx: irec = ',irec |
|
./pkg/ecco/cost_scat.F |
54 |
COST_SCAT |
integer irec |
|
./pkg/ecco/cost_sla_read.F |
10 |
COST_SLA_READ |
I irec, mythid ) |
|
./pkg/ecco/cost_sla_read.F |
121 |
COST_SLA_READ |
sshrec = irec |
|
./pkg/ecco/cost_sla_read.F |
157 |
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 |
96 |
COST_SLA_READ |
daytime = FLOAT(secondsperday*(irec-1)) + modelstart |
|
./pkg/ecco/cost_sla_read.F |
97 |
COST_SLA_READ |
dayiter = hoursperday*(irec-1)+modeliter0 |
|
./pkg/ecco/cost_ssh.F |
139 |
COST_SSH |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh.F |
142 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
237 |
COST_SSH |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh.F |
239 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
244 |
COST_SSH |
call COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
248 |
COST_SSH |
call COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
252 |
COST_SSH |
call COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_ssh.F |
67 |
COST_SSH |
integer irec |
|
./pkg/ecco/cost_ssh_new.F |
154 |
COST_SSH_NEW |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh_new.F |
157 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh_new.F |
164 |
COST_SSH_NEW |
call COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
169 |
COST_SSH_NEW |
call COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
174 |
COST_SSH_NEW |
call COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
185 |
COST_SSH_NEW |
& *tpTimeMask(irec) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
193 |
COST_SSH_NEW |
& *ersTimeMask(irec) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
201 |
COST_SSH_NEW |
& *gfoTimeMask(irec) .NE. 0. ) then |
|
./pkg/ecco/cost_ssh_new.F |
322 |
COST_SSH_NEW |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_ssh_new.F |
324 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh_new.F |
329 |
COST_SSH_NEW |
call COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
332 |
COST_SSH_NEW |
call COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
335 |
COST_SSH_NEW |
call COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
67 |
COST_SSH_NEW |
integer irec |
|
./pkg/ecco/cost_sshv4.F |
336 |
COST_SSHV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_sshv4.F |
338 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_sshv4.F |
346 |
COST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
352 |
COST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
358 |
COST_SSHV4 |
& irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
614 |
COST_SSHV4 |
do irec = 1, ndaysrec-ndaysave+1, 7 |
|
./pkg/ecco/cost_sshv4.F |
639 |
COST_SSHV4 |
krec=irec+jrec-1 |
|
./pkg/ecco/cost_sshv4.F |
71 |
COST_SSHV4 |
integer irec,jrec,krec |
|
./pkg/ecco/cost_sshv4.F |
774 |
COST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
778 |
COST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
790 |
COST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
794 |
COST_SSHV4 |
& 1,anom_slaobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
830 |
COST_SSHV4 |
do irec = 1, ndaysrec |
|
./pkg/ecco/cost_sshv4.F |
832 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_sshv4.F |
837 |
COST_SSHV4 |
call COST_READTOPEX( irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
840 |
COST_SSHV4 |
call COST_READERS( irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
843 |
COST_SSHV4 |
call COST_READGFO( irec, mythid ) |
|
./pkg/ecco/cost_sshv4.F |
900 |
COST_SSHV4 |
& 1,anom_psMtpobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
903 |
COST_SSHV4 |
& 1,anom_psMersobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
906 |
COST_SSHV4 |
& 1,anom_psMgfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
910 |
COST_SSHV4 |
& 1,anom_tpobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
913 |
COST_SSHV4 |
& 1,anom_ersobs,irec,1,mythid) |
|
./pkg/ecco/cost_sshv4.F |
916 |
COST_SSHV4 |
& 1,anom_gfoobs,irec,1,mythid) |
|
./pkg/ecco/cost_tau_eddy.F |
101 |
COST_TAU_EDDY |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_tau_eddy.F |
136 |
COST_TAU_EDDY |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_tau_eddy.F |
170 |
COST_TAU_EDDY |
& ' cost_tau_eddy: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_tau_eddy.F |
189 |
COST_TAU_EDDY |
& ' cost_: irec = ',irec |
|
./pkg/ecco/cost_tau_eddy.F |
49 |
COST_TAU_EDDY |
integer irec |
|
./pkg/ecco/cost_tau_eddy.F |
92 |
COST_TAU_EDDY |
irec = 1 |
|
./pkg/ecco/cost_theta.F |
119 |
COST_THETA |
do irec = 1,min(nmonsrec,12) |
|
./pkg/ecco/cost_theta.F |
120 |
COST_THETA |
nyears=int((nmonsrec-irec)/12)+1 |
|
./pkg/ecco/cost_theta.F |
122 |
COST_THETA |
mrec=irec+(iyear-1)*12 |
|
./pkg/ecco/cost_theta.F |
151 |
COST_THETA |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_theta.F |
153 |
COST_THETA |
irectmp = irec |
|
./pkg/ecco/cost_theta.F |
155 |
COST_THETA |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_theta.F |
215 |
COST_THETA |
& diagnosfld3d, irec, optimcycle, mythid ) |
|
./pkg/ecco/cost_theta.F |
60 |
COST_THETA |
integer irec, irectmp |
|
./pkg/ecco/cost_theta0.F |
105 |
COST_THETA0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_theta0.F |
145 |
COST_THETA0 |
& fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_theta0.F |
58 |
COST_THETA0 |
integer irec |
|
./pkg/ecco/cost_theta0.F |
94 |
COST_THETA0 |
irec = 1 |
|
./pkg/ecco/cost_theta_ini_fin.F |
128 |
COST_THETA_INI_FIN |
& ' cost_theta_ini_fin: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_theta_ini_fin.F |
147 |
COST_THETA_INI_FIN |
& ' cost_: irec = ',irec |
|
./pkg/ecco/cost_theta_ini_fin.F |
50 |
COST_THETA_INI_FIN |
integer irec |
|
./pkg/ecco/cost_theta_ini_fin.F |
84 |
COST_THETA_INI_FIN |
irec = 1 |
|
./pkg/ecco/cost_theta_ini_fin.F |
94 |
COST_THETA_INI_FIN |
call ACTIVE_READ_XYZ( fnamefld, tmpfld3d, irec, doglobalread, |
|
./pkg/ecco/cost_trans_merid.F |
159 |
COST_TRANS_MERID |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_trans_merid.F |
161 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
166 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
171 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
176 |
COST_TRANS_MERID |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_trans_merid.F |
246 |
COST_TRANS_MERID |
& 'ECCO_TRANS_MER ', isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_merid.F |
257 |
COST_TRANS_MERID |
& isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_merid.F |
54 |
COST_TRANS_MERID |
integer irec |
|
./pkg/ecco/cost_trans_zonal.F |
148 |
COST_TRANS_ZONAL |
do irec = 1, nmonsrec |
|
./pkg/ecco/cost_trans_zonal.F |
150 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
155 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnamesalt, sbar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
160 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnameuvel, ubar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
165 |
COST_TRANS_ZONAL |
call ACTIVE_READ_XYZ( fnamevvel, vbar, irec, |
|
./pkg/ecco/cost_trans_zonal.F |
235 |
COST_TRANS_ZONAL |
& 'ECCO_TRANS_ZON ', isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_zonal.F |
246 |
COST_TRANS_ZONAL |
& isect, irec, kmin(isect), kmax(isect), |
|
./pkg/ecco/cost_trans_zonal.F |
54 |
COST_TRANS_ZONAL |
integer irec |
|
./pkg/ecco/cost_xbt.F |
127 |
COST_XBT |
do irec = 1,nmonsrec |
|
./pkg/ecco/cost_xbt.F |
130 |
COST_XBT |
call ACTIVE_READ_XYZ( fnametheta, tbar, irec, |
|
./pkg/ecco/cost_xbt.F |
136 |
COST_XBT |
iyear = mody + INT((modm-1+irec-1)/12) |
|
./pkg/ecco/cost_xbt.F |
137 |
COST_XBT |
imonth = 1 + MOD(modm-1+irec-1,12) |
|
./pkg/ecco/cost_xbt.F |
144 |
COST_XBT |
imonth = irec |
|
./pkg/ecco/cost_xbt.F |
208 |
COST_XBT |
& ' COST_XBT: irec,bi,bj = ',irec,bi,bj |
|
./pkg/ecco/cost_xbt.F |
230 |
COST_XBT |
& ' cost_XBT: irec = ',irec |
|
./pkg/ecco/cost_xbt.F |
56 |
COST_XBT |
integer irec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
164 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
166 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamepsbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
180 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
182 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamebpbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
201 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
203 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnametbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
215 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
217 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
232 |
ECCO_COST_INIT_BARFILES |
do irec = 1,ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
234 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesstbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
252 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
254 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamesbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
267 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
269 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
294 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
296 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnameubar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
298 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamevbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
312 |
ECCO_COST_INIT_BARFILES |
do irec = 1,nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
314 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XYZ( adfnamewbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
335 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nmonsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
337 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
340 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauxbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
342 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauybar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
356 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nyearsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
358 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamehfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
372 |
ECCO_COST_INIT_BARFILES |
do irec = 1, nyearsrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
374 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
403 |
ECCO_COST_INIT_BARFILES |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
405 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrareabar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
407 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrsstbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
409 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrsssbar, tmpfld3d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
428 |
ECCO_COST_INIT_BARFILES |
do irec = 1,gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
430 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfname_gencostbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
54 |
ECCO_COST_INIT_BARFILES |
integer ilps, ils, ilt, irec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
183 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
184 |
ECCO_COST_INIT_FIXED |
wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
185 |
ECCO_COST_INIT_FIXED |
transpobs(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
197 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
202 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) transpobs(irec), dummy, wtransp(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
204 |
ECCO_COST_INIT_FIXED |
if ( wtransp(irec) .NE. 0. ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
205 |
ECCO_COST_INIT_FIXED |
& wtransp(irec) =1.0/(wtransp(irec)*wtransp(irec)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
207 |
ECCO_COST_INIT_FIXED |
if ( transpobs(irec) .EQ. missingObsFlag ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
208 |
ECCO_COST_INIT_FIXED |
& wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
218 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
219 |
ECCO_COST_INIT_FIXED |
tpTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
220 |
ECCO_COST_INIT_FIXED |
ersTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
221 |
ECCO_COST_INIT_FIXED |
gfoTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
235 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
236 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) tpTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
250 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
251 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) ersTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
265 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
266 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) gfoTimeMask(irec) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
271 |
ECCO_COST_INIT_FIXED |
do irec = 1, ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
273 |
ECCO_COST_INIT_FIXED |
& ( tpTimeMask(irec).NE.0. .AND. tpTimeMask(irec).NE.1. ) .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
274 |
ECCO_COST_INIT_FIXED |
& ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
275 |
ECCO_COST_INIT_FIXED |
& ( ersTimeMask(irec).NE.0. .AND. ersTimeMask(irec).NE.1. ) ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
279 |
ECCO_COST_INIT_FIXED |
& 'for irec (=day) ', irec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
57 |
ECCO_COST_INIT_FIXED |
integer irec,k |
|
./pkg/ecco/ecco_cost_weights.F |
1015 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1019 |
ECCO_COST_WEIGHTS |
& nnz, whflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1050 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1054 |
ECCO_COST_WEIGHTS |
& nnz, watemp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1084 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1088 |
ECCO_COST_WEIGHTS |
& nnz, wsflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1119 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1123 |
ECCO_COST_WEIGHTS |
& waqh, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1151 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1155 |
ECCO_COST_WEIGHTS |
& nnz, wprecip, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1183 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1187 |
ECCO_COST_WEIGHTS |
& nnz, wswflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1215 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1219 |
ECCO_COST_WEIGHTS |
& nnz, wswdown, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1247 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1251 |
ECCO_COST_WEIGHTS |
& nnz, wlwflux, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1279 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1283 |
ECCO_COST_WEIGHTS |
& nnz, wlwdown, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1311 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1315 |
ECCO_COST_WEIGHTS |
& nnz, wsnowprecip, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1344 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1348 |
ECCO_COST_WEIGHTS |
& nnz, wevap, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1376 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1380 |
ECCO_COST_WEIGHTS |
& nnz, wapressure, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1409 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
1413 |
ECCO_COST_WEIGHTS |
& nnz, wrunoff, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1438 |
ECCO_COST_WEIGHTS |
& nnz, wbottomdrag, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
56 |
ECCO_COST_WEIGHTS |
integer irec,nnz |
|
./pkg/ecco/ecco_cost_weights.F |
590 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
592 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
626 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
629 |
ECCO_COST_WEIGHTS |
& nnz, wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
658 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
663 |
ECCO_COST_WEIGHTS |
& wers, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
668 |
ECCO_COST_WEIGHTS |
& wgfo, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
804 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
806 |
ECCO_COST_WEIGHTS |
& wscatx, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
808 |
ECCO_COST_WEIGHTS |
& wscaty, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
840 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
873 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
877 |
ECCO_COST_WEIGHTS |
& nnz, wtauu, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
912 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
916 |
ECCO_COST_WEIGHTS |
& nnz, wuwind, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
943 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
948 |
ECCO_COST_WEIGHTS |
& wtauv, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
982 |
ECCO_COST_WEIGHTS |
irec = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
987 |
ECCO_COST_WEIGHTS |
& nnz, wvwind, irec, mythid ) |