| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
970 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/cost_obcsvol.F |
173 |
COST_OBCSVOL |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsvol.F |
175 |
COST_OBCSVOL |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/ecco_cost.h |
765 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
766 |
NO PROCEDURE |
_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
772 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
773 |
NO PROCEDURE |
_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
779 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
780 |
NO PROCEDURE |
_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
786 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
787 |
NO PROCEDURE |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/grdchk/grdchk_loc.F |
121 |
GRDCHK_LOC |
nobcsmax = nobcs |
|
./pkg/grdchk/grdchk.h |
80 |
NO PROCEDURE |
integer nwettile( nsx,nsy,nr,nobcs ) |
|
./pkg/grdchk/grdchk.h |
96 |
NO PROCEDURE |
_RL grdchk_maskxz(1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/grdchk/grdchk.h |
97 |
NO PROCEDURE |
_RL grdchk_maskyz(1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/grdchk/grdchk_init.F |
112 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
156 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
67 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_get_position.F |
109 |
GRDCHK_GET_POSITION |
nobcsmax = nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
118 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
141 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
72 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
95 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./verification/natl_box_adjoint/code_seaice/SIZE.h |
58 |
NO PROCEDURE |
integer nobcs |
|
./verification/natl_box_adjoint/code_seaice/SIZE.h |
59 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/natl_box_adjoint/code_bulk/SIZE.h |
58 |
NO PROCEDURE |
integer nobcs |
|
./verification/natl_box_adjoint/code_bulk/SIZE.h |
59 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/natl_box_adjoint/code/SIZE.h |
58 |
NO PROCEDURE |
integer nobcs |
|
./verification/natl_box_adjoint/code/SIZE.h |
59 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/hs94.1x64x5/code_ad/SIZE.h |
59 |
NO PROCEDURE |
integer nobcs |
|
./verification/hs94.1x64x5/code_ad/SIZE.h |
60 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global1x1_tot/code_bulk_adj/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global1x1_tot/code_bulk_adj/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global1x1_tot/code_seaice_adj/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global1x1_tot/code_seaice_adj/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global1x1_tot/code/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global1x1_tot/code/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1032 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global_ocean_ebm/code_ad/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global_ocean_ebm/code_ad/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/cfc_offline/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/cfc_offline/code/SIZE.h |
69 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/dic_example/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/dic_example/code/SIZE.h |
69 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/front_relax/code_ad/SIZE.h |
59 |
NO PROCEDURE |
integer nobcs |
|
./verification/front_relax/code_ad/SIZE.h |
60 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global2x2_tot/code/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global2x2_tot/code/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/carbon/code_ad/SIZE.h |
59 |
NO PROCEDURE |
integer nobcs |
|
./verification/carbon/code_ad/SIZE.h |
60 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/cfc_example/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/cfc_example/code/SIZE.h |
69 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global_ocean.90x40x15/code_ad/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global_ocean.90x40x15/code_ad/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global_ocean.90x40x15/code_ad_vecinv/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global_ocean.90x40x15/code_ad_vecinv/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./optim/optim_readdata.F |
161 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
164 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
167 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
170 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
276 |
OPTIM_READDATA |
gg = (icvrec-1)/nobcs |
|
./optim/optim_readdata.F |
278 |
OPTIM_READDATA |
iobcs= icvrec - igg*nobcs |
|
./optim/optim_writedata.F |
158 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
161 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
164 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
167 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
203 |
OPTIM_WRITEDATA |
gg = (icvrec-1)/nobcs |
|
./optim/optim_writedata.F |
205 |
OPTIM_WRITEDATA |
iobcs= icvrec - igg*nobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
128 |
CTRL_SET_PACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
167 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
252 |
CTRL_SET_PACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
44 |
CTRL_SET_PACK_YZ |
_RL weightfld( nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
70 |
CTRL_SET_PACK_YZ |
_RL globmskyz ( nsx,npx,sny,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
72 |
CTRL_SET_PACK_YZ |
_RL weightfldyz( nsx,npx,sny,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
99 |
CTRL_SET_PACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_obcsvol.F |
169 |
CTRL_OBCSVOL |
& (obcsncount0-1)*nobcs+4, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
205 |
CTRL_OBCSVOL |
& (obcsncount0-1)*nobcs+4, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
240 |
CTRL_OBCSVOL |
& (obcsncount0-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
276 |
CTRL_OBCSVOL |
(obcsncount0-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
328 |
CTRL_OBCSVOL |
& (obcsncount1-1)*nobcs+4, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
363 |
CTRL_OBCSVOL |
& (obcsncount1-1)*nobcs+4, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
398 |
CTRL_OBCSVOL |
& (obcsncount1-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_obcsvol.F |
434 |
CTRL_OBCSVOL |
(obcsncount1-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_getobcsw.F |
121 |
CTRL_GETOBCSW |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcsw.F |
124 |
CTRL_GETOBCSW |
& (obcswcount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsw.F |
245 |
CTRL_GETOBCSW |
& (obcswcount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_weights.h |
12 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
13 |
NO PROCEDURE |
_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
19 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
20 |
NO PROCEDURE |
_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
26 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
27 |
NO PROCEDURE |
_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
33 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
34 |
NO PROCEDURE |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
120 |
CTRL_GETOBCSE |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcse.F |
124 |
CTRL_GETOBCSE |
& (obcsecount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcse.F |
242 |
CTRL_GETOBCSE |
& (obcsecount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
100 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
164 |
CTRL_SET_UNPACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
239 |
CTRL_SET_UNPACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
43 |
CTRL_SET_UNPACK_XZ |
_RL weightfld( nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
44 |
CTRL_SET_UNPACK_XZ |
integer nwetglobal(nr,nobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
65 |
CTRL_SET_UNPACK_XZ |
_RL globmskxz( snx,nsx,npx,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
67 |
CTRL_SET_UNPACK_XZ |
_RL weightfldxz( snx,nsx,npx,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_pack.F |
187 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
190 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
193 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
196 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
100 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
164 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
238 |
CTRL_SET_UNPACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
43 |
CTRL_SET_UNPACK_YZ |
_RL weightfld( nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
44 |
CTRL_SET_UNPACK_YZ |
integer nwetglobal(nr,nobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
65 |
CTRL_SET_UNPACK_YZ |
_RL globmskyz( nsx,npx,sny,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
67 |
CTRL_SET_UNPACK_YZ |
_RL weightfldyz( nsx,npx,sny,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
129 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
36 |
CTRL_MASK_SET_YZ |
integer nwetobcs (nsx,nsy,nr,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
59 |
CTRL_MASK_SET_YZ |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
85 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
97 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_volflux.F |
169 |
CTRL_VOLFLUX |
& (obcsncount-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_volflux.F |
217 |
CTRL_VOLFLUX |
& (obcsncount-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_volflux.F |
268 |
CTRL_VOLFLUX |
& (obcsncount-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_volflux.F |
326 |
CTRL_VOLFLUX |
(obcsncount-1)*nobcs+3, doglobalread, |
|
./pkg/ctrl/ctrl_init_wet.F |
181 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
187 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
193 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
199 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
205 |
CTRL_INIT_WET |
& (ncvarrecs(i)/nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
374 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
388 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
402 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
416 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
79 |
CTRL_INIT_WET |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl.h |
104 |
NO PROCEDURE |
integer nwetobcsn ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
105 |
NO PROCEDURE |
integer nwetobcsnglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
111 |
NO PROCEDURE |
integer nwetobcss ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
112 |
NO PROCEDURE |
integer nwetobcssglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
118 |
NO PROCEDURE |
integer nwetobcsw ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
119 |
NO PROCEDURE |
integer nwetobcswglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
125 |
NO PROCEDURE |
integer nwetobcse ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
126 |
NO PROCEDURE |
integer nwetobcseglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
334 |
NO PROCEDURE |
_RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
335 |
NO PROCEDURE |
_RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
339 |
NO PROCEDURE |
_RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
340 |
NO PROCEDURE |
_RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
344 |
NO PROCEDURE |
_RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
345 |
NO PROCEDURE |
_RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
349 |
NO PROCEDURE |
_RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
350 |
NO PROCEDURE |
_RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl_init.F |
390 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
392 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
416 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
418 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
442 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
444 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
468 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
470 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
109 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
64 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
79 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
94 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
100 |
CTRL_SET_PACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
129 |
CTRL_SET_PACK_XZ |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
164 |
CTRL_SET_PACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
245 |
CTRL_SET_PACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
44 |
CTRL_SET_PACK_XZ |
_RL weightfld( nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
71 |
CTRL_SET_PACK_XZ |
_RL globmskxz ( snx,nsx,npx,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
73 |
CTRL_SET_PACK_XZ |
_RL weightfldxz( snx,nsx,npx,nsy,npy,nr,nobcs ) |
|
./pkg/ctrl/ctrl_unpack.F |
199 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
203 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
207 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
211 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
246 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
258 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
270 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
282 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
86 |
CTRL_UNPACK |
integer filenWetobcsnGlo(nr,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
89 |
CTRL_UNPACK |
integer filenWetobcssGlo(nr,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
92 |
CTRL_UNPACK |
integer filenWetobcswGlo(nr,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
95 |
CTRL_UNPACK |
integer filenWetobcseGlo(nr,nobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
122 |
CTRL_GETOBCSS |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcss.F |
125 |
CTRL_GETOBCSS |
& (obcsscount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcss.F |
244 |
CTRL_GETOBCSS |
& (obcsscount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
125 |
CTRL_GETOBCSN |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcsn.F |
128 |
CTRL_GETOBCSN |
& (obcsncount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
258 |
CTRL_GETOBCSN |
& (obcsncount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
128 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
36 |
CTRL_MASK_SET_XZ |
integer nwetobcs (nsx,nsy,nr,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
59 |
CTRL_MASK_SET_XZ |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
84 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
96 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |