| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc_visc.F |
44 |
GGL90_CALC_VISC |
& 0.5*(GGL90viscAr(i,j,k,bi,bj)+GGL90viscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
52 |
GGL90_CALC_VISC |
& 0.5*(GGL90viscAr(i,j,k,bi,bj)+GGL90viscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/ggl90/ggl90_do_diags.F |
102 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90viscAr.',suff,GGL90viscAr, |
|
./pkg/ggl90/ggl90_do_diags.F |
147 |
GGL90_DO_DIAGS |
& GGL90viscArtave,GGL90viscAr,Nr,DDTT,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_do_diags.F |
219 |
GGL90_DO_DIAGS |
& GGL90viscArtave,GGL90viscAr,Nr,DDTT,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_do_diags.F |
81 |
GGL90_DO_DIAGS |
CALL PLOT_FIELD_XYZRL ( GGL90viscAr, 'GGL90viscAr', |
|
./pkg/ggl90/ggl90_do_diags.F |
91 |
GGL90_DO_DIAGS |
CALL WRITE_REC_XYZ_RL('GGL90viscAr',GGL90viscAr,ggl90_drctrec, |
|
./pkg/ggl90/GGL90.h |
75 |
NO PROCEDURE |
_RL GGL90viscAr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
79 |
NO PROCEDURE |
& GGL90viscAr, GGL90diffKr, |
|
./pkg/ggl90/ggl90_calc.F |
370 |
GGL90_CALC |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |