| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc.F |
438 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
448 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
456 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
457 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
464 |
OBCS_CALC |
OBEu(J,K,bi,bj) = OBEu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
475 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
485 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
493 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
494 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
501 |
OBCS_CALC |
OBWu(J,K,bi,bj) = OBWu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
512 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
522 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
530 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
531 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
539 |
OBCS_CALC |
OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
549 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
54 |
OBCS_CALC |
_RL Tr_T, Ar_T, Ar |
|
./pkg/obcs/obcs_calc.F |
559 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
567 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
568 |
OBCS_CALC |
Tr_T = (0. _d 0 - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
576 |
OBCS_CALC |
OBSv(I,K,bi,bj) = OBSv(I,K,bi,bj) + Tr_T |