| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
214 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
219 |
OBCS_CALC |
_GLOBAL_SUM_R8( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
220 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
225 |
OBCS_CALC |
OBEu(J,K,bi,bj) = OBEu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
233 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
241 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
246 |
OBCS_CALC |
_GLOBAL_SUM_R8( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
247 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
252 |
OBCS_CALC |
OBWu(J,K,bi,bj) = OBWu(J,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
260 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
268 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
273 |
OBCS_CALC |
_GLOBAL_SUM_R8( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
274 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
280 |
OBCS_CALC |
OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
287 |
OBCS_CALC |
Tr_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
295 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
300 |
OBCS_CALC |
_GLOBAL_SUM_R8( Tr_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
301 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
307 |
OBCS_CALC |
OBSv(I,K,bi,bj) = OBSv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
40 |
OBCS_CALC |
_RL Tr_T, Ar_T, Tr, Ar |