| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_calc_visc.F |
44 |
MY82_CALC_VISC |
& 0.5*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
52 |
MY82_CALC_VISC |
& 0.5*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/my82/my82_do_diags.F |
103 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('MYviscAr.',suff,MYviscAr, |
|
./pkg/my82/my82_do_diags.F |
148 |
MY82_DO_DIAGS |
& MYviscArtave,MYviscAr,Nr,DDTT,bi,bj,myThid) |
|
./pkg/my82/my82_do_diags.F |
220 |
MY82_DO_DIAGS |
& MYviscArtave,MYviscAr,Nr,DDTT,bi,bj,myThid) |
|
./pkg/my82/my82_do_diags.F |
82 |
MY82_DO_DIAGS |
CALL PLOT_FIELD_XYZRL ( MYviscAr, 'MYviscAr', |
|
./pkg/my82/my82_do_diags.F |
92 |
MY82_DO_DIAGS |
CALL WRITE_REC_XYZ_RL('MYviscAr',MYviscAr,my_drctrec, |
|
./pkg/my82/my82_init.F |
54 |
MY82_INIT |
MYviscAr (i,j,k,bi,bj) = viscAr |
|
./pkg/my82/MY82.h |
58 |
NO PROCEDURE |
_RL MYviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/my82/MY82.h |
60 |
NO PROCEDURE |
COMMON /MY_FIELDS/ MYhbl, MYviscAr, MYdiffKr |
|
./pkg/my82/my82_calc.F |
166 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj),viscAr) |
|
./pkg/my82/my82_calc.F |
173 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |