| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
118 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
148 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
160 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
166 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
103 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
112 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
79 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
87 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
95 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
141 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
191 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
197 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
203 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
210 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_loc.F |
217 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./optim/optim_readdata.F |
181 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
243 |
OPTIM_READDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
296 |
OPTIM_READDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_readdata.F |
298 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_readdata.F |
300 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_readdata.F |
302 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_readdata.F |
305 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'i') then |
|
./optim/optim_readdata.F |
309 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./optim/optim_writedata.F |
135 |
OPTIM_WRITEDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
179 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
194 |
OPTIM_WRITEDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_writedata.F |
196 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_writedata.F |
198 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_writedata.F |
200 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_writedata.F |
203 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'i') then |
|
./optim/optim_writedata.F |
207 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./pkg/admtlm/admtlm_model2dsvd.F |
240 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl.h |
164 |
NO PROCEDURE |
& ncvargrd |
|
./pkg/ctrl/ctrl.h |
166 |
NO PROCEDURE |
character*(1) ncvargrd(maxcvars) |
|
./pkg/ctrl/ctrl_init.F |
90 |
CTRL_INIT |
ncvargrd(ivar) = '?' |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
69 |
CTRL_INIT_CTRLVAR |
ncvargrd (ivarindex) = ncvargrd_loc |
|
./pkg/ctrl/ctrl_init_wet.F |
188 |
CTRL_INIT_WET |
if ( ncvargrd(i) .eq. 'c' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 's' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'w' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'v' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
202 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'i') then |
|
./pkg/ctrl/ctrl_init_wet.F |
206 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'm' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
241 |
CTRL_INIT_WET |
print*,' grid location = ',ncvargrd(i) |
|
./pkg/ctrl/ctrl_pack.F |
246 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |