| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc.F |
377 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
387 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
395 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
396 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
403 |
OBCS_CALC |
OBEu(J,K,bi,bj) = OBEu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
414 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
424 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
432 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
433 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
440 |
OBCS_CALC |
OBWu(J,K,bi,bj) = OBWu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
451 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
461 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
469 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
470 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
478 |
OBCS_CALC |
OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
488 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
498 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
506 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
507 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
515 |
OBCS_CALC |
OBSv(I,K,bi,bj) = OBSv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
51 |
OBCS_CALC |
_RL Tr_T, Ar_T, Ar |