| File |
Line number |
Procedure |
Code |
|
./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 |
151 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
153 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
162 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_init_varia.F |
53 |
MY82_INIT_VARIA |
MYhbl (i,j ,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_output.F |
103 |
MY82_OUTPUT |
CALL WRITE_FLD_XY_RL('MYhbl.',suff,MYhbl, |
|
./pkg/my82/my82_output.F |
123 |
MY82_OUTPUT |
& 'MYhbl', MYhbl, myThid) |
|
./pkg/my82/my82_output.F |
156 |
MY82_OUTPUT |
CALL TIMEAVE_CUMULATE( MYhbltave, MYhbl, |
|
./pkg/my82/my82_output.F |
239 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYhbl ,'MYHBL ',0,1 ,0,1,1,myThid) |