Symbol Description Uses
const 14


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 237 TURBIO 
      _RL edle,rmu,cltj10,atimstp,tice,const
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 312 TURBIO 
      call MPI_ALLREDUCE(sum0,const,1,mpi_double_precision,mpi_sum,
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 315 TURBIO 
      const = sum0
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 318 TURBIO 
      if( const.eq.0.0 ) then
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 444 TURBIO 
      const = ( cti / hice ) * cltj10
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 449 TURBIO 
             qice(i) =  const*(tice-tground(i))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 450 TURBIO 
            dqice(i) = -const
./pkg/fizhi/fizhi_turb.F 237 TURBIO 
      _RL edle,rmu,cltj10,atimstp,tice,const
./pkg/fizhi/fizhi_turb.F 312 TURBIO 
      call MPI_ALLREDUCE(sum0,const,1,mpi_double_precision,mpi_sum,
./pkg/fizhi/fizhi_turb.F 315 TURBIO 
      const = sum0
./pkg/fizhi/fizhi_turb.F 318 TURBIO 
      if( const.eq.0.0 ) then
./pkg/fizhi/fizhi_turb.F 444 TURBIO 
      const = ( cti / hice ) * cltj10
./pkg/fizhi/fizhi_turb.F 449 TURBIO 
             qice(i) =  const*(tice-tground(i))
./pkg/fizhi/fizhi_turb.F 450 TURBIO 
            dqice(i) = -const