| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_FIELDS.h |
197 |
NO PROCEDURE |
& OBNeta, OBSeta, OBEeta, OBWeta |
|
./pkg/obcs/OBCS_FIELDS.h |
200 |
NO PROCEDURE |
_RL OBEeta (1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/obcs/obcs_apply_eta.F |
79 |
OBCS_APPLY_ETA |
& etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
109 |
OBCS_APPLY_R_STAR |
& + OBEeta( j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
118 |
OBCS_APPLY_SURF_DR |
& + OBEeta(j,bi,bj)*recip_drF(ks) |
|
./pkg/obcs/obcs_calc.F |
109 |
OBCS_CALC |
OBEeta(j,bi,bj)= ETA_F1(j,1,2) |
|
./pkg/obcs/obcs_calc.F |
127 |
OBCS_CALC |
OBEeta(j,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
228 |
OBCS_CALC_STEVENS |
OBEeta(J,bi,bj) = etaN(I-1,J,bi,bj) |
|
./pkg/obcs/obcs_exf_load.F |
117 |
OBCS_EXF_LOAD |
U OBEeta, OBEeta0, OBEeta1, OBEetafile, |
|
./pkg/obcs/obcs_fields_load.F |
531 |
OBCS_FIELDS_LOAD |
OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
196 |
OBCS_INIT_VARIABLES |
OBEeta (j,bi,bj) = 0. _d 0 |