Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by heimbach, Wed Nov 19 19:07:02 2003 UTC | revision 1.6 by mlosch, Fri Dec 3 01:06:33 2004 UTC | |
---|---|---|
# | Line 181 c-- Write the data. | Line 181 c-- Write the data. |
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) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |