| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_ptracer.F |
115 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
117 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBEptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
133 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
135 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBWptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
57 |
OBCS_APPLY_PTRACER |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
78 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
80 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBNptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
96 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
98 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBSptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
29 |
OBCS_APPLY_SLOC |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
37 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
39 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
47 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
49 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
61 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
63 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
71 |
OBCS_APPLY_SLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
73 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBWs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
29 |
OBCS_APPLY_TLOC |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
37 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
39 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
47 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
49 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
61 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
63 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
71 |
OBCS_APPLY_TLOC |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
73 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBWt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
104 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBSt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
105 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBSs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBEt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
124 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBEs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
139 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
141 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBWt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
142 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBWs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
52 |
OBCS_APPLY_TS |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBNt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBNs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
30 |
OBCS_APPLY_W |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
42 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
43 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
52 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
53 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
64 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
65 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
74 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
75 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask |