| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_FIELDS.h |
197 |
NO PROCEDURE |
& OBNeta, OBSeta, OBEeta, OBWeta |
|
./pkg/obcs/OBCS_FIELDS.h |
198 |
NO PROCEDURE |
_RL OBNeta (1-Olx:sNx+Olx,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
57 |
OBCS_APPLY_ETA |
& etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
73 |
OBCS_APPLY_R_STAR |
& + OBNeta( j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
78 |
OBCS_APPLY_SURF_DR |
& + OBNeta(i,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_calc.F |
211 |
OBCS_CALC |
OBNeta(i,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
466 |
OBCS_CALC_STEVENS |
OBNeta(I,bi,bj) = etaN(I,J-1,bi,bj) |
|
./pkg/obcs/obcs_exf_load.F |
65 |
OBCS_EXF_LOAD |
U OBNeta, OBNeta0, OBNeta1, OBNetafile, |
|
./pkg/obcs/obcs_fields_load.F |
583 |
OBCS_FIELDS_LOAD |
OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNeta (i,bi,bj) = 0. _d 0 |