File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_position.F |
119 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
./pkg/grdchk/grdchk_get_position.F |
144 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
./pkg/grdchk/grdchk_get_position.F |
149 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
./pkg/grdchk/grdchk_get_position.F |
154 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
./pkg/grdchk/grdchk_get_position.F |
161 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
./pkg/grdchk/grdchk_init.F |
104 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
./pkg/grdchk/grdchk_init.F |
113 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
./pkg/grdchk/grdchk_init.F |
122 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
./pkg/grdchk/grdchk_init.F |
80 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
./pkg/grdchk/grdchk_init.F |
88 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
./pkg/grdchk/grdchk_init.F |
96 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
./pkg/grdchk/grdchk_loc.F |
142 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
./pkg/grdchk/grdchk_loc.F |
192 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
./pkg/grdchk/grdchk_loc.F |
198 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
./pkg/grdchk/grdchk_loc.F |
204 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
./pkg/grdchk/grdchk_loc.F |
211 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
./optim/optim_readdata.F |
185 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
./optim/optim_readdata.F |
247 |
OPTIM_READDATA |
& (ncvargrd(i), i=1,maxcvars) |
./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_writedata.F |
139 |
OPTIM_WRITEDATA |
& (ncvargrd(i), i=1,maxcvars) |
./optim/optim_writedata.F |
183 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
./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 |
./pkg/admtlm/admtlm_model2dsvd.F |
240 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
./pkg/ctrl/ctrl.h |
138 |
NO PROCEDURE |
& ncvargrd |
./pkg/ctrl/ctrl.h |
140 |
NO PROCEDURE |
character*(1) ncvargrd(maxcvars) |
./pkg/ctrl/ctrl_init.F |
104 |
CTRL_INIT |
ncvargrd(ivar) = '?' |
./pkg/ctrl/ctrl_init_ctrlvar.F |
69 |
CTRL_INIT_CTRLVAR |
ncvargrd (ivarindex) = ncvargrd_loc |
./pkg/ctrl/ctrl_init_wet.F |
189 |
CTRL_INIT_WET |
if ( ncvargrd(i) .eq. 'c' ) then |
./pkg/ctrl/ctrl_init_wet.F |
192 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 's' ) then |
./pkg/ctrl/ctrl_init_wet.F |
195 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'w' ) then |
./pkg/ctrl/ctrl_init_wet.F |
198 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'v' ) then |
./pkg/ctrl/ctrl_init_wet.F |
203 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'i') then |
./pkg/ctrl/ctrl_init_wet.F |
207 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'm' ) then |
./pkg/ctrl/ctrl_init_wet.F |
242 |
CTRL_INIT_WET |
print*,' grid location = ',ncvargrd(i) |
./pkg/ctrl/ctrl_pack.F |
269 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |