| File |
Line number |
Procedure |
Code |
|
./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 |
78 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
78 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN |
|
./model/src/calc_surf_dr.F |
139 |
CALC_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
66 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
75 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
111 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
117 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
106 |
INI_NLFS_VARS |
IF ( ks.EQ.ksurfW(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
108 |
INI_NLFS_VARS |
IF ( ks.EQ.ksurfW(i+1,j,bi,bj)) |
|
./model/src/timestep.F |
306 |
TIMESTEP |
IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN |
|
./model/src/update_masks_etc.F |
338 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = k |
|
./model/src/update_surf_dr.F |
102 |
UPDATE_SURF_DR |
ks = ksurfW(i,j,bi,bj) |