| File |
Line number |
Procedure |
Code |
|
./model/src/calc_r_star.F |
113 |
CALC_R_STAR |
& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
124 |
CALC_R_STAR |
& - MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
139 |
CALC_R_STAR |
& - MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
162 |
CALC_R_STAR |
& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
170 |
CALC_R_STAR |
& - MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
184 |
CALC_R_STAR |
& - MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
204 |
CALC_R_STAR |
& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
101 |
CALC_SURF_DR |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/calc_surf_dr.F |
137 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
171 |
CALC_SURF_DR |
& ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
204 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i-1,j,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
220 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i,j-1,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
92 |
CALC_SURF_DR |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
94 |
CALC_SURF_DR |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
96 |
CALC_SURF_DR |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj)) |
|
./model/src/calc_surf_dr.F |
98 |
CALC_SURF_DR |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj)) |
|
./model/src/ini_cg2d.F |
187 |
INI_CG2D |
IF (Ro_surf(i,j,bi,bj).GT.R_low(i,j,bi,bj)) THEN |
|
./pkg/ecco/cost_heatflux.F |
156 |
COST_HEATFLUX |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_heatflux.F |
157 |
COST_HEATFLUX |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_heatflux.F |
209 |
COST_HEATFLUX |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_heatflux.F |
210 |
COST_HEATFLUX |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_salt0.F |
119 |
COST_SALT0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_salt0.F |
120 |
COST_SALT0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_zonstress.F |
156 |
COST_ZONSTRESS |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_zonstress.F |
157 |
COST_ZONSTRESS |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_zonstress.F |
209 |
COST_ZONSTRESS |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_zonstress.F |
210 |
COST_ZONSTRESS |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_theta0.F |
119 |
COST_THETA0 |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_theta0.F |
120 |
COST_THETA0 |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_saltflux.F |
156 |
COST_SALTFLUX |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_saltflux.F |
157 |
COST_SALTFLUX |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_saltflux.F |
209 |
COST_SALTFLUX |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_saltflux.F |
210 |
COST_SALTFLUX |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_merstress.F |
158 |
COST_MERSTRESS |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_merstress.F |
159 |
COST_MERSTRESS |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./pkg/ecco/cost_merstress.F |
211 |
COST_MERSTRESS |
if ( ABS(R_low(i,j,bi,bj)) .LT. 1000. ) |
|
./pkg/ecco/cost_merstress.F |
212 |
COST_MERSTRESS |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/1000. |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
102 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
115 |
INI_DEPTHS |
_EXCH_XY_R4(R_low, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
239 |
INI_DEPTHS |
& R_low(I,J,bi,bj) = Ro_SeaLevel |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
241 |
INI_DEPTHS |
& R_low(I,J,bi,bj) = Ro_SeaLevel |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
75 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
93 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
135 |
INI_MASKS_ETC |
Ro_surf(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYRS(R_low, |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
170 |
INI_MASKS_ETC |
IF ( R_low( i,j,bi,bj) .NE. 0. ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
189 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
68 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
90 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
Ro_surf(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYRS(R_low, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
175 |
INI_MASKS_ETC |
IF ( R_low( i,j,bi,bj) .NE. 0. ) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
198 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
95 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/ini_depths.F |
102 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
|
./model/src/ini_depths.F |
115 |
INI_DEPTHS |
_EXCH_XY_R4(R_low, myThid ) |
|
./model/src/ini_depths.F |
233 |
INI_DEPTHS |
& R_low(I,J,bi,bj) = Ro_SeaLevel |
|
./model/src/ini_depths.F |
75 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. |
|
./model/src/ini_depths.F |
93 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/advect_xz/code/ini_vel.F |
29 |
INI_VEL |
& max(R_low(i,j,bi,bj),R_low(i-1,j,bi,bj)) |
|
./verification/advect_xz/code/ini_depths.F |
106 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
|
./verification/advect_xz/code/ini_depths.F |
119 |
INI_DEPTHS |
_EXCH_XY_R4(R_low, myThid ) |
|
./verification/advect_xz/code/ini_depths.F |
237 |
INI_DEPTHS |
& R_low(I,J,bi,bj) = Ro_SeaLevel |
|
./verification/advect_xz/code/ini_depths.F |
75 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. |
|
./verification/advect_xz/code/ini_depths.F |
93 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/advect_xz/code/ini_depths.F |
95 |
INI_DEPTHS |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/write_grid.F |
209 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'R_low',R_low,myThid) |
|
./model/src/write_grid.F |
56 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/inc/GRID.h |
381 |
NO PROCEDURE |
& R_low,Ro_surf,hFacC,hFacW,hFacS, |
|
./model/inc/GRID.h |
408 |
NO PROCEDURE |
_RS R_low (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
156 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
|
./pkg/kpp/kpp_routines.F |
1488 |
STATEKPP |
KPPMLD(I,J) = ABS(R_low(I,J,bi,bj)) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
78 |
CPL_EXCH_CONFIGS |
IF ( R_low(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
92 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',R_low(I,J,bi,bj) |
|
./model/src/diags_phi_rlow.F |
79 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
97 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
133 |
INI_MASKS_ETC |
Ro_surf(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYRS(R_low, |
|
./model/src/ini_masks_etc.F |
169 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
66 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_masks_etc.F |
86 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
114 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |