Symbol Description Uses
rC 123


File Line number Procedure Code
./model/src/calc_grad_phi_hyd.F 101 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 112 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 120 CALC_GRAD_PHI_HYD 
     &                  *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 121 CALC_GRAD_PHI_HYD 
     &                  /                (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 156 CALC_GRAD_PHI_HYD 
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 179 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 183 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 188 CALC_GRAD_PHI_HYD 
        conv_theta2T = (rC(k)/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 189 CALC_GRAD_PHI_HYD 
        factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0
./model/src/calc_grad_phi_hyd.F 195 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 199 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 95 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 96 CALC_GRAD_PHI_HYD 
           factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa
./model/src/calc_grad_phi_hyd.F 97 CALC_GRAD_PHI_HYD 
     &                    -(                 rC(k) /atm_Po)**atm_kappa
./pkg/seaice/seaice_init.F 232 SEAICE_INIT 
           DO WHILE ( abs(rC(KGEO(I,J,bi,bj))) .LT. 50.0 .AND.
./pkg/gmredi/gmredi_calc_tensor.F 353 GMREDI_CALC_TENSOR 
     I             ldd97_LrhoW,rC(k),k,
./pkg/gmredi/gmredi_calc_tensor.F 435 GMREDI_CALC_TENSOR 
     I             ldd97_LrhoS,rC(k),k,
./pkg/monitor/mon_surfcor.F 117 MON_SURFCOR 
            ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa
./pkg/monitor/mon_surfcor.F 118 MON_SURFCOR 
     &                   -(rC( K )/atm_po)**atm_kappa )
./pkg/monitor/mon_surfcor.F 140 MON_SURFCOR 
     &                            atm_cp*((rC(k)/atm_po)**atm_kappa)
./pkg/monitor/mon_surfcor.F 89 MON_SURFCOR 
     &                 + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa)