| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
258 |
TURBIO |
_RL edle,rmu,cltj10,atimstp,tice,const |
|
./pkg/fizhi/fizhi_turb.F |
333 |
TURBIO |
call MPI_ALLREDUCE(sum0,const,1,mpi_double_precision,mpi_sum, |
|
./pkg/fizhi/fizhi_turb.F |
336 |
TURBIO |
const = sum0 |
|
./pkg/fizhi/fizhi_turb.F |
339 |
TURBIO |
if( const.eq.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
468 |
TURBIO |
const = ( cti / hice ) * cltj10 |
|
./pkg/fizhi/fizhi_turb.F |
473 |
TURBIO |
qice(i) = const*(tice-tground(i)) |
|
./pkg/fizhi/fizhi_turb.F |
474 |
TURBIO |
dqice(i) = -const |