| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_FIELDS.h |
127 |
NO PROCEDURE |
& OBEuStevens, OBEtStevens, OBEsStevens |
|
./pkg/obcs/OBCS_FIELDS.h |
128 |
NO PROCEDURE |
_RL OBEuStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
187 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
197 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_init_variables.F |
129 |
OBCS_INIT_VARIABLES |
OBEuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_read_pickup.F |
246 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_save_uv_n.F |
102 |
OBCS_SAVE_UV_N |
OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_write_pickup.F |
230 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |