| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_writefield_loc.F |
101 |
MDSWRITEFIELD_LOC |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
341 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
343 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
351 |
MDSWRITEFIELD_LOC |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
353 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writefield_loc.F |
426 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
428 |
MDSWRITEFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
436 |
MDSWRITEFIELD_LOC |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_writefield_loc.F |
438 |
MDSWRITEFIELD_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
200 |
MDSREADFIELDXZ |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
202 |
MDSREADFIELDXZ |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_slice.F |
205 |
MDSREADFIELDXZ |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
207 |
MDSREADFIELDXZ |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
300 |
MDSREADFIELDYZ |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_slice.F |
438 |
MDSREADFIELDYZ |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
440 |
MDSREADFIELDYZ |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_slice.F |
443 |
MDSREADFIELDYZ |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
445 |
MDSREADFIELDYZ |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
543 |
MDSWRITEFIELDXZ |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_slice.F |
62 |
MDSREADFIELDXZ |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_slice.F |
646 |
MDSWRITEFIELDXZ |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
648 |
MDSWRITEFIELDXZ |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
656 |
MDSWRITEFIELDXZ |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_slice.F |
658 |
MDSWRITEFIELDXZ |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice.F |
761 |
MDSWRITEFIELDYZ |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_slice.F |
864 |
MDSWRITEFIELDYZ |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
866 |
MDSWRITEFIELDYZ |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice.F |
874 |
MDSWRITEFIELDYZ |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_slice.F |
876 |
MDSWRITEFIELDYZ |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
190 |
MDSREADFIELDXZ_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
192 |
MDSREADFIELDXZ_LOC |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
195 |
MDSREADFIELDXZ_LOC |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
197 |
MDSREADFIELDXZ_LOC |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
290 |
MDSREADFIELDYZ_LOC |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_slice_loc.F |
419 |
MDSREADFIELDYZ_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
421 |
MDSREADFIELDYZ_LOC |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
424 |
MDSREADFIELDYZ_LOC |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
426 |
MDSREADFIELDYZ_LOC |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
524 |
MDSWRITEFIELDXZ_LOC |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_slice_loc.F |
618 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
61 |
MDSREADFIELDXZ_LOC |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_slice_loc.F |
620 |
MDSWRITEFIELDXZ_LOC |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
628 |
MDSWRITEFIELDXZ_LOC |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
630 |
MDSWRITEFIELDXZ_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_slice_loc.F |
733 |
MDSWRITEFIELDYZ_LOC |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_slice_loc.F |
827 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
829 |
MDSWRITEFIELDYZ_LOC |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_slice_loc.F |
837 |
MDSWRITEFIELDYZ_LOC |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
839 |
MDSWRITEFIELDYZ_LOC |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readtile.F |
191 |
MDSIO_READTILE |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readtile.F |
193 |
MDSIO_READTILE |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_readtile.F |
196 |
MDSIO_READTILE |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
198 |
MDSIO_READTILE |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readtile.F |
66 |
MDSIO_READTILE |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
1000 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1185 |
MDSWRITEFIELD_2D_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
1375 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1377 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1385 |
MDSWRITEFIELD_2D_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl.F |
1387 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
284 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
286 |
MDSREADFIELD_3D_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl.F |
289 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
291 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
475 |
MDSWRITEFIELD_3D_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
664 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
666 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
674 |
MDSWRITEFIELD_3D_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
799 |
MDSREADFIELD_2D_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
90 |
MDSREADFIELD_3D_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl.F |
993 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
995 |
MDSREADFIELD_2D_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl.F |
998 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
175 |
MDS_WRITETILE |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
177 |
MDS_WRITETILE |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writetile.F |
185 |
MDS_WRITETILE |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_writetile.F |
187 |
MDS_WRITETILE |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writetile.F |
79 |
MDS_WRITETILE |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl_slice.F |
202 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
204 |
MDSREADFIELD_XZ_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
207 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
209 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
424 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
426 |
MDSREADFIELD_YZ_GL |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
429 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
547 |
MDSWRITEFIELD_XZ_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_gl_slice.F |
625 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
627 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
635 |
MDSWRITEFIELD_XZ_GL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
637 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
762 |
MDSWRITEFIELD_YZ_GL |
Real*8 r8seg(sNy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
840 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
842 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
850 |
MDSWRITEFIELD_YZ_GL |
call MDS_BYTESWAPR8( sNy, r8seg ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
852 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
90 |
MDSREADFIELD_XZ_GL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_writelocal.F |
190 |
MDS_WRITELOCAL |
call MDS_SEG8TORS( j,1,1,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
192 |
MDS_WRITELOCAL |
call MDS_SEG8TORL( j,1,1,k,nNz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_writelocal.F |
200 |
MDS_WRITELOCAL |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_writelocal.F |
202 |
MDS_WRITELOCAL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_writelocal.F |
83 |
MDS_WRITELOCAL |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
197 |
MDSREADFIELD_LOC |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield_loc.F |
199 |
MDSREADFIELD_LOC |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
202 |
MDSREADFIELD_LOC |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
204 |
MDSREADFIELD_LOC |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
64 |
MDSREADFIELD_LOC |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdsio_readfield.F |
218 |
MDSREADFIELD |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield.F |
220 |
MDSREADFIELD |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_readfield.F |
223 |
MDSREADFIELD |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
225 |
MDSREADFIELD |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
323 |
MDSREADFIELD |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_readfield.F |
325 |
MDSREADFIELD |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdsio_readfield.F |
328 |
MDSREADFIELD |
call MDS_SEG8TORS( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
330 |
MDSREADFIELD |
call MDS_SEG8TORL( j,bi,bj,k,nNz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_readfield.F |
80 |
MDSREADFIELD |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdswritefield_new.F |
102 |
MDSWRITEFIELD_NEW |
Real*8 r8seg(sNx) |
|
./pkg/mdsio/mdswritefield_new.F |
342 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORS( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
344 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORL( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
352 |
MDSWRITEFIELD_NEW |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdswritefield_new.F |
354 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdswritefield_new.F |
427 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORS( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
429 |
MDSWRITEFIELD_NEW |
call MDS_SEG8TORL( j,bi,bj,k,nNzdim, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdswritefield_new.F |
437 |
MDSWRITEFIELD_NEW |
call MDS_BYTESWAPR8( sNx, r8seg ) |
|
./pkg/mdsio/mdswritefield_new.F |
439 |
MDSWRITEFIELD_NEW |
write(dUnit,rec=irec) r8seg |
|
./pkg/aim_ocn_coupler/set_runoffmap.F |
25 |
SET_RUNOFFMAP |
Real*8 r8seg(3) |
|
./pkg/aim_ocn_coupler/set_runoffmap.F |
67 |
SET_RUNOFFMAP |
READ(88,rec=iRec) r8seg |
|
./pkg/aim_ocn_coupler/set_runoffmap.F |
68 |
SET_RUNOFFMAP |
tmpfld(1,n)=r8seg(1) |
|
./pkg/aim_ocn_coupler/set_runoffmap.F |
69 |
SET_RUNOFFMAP |
tmpfld(2,n)=r8seg(2) |
|
./pkg/aim_ocn_coupler/set_runoffmap.F |
70 |
SET_RUNOFFMAP |
tmpfld(3,n)=r8seg(3) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
131 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ctmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
134 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
136 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=1) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
139 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xxmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
142 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
144 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=2) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
147 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = yymt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
150 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
152 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=3) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
155 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = zetamt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
158 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
160 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=4) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
165 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xlmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
168 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
171 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
176 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = khmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
179 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
182 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
187 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tke(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
190 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
193 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
198 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tcanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
201 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
204 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
207 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
210 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
213 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
216 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ecanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
219 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
222 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
225 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetshal(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
228 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
231 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
234 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetroot(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
237 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
240 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
243 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
246 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
249 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
252 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = snodep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
255 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
258 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
261 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = capac(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
264 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
267 |
FIZHI_WRITE_VEGTILES |
write(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
324 |
FIZHI_READ_VEGTILES |
Real*8 r8seg(nchp) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
387 |
FIZHI_READ_VEGTILES |
read(iunit,rec=1) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
389 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
392 |
FIZHI_READ_VEGTILES |
ctmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
395 |
FIZHI_READ_VEGTILES |
read(iunit,rec=2) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
397 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
400 |
FIZHI_READ_VEGTILES |
xxmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
403 |
FIZHI_READ_VEGTILES |
read(iunit,rec=3) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
405 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
408 |
FIZHI_READ_VEGTILES |
yymt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
411 |
FIZHI_READ_VEGTILES |
read(iunit,rec=4) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
413 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
416 |
FIZHI_READ_VEGTILES |
zetamt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
422 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
424 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
427 |
FIZHI_READ_VEGTILES |
xlmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
433 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
435 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
438 |
FIZHI_READ_VEGTILES |
khmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
444 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
446 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
449 |
FIZHI_READ_VEGTILES |
tke(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
455 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
457 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
460 |
FIZHI_READ_VEGTILES |
tcanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
464 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
466 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
469 |
FIZHI_READ_VEGTILES |
tdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
473 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
475 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
478 |
FIZHI_READ_VEGTILES |
ecanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
482 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
484 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
487 |
FIZHI_READ_VEGTILES |
swetshal(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
491 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
493 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
496 |
FIZHI_READ_VEGTILES |
swetroot(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
500 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
502 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
505 |
FIZHI_READ_VEGTILES |
swetdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
509 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
511 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
514 |
FIZHI_READ_VEGTILES |
snodep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
518 |
FIZHI_READ_VEGTILES |
read(iunit,rec=irec) r8seg |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
520 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
523 |
FIZHI_READ_VEGTILES |
capac(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
52 |
FIZHI_WRITE_VEGTILES |
Real*8 r8seg(nchp) |