| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
52 |
CALC_SURF_DR |
_RL hFactmp, adjust_nb_pt, adjust_volum |
|
./model/src/calc_surf_dr.F |
80 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
82 |
CALC_SURF_DR |
IF (hFactmp.LT.hFacInf) THEN |
|
./model/src/calc_surf_dr.F |
93 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
33 |
OBCS_APPLY_SURF_DR |
_RS hFacInfMOM, hFactmp |
|
./pkg/obcs/obcs_apply_surf_dr.F |
46 |
OBCS_APPLY_SURF_DR |
hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
47 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
55 |
OBCS_APPLY_SURF_DR |
hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
56 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j+1,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
68 |
OBCS_APPLY_SURF_DR |
hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
69 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
77 |
OBCS_APPLY_SURF_DR |
hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i+1,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./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 |