Symbol Description Uses
Ar_T 25


File Line number Procedure Code
./pkg/obcs/obcs_calc.F 378 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 386 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 393 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 394 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 396 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 415 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 423 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 430 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 431 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 433 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 452 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 460 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 467 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 468 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 470 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 489 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 497 OBCS_CALC 
            Ar_T = Ar_T + Ar
./pkg/obcs/obcs_calc.F 504 OBCS_CALC 
       _GLOBAL_SUM_RL( Ar_T , myThid )
./pkg/obcs/obcs_calc.F 505 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 507 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 51 OBCS_CALC 
      _RL Tr_T, Ar_T, Ar