| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
519 |
NO PROCEDURE |
& kSurfC, kSurfW, kSurfS, |
|
./model/inc/GRID.h |
523 |
NO PROCEDURE |
INTEGER kSurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/apply_forcing.F |
345 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/calc_r_star.F |
132 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
160 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
291 |
CALC_R_STAR |
IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
292 |
CALC_R_STAR |
IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
293 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
294 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_surf_dr.F |
168 |
CALC_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/calc_viscosity.F |
144 |
CALC_VISCOSITY |
IF ( k.GT.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
215 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
305 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfS(i,j,bi,bj) .AND. |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
66 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
87 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
74 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
93 |
OBCS_APPLY_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
527 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
551 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_init_fixed.F |
228 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
251 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j+1,bi,bj).LE.Nr ) THEN |
|
./model/src/external_forcing.F |
246 |
EXTERNAL_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/ini_masks_etc.F |
438 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
441 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.zeroRS) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
446 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_nlfs_vars.F |
147 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
149 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfS(i,j+1,bi,bj)) |
|
./model/src/ini_sigma_hfac.F |
241 |
INI_SIGMA_HFAC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
243 |
INI_SIGMA_HFAC |
IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
303 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/timestep.F |
312 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/update_sigma.F |
158 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_surf_dr.F |
115 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
79 |
UPDATE_SURF_DR |
ks = kSurfS(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
108 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
167 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |