| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP.h |
32 |
NO PROCEDURE |
_RL KPPdiffKzS (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 |
520 |
KPP_CALC |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
536 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
558 |
KPP_CALC |
I , KPPdiffKzS(1-OLx,1-OLy,1,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
576 |
KPP_CALC |
KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
609 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
741 |
KPP_CALC_DUMMY |
O KPPdiffKzS(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
63 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
80 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
53 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
62 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_init_varia.F |
74 |
KPP_INIT_VARIA |
KPPdiffKzS (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
139 |
KPP_OUTPUT |
CALL WRITE_REC_XYZ_RL('KPPdiffKzS',KPPdiffKzS,kpp_drctrec, |
|
./pkg/kpp/kpp_output.F |
164 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzS.',suff,KPPdiffKzS, |
|
./pkg/kpp/kpp_output.F |
189 |
KPP_OUTPUT |
& 'KPPdiffKzS', KPPdiffKzS, myThid) |
|
./pkg/kpp/kpp_output.F |
235 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
240 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
378 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzS,'KPPdiffS',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
397 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
113 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
113 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
97 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/longstep/longstep_average.F |
116 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, KPPdiffKzS, Nr, myThid) |
|
./pkg/offline/offline_get_diffus.F |
123 |
OFFLINE_GET_DIFFUS |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
725 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |