| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
417 |
NO PROCEDURE |
& hFacC, hFacW, hFacS, |
|
./model/inc/GRID.h |
446 |
NO PROCEDURE |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
298 |
GAD_ADVECTION |
& *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
265 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
424 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
428 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)*N(i,j,k) |
|
./pkg/layers/layers_fluxcalc.F |
489 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./pkg/monitor/mon_surfcor.F |
112 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
118 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, statsTemp, myThid ) |
|
./pkg/monitor/monitor.F |
120 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
136 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
138 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
168 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
170 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
123 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
125 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
45 |
OCN_EXPORT_OCNCONFIG |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
87 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ptracers/ptracers_monitor.F |
116 |
PTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
112 |
ADPTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
49 |
PTRACERS_ZONAL_FILT_APPLY |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
348 |
SBO_CALC |
& * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_update_masks.F |
101 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./pkg/shelfice/shelfice_update_masks.F |
104 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./pkg/shelfice/shelfice_update_masks.F |
11 |
SHELFICE_UPDATE_MASKS |
U hFacC, |
|
./pkg/shelfice/shelfice_update_masks.F |
125 |
SHELFICE_UPDATE_MASKS |
& .AND. hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_update_masks.F |
39 |
SHELFICE_UPDATE_MASKS |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./pkg/shelfice/shelfice_update_masks.F |
93 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./pkg/shelfice/shelfice_update_masks.F |
99 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
112 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
118 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
120 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
123 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
137 |
INI_MASKS_ETC |
U hFacC, |
|
./model/src/ini_masks_etc.F |
155 |
INI_MASKS_ETC |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
156 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0) THEN |
|
./model/src/ini_masks_etc.F |
212 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
221 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
305 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 0, myThid ) |
|
./model/src/ini_masks_etc.F |
316 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
317 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
72 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
77 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
& - drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
78 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
89 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
45 |
ZONAL_FILT_APPLY_TS |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
49 |
ZONAL_FILT_APPLY_TS |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/ini_nlfs_vars.F |
117 |
INI_NLFS_VARS |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
|
./model/src/ini_sigma_hfac.F |
111 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
128 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
129 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/rotating_tank/code/apply_forcing.F |
708 |
APPLY_FORCING_T |
hC = hFacC(i ,j ,k,bi,bj) |
|
./model/src/update_masks_etc.F |
105 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
107 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
148 |
UPDATE_MASKS_ETC |
& - drF(K)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
225 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
235 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
237 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
270 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
277 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC,'hFacC (update_masks_etc)', |
|
./model/src/update_masks_etc.F |
297 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
299 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_r_star.F |
58 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
93 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
128 |
UPDATE_SURF_DR |
hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
59 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
95 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj) |
|
./model/src/write_grid.F |
109 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/atm2d/get_ocnvars.F |
100 |
GET_OCNVARS |
mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1) |
|
./pkg/bbl/bbl_calc_rhs.F |
171 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
179 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
273 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
281 |
BBL_CALC_RHS |
& hFacC(i,r,kLowC(i,r,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
376 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
384 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
478 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
486 |
BBL_CALC_RHS |
& hFacC(r,j,kLowC(r,j,bi,bj),bi,bj) |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + hFacC(i,j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
113 |
CTRL_HFACC_INI |
CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid ) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
115 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC ,myThid ) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
147 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
159 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC, myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
413 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
136 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
159 |
DIAGSTATS_LOCAL |
I hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/dic/bio_export.F |
105 |
BIO_EXPORT |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
& *hFacC(i,j,k-1,bi,bj)*.5 _d 0) |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux_omega_top.F |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
111 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
132 |
CAR_FLUX_OMEGA_TOP |
& hFacC(i,j,ko,bi,bj)/WsinkPIC |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |
|
./pkg/dic/car_flux_omega_top.F |
149 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
165 |
CAR_FLUX_OMEGA_TOP |
& (drF(1)*hFacC(i,j,1,bi,bj) ) |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
93 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
588 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
868 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/dic_atmos.F |
119 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
136 |
DIC_INI_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
235 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/ecco/cost_averagesfields.F |
609 |
COST_AVERAGESFIELDS |
if (hFacC(i,j,k,bi,bj).gt.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
650 |
COST_AVERAGESFIELDS |
& + 2*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
162 |
COST_GENCOST_BOXMEAN |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
165 |
COST_GENCOST_BOXMEAN |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
171 |
COST_GENCOST_BOXMEAN |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_boxmean.F |
174 |
COST_GENCOST_BOXMEAN |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
214 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
215 |
COST_TRANS_MERID |
$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
203 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
204 |
COST_TRANS_ZONAL |
$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
84 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
86 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |