| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
231 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
232 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
235 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
236 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
239 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
240 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
243 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./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 |
281 |
ADMTLM_DSVD2MODEL |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
282 |
ADMTLM_DSVD2MODEL |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
291 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
293 |
ADMTLM_DSVD2MODEL |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
294 |
ADMTLM_DSVD2MODEL |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
303 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
305 |
ADMTLM_DSVD2MODEL |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
306 |
ADMTLM_DSVD2MODEL |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
315 |
ADMTLM_DSVD2MODEL |
do iobcs = 1, nobcs |
|
./pkg/admtlm/admtlm_dsvd2model.F |
317 |
ADMTLM_DSVD2MODEL |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
318 |
ADMTLM_DSVD2MODEL |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
99 |
ADMTLM_DSVD2MODEL |
integer iobcs |
|
./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) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
74 |
ADMTLM_MODEL2DSVD |
integer iobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1140 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1143 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1144 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1145 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1147 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1151 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1152 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1153 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1155 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1159 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1160 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1161 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1167 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1168 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1169 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1171 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
168 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
172 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
57 |
ECCO_COST_WEIGHTS |
integer iobcs |
|
./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 |
1137 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1138 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1141 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1145 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1146 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1147 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1149 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1153 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1154 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1155 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1157 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1161 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1162 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1165 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
167 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
171 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
57 |
ECCO_COST_WEIGHTS |
integer iobcs |
|
./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 |
278 |
OPTIM_READDATA |
iobcs= icvrec - igg*nobcs |
|
./optim/optim_readdata.F |
281 |
OPTIM_READDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_readdata.F |
286 |
OPTIM_READDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_readdata.F |
291 |
OPTIM_READDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_readdata.F |
296 |
OPTIM_READDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_readdata.F |
95 |
OPTIM_READDATA |
integer iobcs |
|
./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 |
205 |
OPTIM_WRITEDATA |
iobcs= icvrec - igg*nobcs |
|
./optim/optim_writedata.F |
208 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_writedata.F |
213 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_writedata.F |
218 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_writedata.F |
223 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_writedata.F |
71 |
OPTIM_WRITEDATA |
integer iobcs |
|
./pkg/grdchk/grdchk_get_position.F |
116 |
GRDCHK_GET_POSITION |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_get_position.F |
147 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
154 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
157 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
161 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
164 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
168 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
179 |
GRDCHK_GET_POSITION |
& iobcs .EQ. obcspos .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
212 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
50 |
GRDCHK_GET_POSITION |
integer iobcs |
|
./pkg/grdchk/grdchk_loc.F |
132 |
GRDCHK_LOC |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_loc.F |
162 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
168 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
174 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
180 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
190 |
GRDCHK_LOC |
obcspos = iobcs |
|
./pkg/grdchk/grdchk_loc.F |
200 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
66 |
GRDCHK_LOC |
integer iobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
103 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
118 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
119 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ_LOC( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
126 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
141 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
142 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ_LOC( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
149 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
39 |
GRDCHK_GET_OBCS_MASK |
integer irec,iobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
72 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
73 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ_LOC( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
80 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
95 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
96 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ_LOC( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_init.F |
112 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
115 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
120 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
125 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
126 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
130 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
131 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
156 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
157 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
47 |
GRDCHK_INIT |
integer itest,iobcs |
|
./pkg/grdchk/grdchk_init.F |
67 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
68 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/ecco/cost_obcsn.F |
106 |
COST_OBCSN |
iobcs = 1 |
|
./pkg/ecco/cost_obcsn.F |
130 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
143 |
COST_OBCSN |
iobcs = 2 |
|
./pkg/ecco/cost_obcsn.F |
167 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
180 |
COST_OBCSN |
iobcs = 3 |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
216 |
COST_OBCSN |
iobcs = 4 |
|
./pkg/ecco/cost_obcsn.F |
240 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
58 |
COST_OBCSN |
integer iobcs |
|
./pkg/ecco/cost_obcsvol.F |
175 |
COST_OBCSVOL |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsvol.F |
182 |
COST_OBCSVOL |
if (iobcs.eq.4) then |
|
./pkg/ecco/cost_obcsvol.F |
225 |
COST_OBCSVOL |
if (iobcs.eq.4) then |
|
./pkg/ecco/cost_obcsvol.F |
268 |
COST_OBCSVOL |
if (iobcs.eq.3) then |
|
./pkg/ecco/cost_obcsvol.F |
311 |
COST_OBCSVOL |
if (iobcs.eq.3) then |
|
./pkg/ecco/cost_obcsvol.F |
62 |
COST_OBCSVOL |
integer iobcs |
|
./pkg/ecco/cost_obcsw.F |
106 |
COST_OBCSW |
iobcs = 1 |
|
./pkg/ecco/cost_obcsw.F |
130 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
143 |
COST_OBCSW |
iobcs = 2 |
|
./pkg/ecco/cost_obcsw.F |
167 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
180 |
COST_OBCSW |
iobcs = 3 |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
216 |
COST_OBCSW |
iobcs = 4 |
|
./pkg/ecco/cost_obcsw.F |
240 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
58 |
COST_OBCSW |
integer iobcs |
|
./pkg/ecco/ecco_cost_weights.F |
1187 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
1190 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1191 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1192 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1194 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1198 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1199 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1200 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1202 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1206 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1207 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1208 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1210 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1214 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1215 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1216 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1218 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
188 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
192 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
57 |
ECCO_COST_WEIGHTS |
integer iobcs |
|
./pkg/ecco/cost_obcse.F |
106 |
COST_OBCSE |
iobcs = 1 |
|
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
143 |
COST_OBCSE |
iobcs = 2 |
|
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
180 |
COST_OBCSE |
iobcs = 3 |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
216 |
COST_OBCSE |
iobcs = 4 |
|
./pkg/ecco/cost_obcse.F |
240 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
58 |
COST_OBCSE |
integer iobcs |
|
./pkg/ecco/cost_obcss.F |
106 |
COST_OBCSS |
iobcs = 1 |
|
./pkg/ecco/cost_obcss.F |
130 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
143 |
COST_OBCSS |
iobcs = 2 |
|
./pkg/ecco/cost_obcss.F |
167 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
180 |
COST_OBCSS |
iobcs = 3 |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
216 |
COST_OBCSS |
iobcs = 4 |
|
./pkg/ecco/cost_obcss.F |
240 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
58 |
COST_OBCSS |
integer iobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
100 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
128 |
CTRL_SET_PACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
131 |
CTRL_SET_PACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
138 |
CTRL_SET_PACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
141 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./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 |
171 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
204 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
211 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
213 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
219 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
221 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./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 |
259 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
289 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
296 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
298 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
304 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
306 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
55 |
CTRL_SET_PACK_YZ |
integer irec,iobcs,nrec_nl |
|
./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 |
131 |
CTRL_GETOBCSE |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
166 |
CTRL_GETOBCSE |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
209 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
223 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
235 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
242 |
CTRL_GETOBCSE |
& (obcsecount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcse.F |
249 |
CTRL_GETOBCSE |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
284 |
CTRL_GETOBCSE |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
327 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
342 |
CTRL_GETOBCSE |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcse.F |
344 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
345 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
348 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcse.F |
350 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
351 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
354 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
356 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
357 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
360 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
362 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
363 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
58 |
CTRL_GETOBCSE |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
105 |
CTRL_MASK_SET_YZ |
if(iobcs .eq.1 .or. iobcs .eq.2 .or. iobcs .eq.3) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
107 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
108 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
112 |
CTRL_MASK_SET_YZ |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
114 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
115 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
129 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
139 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ_LOC( fname, gg, iobcs, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
51 |
CTRL_MASK_SET_YZ |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
85 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
90 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
97 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
100 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
109 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
114 |
CTRL_INIT_OBCS_VARIABLES< |