| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
519 |
NO PROCEDURE |
& kSurfC, kSurfW, kSurfS, |
|
./model/inc/GRID.h |
522 |
NO PROCEDURE |
INTEGER kSurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/apply_forcing.F |
155 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/calc_r_star.F |
118 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
148 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
286 |
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 |
287 |
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 |
288 |
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 |
289 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/calc_viscosity.F |
134 |
CALC_VISCOSITY |
IF ( k.GT.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
172 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
261 |
CALC_VISCOSITY |
IF ( km.EQ.kSurfW(i,j,bi,bj) .AND. |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
88 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_r_star.F |
106 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
123 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
114 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
133 |
OBCS_APPLY_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_check.F |
476 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
500 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_init_fixed.F |
182 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
205 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i+1,j,bi,bj).LE.Nr ) THEN |
|
./model/src/external_forcing.F |
106 |
EXTERNAL_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/ini_masks_etc.F |
437 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
440 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
444 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_nlfs_vars.F |
143 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
145 |
INI_NLFS_VARS |
IF ( ks.EQ.kSurfW(i+1,j,bi,bj)) |
|
./model/src/ini_sigma_hfac.F |
240 |
INI_SIGMA_HFAC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
242 |
INI_SIGMA_HFAC |
IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
134 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/timestep.F |
308 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/update_sigma.F |
132 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_surf_dr.F |
106 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
70 |
UPDATE_SURF_DR |
ks = kSurfW(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
139 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
80 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |