| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP.h |
40 |
NO PROCEDURE |
_RL KPPplumefrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/kpp/KPP.h |
41 |
NO PROCEDURE |
COMMON /kpp_short1/ KPPplumefrac |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
729 |
KPP_CALC_DUMMY |
KPPplumefrac(i,j,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_output.F |
412 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPplumefrac,'KPPpfrac',0,1 ,0,1,1,myThid) |
|
./pkg/kpp/kpp_transport_s.F |
102 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |
|
./pkg/kpp/kpp_transport_s.F |
118 |
KPP_TRANSPORT_S |
& *(1.-KPPplumefrac(i,j,bi,bj)) |