| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
79 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
56 |
COST_TEST |
IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
58 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
59 |
COST_TEST |
& *_hFacW(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
79 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
43 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
|
./pkg/cost/cost_depth.F |
44 |
COST_DEPTH |
IF ( maskC(I,J,1,BI,BJ) .NE. 0. ) THEN |
|
./pkg/cost/cost_depth.F |
45 |
COST_DEPTH |
objf_depth(BI,BJ) = objf_depth(BI,BJ) + R_low(I,J,BI,BJ) |