| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
290 |
OPTIM_READDATA |
do icvar = 1,maxcvars |
|
./optim/optim_readdata.F |
291 |
OPTIM_READDATA |
if ( ncvarindex(icvar) .ne. -1 ) then |
|
./optim/optim_readdata.F |
292 |
OPTIM_READDATA |
do icvrec = 1,ncvarrecs(icvar) |
|
./optim/optim_readdata.F |
295 |
OPTIM_READDATA |
read( funit ) ncvarindex(icvar) |
|
./optim/optim_readdata.F |
298 |
OPTIM_READDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_readdata.F |
300 |
OPTIM_READDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_readdata.F |
302 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_readdata.F |
304 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_readdata.F |
306 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_readdata.F |
309 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'i') then |
|
./optim/optim_readdata.F |
313 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./optim/optim_readdata.F |
319 |
OPTIM_READDATA |
if (icvar .eq. 11) then |
|
./optim/optim_readdata.F |
324 |
OPTIM_READDATA |
if (icvar .eq. 12) then |
|
./optim/optim_readdata.F |
329 |
OPTIM_READDATA |
if (icvar .eq. 13) then |
|
./optim/optim_readdata.F |
334 |
OPTIM_READDATA |
if (icvar .eq. 14) then |
|
./optim/optim_readdata.F |
73 |
OPTIM_READDATA |
integer icvar |
|
./optim/optim_writedata.F |
188 |
OPTIM_WRITEDATA |
do icvar = 1,maxcvars |
|
./optim/optim_writedata.F |
189 |
OPTIM_WRITEDATA |
if ( ncvarindex(icvar) .ne. -1 ) then |
|
./optim/optim_writedata.F |
190 |
OPTIM_WRITEDATA |
do icvrec = 1,ncvarrecs(icvar) |
|
./optim/optim_writedata.F |
193 |
OPTIM_WRITEDATA |
write( funit ) ncvarindex(icvar) |
|
./optim/optim_writedata.F |
196 |
OPTIM_WRITEDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_writedata.F |
198 |
OPTIM_WRITEDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_writedata.F |
200 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_writedata.F |
202 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_writedata.F |
204 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_writedata.F |
207 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'i') then |
|
./optim/optim_writedata.F |
211 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./optim/optim_writedata.F |
217 |
OPTIM_WRITEDATA |
if (icvar .eq. 11) then |
|
./optim/optim_writedata.F |
222 |
OPTIM_WRITEDATA |
if (icvar .eq. 12) then |
|
./optim/optim_writedata.F |
227 |
OPTIM_WRITEDATA |
if (icvar .eq. 13) then |
|
./optim/optim_writedata.F |
232 |
OPTIM_WRITEDATA |
if (icvar .eq. 14) then |
|
./optim/optim_writedata.F |
64 |
OPTIM_WRITEDATA |
integer icvar |