| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_position.F |
109 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
132 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
137 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
142 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
147 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
101 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
109 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
77 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
85 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
93 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
139 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
194 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
200 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
206 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
220 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
177 |
OPTIM_READDATA |
read( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
211 |
OPTIM_READDATA |
& (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_readdata.F |
264 |
OPTIM_READDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_readdata.F |
266 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_readdata.F |
268 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_readdata.F |
270 |
OPTIM_READDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_readdata.F |
273 |
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 |
175 |
OPTIM_WRITEDATA |
write( funit ) (ncvargrd(i), i=1,maxcvars) |
|
./optim/optim_writedata.F |
190 |
OPTIM_WRITEDATA |
if (ncvargrd(icvar) .eq. 'c') then |
|
./optim/optim_writedata.F |
192 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 's') then |
|
./optim/optim_writedata.F |
194 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'w') then |
|
./optim/optim_writedata.F |
196 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'v') then |
|
./optim/optim_writedata.F |
200 |
OPTIM_WRITEDATA |
else if (ncvargrd(icvar) .eq. 'm') then |
|
./pkg/admtlm/admtlm_model2dsvd.F |
238 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/ctrl/ctrl.h |
154 |
NO PROCEDURE |
& ncvargrd |
|
./pkg/ctrl/ctrl.h |
156 |
NO PROCEDURE |
character*(1) ncvargrd(maxcvars) |
|
./pkg/ctrl/ctrl_init.F |
133 |
CTRL_INIT |
ncvargrd(ivar) = '?' |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
68 |
CTRL_INIT_CTRLVAR |
ncvargrd (ivarindex) = ncvargrd_loc |
|
./pkg/ctrl/ctrl_init_wet.F |
170 |
CTRL_INIT_WET |
if ( ncvargrd(i) .eq. 'c' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
173 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 's' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
176 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'w' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
179 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'v' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
182 |
CTRL_INIT_WET |
else if ( ncvargrd(i) .eq. 'm' ) then |
|
./pkg/ctrl/ctrl_init_wet.F |
217 |
CTRL_INIT_WET |
print*,' grid location = ',ncvargrd(i) |
|
./pkg/ctrl/ctrl_pack.F |
223 |
CTRL_PACK |
write(cunit) (ncvargrd(i), i=1,maxcvars) |