Symbol Description Uses
Ar_T 25


File Line number Procedure Code
./pkg/obcs/obcs_calc.F 439 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 447 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 454 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 455 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 457 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 476 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 484 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 491 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 492 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 494 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 513 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 521 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 528 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 529 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 531 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 54 OBCS_CALC 
      _RL Tr_T, Ar_T, Ar
./pkg/obcs/obcs_calc.F 550 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 558 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 565 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 566 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 568 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T