| 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 |
41 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
42 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
44 |
OBCS_APPLY_ETA |
i_obc = OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
45 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_eta.F |
70 |
OBCS_APPLY_ETA |
i_obc = OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
71 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
72 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
73 |
OBCS_APPLY_ETA |
& etaFld(i_obc,j,bi,bj) = OBEeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
76 |
OBCS_APPLY_ETA |
i_obc=OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_apply_eta.F |
77 |
OBCS_APPLY_ETA |
IF (i_obc.NE.0) THEN |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(i_obc,j,bi,bj) = OBWeta(j,bi,bj) |