| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_FIELDS.h |
197 |
NO PROCEDURE |
& OBNeta, OBSeta, OBEeta, OBWeta |
|
./pkg/obcs/OBCS_FIELDS.h |
201 |
NO PROCEDURE |
_RL OBWeta (1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
89 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
126 |
OBCS_APPLY_R_STAR |
& + OBWeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
137 |
OBCS_APPLY_SURF_DR |
& + OBWeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_calc.F |
159 |
OBCS_CALC |
OBWeta(j,bi,bj)= ETA_F1(j,1,1) |
|
./pkg/obcs/obcs_calc.F |
177 |
OBCS_CALC |
OBWeta(j,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
355 |
OBCS_CALC_STEVENS |
OBWeta(J,bi,bj) = etaN(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_exf_load.F |
143 |
OBCS_EXF_LOAD |
U OBWeta, OBWeta0, OBWeta1, OBWetafile, |
|
./pkg/obcs/obcs_fields_load.F |
557 |
OBCS_FIELDS_LOAD |
OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
197 |
OBCS_INIT_VARIABLES |
OBWeta (j,bi,bj) = 0. _d 0 |