| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
416 |
NO PROCEDURE |
& Ro_surf, rSurfW, rSurfS, |
|
./model/inc/GRID.h |
445 |
NO PROCEDURE |
_RS rSurfS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/add_walls2masks.F |
124 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
97 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_r_star.F |
133 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
161 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
223 |
CALC_R_STAR |
tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
73 |
OBCS_APPLY_R_STAR |
& + OBNeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
76 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
90 |
OBCS_APPLY_R_STAR |
& + OBSeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
93 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
250 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
252 |
INI_MASKS_ETC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
253 |
INI_MASKS_ETC |
& MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
260 |
INI_MASKS_ETC |
CALL EXCH_UV_XY_RS( rSurfW, rSurfS, .FALSE., myThid ) |
|
./model/src/ini_sigma_hfac.F |
142 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
172 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
187 |
INI_SIGMA_HFAC |
rSurfS(i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
194 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( rSurfW, rSurfS, .FALSE., myThid ) |
|
./model/src/ini_sigma_hfac.F |
231 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
183 |
APPLY_FORCING_V |
& /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
185 |
APPLY_FORCING_V |
& /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./model/src/update_sigma.F |
160 |
UPDATE_SIGMA |
& + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/write_grid.F |
107 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'rSurfS',' ',rSurfS, -1,myThid) |