| File |
Line number |
Procedure |
Code |
|
./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/ecco_cost_weights.F |
1001 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
57 |
ECCO_COST_WEIGHTS |
integer iobcs |
|
./pkg/ecco/ecco_cost_weights.F |
970 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./pkg/ecco/ecco_cost_weights.F |
973 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
974 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
975 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
981 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
982 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
983 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
985 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
989 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
990 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
991 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
993 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
997 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
999 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,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_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/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/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/grdchk/grdchk_loc.F |
129 |
GRDCHK_LOC |
iobcs = MOD((irec-1),nobcsmax) + 1 |
|
./pkg/grdchk/grdchk_loc.F |
136 |
GRDCHK_LOC |
& (icomp .le. itest + nwettile(bi,bj,k,iobcs))) then |
|
./pkg/grdchk/grdchk_loc.F |
159 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
165 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
171 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
177 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
187 |
GRDCHK_LOC |
obcspos = iobcs |
|
./pkg/grdchk/grdchk_loc.F |
196 |
GRDCHK_LOC |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
65 |
GRDCHK_LOC |
integer 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/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_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, |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1032 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1035 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1037 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1039 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1043 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1045 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1047 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1051 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1052 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1053 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1055 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1059 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1060 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1061 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
do iobcs = 1,nobcs |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/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/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 |
148 |
CTRL_SET_PACK_YZ |
weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro |
|
./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_obcsvol.F |
59 |
CTRL_OBCSVOL |
integer iobcs |
|
./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 |
131 |
CTRL_GETOBCSW |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
166 |
CTRL_GETOBCSW |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
209 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
226 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
238 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
245 |
CTRL_GETOBCSW |
& (obcswcount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsw.F |
252 |
CTRL_GETOBCSW |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
287 |
CTRL_GETOBCSW |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
330 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
345 |
CTRL_GETOBCSW |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
347 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
348 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
351 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
353 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
354 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
357 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
359 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
360 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
363 |
CTRL_GETOBCSW |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
365 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
366 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
59 |
CTRL_GETOBCSW |
integer iobcs |
|
./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_set_unpack_xz.F |
100 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
101 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
132 |
CTRL_SET_UNPACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
139 |
CTRL_SET_UNPACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
142 |
CTRL_SET_UNPACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
149 |
CTRL_SET_UNPACK_XZ |
weightfldxz(i,bi,ip,bj,jp,k,iobcs) = wbaro |
|
./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 |
176 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
200 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
208 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
210 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./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 |
251 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
273 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
280 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
282 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
54 |
CTRL_SET_UNPACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_pack.F |
187 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
190 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
193 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
196 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
72 |
CTRL_PACK |
integer iobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
100 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
101 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
132 |
CTRL_SET_UNPACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
139 |
CTRL_SET_UNPACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
142 |
CTRL_SET_UNPACK_YZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
149 |
CTRL_SET_UNPACK_YZ |
weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro |
|
./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 |
176 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
201 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
209 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
211 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./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 |
250 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
279 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
281 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
54 |
CTRL_SET_UNPACK_YZ |
integer irec,iobcs,nrec_nl |
|
./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_volflux.F |
65 |
CTRL_VOLFLUX |
integer iobcs |
|
./pkg/ctrl/ctrl_obcsbal.F |
62 |
CTRL_OBCSBAL |
integer iobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
181 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
188 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
200 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
206 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
374 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
378 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
382 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
384 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global nWet... k=', k, iobcs, ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
388 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
392 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
396 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
398 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global nWet... k=', k, iobcs, ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
402 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
406 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
40 |
CTRL_INIT_WET |
integer iobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
410 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
412 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global nWet... k=', k, iobcs, ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
416 |
CTRL_INIT_WET |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
420 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
424 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global nWet... k=', k, iobcs, ntmp |
|
./pkg/ctrl/ctrl_init_wet.F |
79 |
CTRL_INIT_WET |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_init_wet.F |
81 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
84 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
87 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
90 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init.F |
88 |
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_set_pack_xz.F |
100 |
CTRL_SET_PACK_XZ |
do iobcs=1,nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
101 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
129 |
CTRL_SET_PACK_XZ |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
132 |
CTRL_SET_PACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
139 |
CTRL_SET_PACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
142 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
149 |
CTRL_SET_PACK_XZ |
weightfldxz(i,bi,ip,bj,jp,k,iobcs) = wbaro |
|
./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 |
168 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
200 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
209 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
215 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
217 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./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 |
252 |
CTRL_SET_PACK_XZ |
if (iobcs .eq. 3 .or. iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
282 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
289 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
291 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
297 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
299 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
55 |
CTRL_SET_PACK_XZ |
integer irec,iobcs,nrec_nl |
|
./pkg/ctrl/ctrl_unpack.F |
198 |
CTRL_UNPACK |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
199 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
202 |
CTRL_UNPACK |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
203 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
206 |
CTRL_UNPACK |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
207 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
210 |
CTRL_UNPACK |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
211 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
246 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
248 |
CTRL_UNPACK |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
249 |
CTRL_UNPACK |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
258 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
260 |
CTRL_UNPACK |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
261 |
CTRL_UNPACK |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
270 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
272 |
CTRL_UNPACK |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
273 |
CTRL_UNPACK |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
282 |
CTRL_UNPACK |
do iobcs = 1, nobcs |
|
./pkg/ctrl/ctrl_unpack.F |
284 |
CTRL_UNPACK |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
285 |
CTRL_UNPACK |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
97 |
CTRL_UNPACK |
integer iobcs |
|
./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 |
132 |
CTRL_GETOBCSS |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
168 |
CTRL_GETOBCSS |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
225 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
237 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
244 |
CTRL_GETOBCSS |
& (obcsscount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcss.F |
251 |
CTRL_GETOBCSS |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
287 |
CTRL_GETOBCSS |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
330 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
345 |
CTRL_GETOBCSS |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcss.F |
347 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
348 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
351 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcss.F |
353 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
354 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
357 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcss.F |
359 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
360 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
363 |
CTRL_GETOBCSS |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcss.F |
365 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
366 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
60 |
CTRL_GETOBCSS |
integer iobcs |
|
./pkg/ctrl/ctrl_readparms.F |
49 |
CTRL_READPARMS |
integer iobcs |
|
./pkg/ctrl/ctrl_getobcsn.F |
125 |
CTRL_GETOBCSN |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_getobcsn.F |
128 |
CTRL_GETOBCSN |
& (obcsncount0-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
135 |
CTRL_GETOBCSN |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
179 |
CTRL_GETOBCSN |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
225 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
239 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
251 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
258 |
CTRL_GETOBCSN |
& (obcsncount1-1)*nobcs+iobcs, |
|
./pkg/ctrl/ctrl_getobcsn.F |
265 |
CTRL_GETOBCSN |
if (iobcs .eq. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
309 |
CTRL_GETOBCSN |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
354 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
370 |
CTRL_GETOBCSN |
if (iobcs .EQ. 1) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
372 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
373 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
377 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 2) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
379 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
380 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
384 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 4) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
386 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
387 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
391 |
CTRL_GETOBCSN |
else if (iobcs .EQ. 3) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
393 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
394 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
59 |
CTRL_GETOBCSN |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
104 |
CTRL_MASK_SET_XZ |
if (iobcs.eq.1 .or. iobcs .eq.2 .or. iobcs.eq.3) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
107 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
111 |
CTRL_MASK_SET_XZ |
if (iobcs .eq. 4) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
114 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
128 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
138 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ_LOC( fname, gg, iobcs, 0, mythid, dummy ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
51 |
CTRL_MASK_SET_XZ |
integer iobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
84 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
89 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
96 |
CTRL_MASK_SET_XZ |
do iobcs = 1,nobcs |