| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
415 |
NO PROCEDURE |
& R_low, rLowW, rLowS, |
|
./model/inc/GRID.h |
440 |
NO PROCEDURE |
_RS R_low (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
267 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = R_low(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
663 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
hTransLay(i,j) = MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
1009 |
GMREDI_K3D |
& (uKdqdyInt(i,j)-uInt(i,j)*KdqdyInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1010 |
GMREDI_K3D |
& -(vKdqdxInt(i,j)-vInt(i,j)*KdqdxInt(i,j)/R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
621 |
GMREDI_K3D |
surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj)) |
|
./model/src/calc_gw.F |
201 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
211 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_oce_mxlayer.F |
105 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
476 |
CALC_PHI_HYD |
locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
481 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
485 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
489 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth |
|
./model/src/calc_r_star.F |
107 |
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 |
212 |
CALC_R_STAR |
& Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
160 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
122 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./pkg/obcs/obcs_check_depths.F |
46 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j-1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
48 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j-1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
62 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i,j+1,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
64 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i,j+1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
78 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i-1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
80 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i-1,j,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
95 |
OBCS_CHECK_DEPTHS |
IF ( R_low(i,j,bi,bj) .LT. R_low(i+1,j,bi,bj) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
97 |
OBCS_CHECK_DEPTHS |
R_low(i,j,bi,bj) = R_low(i+1,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
83 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .EQ. depth_noWater ) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
85 |
OCN_CHECK_CPLCONFIG |
& .AND. R_low(i,j,bi,bj) .NE. depth_noWater ) ) THEN |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
95 |
OCN_CHECK_CPLCONFIG |
& 'Depth (ocean) ==', R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
109 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
159 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
172 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
143 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
179 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
189 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
82 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
95 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
257 |
SBO_CALC |
& GCload - R_low(i,j,bi,bj)*rhoConst |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
135 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
138 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREA(I,J,bi,bj)*recip_k1 |
|
./pkg/seaice/seaice_init_varia.F |
709 |
SEAICE_INIT_VARIA |
& *exp(-ABS(R_low(i,j,bi,bj))*recip_tensilDepth) |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
115 |
INI_DEPTHS |
CALL MNC_CW_RS_R('D',bathyFile,0,0,'bathy',R_low, myThid) |
|
./model/src/ini_depths.F |
122 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
|
./model/src/ini_depths.F |
138 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
|
./model/src/ini_depths.F |
142 |
INI_DEPTHS |
CALL PLOT_FIELD_XYRS( R_low, 'Bottom depths (ini_depths)', |
|
./model/src/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
|
./model/src/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
|
./model/src/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
138 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
154 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
201 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
217 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
286 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
302 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
350 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
366 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
437 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
453 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
499 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
515 |
STREAMICE_DRIVING_STRESS |
& R_low(i,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
585 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
601 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j-1,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress.F |
647 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
663 |
STREAMICE_DRIVING_STRESS |
& R_low(i-1,j,bi,bj)**2) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
237 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
261 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
298 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
388 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
412 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
449 |
STREAMICE_DRIVING_STRESS_FD |
& R_low(i,j,bi,bj)**2 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
353 |
STREAMICE_DRIVING_STRESS_PPM |
& streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2) |
|
./pkg/streamice/streamice_forced_buttress.F |
100 |
STREAMICE_FORCED_BUTTRESS |
& streamice_density_ocean_avg * R_low(i,j,bi,bj)**2) |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
205 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) + tmpVar2(i,j) |
|
./model/src/ini_masks_etc.F |
218 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYRS(R_low, |
|
./model/src/ini_masks_etc.F |
233 |
INI_MASKS_ETC |
tmpVar1(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
350 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
59 |
INI_MASKS_ETC |
U R_low, Ro_surf, |
|
./model/src/ini_masks_etc.F |
84 |
INI_MASKS_ETC |
& MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
94 |
INI_MASKS_ETC |
& MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) ) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
108 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
rlo = R_low (i,j,bi,bj) |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
72 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
hf = -1.0 * i_r * R_low (i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
144 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
146 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
148 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
150 |
INI_NLFS_VARS |
& Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj)) |
|
./model/src/ini_nlfs_vars.F |
153 |
INI_NLFS_VARS |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/ini_sigma_hfac.F |
153 |
INI_SIGMA_HFAC |
& ( R_low(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
154 |
INI_SIGMA_HFAC |
& + R_low( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
176 |
INI_SIGMA_HFAC |
& ( R_low(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
177 |
INI_SIGMA_HFAC |
& + R_low(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
71 |
INI_SIGMA_HFAC |
tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
96 |
INI_SIGMA_HFAC |
R_low(i,j,bi,bj) = rEmpty |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
115 |
INI_DEPTHS |
CALL MNC_CW_RS_R('D',bathyFile,0,0,'bathy',R_low, myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
122 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
139 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
143 |
INI_DEPTHS |
CALL PLOT_FIELD_XYRS( R_low, 'Bottom depths (ini_depths)', |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
263 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
282 |
APPLY_FORCING_T |
& /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/update_masks_etc.F |
141 |
UPDATE_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
147 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
174 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYRS( R_low, |
|
./model/src/update_masks_etc.F |
189 |
UPDATE_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_sigma.F |
108 |
UPDATE_SIGMA |
& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/write_grid.F |
105 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'rLowC', ' ', R_low, -1,myThid) |
|
./model/src/write_grid.F |
202 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'R_low',R_low,myThid) |
|
./model/src/write_grid.F |
67 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
138 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
139 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
240 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
241 |
BBL_CALC_RHS |
& R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
343 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
344 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
445 |
BBL_CALC_RHS |
deltaDpt = R_low(i,j,bi,bj) + bbl_eta(i,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
446 |
BBL_CALC_RHS |
& R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj) |
|
./pkg/cost/cost_depth.F |
45 |
COST_DEPTH |
objf_depth(BI,BJ) = objf_depth(BI,BJ) + R_low(I,J,BI,BJ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
251 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
252 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
297 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
298 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
366 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
367 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
329 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
257 |
DWNSLP_INIT_FIXED |
dz_bottom = R_low(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
258 |
DWNSLP_INIT_FIXED |
& - R_low(ideep,jdeep,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
353 |
COST_GENCOST_SSHV4 |
& (R_low(i,j,bi,bj).GT.-200.).OR. |
|
./pkg/ecco/cost_sla_read.F |
155 |
COST_SLA_READ |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
134 |
COST_SLA_READ_YD |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |
|
./pkg/ecco/cost_ssh.F |
154 |
COST_SSH |
if ( R_low(i,j,bi,bj) .GT. -200. ) then |