| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_eta.F |
28 |
OBCS_APPLY_ETA |
INTEGER i,j,i_obc,j_obc |
|
./pkg/obcs/obcs_apply_eta.F |
33 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
34 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
36 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
37 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
54 |
OBCS_APPLY_ETA |
j_obc = OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
55 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,j_obc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
60 |
OBCS_APPLY_ETA |
j_obc = OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
61 |
OBCS_APPLY_ETA |
IF (j_obc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
62 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
63 |
OBCS_APPLY_ETA |
& etaFld(i,j_obc,bi,bj) = OBSeta(i,bi,bj) |