| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
280 |
KPP_FORCING_SURF |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_forcing_surf.F |
289 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,1) / drC(2) |
|
./pkg/kpp/kpp_forcing_surf.F |
292 |
KPP_FORCING_SURF |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_forcing_surf.F |
293 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
71 |
LAYERS_INIT_FIXED |
Zc(1) = drC(1) |
|
./pkg/layers/layers_init_fixed.F |
74 |
LAYERS_INIT_FIXED |
Zc(k) = Zc(k-1) + drC(k) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
132 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./model/src/calc_oce_mxlayer.F |
125 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/monitor/monitor.F |
98 |
MONITOR |
thickFacF(k) = drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/monitor_ad.F |
118 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./model/src/calc_phi_hyd.F |
226 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
231 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
331 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
336 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/config_summary.F |
633 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drC, Nr, INDEX_K, 'drC = ', |
|
./pkg/profiles/profiles_interp.F |
264 |
PROFILES_INTERP |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_gg.F |
132 |
PROFILES_INTERP_GG |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_mean.F |
210 |
PROFILES_INTERP_MEAN |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
111 |
PROFILES_INTERP_MEAN_GG |
& (-rC(nr)+drC(nr)/2) ) then |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
115 |
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 |
93 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/smooth/smooth_init3d.F |
99 |
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 |
105 |
INI_VERTICAL_GRID |
drC(k) = delRc(k) |
|
./model/src/ini_vertical_grid.F |
122 |
INI_VERTICAL_GRID |
drC(1) = 0.5 _d 0 *delR(1) |
|
./model/src/ini_vertical_grid.F |
124 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
133 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
135 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
164 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/write_grid.F |
112 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
154 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'drC',drC,myThid) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
104 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
128 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
144 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
160 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
176 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagstats_local.F |
115 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
116 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./model/inc/GRID.h |
425 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
479 |
NO PROCEDURE |
_RS drC (Nr) |