| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
104 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
119 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
120 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
127 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
142 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
143 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
150 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
40 |
GRDCHK_GET_OBCS_MASK |
integer irec,iobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
73 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
74 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
81 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
96 |
GRDCHK_GET_OBCS_MASK |
do iobcs = 1,nobcs |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
97 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_position.F |
117 |
GRDCHK_GET_POSITION |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
157 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
160 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
164 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
184 |
GRDCHK_GET_POSITION |
& iobcs .EQ. obcspos .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
219 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
51 |
GRDCHK_GET_POSITION |
integer iobcs |
|
./pkg/grdchk/grdchk_init.F |
113 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
122 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
126 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
127 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
131 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
132 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
157 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
158 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
48 |
GRDCHK_INIT |
integer itest,iobcs |
|
./pkg/grdchk/grdchk_init.F |
68 |
GRDCHK_INIT |
do iobcs = 1, nobcs |
|
./pkg/grdchk/grdchk_init.F |
69 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_loc.F |
159 |
GRDCHK_LOC |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_loc.F |
163 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
164 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
215 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
223 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
255 |
GRDCHK_LOC |
obcspos = iobcs |
|
./pkg/grdchk/grdchk_loc.F |
259 |
GRDCHK_LOC |
print *, 'ph-grd -->hit<-- ', itmp,jtmp,k,iobcs |
|
./pkg/grdchk/grdchk_loc.F |
272 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
76 |
GRDCHK_LOC |
integer iobcs |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
204 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
207 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
210 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
213 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
72 |
CTRL_PACK |
integer iobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1141 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1144 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1145 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1146 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1148 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1152 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1153 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1154 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1156 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1160 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1161 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1162 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1164 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1168 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1169 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1170 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
58 |
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 |
160 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
163 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
166 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
169 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
277 |
OPTIM_READDATA |
iobcs= icvrec - igg*nobcs |
|
./optim/optim_readdata.F |
280 |
OPTIM_READDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_readdata.F |
285 |
OPTIM_READDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_readdata.F |
290 |
OPTIM_READDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_readdata.F |
295 |
OPTIM_READDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_readdata.F |
94 |
OPTIM_READDATA |
integer iobcs |
|
./optim/optim_writedata.F |
157 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
160 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
163 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
166 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
204 |
OPTIM_WRITEDATA |
iobcs= icvrec - igg*nobcs |
|
./optim/optim_writedata.F |
207 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_writedata.F |
212 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_writedata.F |
217 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_writedata.F |
222 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_writedata.F |
70 |
OPTIM_WRITEDATA |
integer iobcs |
|
./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 |
|
./pkg/ctrl/ctrl_getobcse.F |
122 |
CTRL_GETOBCSE |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcse.F |
126 |
CTRL_GETOBCSE |
& (obcsecount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcse.F |
133 |
CTRL_GETOBCSE |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
168 |
CTRL_GETOBCSE |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
211 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
225 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
237 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
244 |
CTRL_GETOBCSE |
& (obcsecount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcse.F |
251 |
CTRL_GETOBCSE |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
286 |
CTRL_GETOBCSE |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
329 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
344 |
CTRL_GETOBCSE |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcse.F |
346 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
347 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
350 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcse.F |
352 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
353 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
356 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcse.F |
358 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
359 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
362 |
CTRL_GETOBCSE |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcse.F |
364 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
365 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
60 |
CTRL_GETOBCSE |
integer iobcs |
|
./pkg/ctrl/ctrl_getobcsn.F |
127 |
CTRL_GETOBCSN |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcsn.F |
130 |
CTRL_GETOBCSN |
& (obcsncount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
137 |
CTRL_GETOBCSN |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
181 |
CTRL_GETOBCSN |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
227 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
241 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
253 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
260 |
CTRL_GETOBCSN |
& (obcsncount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
267 |
CTRL_GETOBCSN |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
311 |
CTRL_GETOBCSN |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
356 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
372 |
CTRL_GETOBCSN |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
374 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
375 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
379 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
381 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
382 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
386 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
388 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
389 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
393 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
395 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
396 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
61 |
CTRL_GETOBCSN |
integer iobcs |
|
./pkg/ctrl/ctrl_getobcss.F |
124 |
CTRL_GETOBCSS |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcss.F |
127 |
CTRL_GETOBCSS |
& (obcsscount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcss.F |
134 |
CTRL_GETOBCSS |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
170 |
CTRL_GETOBCSS |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
213 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
227 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
239 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
246 |
CTRL_GETOBCSS |
& (obcsscount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcss.F |
253 |
CTRL_GETOBCSS |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
289 |
CTRL_GETOBCSS |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
332 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
347 |
CTRL_GETOBCSS |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcss.F |
349 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
350 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
353 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcss.F |
355 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
356 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
359 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
361 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
362 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
365 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
367 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
368 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
62 |
CTRL_GETOBCSS |
integer iobcs |
|
./pkg/ctrl/ctrl_getobcsw.F |
123 |
CTRL_GETOBCSW |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcsw.F |
126 |
CTRL_GETOBCSW |
& (obcswcount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsw.F |
133 |
CTRL_GETOBCSW |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
168 |
CTRL_GETOBCSW |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
211 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
247 |
CTRL_GETOBCSW |
& (obcswcount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsw.F |
254 |
CTRL_GETOBCSW |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
289 |
CTRL_GETOBCSW |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
332 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
347 |
CTRL_GETOBCSW |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
349 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
350 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
353 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
355 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
356 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
359 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
361 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
362 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
365 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
367 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
368 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
61 |
CTRL_GETOBCSW |
integer iobcs |
|
./pkg/ctrl/ctrl_init.F |
97 |
CTRL_INIT |
integer iobcs |
|
./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 |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
115 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
50 |
CTRL_INIT_OBCS_VARIABLES |
integer iobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
64 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
69 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
70 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
79 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
84 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
85 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
94 |
CTRL_INIT_OBCS_VARIABLES |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
99 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
184 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
203 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
209 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
393 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
394 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
400 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
401 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
409 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
410 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
413 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
416 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
417 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
41 |
CTRL_INIT_WET |
integer iobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
425 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
432 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
433 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
441 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
442 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
448 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
449 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
465 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
466 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
468 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
477 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
478 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
480 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
489 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
490 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
492 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
501 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
502 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
504 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
82 |
CTRL_INIT_WET |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
84 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
87 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
90 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
93 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
if (iobcs.eq.1 .or. iobcs .eq.2 .or. iobcs.eq.3) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
108 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
109 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
115 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
116 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
130 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
135 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
140 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
53 |
CTRL_MASK_SET_XZ |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
86 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
91 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
98 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
107 |
CTRL_MASK_SET_YZ |
if(iobcs .eq.1 .or. iobcs .eq.2 .or. iobcs .eq.3) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
109 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
110 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
114 |
CTRL_MASK_SET_YZ |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
116 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
117 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
131 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
136 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
141 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
53 |
CTRL_MASK_SET_YZ |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
87 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
92 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
99 |
CTRL_MASK_SET_YZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_obcsbal.F |
64 |
CTRL_OBCSBAL |
integer iobcs |
|
./pkg/ctrl/ctrl_obcsvol.F |
61 |
CTRL_OBCSVOL |
integer iobcs |
|
./pkg/ctrl/ctrl_pack.F |
207 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
210 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
213 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
216 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
72 |
CTRL_PACK |
integer iobcs |
|
./pkg/ctrl/ctrl_readparms.F |
49 |
CTRL_READPARMS |
integer iobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
111 |
CTRL_SET_PACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
112 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
168 |
CTRL_SET_PACK_XZ |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
171 |
CTRL_SET_PACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
178 |
CTRL_SET_PACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
181 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
209 |
CTRL_SET_PACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
237 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
246 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
257 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
265 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
267 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
304 |
CTRL_SET_PACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
311 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
335 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
342 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
353 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
355 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
361 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
363 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
58 |
CTRL_SET_PACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
109 |
CTRL_SET_PACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
110 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
166 |
CTRL_SET_PACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
169 |
CTRL_SET_PACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
176 |
CTRL_SET_PACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
179 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
211 |
CTRL_SET_PACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
215 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
239 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
249 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
260 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
262 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
268 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
270 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
309 |
CTRL_SET_PACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
316 |
CTRL_SET_PACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
340 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
347 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
358 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
360 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
366 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
368 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
58 |
CTRL_SET_PACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
114 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
115 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
171 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
174 |
CTRL_SET_UNPACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
181 |
CTRL_SET_UNPACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
184 |
CTRL_SET_UNPACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
212 |
CTRL_SET_UNPACK_XZ |
iobcs= mod((irec-1)*sny+j-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
224 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
225 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
250 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
262 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
264 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
302 |
CTRL_SET_UNPACK_XZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
314 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
315 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
338 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
348 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
350 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
59 |
CTRL_SET_UNPACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
114 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
115 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
171 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
174 |
CTRL_SET_UNPACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
181 |
CTRL_SET_UNPACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
184 |
CTRL_SET_UNPACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
212 |
CTRL_SET_UNPACK_YZ |
iobcs= mod((irec-1)*snx+i-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
224 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
225 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
250 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
262 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
264 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
300 |
CTRL_SET_UNPACK_YZ |
iobcs= mod(irec-1,nobcs)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
312 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
313 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
335 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
345 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
347 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
59 |
CTRL_SET_UNPACK_YZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_unpack.F |
217 |
CTRL_UNPACK |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
218 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
221 |
CTRL_UNPACK |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
222 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
225 |
CTRL_UNPACK |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
226 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
229 |
CTRL_UNPACK |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
230 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
265 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
267 |
CTRL_UNPACK |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
268 |
CTRL_UNPACK |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
277 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
279 |
CTRL_UNPACK |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
280 |
CTRL_UNPACK |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
289 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
291 |
CTRL_UNPACK |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
292 |
CTRL_UNPACK |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
301 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
303 |
CTRL_UNPACK |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
304 |
CTRL_UNPACK |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
97 |
CTRL_UNPACK |
integer iobcs |
|
./pkg/ctrl/ctrl_volflux.F |
67 |
CTRL_VOLFLUX |
integer iobcs |
|
./pkg/ecco/cost_obcse.F |
108 |
COST_OBCSE |
iobcs = 1 |
|
./pkg/ecco/cost_obcse.F |
132 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
145 |
COST_OBCSE |
iobcs = 2 |
|
./pkg/ecco/cost_obcse.F |
169 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
182 |
COST_OBCSE |
iobcs = 3 |
|
./pkg/ecco/cost_obcse.F |
205 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
218 |
COST_OBCSE |
iobcs = 4 |
|
./pkg/ecco/cost_obcse.F |
242 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
60 |
COST_OBCSE |
integer iobcs |
|
./pkg/ecco/cost_obcsn.F |
108 |
COST_OBCSN |
iobcs = 1 |
|
./pkg/ecco/cost_obcsn.F |
132 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
145 |
COST_OBCSN |
iobcs = 2 |
|
./pkg/ecco/cost_obcsn.F |
169 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
182 |
COST_OBCSN |
iobcs = 3 |
|
./pkg/ecco/cost_obcsn.F |
205 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
218 |
COST_OBCSN |
iobcs = 4 |
|
./pkg/ecco/cost_obcsn.F |
242 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
60 |
COST_OBCSN |
integer iobcs |
|
./pkg/ecco/cost_obcss.F |
108 |
COST_OBCSS |
iobcs = 1 |
|
./pkg/ecco/cost_obcss.F |
132 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
145 |
COST_OBCSS |
iobcs = 2 |
|
./pkg/ecco/cost_obcss.F |
169 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
182 |
COST_OBCSS |
iobcs = 3 |
|
./pkg/ecco/cost_obcss.F |
205 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
218 |
COST_OBCSS |
iobcs = 4 |
|
./pkg/ecco/cost_obcss.F |
242 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
60 |
COST_OBCSS |
integer iobcs |
|
./pkg/ecco/cost_obcsvol.F |
177 |
COST_OBCSVOL |
iobcs = irec - igg*nobcs |
|
./pkg/ecco/cost_obcsvol.F |
184 |
COST_OBCSVOL |
if (iobcs.eq.4) then |
|
./pkg/ecco/cost_obcsvol.F |
227 |
COST_OBCSVOL |
if (iobcs.eq.4) then |
|
./pkg/ecco/cost_obcsvol.F |
270 |
COST_OBCSVOL |
if (iobcs.eq.3) then |
|
./pkg/ecco/cost_obcsvol.F |
313 |
COST_OBCSVOL |
if (iobcs.eq.3) then |
|
./pkg/ecco/cost_obcsvol.F |
64 |
COST_OBCSVOL |
integer iobcs |
|
./pkg/ecco/cost_obcsw.F |
108 |
COST_OBCSW |
iobcs = 1 |
|
./pkg/ecco/cost_obcsw.F |
132 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
145 |
COST_OBCSW |
iobcs = 2 |
|
./pkg/ecco/cost_obcsw.F |
169 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
182 |
COST_OBCSW |
iobcs = 3 |
|
./pkg/ecco/cost_obcsw.F |
205 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
218 |
COST_OBCSW |
iobcs = 4 |
|
./pkg/ecco/cost_obcsw.F |
242 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
60 |
COST_OBCSW |
integer iobcs |
|
./pkg/ecco/ecco_cost_weights.F |
1783 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
1786 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1787 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1788 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1794 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1795 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1798 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1803 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1804 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1806 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1810 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1811 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1812 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
200 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
204 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
208 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
212 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
58 |
ECCO_COST_WEIGHTS |
integer iobcs |