| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/ORLANSKI.h |
35 |
NO PROCEDURE |
& TW_STORE_1,TW_STORE_2, |
|
./pkg/obcs/ORLANSKI.h |
91 |
NO PROCEDURE |
_RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/orlanski_init.F |
110 |
ORLANSKI_INIT |
TW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_west.F |
165 |
ORLANSKI_WEST |
IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
170 |
ORLANSKI_WEST |
& (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
265 |
ORLANSKI_WEST |
TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
267 |
ORLANSKI_WEST |
TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) - |