| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
232 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
236 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
240 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
244 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
279 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
291 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
303 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
315 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
88 |
ADMTLM_DSVD2MODEL |
integer filenWetobcsnGlo(nr,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
91 |
ADMTLM_DSVD2MODEL |
integer filenWetobcssGlo(nr,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
94 |
ADMTLM_DSVD2MODEL |
integer filenWetobcswGlo(nr,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
97 |
ADMTLM_DSVD2MODEL |
integer filenWetobcseGlo(nr,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
222 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
225 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
228 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
231 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/tutorial_cfc_offline/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/tutorial_cfc_offline/code/SIZE.h |
69 |
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 ) |
|
./verification/global_ocean.90x40x15/code_ad_nlfs/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global_ocean.90x40x15/code_ad_nlfs/SIZE.h |
61 |
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/tutorial_offline/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/tutorial_offline/code/SIZE.h |
69 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/tutorial_tracer_adjsens/code_ad/SIZE.h |
59 |
NO PROCEDURE |
integer nobcs |
|
./verification/tutorial_tracer_adjsens/code_ad/SIZE.h |
60 |
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/cfc_example/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/cfc_example/code/SIZE.h |
69 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./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/SIZE.h |
58 |
NO PROCEDURE |
integer nobcs |
|
./verification/natl_box_adjoint/code/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/OpenAD/code_ad_openad/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/OpenAD/code_ad_openad/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/OpenAD/code_ad/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/OpenAD/code_ad/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/tutorial_global_oce_biogeo/code/SIZE.h |
68 |
NO PROCEDURE |
integer nobcs |
|
./verification/tutorial_global_oce_biogeo/code/SIZE.h |
69 |
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/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/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/lab_sea/code_ad_seaice_only/SIZE.h |
65 |
NO PROCEDURE |
integer nobcs |
|
./verification/lab_sea/code_ad_seaice_only/SIZE.h |
66 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/lab_sea/code_ad_seaice_ocean/SIZE.h |
65 |
NO PROCEDURE |
integer nobcs |
|
./verification/lab_sea/code_ad_seaice_ocean/SIZE.h |
66 |
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_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/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 |
1140 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code_taueddy/SIZE.h |
60 |
NO PROCEDURE |
integer nobcs |
|
./verification/global1x1_tot/code_taueddy/SIZE.h |
61 |
NO PROCEDURE |
parameter ( nobcs = 4 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1134 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/bottom_ctrl_5x5/code_ad/SIZE.h |
59 |
NO PROCEDURE |
INTEGER nobcs |
|
./verification/bottom_ctrl_5x5/code_ad/SIZE.h |
60 |
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/grdchk/grdchk_get_position.F |
109 |
GRDCHK_GET_POSITION |
nobcsmax = nobcs |
|
./pkg/grdchk/grdchk_loc.F |
124 |
GRDCHK_LOC |
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 |
|
./pkg/grdchk/grdchk.h |
82 |
NO PROCEDURE |
integer nwettile( nsx,nsy,nr,nobcs ) |
|
./pkg/grdchk/grdchk.h |
98 |
NO PROCEDURE |
_RL grdchk_maskxz(1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/grdchk/grdchk.h |
99 |
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/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_weights.F |
1187 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost.h |
931 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
932 |
NO PROCEDURE |
_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
938 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
939 |
NO PROCEDURE |
_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
945 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
946 |
NO PROCEDURE |
_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ecco/ecco_cost.h |
952 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
|
./pkg/ecco/ecco_cost.h |
953 |
NO PROCEDURE |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,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_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_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_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_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_unpack.F |
202 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
206 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
210 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
214 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
249 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
261 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
273 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
285 |
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_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 |
190 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
193 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
196 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
199 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./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 |
|
./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_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_init.F |
452 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
454 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
478 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
480 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
504 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
506 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_init.F |
530 |
CTRL_INIT |
startrec = (startrec - 1)*nobcs + 1 |
|
./pkg/ctrl/ctrl_init.F |
532 |
CTRL_INIT |
endrec = (endrec - startrec + 1)*nobcs |
|
./pkg/ctrl/ctrl_weights.h |
18 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
19 |
NO PROCEDURE |
_RL wobcsnLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
24 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
25 |
NO PROCEDURE |
_RL wobcssLev (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
30 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
31 |
NO PROCEDURE |
_RL wobcswLev (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
36 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
|
./pkg/ctrl/ctrl_weights.h |
37 |
NO PROCEDURE |
_RL wobcseLev (1-oly:sny+oly,nr,nsx,nsy,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.h |
115 |
NO PROCEDURE |
integer nwetobcsn ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
116 |
NO PROCEDURE |
integer nwetobcsnglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
122 |
NO PROCEDURE |
integer nwetobcss ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
123 |
NO PROCEDURE |
integer nwetobcssglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
129 |
NO PROCEDURE |
integer nwetobcsw ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
130 |
NO PROCEDURE |
integer nwetobcswglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
136 |
NO PROCEDURE |
integer nwetobcse ( nsx,nsy,nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
137 |
NO PROCEDURE |
integer nwetobcseglo ( nr,nobcs ) |
|
./pkg/ctrl/ctrl.h |
441 |
NO PROCEDURE |
_RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
442 |
NO PROCEDURE |
_RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
445 |
NO PROCEDURE |
_RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
446 |
NO PROCEDURE |
_RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
449 |
NO PROCEDURE |
_RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
450 |
NO PROCEDURE |
_RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
453 |
NO PROCEDURE |
_RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
454 |
NO PROCEDURE |
_RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./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_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 |