| File |
Line number |
Procedure |
Code |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
38 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
40 |
COST_HFLUX |
tmpC = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
50 |
COST_HFLUX |
_GLOBAL_SUM_RL( tmpC , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
51 |
COST_HFLUX |
IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
38 |
COST_HFLUX |
_RL locfc,tmpC |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
40 |
COST_HFLUX |
tmpC = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
45 |
COST_HFLUX |
tmpC = tmpC + maskC(i,j,1,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
50 |
COST_HFLUX |
_GLOBAL_SUM_RL( tmpC , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
51 |
COST_HFLUX |
IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
59 |
COST_HFLUX |
locfc = locfc + tmpC*maskC(i,j,1,bi,bj)* |