| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
117 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, statsTemp, myThid ) |
|
./pkg/monitor/monitor.F |
119 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
120 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
122 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
121 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
123 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/obcs/obcs_calc.F |
446 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
483 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
520 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
557 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
44 |
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 |
88 |
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_zonal_filt_apply.F |
51 |
PTRACERS_ZONAL_FILT_APPLY |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
713 |
SEAICE_GROWTH |
& * hFacC(i,j,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
718 |
SEAICE_GROWTH |
& * hFacC(i,j,kSurface,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 |
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. |
|
./pkg/thsice/thsice_main.F |
133 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
144 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,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_hfac.F |
43 |
INI_HFAC |
hFacC(I,J,K,bi,bj) = 0. _d 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. |
|
./model/src/ini_masks_etc.F |
104 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
106 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
109 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
121 |
INI_MASKS_ETC |
& - drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
148 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
151 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
165 |
INI_MASKS_ETC |
U hFacC, |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0) THEN |
|
./model/src/ini_masks_etc.F |
240 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
249 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
352 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
104 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(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/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.cs-32x32x5/code/ini_theta.F |
85 |
INI_THETA |
I hFacC(1-OLx,1-OLy,1,bi,bj), |
|
./verification/rotating_tank/code/external_forcing.F |
377 |
EXTERNAL_FORCING_T |
hC = hFacC(i ,j ,kLev,bi,bj) |
|
./model/src/update_masks_etc.F |
127 |
UPDATE_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
218 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
220 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
229 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
269 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
276 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC,'hFacC (update_masks_etc)', |
|
./model/src/update_masks_etc.F |
296 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
298 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
88 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_r_star.F |
90 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
91 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/write_grid.F |
98 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
96 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
142 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/atm2d/get_ocnvars.F |
101 |
GET_OCNVARS |
mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1) |
|
./pkg/cheapaml/cheapaml.F |
161 |
CHEAPAML |
if (hFacC(i,j,1,bi,bj).ne.0. _d 0) then |
|
./pkg/cheapaml/cheapaml.F |
424 |
CHEAPAML |
.*xrelf*(1.d0-hFacC(i,j,1,bi,bj)) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
112 |
CTRL_HFACC_INI |
CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid ) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
114 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC ,myThid ) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
129 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
146 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
158 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC, myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
108 |
CTRL_INIT_WET |
if (hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/diagnostics/diagnostics_fill_state.F |
330 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
334 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*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 |
151 |
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 |
708 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
974 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/dic_atmos.F |
157 |
DIC_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 |
234 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/ebm/ebm_forcing_surf.F |
77 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
86 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
211 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
212 |
COST_TRANS_MERID |
$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
200 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
201 |
COST_TRANS_ZONAL |
$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./model/inc/GRID.h |
416 |
NO PROCEDURE |
& hFacC, hFacW, hFacS, |
|
./model/inc/GRID.h |
445 |
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) |