| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc.F |
207 |
OBCS_CALC |
Ar_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
213 |
OBCS_CALC |
Ar_T = Ar_T + Ar |
|
./pkg/obcs/obcs_calc.F |
218 |
OBCS_CALC |
_GLOBAL_SUM_R8( Ar_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
220 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
234 |
OBCS_CALC |
Ar_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
240 |
OBCS_CALC |
Ar_T = Ar_T + Ar |
|
./pkg/obcs/obcs_calc.F |
245 |
OBCS_CALC |
_GLOBAL_SUM_R8( Ar_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
247 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
261 |
OBCS_CALC |
Ar_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
267 |
OBCS_CALC |
Ar_T = Ar_T + Ar |
|
./pkg/obcs/obcs_calc.F |
272 |
OBCS_CALC |
_GLOBAL_SUM_R8( Ar_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
274 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
288 |
OBCS_CALC |
Ar_T = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
294 |
OBCS_CALC |
Ar_T = Ar_T + Ar |
|
./pkg/obcs/obcs_calc.F |
299 |
OBCS_CALC |
_GLOBAL_SUM_R8( Ar_T , myThid ) |
|
./pkg/obcs/obcs_calc.F |
301 |
OBCS_CALC |
Tr_T = (0. - Tr_T)/Ar_T |
|
./pkg/obcs/obcs_calc.F |
40 |
OBCS_CALC |
_RL Tr_T, Ar_T, Tr, Ar |