File |
Line number |
Procedure |
Code |
./pkg/kpp/kpp_calc.F |
675 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,1,bi,bj) |
./pkg/kpp/kpp_calc.F |
683 |
KPP_CALC |
_EXCH_XY_R8 (KPPhbl , myThid ) |
./pkg/kpp/kpp_calc.F |
719 |
KPP_CALC |
worka(i,j) = KPPhbl(i,j,bi,bj) |
./pkg/kpp/kpp_calc.F |
773 |
KPP_CALC_DUMMY |
KPPhbl (i,j,bi,bj) = 1.0 |
./pkg/kpp/kpp_do_diags.F |
103 |
KPP_DO_DIAGS |
CALL WRITE_REC_XY_RL('KPPhbl',KPPhbl,kpp_drctrec, |
./pkg/kpp/kpp_do_diags.F |
118 |
KPP_DO_DIAGS |
CALL WRITE_FLD_XY_RL('KPPhbl.',suff,KPPhbl, |
./pkg/kpp/kpp_do_diags.F |
138 |
KPP_DO_DIAGS |
& 'KPPhbl', KPPhbl, myThid) |
./pkg/kpp/kpp_do_diags.F |
183 |
KPP_DO_DIAGS |
& KPPhbltave, KPPhbl, 1, DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_do_diags.F |
314 |
KPP_DO_DIAGS |
CALL DIAGNOSTICS_FILL(KPPhbl ,'KPPhbl ',0,1 ,0,1,1,myThid) |
./pkg/kpp/kpp_do_diags.F |
80 |
KPP_DO_DIAGS |
CALL PLOT_FIELD_XYRL ( KPPhbl , 'KPPhbl' , |
./pkg/kpp/KPP.h |
34 |
NO PROCEDURE |
_RL KPPhbl (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
./pkg/kpp/KPP.h |
37 |
NO PROCEDURE |
& , KPPghat, KPPhbl |
./pkg/kpp/kpp_init.F |
133 |
KPP_INIT |
KPPhbl(i,j,bi,bj) = 0. |