| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
155 |
CALC_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./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 |
62 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_r_star.F |
44 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
54 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j+1,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
44 |
OBCS_APPLY_SURF_DR |
ks = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
53 |
OBCS_APPLY_SURF_DR |
ks = ksurfS(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
101 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
107 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
339 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
347 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = k |
|
./model/src/update_surf_dr.F |
111 |
UPDATE_SURF_DR |
ks = ksurfS(i,j,bi,bj) |