| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
120 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
144 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
148 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
152 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
156 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
100 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
108 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
76 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
84 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
92 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
108 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
129 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
134 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
139 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
144 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./optim/optim_readdata.F |
178 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
212 |
OPTIM_READDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
265 |
OPTIM_READDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_readdata.F |
267 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_readdata.F |
269 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_readdata.F |
271 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_readdata.F |
274 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./optim/optim_writedata.F |
136 |
OPTIM_WRITEDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
176 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
191 |
OPTIM_WRITEDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_writedata.F |
193 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_writedata.F |
195 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_writedata.F |
197 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_writedata.F |
201 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./pkg/ctrl/ctrl_pack.F |
203 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl_init_wet.F |
167 |
CTRL_INIT_WET |
if ( ncvargrd(i) .eq. 'c' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
170 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 's' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
173 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'w' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
176 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'v' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
179 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'm' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
214 |
CTRL_INIT_WET |
print*,' grid location = ',ncvargrd(i) |
|
./pkg/ctrl/ctrl.h |
130 |
NO PROCEDURE |
& ncvargrd |
|
./pkg/ctrl/ctrl.h |
132 |
NO PROCEDURE |
character*(1) ncvargrd(maxcvars) |
|
./pkg/ctrl/ctrl_init.F |
115 |
CTRL_INIT |
ncvargrd(ivar) = '?' |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
69 |
CTRL_INIT_CTRLVAR |
ncvargrd (ivarindex) = ncvargrd_loc |