File |
Line number |
Procedure |
Code |
./model/src/calc_surf_dr.F |
103 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
./model/src/calc_surf_dr.F |
53 |
CALC_SURF_DR |
_RL hFactmp, adjust_nb_pt, adjust_volum |
./model/src/calc_surf_dr.F |
90 |
CALC_SURF_DR |
hFactmp = h0FacC(i,j,ks,bi,bj) |
./model/src/calc_surf_dr.F |
92 |
CALC_SURF_DR |
IF (hFactmp.LT.hFacInf) THEN |
./pkg/obcs/obcs_apply_surf_dr.F |
102 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
./pkg/obcs/obcs_apply_surf_dr.F |
117 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
120 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
123 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
./pkg/obcs/obcs_apply_surf_dr.F |
136 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
139 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacW(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
142 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
./pkg/obcs/obcs_apply_surf_dr.F |
57 |
OBCS_APPLY_SURF_DR |
_RS hFacInfMOM, hFactmp |
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
80 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
83 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
./pkg/obcs/obcs_apply_surf_dr.F |
96 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
./pkg/obcs/obcs_apply_surf_dr.F |
99 |
OBCS_APPLY_SURF_DR |
hFactmp = h0FacS(i,j,ks,bi,bj) |
./model/src/ini_sigma_hfac.F |
105 |
INI_SIGMA_HFAC |
hFactmp = ( dAHybSigF(k)*rFullDepth |
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
./model/src/ini_sigma_hfac.F |
109 |
INI_SIGMA_HFAC |
min_hFac = MIN( min_hFac, hFactmp ) |
./model/src/ini_sigma_hfac.F |
218 |
INI_SIGMA_HFAC |
hFactmp = |
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
./model/src/ini_sigma_hfac.F |
229 |
INI_SIGMA_HFAC |
hFactmp = |
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
./model/src/ini_sigma_hfac.F |
50 |
INI_SIGMA_HFAC |
_RL hFactmp |