| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
670 |
KPP_CALC |
KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
679 |
KPP_CALC |
_EXCH_XYZ_R8(KPPviscAz , myThid ) |
|
./pkg/kpp/kpp_calc.F |
691 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj) ) |
|
./pkg/kpp/kpp_calc.F |
693 |
KPP_CALC |
_EXCH_XYZ_R8(KPPviscAz , myThid ) |
|
./pkg/kpp/kpp_calc.F |
777 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscAr |
|
./pkg/kpp/kpp_do_diags.F |
110 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('KPPviscAz.',suff,KPPviscAz, |
|
./pkg/kpp/kpp_do_diags.F |
130 |
KPP_DO_DIAGS |
& 'KPPviscAz', KPPviscAz, myThid) |
|
./pkg/kpp/kpp_do_diags.F |
175 |
KPP_DO_DIAGS |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_do_diags.F |
310 |
KPP_DO_DIAGS |
CALL DIAGNOSTICS_FILL(KPPviscAz ,'KPPviscA',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_do_diags.F |
82 |
KPP_DO_DIAGS |
CALL PLOT_FIELD_XYZRL ( KPPviscAz , 'KPPviscAz' , |
|
./pkg/kpp/kpp_do_diags.F |
95 |
KPP_DO_DIAGS |
CALL WRITE_REC_XYZ_RL('KPPviscAz',KPPviscAz,kpp_drctrec, |
|
./pkg/kpp/KPP.h |
30 |
NO PROCEDURE |
_RL KPPviscAz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP.h |
36 |
NO PROCEDURE |
COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS |
|
./pkg/kpp/kpp_init.F |
140 |
KPP_INIT |
KPPviscAz (i,j,k,bi,bj) = viscAr |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) ) |