| File |
Line number |
Procedure |
Code |
|
./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_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_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_eta.F |
30 |
OBCS_APPLY_ETA |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_eta.F |
40 |
OBCS_APPLY_ETA |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
41 |
OBCS_APPLY_ETA |
etaFld(I,J_obc,bi,bj)=OBNeta(I,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_eta.F |
46 |
OBCS_APPLY_ETA |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
47 |
OBCS_APPLY_ETA |
etaFld(I,J_obc,bi,bj)=OBSeta(I,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
etaFld(I_obc,J,bi,bj)=OBEeta(J,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_eta.F |
62 |
OBCS_APPLY_ETA |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
63 |
OBCS_APPLY_ETA |
etaFld(I_obc,J,bi,bj)=OBWeta(J,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
29 |
OBCS_APPLY_W |
_RL obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
39 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
49 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
61 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
62 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
71 |
OBCS_APPLY_W |
obc_mask = _maskW(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask |