| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_surf_dr.F |
36 |
OBCS_APPLY_SURF_DR |
_RS hFacInfMOM, hFactmp |
|
./pkg/obcs/obcs_apply_surf_dr.F |
49 |
OBCS_APPLY_SURF_DR |
hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
50 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
58 |
OBCS_APPLY_SURF_DR |
hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
59 |
OBCS_APPLY_SURF_DR |
hFac_FldS(i,j+1,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
71 |
OBCS_APPLY_SURF_DR |
hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
72 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
80 |
OBCS_APPLY_SURF_DR |
hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
81 |
OBCS_APPLY_SURF_DR |
hFac_FldW(i+1,j,bi,bj) = MAX( hFacInfMOM, hFactmp ) |
|
./model/src/calc_surf_dr.F |
137 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
139 |
CALC_SURF_DR |
IF (hFactmp.LT.hFacInf) THEN |
|
./model/src/calc_surf_dr.F |
150 |
CALC_SURF_DR |
& hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
57 |
CALC_SURF_DR |
_RL hFacInfMOM, Rmin_tmp, hFactmp, adjust_nb_pt, adjust_volum |