| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
415 |
NO PROCEDURE |
& R_low, rLowW, rLowS, |
|
./model/inc/GRID.h |
441 |
NO PROCEDURE |
_RS rLowW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/gmredi/gmredi_k3d.F |
730 |
GMREDI_K3D |
hsurf = -rLowW(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
856 |
GMREDI_K3D |
I rLowW(:,:,bi,bj),GM_K3D_NModes,.FALSE., |
|
./pkg/gmredi/submeso_calc_psi.F |
82 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) ) |
|
./model/src/add_walls2masks.F |
116 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
89 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/calc_gw.F |
219 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_r_star.F |
119 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
216 |
CALC_R_STAR |
tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
109 |
OBCS_APPLY_R_STAR |
& + OBEeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
112 |
OBCS_APPLY_R_STAR |
& + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
126 |
OBCS_APPLY_R_STAR |
& + OBWeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
129 |
OBCS_APPLY_R_STAR |
& + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
339 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
344 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
382 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
391 |
INI_MASKS_ETC |
tmpVar1(i,j) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
398 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rLowW (i,j,bi,bj) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
425 |
INI_MASKS_ETC |
CALL EXCH_UV_XY_RS( rLowW, rLowS, .FALSE., myThid ) |
|
./model/src/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
83 |
INI_MASKS_ETC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
& MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
137 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
152 |
INI_SIGMA_HFAC |
rLowW(i,j,bi,bj) = |
|
./model/src/ini_sigma_hfac.F |
165 |
INI_SIGMA_HFAC |
rLowW (i,j,bi,bj) = rEmpty |
|
./model/src/ini_sigma_hfac.F |
195 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( rLowW, rLowS, .FALSE., myThid ) |
|
./model/src/ini_sigma_hfac.F |
220 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
90 |
APPLY_FORCING_U |
& /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
92 |
APPLY_FORCING_U |
& /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./model/src/update_sigma.F |
134 |
UPDATE_SIGMA |
& + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/write_grid.F |
106 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'rLowW', ' ', rLowW, -1,myThid) |