| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
426 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
479 |
NO PROCEDURE |
_RS drC (Nr+1) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
376 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_idemix.F |
130 |
GGL90_IDEMIX |
& +SQRT(Nsquare(i,j,k))*drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
192 |
GGL90_IDEMIX |
& *drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(i,j,bi,bj)*drC(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
276 |
GMREDI_CALC_EIGS |
& + drC(k)*( op25*BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
288 |
GMREDI_CALC_EIGS |
& + drC(1)*op5*BuoyFreq(i,j,2) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
119 |
GMREDI_CALC_PSI_BVP |
& *drC(k)*GM_BVP_rModeNumber*rPI |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
198 |
GMREDI_CALC_PSI_BVP |
& *drC(k)*GM_BVP_rModeNumber*rPI |
|
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
120 |
SUBMESO_CALC_PSI |
IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k) |
|
./pkg/kpp/kpp_forcing_surf.F |
308 |
KPP_FORCING_SURF |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_forcing_surf.F |
317 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,1) / drC(2) |
|
./pkg/kpp/kpp_forcing_surf.F |
320 |
KPP_FORCING_SURF |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_forcing_surf.F |
321 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/layers/layers_init_fixed.F |
112 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
76 |
LAYERS_INIT_FIXED |
Zc(1) = drC(1) |
|
./pkg/layers/layers_init_fixed.F |
79 |
LAYERS_INIT_FIXED |
Zc(k) = Zc(k-1) + drC(k) |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k)*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
272 |
CALC_PHI_HYD |
dRlocP = halfRL*drC(k+1)*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
402 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
175 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drC(kl)**twoThird |
|
./pkg/monitor/monitor.F |
98 |
MONITOR |
thickFacF(k) = drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/monitor_ad.F |
134 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
164 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
121 |
G_MONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./model/src/config_summary.F |
852 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drC,Nr+1,INDEX_K, 'drC = ', |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = halfRL*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./pkg/profiles/profiles_interp.F |
139 |
PROFILES_INTERP |
& (-rC(nr)+drC(nr)/2) ) then |
|
./model/src/find_hyd_press_1d.F |
100 |
FIND_HYD_PRESS_1D |
dRlocP = halfRL*drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
101 |
FIND_HYD_PRESS_1D |
IF (k.EQ.1) dRlocM = drC(k) |
|
./model/src/find_hyd_press_1d.F |
102 |
FIND_HYD_PRESS_1D |
IF (k.EQ.Nr) dRlocP = drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
99 |
FIND_HYD_PRESS_1D |
dRlocM = halfRL*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
164 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/ini_cg3d.F |
211 |
INI_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./pkg/smooth/smooth_init3d.F |
88 |
SMOOTH_INIT3D |
smooth3D_KzMax=drC(k) |
|
./model/src/ini_p_ground.F |
147 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
109 |
INI_VERTICAL_GRID |
drC(k) = delRc(k) |
|
./model/src/ini_vertical_grid.F |
126 |
INI_VERTICAL_GRID |
drC(1) = 0.5 _d 0 *delR(1) |
|
./model/src/ini_vertical_grid.F |
128 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
drC(Nr+1) = 0.5 _d 0 *delR(Nr) |
|
./model/src/ini_vertical_grid.F |
147 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
149 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
167 |
INI_VERTICAL_GRID |
rC(Nr) = rF(Nr+1) - rkSign*drC(Nr+1) |
|
./model/src/ini_vertical_grid.F |
169 |
INI_VERTICAL_GRID |
rC(k-1) = rC(k) - rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
199 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/post_cg3d.F |
65 |
POST_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
122 |
PRE_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
|
./model/src/set_ref_state.F |
111 |
SET_REF_STATE |
phiRef(2) = phiRef(1) + drC(1)*gravity*gravFacF(1) |
|
./model/src/set_ref_state.F |
114 |
SET_REF_STATE |
& + halfRL*drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*k-2) + drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
118 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + drC(k+1)*gravity*gravFacF(k+1) |
|
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRC',' ', drC,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
174 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'drC',drC,myThid) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
107 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
131 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
147 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
163 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
179 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagstats_local.F |
123 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
124 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |