| File |
Line number |
Procedure |
Code |
|
./pkg/my82/my82_do_diags.F |
107 |
MY82_DO_DIAGS |
CALL WRITE_FLD_XY_RL('MYhbl.',suff,MYhbl, |
|
./pkg/my82/my82_do_diags.F |
152 |
MY82_DO_DIAGS |
& MYhbltave, MYhbl, 1, DDTT,bi,bj,myThid) |
|
./pkg/my82/my82_do_diags.F |
224 |
MY82_DO_DIAGS |
& MYhbltave, MYhbl, 1, DDTT,bi,bj,myThid) |
|
./pkg/my82/my82_do_diags.F |
80 |
MY82_DO_DIAGS |
CALL PLOT_FIELD_XYRL ( MYhbl , 'MYhbl' , |
|
./pkg/my82/my82_do_diags.F |
96 |
MY82_DO_DIAGS |
CALL WRITE_REC_XY_RL('MYhbl',MYhbl,my_drctrec, |
|
./pkg/my82/my82_init.F |
53 |
MY82_INIT |
MYhbl (i,j ,bi,bj) = 0. _d 0 |
|
./pkg/my82/MY82.h |
57 |
NO PROCEDURE |
_RL MYhbl (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/my82/MY82.h |
60 |
NO PROCEDURE |
COMMON /MY_FIELDS/ MYhbl, MYviscAr, MYdiffKr |
|
./pkg/my82/my82_calc.F |
153 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
155 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./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 |
167 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |