Symbol Description Uses
mm_pi 14


File Line number Procedure Code
./pkg/seaice/seaice_budget_ice_if.F 235 SEAICE_BUDGET_ICE_IF 
           mm_pi = 10**(mm_log10pi)
./pkg/seaice/seaice_budget_ice_if.F 237 SEAICE_BUDGET_ICE_IF 
           qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi)
./pkg/seaice/seaice_budget_ice_if.F 290 SEAICE_BUDGET_ICE_IF 
          mm_pi = 10**(mm_log10pi)
./pkg/seaice/seaice_budget_ice_if.F 292 SEAICE_BUDGET_ICE_IF 
          qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi)
./pkg/seaice/seaice_budget_ice_if.F 81 SEAICE_BUDGET_ICE_IF 
      _RL  mm_pi,mm_log10pi,dqhice_dTice
./pkg/seaice/seaice_solve4temp.F 134 SEAICE_SOLVE4TEMP 
      _RL mm_pi,mm_log10pi,dqhice_dTice
./pkg/seaice/seaice_solve4temp.F 434 SEAICE_SOLVE4TEMP 
          mm_pi = exp(mm_log10pi*lnTEN)
./pkg/seaice/seaice_solve4temp.F 436 SEAICE_SOLVE4TEMP 
          qhice(I,J) = bb1*mm_pi / (Ppascals - (1.0 _d 0 - bb1) *
./pkg/seaice/seaice_solve4temp.F 437 SEAICE_SOLVE4TEMP 
     &         mm_pi)
./pkg/seaice/seaice_solve4temp.F 567 SEAICE_SOLVE4TEMP 
         mm_pi = exp(mm_log10pi*lnTEN)
./pkg/seaice/seaice_solve4temp.F 570 SEAICE_SOLVE4TEMP 
         qhice(I,J) = bb1*mm_pi/(Ppascals- (1.0 _d 0 - bb1) * mm_pi)