File |
Line number |
Procedure |
Code |
./pkg/kpp/KPP.h |
33 |
NO PROCEDURE |
_RL KPPdiffKzT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/kpp/KPP.h |
37 |
NO PROCEDURE |
COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS |
./pkg/kpp/kpp_calc.F |
525 |
KPP_CALC |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
./pkg/kpp/kpp_calc.F |
559 |
KPP_CALC |
I , KPPdiffKzT(1-OLx,1-OLy,1,bi,bj) |
./pkg/kpp/kpp_calc.F |
578 |
KPP_CALC |
KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj) |
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
./pkg/kpp/kpp_calc.F |
746 |
KPP_CALC_DUMMY |
O KPPdiffKzT(1-OLx,1-OLy,1,bi,bj), |
./pkg/kpp/kpp_calc_diff_t.F |
53 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj) |
./pkg/kpp/kpp_calc_diff_t.F |
62 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj) |
./pkg/kpp/kpp_init_varia.F |
75 |
KPP_INIT_VARIA |
KPPdiffKzT (i,j,k,bi,bj) = 0. |
./pkg/kpp/kpp_output.F |
137 |
KPP_OUTPUT |
CALL WRITE_REC_XYZ_RL('KPPdiffKzT',KPPdiffKzT,kpp_drctrec, |
./pkg/kpp/kpp_output.F |
162 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzT.',suff,KPPdiffKzT, |
./pkg/kpp/kpp_output.F |
187 |
KPP_OUTPUT |
& 'KPPdiffKzT', KPPdiffKzT, myThid) |
./pkg/kpp/kpp_output.F |
233 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
379 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzT,'KPPdiffT',0,Nr,0,1,1,myThid) |
./pkg/kpp/kpp_transport_t.F |
80 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
./pkg/kpp/kpp_transport_t.F |
95 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
./model/src/do_oceanic_phys.F |
726 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |