| File |
Line number |
Procedure |
Code |
|
./pkg/pp81/pp81_calc_visc.F |
46 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
54 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/pp81/pp81_do_diags.F |
140 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
203 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
79 |
PP81_DO_DIAGS |
CALL PLOT_FIELD_XYZRL ( PPviscAr , 'PPviscAr' , |
|
./pkg/pp81/pp81_do_diags.F |
89 |
PP81_DO_DIAGS |
CALL WRITE_REC_XYZ_RL('PPviscAr',PPviscAr,pp_drctrec, |
|
./pkg/pp81/pp81_do_diags.F |
98 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPviscAr.',suff,PPviscAr, |
|
./pkg/pp81/PP81.h |
53 |
NO PROCEDURE |
_RL PPviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/pp81/PP81.h |
55 |
NO PROCEDURE |
COMMON /PP_FIELDS/ PPviscAr, PPdiffKr |
|
./pkg/pp81/pp81_calc.F |
101 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_init.F |
42 |
PP81_INIT |
PPviscAr (i,j,k,bi,bj) = viscAr |