| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
79 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
88 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/shelfice/shelfice_init.F |
45 |
SHELFICE_INIT_FIXED |
IF ( hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/diagnostics/diagstats_local.F |
145 |
DIAGSTATS_LOCAL |
I hFacC(1-Olx,1-Oly,k,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_state.F |
318 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
320 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
183 |
DIAGNOSTICS_INTERP_VERT |
if(hFacC(i,j,nlevels(listId)-k+1,bi,bj).ne.0.) then |
|
./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/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/aim_v23/aim_do_physics.F |
75 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
36 |
ZONAL_FILT_APPLY_TS |
& tFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
38 |
ZONAL_FILT_APPLY_TS |
& sFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid) |
|
./pkg/dic/car_flux.F |
62 |
CAR_FLUX |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux.F |
64 |
CAR_FLUX |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux.F |
68 |
CAR_FLUX |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
& drF(ko)*hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
77 |
CAR_FLUX |
if (hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux.F |
84 |
CAR_FLUX |
& ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/phos_flux.F |
64 |
PHOS_FLUX |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
& drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./pkg/dic/phos_flux.F |
74 |
PHOS_FLUX |
& drF(ko)*hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
81 |
PHOS_FLUX |
if (hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/phos_flux.F |
88 |
PHOS_FLUX |
& ( (Flux_u-Flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/fe_chem.F |
61 |
FE_CHEM |
IF(hFacC(i,j,k,bi,bj) .gt. 0.0)THEN |
|
./pkg/dic/bio_export.F |
77 |
BIO_EXPORT |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5) |
|
./pkg/dic/bio_export.F |
79 |
BIO_EXPORT |
& *hFacC(i,j,k-1,bi,bj)*.5) |
|
./pkg/dic/o2_surfforcing.F |
78 |
O2_SURFFORCING |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/carbon_chem.F |
695 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0.d0) then |
|
./pkg/dic/carbon_chem.F |
964 |
CARBON_COEFFS_PRESSURE_DEP |
if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then |
|
./pkg/dic/calcite_saturation.F |
83 |
CALCITE_SATURATION |
if(hFacC(i,j,k,bi,bj) .gt. 0.0d0)then |
|
./pkg/dic/car_flux_omega_top.F |
105 |
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 |
109 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
130 |
CAR_FLUX_OMEGA_TOP |
& hFacC(i,j,ko,bi,bj)/WsinkPIC |
|
./pkg/dic/car_flux_omega_top.F |
141 |
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 |
147 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
162 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
163 |
CAR_FLUX_OMEGA_TOP |
& (drF(1)*hFacC(i,j,1,bi,bj) ) |
|
./pkg/dic/car_flux_omega_top.F |
85 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
91 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,ko,bi,bj).gt.0.d0) then |
|
./verification/advect_xy/code/ini_salt.F |
73 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
74 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/rotating_tank/code/external_forcing.F |
378 |
EXTERNAL_FORCING_T |
hC = hFacC(i ,j ,kLev,bi,bj) |
|
./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 |
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 |
139 |
INI_MASKS_ETC |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
145 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
147 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
150 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
169 |
INI_MASKS_ETC |
& + drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/ini_masks_etc.F |
170 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
178 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0) THEN |
|
./model/src/ini_masks_etc.F |
232 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I-1,J,K,bi,bj)) |
|
./model/src/ini_masks_etc.F |
238 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,J-1,K,bi,bj)) |
|
./model/src/ini_masks_etc.F |
273 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
383 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
384 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).LE.0.5) THEN |
|
./model/src/ini_masks_etc.F |
386 |
INI_MASKS_ETC |
& hFacUpper+hFacLower*hFacC(I,J,K,bi,bj) |
|
./model/src/ini_masks_etc.F |
76 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
81 |
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) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
86 |
INI_THETA |
U theta, hFacC, |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
86 |
INI_THETA |
U theta, hFacC, |
|
./model/src/write_grid.F |
95 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
86 |
INI_THETA |
U theta, hFacC, |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
115 |
INI_MASKS_ETC |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
121 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
123 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
126 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
143 |
INI_MASKS_ETC |
& + drF(k)*hFacC(I,J,K,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
144 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
152 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
218 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I-1,J,K,bi,bj)) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
224 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,J-1,K,bi,bj)) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
253 |
INI_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
258 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
368 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
369 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).LE.0.5) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
371 |
INI_MASKS_ETC |
& hFacUpper+hFacLower*hFacC(I,J,K,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
79 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
81 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
84 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
96 |
INI_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
116 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
118 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
121 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
& + drF(k)*hFacC(I,J,K,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
139 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
147 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
209 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I-1,J,K,bi,bj)) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
215 |
INI_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,J-1,K,bi,bj)) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
244 |
INI_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
249 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
359 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).NE.0.) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
360 |
INI_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).LE.0.5) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
362 |
INI_MASKS_ETC |
& hFacUpper+hFacLower*hFacC(I,J,K,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
76 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
79 |
INI_MASKS_ETC |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
91 |
INI_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_surf_dr.F |
64 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
100 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
102 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
104 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
139 |
UPDATE_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
229 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
240 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
242 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
282 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
288 |
UPDATE_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
304 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
306 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
386 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
388 |
UPDATE_MASKS_ETC |
ELSEIF(hFacC(I,J,K,bi,bj).GT.0. |
|
./model/src/update_masks_etc.F |
389 |
UPDATE_MASKS_ETC |
& .AND. hFacC(I,J,K,bi,bj).LE.0.5) THEN |
|
./model/src/update_masks_etc.F |
391 |
UPDATE_MASKS_ETC |
& hFacUpper+hFacLower*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
392 |
UPDATE_MASKS_ETC |
ELSEIF (hFacC(I,J,K,bi,bj).GT.0.5) THEN |
|
./model/src/update_r_star.F |
63 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/ini_hfac.F |
43 |
INI_HFAC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init.F |
47 |
GGL90_INIT |
recip_hFacI(I,J,K,bi,bj) = .5*hFacC(I,J,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_init.F |
48 |
GGL90_INIT |
& + MIN(.5 _d 0,hFacC(I,J,K,bi,bj)) |
|
./pkg/opps/opps_interface.F |
114 |
OPPS_INTERFACE |
IF ( hFacC(I,J,kSurface,bi,bj) .gt. 0. _d 0 ) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
50 |
CFC12_SURFFORCING |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
50 |
CFC11_SURFFORCING |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_surfcor.F |
106 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/monitor.F |
117 |
MONITOR |
& maskC,hFacC,rA ,drF, |
|
./pkg/monitor/monitor.F |
120 |
MONITOR |
& maskC,hFacC,rA ,drF,myThid) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, maskC,hFacC,rA,drF, |
|
./pkg/obcs/obcs_calc.F |
375 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
402 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
429 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
456 |
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 |
37 |
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 |
84 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ecco/cost_trans_zonal.F |
199 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
200 |
COST_TRANS_ZONAL |
$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
210 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
211 |
COST_TRANS_MERID |
$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
103 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
111 |
CTRL_HFACC_INI |
CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid ) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
114 |
CTRL_HFACC_INI |
_EXCH_XYZ_R4( 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 |
159 |
CTRL_HFACC_INI |
_EXCH_XYZ_R4( hFacC, myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
105 |
CTRL_INIT_WET |
if (hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./model/inc/GRID.h |
383 |
NO PROCEDURE |
& R_low,Ro_surf,hFacC,hFacW,hFacS, |
|
./model/inc/GRID.h |
419 |
NO PROCEDURE |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./pkg/seaice/growth.F |
274 |
GROWTH |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |