62 |
integer funit |
integer funit |
63 |
integer cbuffindex |
integer cbuffindex |
64 |
|
|
65 |
_RL cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
66 |
|
|
67 |
character*(128) fname |
character*(128) fname |
68 |
cgg( |
cgg( |
181 |
do icvar = 1,maxcvars |
do icvar = 1,maxcvars |
182 |
if ( ncvarindex(icvar) .ne. -1 ) then |
if ( ncvarindex(icvar) .ne. -1 ) then |
183 |
do icvrec = 1,ncvarrecs(icvar) |
do icvrec = 1,ncvarrecs(icvar) |
|
cph( |
|
|
print *,'in owd: icvar, icvrec, ncvarrecs, ncvarindex', |
|
|
& icvar, icvrec, ncvarrecs(icvar), ncvarindex(icvar) |
|
|
cph) |
|
184 |
do bj = 1,nsy |
do bj = 1,nsy |
185 |
do bi = 1,nsx |
do bi = 1,nsx |
186 |
write( funit ) ncvarindex(icvar) |
write( funit ) ncvarindex(icvar) |