| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
36 |
NO PROCEDURE |
COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS |
|
./model/inc/SURFACE.h |
38 |
NO PROCEDURE |
INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_surf_dr.F |
68 |
INI_SURF_DR |
IF ( ks.EQ.ksurfW(i,j,bi,bj)) |
|
./model/src/ini_surf_dr.F |
70 |
INI_SURF_DR |
IF ( ks.EQ.ksurfW(i+1,j,bi,bj)) |
|
./model/src/ini_masks_etc.F |
310 |
INI_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
313 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
295 |
INI_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
298 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
286 |
INI_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
289 |
INI_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj).NE.0.) ksurfW(I,J,bi,bj) = k |
|
./model/src/update_surf_dr.F |
54 |
UPDATE_SURF_DR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./model/src/update_surf_dr.F |
75 |
UPDATE_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
346 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
351 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = k |
|
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
IF ( ksurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
236 |
CALC_R_STAR |
IF (ksurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
237 |
CALC_R_STAR |
IF (ksurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
238 |
CALC_R_STAR |
IF (ksurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
239 |
CALC_R_STAR |
IF (ksurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/timestep.F |
292 |
TIMESTEP |
IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN |
|
./model/src/calc_surf_dr.F |
139 |
CALC_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./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 |
24 |
OBCS_APPLY_R_STAR |
INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
7 |
OBCS_APPLY_R_STAR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./pkg/obcs/obcs_apply_r_star.F |
80 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
24 |
OBCS_APPLY_SURF_DR |
INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
69 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
ks = ksurfW(i+1,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
7 |
OBCS_APPLY_SURF_DR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./pkg/obcs/obcs_init_fixed.F |
107 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
113 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |