| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_ptracer.F |
43 |
OBCS_APPLY_PTRACER |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
51 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
53 |
OBCS_APPLY_PTRACER |
pFld(I,J)=OBNptr(I,K,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
62 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
64 |
OBCS_APPLY_PTRACER |
pFld(I,J)=OBSptr(I,K,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
77 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
79 |
OBCS_APPLY_PTRACER |
pFld(I,J)=OBEptr(J,K,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
88 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
90 |
OBCS_APPLY_PTRACER |
pFld(I,J)=OBWptr(J,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 |
30 |
OBCS_APPLY_TS |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
38 |
OBCS_APPLY_TS |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
40 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
41 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
51 |
OBCS_APPLY_TS |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
53 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
54 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
66 |
OBCS_APPLY_TS |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
68 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
69 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
79 |
OBCS_APPLY_TS |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
81 |
OBCS_APPLY_TS |
tFld(I,J,K,bi,bj)=OBWt(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
82 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBWs(J,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 |